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COPY  ARRAY  VALUES 


FUNCTIOTiAL  DESCRIPTION: 

ACOPY  IS  used  by  various  routines  to  copy  all 
or  part  of  an  array  (be  it  nurrvjric  or  literal) 

CALLING  SEQUENCE: 

CALL    ACOPY 


INPUTS: 
RO 
R1 
R2 

OUTPUTS : 

NONE 


-  Number  of  elements  (not  words!)  to  copy 

-  Destination  pointer  (not  pointer  to  block  header) 

-  Pointer  to  source  block  header 


IMPLICIT  OUTPUTS: 
The  data  in 
destination 


the  source 
array. 


array  is  copied  to  the 


005700 
001430 

116202  000003 
042702  177771 


005762 
001005 
013602 
112221 

000413 

006200 
013602 
012221 


000044 • 


.PSEtT  CODE 

ACOPY::  TST 
BEQ 
PUSH 

Move 

BIC 
TST 
BNE 
MOV 

1$:     M0V8 
SOB 
BR 

2$:  ASH 
ASR 
MOV 

4$:  MOV 
SOB 

5$:     RETURN 


RO 
5$ 

R2 

A.BITS(R2),R2 

#*C<A.NUM>,R2 

SIZTA8(R2) 

2$ 

a(SP)*,R2 

(R2)*,(Rl)t 

ROJ$ 

5$ 

SIZTAe(R2),R0 

RO 

a(SP)^,R2 

(R2)*, (RD* 

R0,4$ 


ANYTHING  TO  COPY? 

NO' 

SAVE  PT.'  lO  SOURCE 

GET  BIT5 

CLEAR  GAi-iAGE 

SOURCE  ARRAY   IN  WORDS? 

YES 

ELSE  COPY  BYTE  BY  BYTE 

COPY  ONE  BYTE 

COPY  ENTIRE  ARRAY 

ALL  DONE 

MULTIPLY  BY  PRECISION 

CONVERT  TO  WORD  COUNT 

POINT  TO  FIRST  SOURCE  ELEMENT 

COPY  ARRAY 

VERY  FAST! 
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000001 
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FA.APD=  000100 

A.AS8  =  000200 

CHRRPR=  000042 

C.IDEN= 
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D.GE  =  000000 

FA.CRE=  000010 

A.BITS=  000003 

CHRSEM=  000074 

C.NAWE= 

000102 

D.GT  =  000000 

FA.DLK=  001000 

A.  CON  =  OOOOc'C 

CHRS«0=  U00112 

C.N0BF= 

000400 

D.IBM  =  000002 

FA.Efa=  10C000 

A.Di«s=  ooooor 

CHRSPA=  000040 

C.NIJ1  = 

000020 

D.IND  =  000002 

FA.EXC=  002000 

A.DIM1=  000006 

CHRtPA=  000131 

COP  = 

0OOUO4 

D.INNR=  OO-^On 

FA.EXT=  000004 

A.NUW  =  000006 

CHR.BS=  000010 

C.OPN  = 

010000 

D.IfvTRr  000006 

FA.NSP=  000100 

A.PTR  =  000000 

CHK.CC=  000003 

C.RDLN= 

177776 

D.LE  =  OJOOOO 

FA.NSR=  000200 

A.TMP  =  0OOO10 

CHR.CR=  000015 

C.REWT= 

002000 

D.LOG  =  000001 

FA.P0S=  010000 

BADDIR=  104463 

CHR.CZ=  000032 

C.RND  -- 

000010 

D.LT  =  000000 

FA.RD  =  000001 

BADERR=  104437 

CHR.GT=  000046 

C.SBIT--^ 

177756 

D.MAX  =  000000 

FA.RWD=  004000 

BLZHlfl  0051 16R 

025  CHR.LF=  000012 

C.SPFX= 

000100 

D.MEM  =  000002 

FA.SEQ=  040000 

F-SELF  005046R 

025  CHR.LT=  000043 

C.SPGL= 

000200 

D.MIN  =  000000 

FA.SHR=  000040 

^.•T    0O5O72R 

025  cm.Sl=   000017 

C.SPLX= 

000001 

D.MUL  =  000000 

FA.TMF=  000020 

CHANEX  003060R 

025  CHR.SL=  000057 

C.SPRS= 

000002 

D.NE  =  000000 

FA.WCK=  020000 

CHANOO  0OO256R 

025  CHR.S0=  000016 

C.SRC  = 

177774 

D.NN  =  000000 

FA.yRT=  000002 

CHAN01  0OO33CR 

025  CHR.TB=  00001^ 

C .  SRCP-- 

000024 

D.NR  =  000000 

FD.BLK=  000010 

CHAN02  0005 13R 

025  CHR.UL=  000106 

C.TT  = 

000004 

D.OR  =  000000 

FD.CCL=  000002 

CHAN03  000674R 

025  CHR..A=  000141 

C.W]DC= 

1 77770 

D.PLUS=  000000 

FD.CGM=  020000 

CHAN04  001056R 

025  CHR..E=  000145 

C.WIDR= 

1 77772 

D.PSUB=  000006 

FD.CR  =  000002 

CHAN05  001240R 

025  CHR..S=  000163 

DEBUG  = 

000000 

D.PWR  =  000001 

FD.DIR=  000010 

CHAN06  001422R 

025  CHR..T=  000164 

DEFERR= 

104405 

D.OQAD^  000000 

FD.FTN=  000001 

CHAN07  001604R 

025  CK9..U=  000165 

DEVIL 

005114R 

025  D.OUAD=  000000 

FD.F11=  040000 

CHAN08  001766R 

025  CHR..Z=  000172 

DEVNTF  = 

104470 

D.RES  =  000000 

FD.INS=  000010 

CHAN09  0021 50R 

025  CHR..O=  000060 

DIGITS 

000006R 

025  D.RHO  =  000000 

FD.ISP=  002000 

CKAN10  002332R 

025  CHR..1=  000061 

DI«AX  = 

000020 

D.ROT  =  000003 

FD.MNT=  lOOvTJ 

CHAN11  0025  HR 

025  CH.AND=  000001 

oimiK 

0031 12R 

025  D.SCON=  000006 

FD.0SP=  004000 

CHAN12  002676R 

025  CMD8JF  003250R 

025  DIMPTR 

0031UR 

025  D.SDIF=  000006 

FD.PLC=  000004 

CHAN13  000022R 

023  CW1AX=  000010 

DIMTYP 

0031 16R 

025  r.SUB  =  000000 

FD.PRN=  000004 

CHAN14  OOU204R 

023  CNTSIZ  005130R 

025  DIRFUL= 

104466 

D. SUBSET  000006 

FD.PSE=  010000 

CHNOPN=  104471 

COHBIN  005076R 

025  D0«ERR= 

104417 

D.TAKE=  000002 

FD.RAH=  000001 

CHRAND-  000051 

CGWCNT  005126R 

025  DPTERR= 

104416 

D.TRAN=  000004 

FD.RAN=  000002 

CHRBEL^  000007 

CO«ERR=  104425 

DVDCNT 

003224R 

025  D.UNON=  000006 

FD.REC=  000001 

CHRBKR=  000133 

COMPTR  005122R 

025  D.AND  = 

000000 

D.$«AX=  000000 

FD.R\^<=  000001 

CHRBU  =  000200 

CGMRTN  0031 56R 

025  D.BXCTr 

000007 

D.$«IN=  000000 

FD.SDI=  000020 

CHRBOX=  0001 K 

CO«SKP  005124n 

025  D.8XI0= 

000007 

D.$MUL=  000000 

FD.SOD=  000040 

CMRC«A=  000054 

CORPTR  005120R 

025  D.BXNL= 

000007 
000007 

D.$PLIJ=  000000 
D.IRL.  =  000000 

FD.TTY=  000004 

CmCOi=  C00076 

CS.ASS=  000200 

D.8XPP= 

FD.yBH^  000002 

CHROEL=  000107 

CS.B00=  OOOOiO 

D.8XPW= 

000007 
000007 

D.$SUB=  000000 

FF.CHR=  000005 
ff.N^   =  000003 

CHROIV=  000053 

CS.FLO=  000020 

D.BXRL= 

D.1C0M=  000001 

CHRDLR=  00O1 76 

CS.IDN=  000040 

D.CIRC= 

000001 

D.IEXPr  000002 
D.1R0T=  000003 

FF.P0E=  000002 

CHRDLTr  000110 

CS.0NE=  000100 

D.C0(«= 

000001 
000001 

FF. R«0=  000001 

CHROOTr  000056 

CTEPS   0001 52R 

025  D.COMP- 

EDICHR  005063R    025 

FF.RWF=  000006 

CHREP  =  000105 

CTMAX   00021 2R 

025  D.CONT 

000006 

EDICNT  005064R     025 

fp  SPC=  000004 

CHRERR=  104431 

CTRMAX  0001 72R 

025  D.CTLM^ 

000000 

EDIFLG  005062R    025 
EDIT  =  000003 

F HE ADR  00501 2R    025 
FHRET   00S040R     025 

CHRFiL=  000177 

C.A10C=  000162 

D.DEAL= 

000003 
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SYMBa  TABLE 

FILNTF=  104467 

p.Fre  = 

000102 

I  CHAN 

005050R 

025  MONPTR 

0031 22R 

025  M.SATA= 

000001 

FIS   =  000000 

F.FNOF= 

000010 

ILFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SCAN= 

000011 

FISCON=  046000 

F.FTYP= 

000116 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FIXPTR  003074R 

025 

F.FUN  = 

000010 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SI6N= 

000000 

FLAGS   004764R 

025  1 

F.FVER= 

000120 

INDERR= 

104410 

M.ABS  = 

000000 

M.SUBR= 

000001 

FLCBUF  0O3250R 

025  1 

F.HEAD= 

000006 

INNTMP 

003250R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLINE   0O5014R 

025  1 

F.H1BK= 

000004 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

H.SYN  = 

000201 

FLOEXP  003270R 

025  1 

F.LBL  = 

000020 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN= 

000012 

FLONEG  003272R 

025  1 

F.LINE= 

000012 

INSNAM= 

104462 

M.BXCT= 

000007 

M.$ABS= 

000000 

FLSWTB  000222R 

025 

F.LOC  = 

000004 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI= 

000000 

FLTLEN=  000010 

F.LSTC= 

000004 

I.CNT  = 

\7777t 

M.BXFX= 

000007 

M.$FLR= 

000000 

FNINSI  005044R 

025 

F.LUN  = 

000042 

I. DIM  = 

}77772 

M.BXIO= 

000007 

M.$IDN= 

000000 

FORIGN  000032R 

025 

F.f«CT= 

000054 

I.LEN  = 

000012 

n.9XLC= 

000003 

M.$NEG= 

cooooo 

F0.AP0=  000106 

F.MBC1  = 

000055 

I.0ERR= 

000062 

M.BXNC= 

000007 

M.$SIG= 

oocooo 

F0.HFY=  000002 

^^©FG= 

000056 

I. OLD  = 

)7777Q 

M.BXNL= 

000007 

M.1RDT= 

000011 

FO  RO  =  OOOOC. 

F.MON  = 

000002 

I.PTR  = 

1 77774 

M.BXPP= 

000007 

M.IREV^- 

000003 

FO.UPO=  000006 

F.NIL  = 

000001 

I.STR  = 

177766 

M.BXPW= 

000^7 

M.1SCN= 

000011 

r0.WRT=  000016 

F.NRBO= 

000024 

LABERR= 

104406 

M.8XRL= 

000007 

NAMBUF 

003240R 

025 

FPfWDE  0OOO42R 

025 

F.NREC= 

000030 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FPP   =  000000 

F.OPN  = 

000010 

LARGBL 

0031 62R 

025  M.BXyA= 

000007 

NB.Din^ 

000100 

FPPLEN=  000004 

F.0VBS= 

000030 

LARGCV 

0031 76R 

025  M.CEI  = 

1 77777 

NB.NAM=  000004 

FREBLK  007400R 

025 

F.PREV= 

000000 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SDU 

000400 

FUZZ    0001 42R 

025  1 

F.PRNT= 

100000 

LARGLE 

0031 74R 

025  M.CMT  = 
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NB.SD2= 
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LARGLN 
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025  M.DOUT= 

000006 

fB.Sm=   000040 

F$E VAL=  000100 

F.RACC= 

000016 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

FSEVI  =  000200 

F.RATT= 

000001 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F$EX£C=  000400 

F.RCNW^ 

000034 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F$fUNC=  001000 

F.RCTL= 

000017 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F.ACTL=  000076 

F.READ= 

004000 

LBINC 

005100R 

025  M.FACT= 

000001 

ND.DEV- 

000200 

F.ALOC=  000040 

F.REDF= 

000040 

LBliFF 

00331 6R 

025  M.FIL  = 

000177 

ND.EXT= 
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F.aBfS=  000062 

F.RES  = 

000040 

LBUFLN= 

000621 
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000000 
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025  M.I8M  = 

000003 

ND.$N$= 

000040 
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SY.SVC= 
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X000005 
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104435 

S.AB  = 
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T.TMP  = 

000200 

N.FID  = 
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005074R 

025 

SIFRAM 

00331 4R 

025 

S.AS8  = 

100000 

T.VAL  = 

100000 

N.FNAW=  0C0006 

RCCJNR 

0051 12R 

025 

SISTAK 

006350R 

025 

S.8FHD= 

000020 

T.VAR  = 

001000 

N.FTYP=  OaOOK 

RCOUNT 

005110R 

025 

SI  TOP 

006346R 

S.8ITS= 

000002 

UPPER  = 

177400 

N.FVER= 

OOC>016 

REDCNT 

005070R 

025 

SITP 

0071 44R 

025 

S.CHR1= 

000003 

UTNAME 

000344R 
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N.f4A^= 

000006 

REDIGN 

005066R 

025 

SiyARN= 

000200 

S.FATT= 

000016 

VALERR= 

104413 

N.NEXT= 

ooa22 

REDOFF 

005072R 

025 

SIZTAB 

000044R 

025 

S.FD6  = 

000140 

VAR8LE 

007400R 

025 

N.PPN  = 

0OC02A 

REENTR 

003060R 

025 

SI.BIT= 

1 7777^ 

S.FLB  = 

04p:oo 

VARBLS 

OOOOOOR 

025 

N.STAT^ 

OOOOiC 

REGTYP= 

000000 

SI.LEN= 

1 77772 

S.FNA«= 

ry0006 

VERNUW 

OOOOOOR 

025 

N.UNIT= 

000034 

RES8JT 

0031 42R 

025 

SI.RET= 

)77772 

S.FNB  = 

)00036 

VRSI0N= 

000002 

fW.IFLN=  001 OCO 

RESCVT 

0031 52R 

025 

SI.VAL= 

1 77776 

S.FNBW= 

)00017 

WIDTH 

000072R 

025 

OCHAN 

0050')2R 

025 

RESERR= 

104440 

SKPSIZ 

0051 34R 

025 

S.FNTY= 

)00004 

UROUND 

000020R 

025 

OMODE 

0004  02R 

023  RESLEN 

0031 50R 

025 

SPHOLD 

000004R 

024 

S.FTYPr 

000002 

WSDATE 

0001 36R 

025 

(JPTMPO 

005f>66R 

025  RESPTR 

0031 40R 

025 

SPINIT 

000002R 

024 

S.LEN  = 

000002 

WSFULL= 

104403 

0PTMP1 

005'J70R 

025 

RESSFT 

0031 46R 

025 

STKINC= 

000774 

S.LINK= 

1 7777^ 

USNAME 

000074R 

025 

0PJ^2 

0OS072R 

025 

RESTYP 

0031 44R 

025 

STOP  = 

104420 

S.NFEN= 

000020 

WSTIME 

000I32R 

025 

0PTMP3 

0O5074R 

025 

RESULT 

0031 36R 

025 

SUBCNT 

0031 04R 

025 

S.TYPE= 

140000 

$FIS  = 

******  Q 

OPTMPA 

005076R 

025 

RESVAL 

0031 54R 

025 

sieocT 

0031 06R 

025 

S.VAL  = 

OOOOOO 

%fPP     = 

******  G 

0PTMP5 

005100R 

025 

RING 

005104R 

025 
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00311  OR 

025 
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025  %fPPLN= 
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005102R 

025 

RLTBAS 

005066R 

025 

SY^CI 

005344R 

025 

TKFRAM 
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025  $«ACHN= 
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0PTWP7 

005104R 

025 

ROT INC 

005070R 

025 

SYMF 

005340R 

025 

TKLEF  r 

005070R 

025  SRSTS  = 

******  G 

0PT«P8 

005106R 

025 
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000010R 

025 

SYMPT1 

005346R 

025 

T/iODE 

000403R 

023  $RSX  = 

******  G 

0PTMP9 

005110R 

025 

ROVER 

00331 2R 

025 

SYMTAB 

005352R 

025 

TMPTAG= 

000166 

$RT11  = 

******  G 

OPTHIO 

0051 12R 

025 

RSTS  = 

000000 

SYMT8F= 

104404 

TTY8UF 

004140R 

025  .80aE= 

000002 

OPTHIA 

005026R 

025 

RSX   = 

000115 

SYMTOP 

005350R 

025 

TTYLEN= 

000622 

.CHARA= 

OOOOOO 

ORIGIN 

000030R 

025 

RTOP 

005070R 

025 

SYMTP 

006272R 

025 

TURKEY= 

104436 

.DEF.  = 

000002 

OUTPTR 

000066R 

025 

RT11  = 

OOOOOO 

SY/1URN= 

000054 

TYPE  = 

000166 

.FL0AT= 

000006 

OVRCPR= 

000000 

R.8ITS= 

000003 

SYNERR= 

104407 

T.80L  = 

020000 

.FSRCB= 

******  G 

PATCH 

007344R 

025 

R.FIX  r 
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SYSERR= 

104402 

T.CON  = 

004000 

.INTEG= 

000004 

PRECSN 

000052R 

025 

R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.DIM  r 

000100 

.MOLUN 

000404R 

023 

RANDAC 

003064R 

025 

R.LN  = 

000002 

3Y.8AD= 
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7. FUN  = 

010000 

...GBL  = 

OOOOOO 

RANDY 

003062R 

025 

R.LNUW= 

000010 

SY.IBRK= 

100000 

T.Li3T= 

000400 

...TPC= 

000020 

RA^JFRR= 

104411 

R,NEXT= 

000006 

SY.8S  = 

000010 
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ocoooo 

005 

wnr^TB 

OOXXX) 

006 

yofJB 

00X00 

007 

cut  Ml* 

or  0000 

010 

CHRTBc 

CJOOOO 

011 

VTBL 

000000 

012 

ASCTBl 

000000 

013 

OVRTBl 

000000 

014 

TRNTa 

000000 
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132 

000115 

133 

000000 

134 

000000 

135 

000004 
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ASSEMBLY  PARAMETERS 


IF  APL  IS  BEING  DEBUGGED,  'DEBUG'  SHOULD  BF  SET  TO  1,  WHICH 
ENABLES  THE  PRINTING  OF  THE  LOCATION  OF  AN  ERROR  AND  THE  REGISTER 
VALUES  AT  THE  TIME  OF  THE  ERROR.  THIS   SHOULD  BE  SET  TO  NON-ZERO 
ONLY  UHEN  DEBUGGING,  OTHERWISE  THROWS  UP  A  LOT  OF  "STRANGE"  NUMBERS 
TO  THE  USER  ON  EVERY  ERROR  I 


THIS  TELLS  APL  WHAT  KIND  OF  PDP-11  IT  WILL  BE  RUNNING  ON,  THE 
.•DEFAULT  IS  A  PDP-11/70 

'FPP'    IS  SET  TO  NON-ZERO  IF  A  HARDWARE  FPU  IS  AVAILABLE  ON 
;THE  PROCESSOR  TO  BE  USED.  OTHERWISE  IT  SHOULD  BE  ZERO. 


*clS'    INDICATES  WHETHER  THE  HARDWARE  CONFIGURATION  I^CLUDES 
THE  EIS  HARDWARE  INSTRUCTION  SET.  IF  NOT,  SIMULATION  SOFTWARE  IS 
GENERATED  TO  HANDLE  THE  INSTRUCTIONS. 

FLTLEN=8. 

THIS  IS  THE  NUMBER  OF  ttBYTES**  PER  FLOATING  POINT  NUMBER. 
THE   ONLY  POSSIBLE  VALUES  ARE  4  AND  10  .  WHEN  SET  TO  4,  APL 
IS  ACCURATE  TO  7  DIGITS  IN  MOST  CASES.  WHEN  SET  TO  10,  APL 
IS  ACCURATE  TO  15  DIGITS  IN  MOST  CASES. 


•   This  Defines  yhich  Member  of  the  RSX-FamUy  (If  any) 
APL-11  Is  Generated  for  use  on. 

RSTS=0 

When  set  to  -1,  it  signifies  that  APL  is  going  to  be  used 
As  a  RSTS/E  Run-Time  System  which  means  that  we  only  gt;)orate 
Pure  Code. 

GLOBL  SMACHN,  SFPP,   SFIS,   IRSX,   $RSTS,  $RT11,  $FPPLN 

$MACHN=  MACHIN 
IEIS=   EIS 
IFIS=   FIS 

SRSX=  RSX 

IRSTS=  RSTS 

|RT11=  RT11 

$FPPLN=  FPPLEN 
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39 
AG 
41 
A2 
A3 
AA 
A5 
A6 
A7 
A8 
A9 
50 
51 
52 
53 
5A 
55 
56 
57 
S8 
59 
60 
61 
62 
63 
6A 
65 
66 

67  000000 

68  000000 

69  000000 

70  000000 

71  000000 

72  000000 

73  000000 
7A  000000 

75  000000 

76  000000 
Tf  000000 

78  000000 

79  000000 

80  000000 

81  000000 
32  000000 
83  000000 
8A  000000 

85  000000 

86  000000 

87  000000 

88  000000 

89  000000 

90  000000 

91  000000 
000000 
000000 
000000 
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TT 


OPERATOR  OVERLAYS 


9i 
9] 

95  000000 


;  FOR  RSX-11M,  IAS,  RT-11 

;      The  functions  and  operators  are  placed  in  various  overlays  by 


the  OVROP  macro  to  save  memory  space.  To  place  a  function  in 
a  specified  overlay  use  OVROP  with  the  derived  function  name 
and  the  overlay  number.  Use  0  for  the  root,  i.e.  make  it  memory 
resident,  and  -1  to  define  a  function  without  specifing  an  overlay. 

;  FOR  RSTS 

APL-11  V02.0  is  configured  as  several  RSTS  Run-Time  Systems.  To 

;      spec  if iy  which  one(s)  a  module  is  in,  a  (1,2,  or  A)  is  Specified. 


.MACRO  OVROP   NAME,  2.RSX,  Z.RT11,  Z.RSTS 
Af  ^   RSX 

TMPTAG  =Z.RSX  ;RSX/IAS  Organization 

.IFF 

,U   NE  RT11 

TMPTAG  =Z.RT11 

TMPTAG  =Z.RSTS 
.ENDC 
.ENDC 
•IRP  NAM,<NAME> 

NAM    =TMPTAG 
.ENDR 
.ENDM 


;RT-11  Organization 
;RSTS/E  Organization 


OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 


<D.PLUS,D 

<D.SUB,D. 

<D.MUL,D. 

D.DIV, 

<D.MIN,D. 

<D.MAX,D. 

<D.RES,D. 

D.AND, 

D.OR, 

D.NN, 

D.NR, 

D.LT, 

D.LE, 

D.EO, 

D.GE, 

D.GT, 

D.N6- 

<M.IDN,M. 

<«.NE6,M. 

<M.SIGN,M 

M.RCIP, 

<M.$FLR,M 

<M.FLR,M. 

<M.ABS,M. 

M.ROIL, 

M.PITM, 

M.NOT, 

D.RHO. 

M.SHAP, 


.SPLU>, 

$SUB>, 

$MUL>, 

$MIN>, 
$MAX>, 

$RES>, 


$IDN>, 
$NEG>, 
.$S1G>, 

.$CEI>, 

CE1>, 

1ABS>, 


RSX 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

% 

0 
0 
0 
0 
0 
0 
0 
0 

-1 

I 


RT  RSTS 
0, 
0, 
0, 
0, 
0, 
0, 
0, 
0, 
0, 
0, 
0, 
0, 
0, 
0. 
0. 
0, 
0, 
0, 
0. 
0, 

%'.  \ 

0,  1 

1 
1 
1 


ADDITION 

SUBTRACTION 

MULTIPLICATION 

DIVISION 

MINIMUM 

MAXIMLW 

RESIDUE 

AND 

OR 

NAND 

NOR 

LESS  THAN 

LESS  THAN  OR  EQUAL 

EQUAL  TO 

GREATER  THAN  OR  EQUAL 

GREATER  THAN 

NOT  EQUAL  TO 

IDENTITY 

NEGATION 

SIGNUM 

RECIPROCAL 

FLOATING  FLOOR,  CEILING 

INTEGER  FLOOR.  CEILING 

ABSOLUTE  VALUE 

Rat 

PI  TIMES 
NOT 

RESHAPE 
SHAPE 
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196  000000 

OVROP 

D.CTLM, 

0. 

,  0. 

,     1 

;  CATENATE  /  LAMINATE 

197  000000 

OVROP 

M.RAVL, 

0. 

-  0- 

.  1 

; RAVEL 

198  000000 

OVROP 

M.IOTA, 

0. 

,     0. 

-  1 

; INDEX  GENERATOR 

199  000000 

OVRO/ 

M.EXE, 

0. 

,     0. 

.  2 

; EXECUTE 

200  000000 

OVROP 

<D.QUAD,M.OUAD>, 

0< 

.  0- 

,  2 

;QUAD  OUTPUT/INPUT 

201  000000 

OVROP 

<D.QQAD,M.QQAD>, 

0< 

,  0, 

,  2 

;QUOTE  QUAD  OUTPUT/INPUT 

202  000000 

OVROP 

M.SUBR, 

>  i 

f                *    4 

.  2 

;SCIENTIFIC  SUBROUTINES 

203  000000 

OVROP 

D.CIRC, 

'  i 

f                '  4 

.  3 

;TRIGOMETRIC  FUNCTIONS 

204  000000 

OVROP 

D.PWR, 

■  i 

f                1  4 

,  3 

; POWER 

205  000000 

OVROP 

M.EXP, 

•  i 

f                '  4 

.     1 

; EXPONENTIAL 

206  000000 

OVROP 

D.LOG. 

'  i 

r     •  4 

-  3 

;LOGORITHUM 

207  000000 

OVROP 

M.LN, 

'  i 

f                '  4 

.  1 

; NATURAL  L060RITHUM 

?08  000000 

OVROP 

D.COMB, 

*    i 

f                1  4 

.  3 

;  COMBINATIONS 

209  000000 

OVROP 

M.FACT, 

'    i 

>      '  4 

.  1 

;FACTORIAL  (GAMMA  FUNCTION) 

210  000000 

OVROP 

M.SATAN, 

'  i 

f                '  4 

.  1 

;USED  BY  SCAN,  REDUCTION,  MONADIC 

TRANS. 

211  000000 

OVROP 

<D.C0MP,D.1C0M>, 

'  i 

P       '  4 

,  1 

; COMPRESSION 

212  000000 

OVROP 

D.ENCD, 

2< 

,  2. 

,  2 

•ENCODE 

213  UOOOOO 

OVROP 

D.DECD, 

2, 

,     2, 

,  2 

; DECODE 

2M^   000000 

OVROP 

D.IND, 

2, 

,     2, 

.  1 

;IOTA  (INDEX  OF) 

215  000000 

OVROP 

D.MEM, 

2. 

,     2. 

,     1 

; MEMBERSHIP 

216  000000 

OVROP 

<D.TAKE,D  DROP>, 

2. 

,     2, 

.  1 

:TAKE  /  DROP 

217  000000 

OVROP 

<D.EXPD,D.1EXP>, 

2, 

,     2, 

,  1 

',EXPANS1QN 

218  000000 

OVROP 

D.IBM, 

2. 

,     2, 

,  2 

;DYADIC  I-8EAM 

219  000000 

OVROP 

<M.GDUP,M.GDWN>, 

3. 

,     3. 

,  2 

;GRADE  UP  /  DOWN 

220  000000 

OVROP 

<D.R0T,D.1R0T>, 

3. 

,  3. 

,  2 

; ROTATE 

221  000000 

OVROP 

<M.REVS,M.1REV>, 

3. 

,  3. 

,  2 

; RE VERSE 

222   000000 

OVROP 

D.DEAL, 

3. 

,     3. 

.  1 

IDEAL 

223  000000 

OVROP 

M.JBM, 

3. 

,  3< 

,  2 

iMONADIC  I-eEAM 

224  000000 

OVROP 

D.TRAN, 

4. 

.     *t, 

.  2 

; DYADIC  TRANSPOSE 

225  000000 

OVROP 

<D.FMT,M.FMT>, 

4. 

,  4. 

,  1 

:FORMAT 

226  000000 

OVROP 

M.ENCD, 

4. 

,  4. 

,     2 

; QUOTE  (MONADIC  ENCODE) 

227  000000 

OVROP 

D.FPNT, 

5. 

,  5. 

.     2 

;FILE  POINTER 

228  000000 

OVROP 

<D.FGET,D.FPUT>, 

5. 

,  5. 

.     2 

;FILE  INPUT  /  OUTPUT 

229  000000 

OVROP 

D.DQAD, 

-1< 

.  -1. 

,   -1 

;DEL  QUAD  OUTPUT 

230  000000 

OVROP 

M.DQAD, 

6, 

.  6. 

-  2 

;DEL  QUAD  INPUT 

231  000000 

OVROP 

D.UNON, 

6. 

.  6. 

.  2 

;SET  UNION 

232  000000 

OVROP 

D.JNTR, 

6< 

,  6. 

,  2 

■SET  INTERSECTION 

233  GOOOOO 

OVROP 

D.SDJF, 

6. 

,     6. 

.  2 

;SET  DIFFERENCE 

234  000000 

OVROP 

<D.CONT,D.SCON>, 

6. 

.     6. 

,     2 

•CONTAINS 

235  000000 

OVROP 

<D.SUBS.D.PSUB>, 

6< 

,     6. 

,     2 

•SUBSET 

236  000000 

OVROP 

M.NUB, 

6. 

.  6. 

>    2             , 

•SELF  INTERSECTION 

237  000000 

OVROP 

M.PRDSET, 

6. 

.  6. 

,  2 

;USED  BY  INNER  AND  OUTER  PRODUCT 

238  000000 

OVROP 

M.iNSPAC, 

6. 

.  6. 

,    2 

•GET  SPACE  FOR  INNER  PRODUCT 

239  000000 

OVROP 

M.DOUTER, 

6< 

,  6. 

,    2 

•DO  ACTUAL  OUTFR  PRODUCT 

240  000000 

OVROP 

M.GETIDN, 

6. 

.  6. 

,     1 

•USED  BY  REDUCTION,  INNER  PRODUCT 

241  000000 

OVROP 

<D.8XCT,M.8XCT>, 

7. 

,     7. 

,     2 

•COMPARISON  TaERANCE 

242  000000 

OVROP 

<D.8X10.M.8XI0>, 

7. 

,     7. 

-INDEX  ORIGIN 

243  000000 

OVROP 

<D.8XPP,M.8XPP>, 

7. 

-  7. 

'     ^ 

•PRINT  PRECISION 

244  000000 

OVROP 

<D.8XPW,M.8XPW>, 

7. 

.  7. 

'   i         « 

•PRINT  WIDTH 

245  000000 

OVROP 

<D.8XRL,M.BXRL>, 

7. 

.     7, 

2 

■RANDOM  LINK 

246  000000 

OVROP 

M.8XAV, 

7. 

,     7. 

5 

lATOMIC  VECTOR 

247  000000 

OVROP 

M.8XCR, 

7, 

,     7. 

'  2 

•CANONICAL  REPRESENTATION 

248  000000 

OVROP 

M.8XEX, 

7, 

,     7. 

'  2 

Expuno* 
•Line  Counter 

249  000000 

OVROP 

M.8XLC, 

): 

:  h 

5 

250  000000 

OVROP 

M.8XFX, 

'  2 

•FIX  FUNCTION 

251  000000 

OVROP 

M.8XNC, 

7. 

,     7. 

\ 

■Namt  CUssitication 

252  000000 

OVROP 

<M.8XNl,D.8XNL>, 

7. 

,     7. 

;N«ne  List 
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253  000000 
25A  000000 

255  000000 

256  000000 

257  000000 

258  000000 

259  000000 

260  000000 

261  000000 
262 

263 
26A 
265 
266        000000 
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OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 
OVROP 


rr 


M.BXTS, 

M.BXUA, 

<D.Df1D,«.rf1D>, 

<M.RDCT,M.1RDT>, 

<M.SCAN,M.1SCN>, 

M.RAND, 

M.TRAN, 

M.OUTR, 

D.INNR, 


7,  7. 

9.,  9., 
9.,  9., 
10. JO., 
10. ,10., 
10. ,10., 
11. ,11., 


2 
2 
2 
1 
1 
2 
2 
2 
2 


TIME  STAMP 

WORKSPACE  AVAILABLE 

MATRIX  ^\M\\>1   /  INVERSE 

REDUCTION 

SCAN 

RANDOM  NUMBER  GENERATOR 

MONADIC  TRANSP  SF 

OUTER  PRODUCT 

INNER  PRODUCT 


',\^    'OVROPR*  IS  DEFINED  AS  ZERO,  APLOP  ASSEMBLES  RESIDENT  CODE.  WHEN 
; IT  IS  SET  TO  ONE  BY  APLOO,  THE  OVERLAY  OPERATORS  ARE  ASSEMBLED. 

OVROPR=  0 
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268 

269 
270 
271 
272 
273 
21^ 

275  000000 

276  000001 
211  000002 

278  000003 

279  000004 

280  00000^ 

281  000006 

282  000007 
283 

284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 

295  000000 

296  000001 

297  000002 

298  000003 

299  000004 

300  000005 
301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311        000007 

312 

313 

314 

315 

316       000006 

317 

318 

319 

320 

321 

322 

323 

324       000005 
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.CNABL  AMA 
.NLIST  ME 


T~r 


REGISTERS 

;FOR  DEBUGGING! 
;BUT  NOT  EVERYTHING 


.-GENERAL  REGISTER  DEFINITIONS 

RO=XO 
R1=X1 
R2=X2 
R3=X3 
R4=X4 
R5=X5 
R6=X6 
R7=X7 

IN  GENERAL,  REGISTERS  5,6,  km  1  f4Kl   DEDICATED  TO 
SPECIFIC  PURPOSES  AND  MAY  NOT  BE  'TAMPERED"  WITH. 
REGISTERS  2,  3,  AND  4  USUALLY  CONTAIN  THE  CURRENT  TOKEN 
BEING  PARSED  AND  SHOULD  BE  PRESERVED  ACROSS  SUBROUTINES. 
REGISTERS  0  AND  1  ARE  SCRATCH  REGISTERS  AND  NEED  NOT 
GENERALLY  BE  PRESERVED  EXCEPT  IN  CERTAIN  SPECIAL  ROUTINES. 
RO  IS  MOST  COMMONLY  USED  TO  PASS  PARAMETERS  BETWEEN 
ROUTINES. 

FLOATING  POINT  ACCUMULATORS 

ACO=XO 
AC1=X1 
AC2=X2 
AC3=X3 
AC4=X4 
AC5=X5 

FLOATING  REGISTER  USAGE  IS  NOT  STANDARD  EXCEPT  FOR 
SCALAR  OPERATORS.   IN  THIS  CASE  THE  LEFT  ARGUMENT 
IS  PASSED  IN  AC1,  THE  RIGHT  ARC  IN  AC2,  AND  THE  RESULT 
IS  RETURNED  \H   ACO. 

REGISTER  7,  THE  PROGRAM  COUNTER,  IS  NOT  GENERALLY 
MODIFIED  EXCEPT  WHEN  A  CONSTANT  IS  ADDED  TO 
IT  TO  CAUSE  A  BRANCH  THROUGH  A  TABLE. 


PC=X7 

REGISTER  6 
MOSTLY  FOR 

SP=X6 


IS   THE    INTERPRETER   STACK  POINTER  AND   IS  USED 
SUBROUTINE  LINKAGE. 


REGISTER  5   IS  DEDICATED  TO  THE   STATE    INDICATOR   (SI)    STACK 
WHICH  GROWS   TOWARDS  HIGH  CORE.      R5   SHOULD  ONLY  BE   MANIPULATED 
WHEN   MNHIB*    IS  SET   SO  THAT  RANDOM  KEYBOARD   INTERRUPTS  DON'T 
CAUSE    STORAGE    TO  BE   LOST   OR  DESTROYED   \}    R5  DOES  NOT   POINT 
TO   THE    TOP  OF    AN  SI    FRAME. 

SI=«5 


■ TT 
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325 

326  ;  THE  CONSTANT  'FISCON'  IS  USED  TO  CONVERT  NUMBERS  FROM  INTEGER 

327  ;  TO  FLOATING  AND  THE  REVERSE. 
328 

329        0A6000  FISCON=46000 
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331 
332 
333 

334 
335 
336 

337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
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.S8TTL  DEFINITIONS     MEMORY  ORGANIZATION 
;APL  IS  ORGANIZED  IN  CORE  IN  THE  FOLLOWING  MANNER; 
RT11  RSTS  RTS 


; 
I 
; 
; 
; 
; 


It  nii^  nit  unit  Hint           1 

^*********** 

SP    ♦ 

^    SP    * 

•  STACK   * 

»  STACK   * 

************    1 

k*********** 

♦PURE  DATA  * 

►RSTS  COMM-* 

♦AND  TABLES*    ' 

►UNICATIONS* 

************      i 

^*********** 

*   PURE   ♦    < 

►  SYSTEM  * 

*   CODE   ♦ 

►  VARIABLS  * 

************    1 

*   DDT    *    ^ 

►RSTS  COMM.* 

♦(OPTIONAL)*    ^ 

►  VARIABLS  * 

************    i 

*  SYSTEM  * 

►  SYMBa  * 

*  VARIABLS  *    < 

►   TABLE  * 

*  SYMBOL  * 

►    SI    * 

*  TABLE   *    < 

►  STACK   * 

*    SI    *    < 

►   DATA   * 

*  STACK   *    ^ 

►  STORAGE  * 

^*********** 

*  OVERLAY  *    i 

*   'JNTiAPPED  * 

•  REGION  * 

►  MEMORY  * 

^*********** 

♦   DATA   *    i 

►PURE  DATA  • 

•  STORAGE  *    * 

►AND  TABLES* 

*   RT11   *    i 

►   PURE   * 

*     moN     •       i 

►   CODE   * 

************       i 

^*********** 

*NON-EXIST  *    i 

*       DDT    • 

*  MEMORY  ♦    i 

►(OPTIONAL)* 

r*********** 

•   I/O 

'   ENTRY  * 

*  REGISTRS  * 

'  VECTORS  • 

32K 


52K 
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^77 
37S 
37V 
380 

381  000000 

382  000000 

383  000000 
38A  000000 

385  000000 

386  000000 

387  000000 

388  000000 

389  000000 

390  000000 

391  000000 

392  000000 

393  000000 
39A  000000 
A01 
A02 
403 

AOA  000000 
411  000000 
412 
413 
4H 
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PSECT 
PSECT 
PSECT 
PSECT 
PSECT 
PSECT 
PSECT 
PSECT 
PSECT 
PSECT 
PSECT 
PSECT 
PSECT 
PSECT 


PSECT 
PSECT 


DEFINITIONS 


MT 


ORDERING  PSECTS 


TABLES, 

MONTB, 

DYDTB, 

BOPTB, 

nONBTB, 

DYD6T8, 

COMTB, 

CHRT8L , 

VTBL, 

ASCTBL, 

0VRT8L, 

TRNTBL , 

MNTBL, 

MNTRTL, 


TABLES 

RO.  D, 

RO,  D, 

RO,  D, 

RO,  D, 

RO,  D, 

RO-  D, 

RO,  D, 

RO,  D, 

RO,  D, 

RO,  D, 

RO,  D, 

RO,  D, 

RO,  D, 

RO,  D, 
TABLES 


AND  PURE 

LCL 

LCL 

LCL 

LCL 

LCL 

LCL 

LCL 

LCL 

LCL 

LCL 

LCL 

LCL 

LCL 

LCL 

and  PURE 


DATA 
Interpreter  Tables  (Pure) 
Monadic  Operator  Branch  Table 
Dyadic  Operator  Branch  Tab;e 
Operator  Description  Bits  Table 
Monadic  Operator  Bits 
Dyadic  Operator  Bits 
Convnand  Tables 

APL  Character  Description  Bits 
Speciality  Values  of  APL  Characters 
ASCII  Equivalents  of  APL 
Table  of  Overstruck  APL 
APL  Equivalents  of  ASCII 
ASCII  MneLiTwnics  Table 
APL  Value  of  ASCII  Mneimonic 

DATA 


Characters 
Characters 
Characters 


CODE, 
PATCH, 


PURE  CODE 
RO,  I,  LCL 
RO,  I,  GBL 
PURE  CODE 

IMPURE 


; Interpreter  Code  (Pure) 
;APL  Debugging/Patch  Area 
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A26 
A27 
428 
429 
A30 
A31 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 

466 
467 
468 
469 
470 
471 
472 
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SBTTL     DEFINITIONS 


ITT 


SI  PARSE  FRAMES 


1 71772 
1 77772 
1 7717 1^ 
1 7777t 


DURING  THE  EVALUATION  OF  EXPRESSIONS,  THE  STATE 
INDICATOR  STACK  CONTAINS  THE  CURRENT  STATE  OF  THE 
PARSE  (NATURALLyi)   THE  SI  STACK  GROWS  UP  IN  FREE 
CORE  FROM  ^W^   END  OF  THE  SYMBOL  TABLE,  WHILE  USER 
STORAGE  GROWS  DOWN  TOWARDS  IT  FROM  HIGH  CORE. 


STACK  FRAME  MAP: 


************ 

♦  RETURN  * 

************ 

♦  BITS   ♦ 

************ 

♦  VALUE   ♦ 

************ 

♦  NEXT    ♦ 

♦  FRAME* 


SI.LEN=-6 
SI.RET=-6 
SI.8IT=-4 
SI.VAL=-2 


SI.LEN 
SI. RET 
SI. BIT 
SI.VAL 
<—  REFERENCE  POINT 


LENGTH  OF  SI  FRAME 
S'JBROUTINE  RETURN  POINTER 
TOKEN  DESCRIPTION  BITS 
VALUE  OF  TOKEN 


;  A  FRAME  IS  ON  'TOP"  OF  THE  SI  STACK  WHEN  THE  31 
;  POINTER  POINTS  TO  THE  WORD  PAST  THE  FRAME. 

;SI.RET  .ONTAINS  THE  SUBROUTINE  RETURN  WHICH  IS 

IS  TO  BE  TAKEN  W>-"N  THE  FRAME  ON  TOP  OF  THE 
S.ACK  IS  ASSIGNEU  A  VALUE.   THIS  ALLOWS 
RECURSION  WITHOUT  FILLING  UP  THE  INTERPRETER 
STACK. 


;SI 


* 


BIT   CONTAINS  BITS  DESCRIBING 
FRAME.      SEE    THE   EXPLAN^s.  «. 
BITS  BELOW.      A  ZERO  wa.. 
VALUE   WAS  ASSIGNED   TO  TMt 
EVALUATED. 


i^   VALUE    IN  THE    bl 
"  JF    TOKEN  DESCRIPTION 
OICATES   THAT  NO 
FRAME   WHEN   IT   WAS 


SI.VAL    IS   THE   VALUE   OF    THE   SI   FRAME,   AND    IS 

DESCRiBCD  BY   SI. BIT.     USUALLY    \}   IS  A  POINTER 
TO  A  BLOCK  OF    STORAGE,   AN  OPERATOR-   OR  A 
SPECIAL    CHARACTER   SUCH  AS  A  BRACKET. 
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A74 

475 

476 

477 

478 

479 

000001 

480 

000002 

481 

000004 

482 

000010 

483 

000020 

484 

00004^ 

485 

486 

000100 

487 

000200 

488 

000400 

489 

001000 

490 

002000 

491 

00<»000 

492 

010000 

493 

494 

020000 

495 

040000 

496 

100000 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

000010 

510 

000020 

511 

000040 

512 
513 

000100 

000200 

.S8TTL  OEFINITIOrjS 


IT 


TOKEN  DESCRIPTION  BITS 


THE  BITS  BELOW  DESCRIBE  THE  VALUE  OF  A  STATE 
INDICATOR  STACK  FRAME  OR  TOKEN. 


t.OPFN 

T.SOP 

T.NIL 

T.MON 

T.LIT 

T.SPOP 

T.DIM 

T.TMP 

T.LIST 

T.VAR 

T.NLW 

T.CON 

T.FUN 

T.80L 

T.OTHR 

T.VAL 


:000001 
=000002 
:000004 
=000010 
:000020 
=000040 

=000100 
=000200 
=000400 
=001000 
=002000 
=004000 
=010000 

=020000 
=040000 
=100000 


VALUE  IS  AN  OPERATOR  OR  A  FLlNCTION 
OPERATOR  IS  A  SCALAR  OP 
OP  IS  NILADIC  (NO  ARGUMENTS) 
OP  IS  MONADIC  (ELSE  OP  IS  DYADIC) 
OP  TAKES  LITERAL  ARGUMENTS 
OP  IS  SPECIAL  OP  (MAY  BE  ASSIGNED 
A  VALUE  SUCH  AS  A  QUAD) 
OP  TAKES  OPTIONAL  DIMENSION  ARGUMENT 
VALUE  IS  TEMPORARY  BLOCK,  JUST  DELETE  IT  WITH  KILL 
VALUE  !S  POINTER  TO  LIST  BLOCK 
VALUE  IS  SYMBOL  TABLE  POINTER 
VALUE  IS  NUMERIC  (ELSE  IT  IS  LITER^l) 
VALUE  IS  POINTER  TO  CODESTRING  CO^^STANT 
VALUE  IS  POINTER  TO  FUNCTION'S  N^ME, 
ELSE  VALUE  IS  OPERATOR  NLfCER 
VALUE  IS  BEGINNING  OR  END  OF  LINE 
VALUE  IS  SINGLE  CHARACTER 
VALUE  IS  POINTER  TO  ARRAY  IN  STORAGE 


NOTE  THAT  SOME  OF  THESE  BITS  MAY  BE  USED  TOGETHER 
SUCH  AS:   T.OPFN^T.FUN^T.MON 

ALSO  ALL  BITS  AFFECTING  OPERATORS  MUST  FIT  IN 
THF  Li^R  BYTE  BECAUSE  OF  'BOPTAB* ! ! ! ! ! !  I ! ! !  I : 


THESE  BHS  GO  INTO  DYDBTL  and  MONBTL,  and  specify 

data  about  the  scalar  operators  and  Mho  they  take  as  argcinents 

CS.800L  =000010  .RESULT  OF  OP  WITH  BOaEAN  SOURCES  li  BOaEAN 

CS.FLOAT=000020  .-RESULT  OF  OP  WITH  FLOAT  SOURCES  WILL  ATTEMPT  BOOLEAN 

CS. IDN  =000040  .-OPERATION  HAS  IDENTITY  ELEMENT 

CS.ONE  =000100  ;OPERAUON  IDENTITY  ELEMENT  IS  1  (ELSE  0) 

CS.ASS  =000200  .OPERATION  IS  ASSOCIATIVE   (FOR  SCAN) 
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515 

516 

517 

518 

519 

520 

521 

522 

523 

52A 

525 

526 

527 

528 

529 

530 

531 

53? 

533 

53A 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

M7112 

555 

1 77774 

556 

1 7177 t 

557 

000000 

558 

000002 

559 

000004 

560 

000006 

561 
562 

000010 

563 
564 

565 

566 

0000^2 

!>6r 

100000 

568 

000004 

569 

000010 

570 

000020 

57. 

000040 

SBTfL  DEFINITIONS 


■c~T 


SI  EXECUTION  FRAMES 


AN  EXECUTiCyyl  FRAME  (E  -FRAME)  INSTRUCTS  APL  TO 
REAND  AND  EVALUATE  A  LINE  ENTERED  FROM  THE  CURRENT 
:^iPUT  DEVICE.  ATJ  E  FRAME  IS  SPAWNED  ON  ItM   SI 
STACK  WHEN  APL  IS  INITIALIZED,  UHEN  A  FUNCTION  IS 
SUSPENDED,  AND  WHEN  A  REQUEST  IS  MADE  FOR  EVALUATED 
INPUT.   'SIFRAME*  POINTS  TO  THE  FRAME  CURRENTLY  ON 
THE  TOP  OF  THE  SI  STACK. 


****************** 

*     RETURN     ♦ 

.RET 

****************** 

*     BITS      ♦ 

.8ITS 

*>*«****  t^********«* 

*     VALUE      ♦ 

.VAL 

****************** 

•  PREVIOUS  FRAME  ♦ 

.PREV  <- 

****************** 

*     FLAGS      ♦ 

.FLAG 

****************** 

♦  LAST  C-eVTE   ♦ 

.LSTC 

****************** 

*  HEAD  POINTER  ♦ 

.HEAD 

****************** 

*              * 

.CODE 

•   CODE STRING   ♦ 

*              * 

****************** 

*  PARSE  FRAMES  • 

*  * 

-  REFERENCE  POINT 


F.RET=-6 

F.8ITS=-4 

F.VAL=-2 

F.PREV=0 

F.FLAG=2 

F.LSTC=4 

F.HEAD=6 

F.CO0E-)0 


; CURRENT  TOKEN  POINTER  WHEN  SUSPENDED 
.•CURRENT  TOKEN  BITS  WHEN  SUSPENDED 
.-CURRENT   TOKEN  VALUE  WHEN  SUSPENDED 
.POINTER  TO  PREVIOUS  FRAME  OR  ZERO 
.•FLAG  BFS  DESCRIBING  FRAME 
.•POINTER  TO  LAST  COOESTRING  BYTE 
.•POINTER  PAST  HEADER  DATA  IN  FRAME 
.•OFFSET    IN  WHICH  FIRST  BYTE   OF    CODESTRING 
.•WILL  BE  PLACED  BY  PASS  2   (LEX) 


.-BELOW  ARE    THE  BIT  ASSIGNMtNTS  FOR  THE   FLAGS   (F.FLAG) 

r.SUSPr  000002  ;F -FRAME   IS  SUSPENDED 

F.PRNT^    lOOOOO  ;PR»NT   THt  RESULTS  OF    THJ^  FRAME 

F.STOP=  000004  ;A  CLOSING  DEL  HAS  BEEN  FOUND  DURING  fN  DEF 

F.FNDFr  000010  ;IN  FUNCTION  DEFINITION  MODt 

F.8R=       0OC020  .-BRANCH  FOLM)   IN  FUNCTION  EXECUTION 

F.REDF--:   000040  .-MJNCTiON  HEADER   IS  BEING  RF-DFFINfD 
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5/2 

000100 

573 

000200 

574 

000400 

575 

001000 

576 

002000 

577 

004000 

578 

010000 

PAGE  11-1 


F$EVAL= 

F$EVI= 

F$EXEC= 

F$FUNC= 

F.END= 

F.READ= 

F.PR0T= 


000100 
000200 
000400 
001000 
002000 
004000 
010000 


Tl 


FRAME  IS  KEYBOARD  EVALUATED  INPUT  FRAME 

FRAME  IS  EVALUATED  INPUT  FRAME  (QUAD) 

FRAME  IS  EXECUTION  FRAME  (EXECUTE  OPERATOR) 

FR,\ME  IS  F-FRAME  (FUNCTION  CALL) 

END  OF  EXECUTE  STRING  HAS  BEEN  REACHED 

USER  IS  READING  A  FILE 

FUNCTION  WILL  BE  LOCKED 
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580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 


.S8TTL  DEFINITIONS 


TT 


SPECIAL  PARSE  CHARACTERS 


THE  FOLLOWING  SPECIAL  CHARACTERS  APPEAR;  IN  A 
CODESTRING  TO  MARK  SPECIAL  DATA  OR  FOR  OTHER 
PURPOSES.  SOME  MARKERS  MUST  FALL  ON  E^EN   OR 
ODD  BYTE  BOUNDARIES  BECAUSE  THEY  MUST  FOLLOW 
WORDS  OF  DATA.  FILL  CHARACTERS  ARE  ADDED  WHEN 
NECESSARY.  REMEMBER  THAT  CODESTRINGS  ARE 
EVALUATED  FROM  RIGHT  TO  LEFT  (HIGH  TO  LOW 
ADDRESSES) 


000177 
000200 
000201 
000202 
000203 
000204 


000205 
000206 


M.FIL 
M.BOL 
M.SYN 
M.CHR 
M.SYM 
M.NUM 


M.LIT 


M.CMT 


=177 
=200 
=201 

:202 

=203 
=204 


=205 

:206 


FILL  CHARACTER,  TO  BE  IGNORED 

BEGINNING  OF  LINE 

CAUSES  SYNTAX  ERROR 

CAUSES  CHARACTER  ERROR 

FOLLOWS  WORD  POINTING  INTO  SYMBOL  TABLE 

INDICATES  NUMERIC  CONSTANT.  PRECEEDING 

BYTE  CONTAINS  COUNT  OF  FLOATING  POINT 

VECTOR  ELEMENTS  IN  PRECEEDING  WORDS. 

INDICATES  LITERAL  CONSTANT.  PRECEEDING 

BYTE  CONTAINS  COUNT  OF  CHARACTERS  IN 

CONSTANT. 

INDICATES  N  BYTES  TO  BE  SKIPPED  OVER. 

PREVIOUS  BYTE  CONTAINS  N. 
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rr 


607 

608 

609 

610 

611 

612 

000001 

613 

000002 

61 A 

000004 

615 

000010 

616 

000020 

617 

000040 

618 

000100 

619 

000200 

620 

621 

622 

623 

624 

625 

626 

627 

628 

000001 

629 

000002 

630 

000004 

631 

000010 

632 

000020 

633 

000040 

634 

000100 

635 

000200 

636 

000400 

637 

001000 

638 

100000 

.S8TTL  DEFINITIONS     CHRTAB  BITS 

;  THESE  BITS  ARE  USED  TO  DESCRIBE  APL  CHARACTERS. 


C . SPLX 

=001 

;CHAR 

IS  SPECIAL 

LEX  CHARACTER 

C . SPRS 

=002 

;CHAR 

IS  SPECIAL 

PARSE  CHARACTER 

COP 

=004 

;CHAR 

IS  OP 

C.IDEN 

=010 

;CHAR 

IS  PART  OF 

IDENTIFIER  (A-Z, 

C.NUM 

=020 

;CHAR 

IS  NUMERIC 

(0-9,-,.) 

C.DIG 

=040 

•CHAR 

IS  A  DIGIT 

(0-9) 

C.SPFX 

=100 

•CHAR 

IS  SPECIAL 

flXLlN   CHAR 

C . SP6L 

=200 

•CHAR 

IS  SPECIAL 

TO  'GETL' 

DELTA) 
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SYSTEM  STATUS  BITS 


.•THESE  BITS  APPEAR  IN  'SYSTAT'  AS  TO  THE  CONDITION  OF  THE  APL  SYSTEM 


SY.BAD= 

SY.OPN= 

SY.SVC= 

SY.BS= 

SY.ERP-- 

SY.CLR= 

SY.NOU= 

SY.SVL= 

SY.SRT= 

SY.PMT= 

SY.8RK= 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
1 00000 


POSSIBLE  WORK  SPACE  DAMAGE 

CLEAR  FILE  OPEN  ON  CHANNEL  15.  CRTS  VERSION) 

TTY  INPUT  VECTORS  SAVED  (RT11  VERSION) 

ALLOW  BACKSPACES  ON  RUBOUTS 

DON'T  PHINJ   ON  EPSILON  ERRORS 

CLEARING  SI  STACK 

NO  OUTPUT  ALLOWED  (LOAD  COMMAND) 

SPECIAL  SAVE /LOAD  I/O  MODE 

STARTING  UP,  CHECK  FOR  "CONTINUE"  WORKSPACE 

PROMPT  FOR  READ  IS  REALLY  SPACES 

BREAK  CHARACTER  ENCO(f^TERED 
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6A0 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
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"gT 


F -FRAMES 


AN  F-FRAME  (FUNCTION  EVALUATION  FRAME)  IS  SPAUNED  ON  THE 

SI  STACK  BY  'FNCALL*  WHEN  A  USER  DEFINED  FUNCTION  IS  CALLED. 

THE  FIRST  PART  OF  AN  F-FRAME  LOOKS  LIKE  AN  E-FRAME,  EXCEPT 

THAT  'F.LSTC*  POINTS  PAST  THE  LAST  LABEL  VALUE  IN  THE  FRAME 

(SEE   BELOW.)  THE  REST  OF  THE  F-FRAME  CONTAINS  A  POINTER 

TO  THE  HEADER  BLOCK  FOR  THE  FUNCTION,  A  POINTER  TO  THE   CURRENT 

LINE  BLOCK  BEING  EXECUTED,  AND  A  LIST  OF  THE  OLD  VAL'€S 

OF  THE  LOCAL  VARIABLES. 

WHEN  A  FUNCTION  IS  CALLED,  THE  VALUES  OF  THE  LOCAL  SYMBOLS 
CS.VAL'  IN  THE  SYMBa  BLOCKS)  ARE  PUSHED  ON  THE  SI 
STACK  SO  THAT  WHEN  THE  FUNCTION  EXITS  CFNEXIT'),  THE   VALUES 
OF  THE  LOCAL  VARIABLES  CAN  BE  RESTORED  SO  THAT  IT  LOOKS 
LIKE  NOTHING  HAPPENED.  WHEN  A  FUNCTION  IS  EXITED,  THE  RESULT 
If   ANY  IS  PLACED  IN  A  PARSE  FRAME  ON  THE  SI  STACK  AND  A  RETURN 
IS  MADE  TO  THE  FUNCTION  CALLER. 


DESL.<IPTION  OF  AN  F-FRAME: 


************* 

RETURN 

************* 

BITS 

************* 

VALUE 

************* 


• 
• 


• 


$ 
; 


PREVIOUS  FRAME 

************* 

FLAGS 

************* 

LAST  LOCAL 

************* 

HEAD  POINTER 

************* 

UNCTION  HEADER 

************* 

INE   POINTER 


INPUT  POINTER 


TOKEN  BITS 


TOKEN  VALUE 


RETURN 


RESULT 


LEFT  ARG 


RIGHT  ARG 
****•**•**«*« 

LOCAL    1 
•*•****•**•*•*« 


SI. RET 

SI. BIT 

SI.VAL 

F,PREV     <—  REF.   PT, 

F.FLAG 

F.LSTC 

F.HEAD 

^FUN 

F.LINE 

F.R2 

F.R3 

F.RA 

F.STK 
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F-FRAM 

697 

698 

699 

700 

701 

702 

703 

70A 

705 

706 

707 

708 

709 

710 

711 

712 

713 

7^i, 

715 

716 

717 

000010 

718 

000012 

719 

000014 

720 

000016 

721 

000020 

722 

000022 

PAGE  K-1 


H~T 


* 


•  LOCAL  N     ♦ 
******  ***i^****i^«** 

♦  LABEL  1     * 

****************** 


****************** 

*    LABEL  N     * 

****************** 


;F.PREV=0 

;F.FLA6=2 

;F.LSTC=4 

;F.HEAD=6 

F.FUN=10 

F.LJNE=12 

F.R2=14 

F.R3=16 

F.R4=20 

F.STK=22 


PTR  TO  PREVIOUS  SI  FRAME 

FLAGS  DESCRIBING  FRAME 

POINTER  PAST  LAST  LABEL  IN  FRAME 

POINTER  PAST  HEADER  DATA 

PTR  TO  FUNCTION  HEADER 

PTR  TO  CURRENT  LINE  BLOCK 

OLD  INPUT  C0DESTRIN6  POINTER 

OLD  TOKEN  BITS 

OLD  TOKEN  VALUE 

TOP  ITEM  ON  SP  STACK  (CALLER  RETURN) 
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72A 
725 
726 
727 
728 
729 
730 
731 
732 
733 
73A 
735 
736 
737 
738 
739 
7A0 
741 
7A2 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 

768 
769 
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T~T 


FUNCTION  LINE  BLOCKS 


USER  DEFINED  FUNCTIONS  CONSIST  OF  A  CIRCULAR  LIST  OF  FUNCTION 
LINE  BLOCKS.  LINE  #0  OF  A  FUNCTION  IS  THE  FUNCTION  HEADER, 
AND  IT  CONTAINS  POINTERS  TO  THE  ARGUMENT  SYMBLS,  LOCAL  VARIABLES, 
PLUS  A  POINTER  BACK  TO  THE  NAME  BLOCK  IN  THE  SYMBOL  TABLE  FOR 
THE  FUNCTION.  THE  FUNCTION  HEADER  IS  A  SPECIAL  CASE  OF  THE 
LINE  BLOCK  (SEE  BELOW)  EACH  LINE  BLOCK  CONTAINS  THE  CODESTRING 
WHICH  MAKES  UP  VHE  FUNCTION  LINES,  THE  LINE  NUMBER,  AND  VARIOUS 
OTHER  JUNK  NECESSARY  FOR  FUNCTION  EXECUTION  AND  DEFINITION. 

FORMAT  OF  A  FUNCTION  LINE  BLOCK; 

FUNCTION  HEADER  DEFINITIONS  ARE  IN  PARENTHESES) 

LENGTH 

*************** 

CODESTRING  OFF.*       R.OFF  (R.PTR)  <—  REF.  PT, 


*************** 

BITS  *  LINE  M 

*************** 

PREVIOUS  LINE 

*************** 

NEXT  LINE 

*************** 

LINE 

NUMBER 

*************** 

LABEL  NAME 

*************** 

(RESULT) 

*************** 

(LEFT  ARG) 

*************** 

(RIGHT  ARG) 

*************** 

(LOCAL  1) 

*************** 


CODESTRING 


LENGTH 


R.OFF  (R.PTR)  <—  REF. 

R.8ITS  /  R.LN  (R.LCT) 

R.PREV 

R.NEXT 

R.LNUM 


Iapldf  macro 
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771 
772 
773 
'Hi, 
775 
776 
111 
11^ 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
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000000 
000000 
000002 
000002 
000003 
000004 
000006 
000010 


000100 
000040 
000020 
000010 
000004 
000002 
000001 

000002 
000001 

040000 
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R.OFF=0 

R.PTR-0 

R.LN=2 

R.LCT=2 

R.BITS=3 

R.PREV=4 

R.NEXT=6 

R.LNUM=10 


TT 


OFFSET  TO  END  OF  CODESTRING 

POINTER  TO  FN'S  NAME  SYMBOL  BLOCK 

BYTE  CONTAINING  LI^€  H 

(COUNT  OF  LOCAL  VARIABLES  IN  FN) 

BITS  DESCRIBING  LINE  (FUNCTION) 

POINTER  TO  PREVIOUS  (OR  LAST)  LINE  BLOCK 

POINTER  TO  NEXT  (OR  FIRST)  LINE  BLOCK 

FLOATING  LINE  #  (0=FUNCTION  HEADER) 


THE  LENGTH  OF  THE  LINE  NUMBER  ^\H   BYTFS)  IS  DETERMINED  BY 
THE  FLOATING  POINT  MODE  (SINGLE  OR  DOUBLE).   IF  A  LABEL 
IS  FOUND  ON  THE  LINE,  A  POINTER  TO  IT'S  SYMBOL  TABLE 
BLOCK  FOLLOWS  THE  LINE  NUMBER.  THEN  COMES  A  FAKE  ARRAY 
BLOCK  WHICH  POINTS  TO  THE  LINE  NUMBER  AS  THE  VALUE  OF  THE 
ARRAY.   THIS  IS  WHY  THE  LINE  NUMBER  OF  JHl   FUNCTION  IS 
STORED  AS  A  FLOATING  POINT  NUMBER.   THUS,  KILLING  A  FUNCTION 
LINE  CONSISTS  SIMPLY  OF  DEALLOCATING  IT.   THIS  WILL  KILL 
THE  ARRAY  BLOCK  FOR  THE  OPTIONAL  LABEL  AT  THE  SAME  TIME, 
WHICH  GREATLY  SPEEDS  THING:  UP. 


VALUES  FOR  BITS  BYTE: 


F.FLB=100 
F.RES=040 
F.LBL=020 
F.OPN=010 
F.L0C=004 
F.TRC=002 
F.STP=001 

F.M0N=2 
F.NJL=1 


THIS  IS  A  F'>?'CT?0N 
FUNCTION  RETJRNS  A 


FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 


LINE  HAS 


DEFINITION 
IS  LOCKED 
LINE  H^S  A 
LINE  HAS  A 


LINE  BLOCK 
RESULT 
A  LABEL 

IS  CURRENTLY 


OPEN 


TRACE  ON  IT 
STOP  ON  IT 


.•FUNCTION  IS  MONADIC  (ELSE  DYADIC) 
.•FUNCTION  IS  NILADIC 


S.FL8=0'0000    ;SPECIFY  FUNCTION  LINE  BLOCK 


••* 
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ARRAY 

807 

808 

809 

810 

811 

812 

813 

8H 

815 

816 

817 

818 

819 

820 

821 

822 

823 

82A 

825 

826 

827 

828 

829 

830 

831 

832 

833 

000000 

834 

000002 

835 

000003 

836 

000004 

837 

000006 

838 

839 

840 

841 

000020 

842 

843 

844 

845 

846 

8^7 

848 

849 

850 

851 

852 
853 

000006 

854 

000010 

855 

000020 

856 

000040 

857 

000200 

858 

859 

Ml 

000000 

o62 

000002 

863 

000004 

STORAGE  BLOCK 
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TTT 


ARRAY  STORAGE  BLOCK 


ARRAYS  (IN  FACT  ALL  NUMERIC  AND  LITERAL  VARIABLES)  ARE  STORED 
IN  BLOCKS  OF  THE  FOLLOWING  FORM: 


************* 

♦  LENGTH   ♦ 

♦  OFFSET   ♦ 
************* 

•BITS*#  DIMS* 

************* 

♦  ALEN    ♦ 

************* 

♦  DIM1    ♦ 

♦  • 

♦  ...    ♦ 

************* 

♦  VALUE   ♦ 

♦  * 
************* 

♦  LENGTH   ♦ 

************* 


A.PTR   <—  REFERENCE  POINT 
A. BITS  /  A. DIMS 
A. ALEN 
A.DIM1 


A.PTR=0 

A.DIMS=2 

A.P]TS=3 

A.ALEN=4 

A.DIM1=6 


DIMAX-16. 


.•OFFSET  TO  FIRST  ELEMENT  IN  ARRAY 
;NUMBER  OF  DIMENSIONS  IN  ARRAY 
;8ITS  DESCRIBING  ARRAY 
.•VOLUME  OF  ARRAY  (TOTAL  0   OF  ELEMENTS) 
.•MAXIMUM  VALUE  OF  LAST  INDEX.  FOLLOWING 
;A.DIM1  IS  A  LIST  OF  ALL  OF  THE   MAXIMUM 
.•INDICES  OF  THE  ARRAY.  A. DIMS  CONTAINS 
.-THE  COUNT  OF  THE  ELrMENTS  IN  THIS  LIST. 
;MAXIMUM  NUMBER  OF  DI'€NSIONS  ALLOWED 


;NEXT  COME  THE  ELEMENTS  IN  THE  ARRAY  IN  Hv^-'^JOR  ORDER. 
THE  OFFSET  OF  THE  FIRST  ELEMENT  OF  JHE  ARRAY  FhC^  A.PTR 
IS  CONTAINED  IN  A.PTR. 

THE  LENGTH  WORDS  AT  EACH  END  OF  THE  BLOCK  ARE  USED  FOR 
;800KKEEPING  BY  THE  STORAGE  MANAGEMENT  ROUTINES. 

I      BIOCK  DESCRIPTION  PITS: 


A.Nlf<=006 
A.TMP^OIO 
A.CON=020 
A.ARG=040 
A.AS8^200 


.•VALUE    IS  NUMERIC   (ELSE  LITERAL) 

.•VALUE    IS  NOT    TEMPORARY 

.•VALUE    IS  CODESTRINO  CONSTANT 

.•VALUE    IS  COPIED  ARGUMENT   FOR  USER-DEFINED  FUNCTION 

.THIS   IS  AN  ARRAY   STORAGE   BLOCK 


DATA  TYPES; 


CHARACTER* 
BOOLEAJ^* 

INTEGER* 


I 
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.FLOAT= 


"TT 


864 

000006 

865 

866 

UOOOO 

867 

100000 

S.TVPE 
S.ASB 


:K0000  ;MASK  FOR  DETERMINING  JiPE 
:1 00000  .-SPECIFY  ARRAY  STORAGE  BLOCK 
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869 

870 

871 

872 

873 

87A 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

89^^ 

9C0 

9^)1        000000 

9V.  000002 

9»3        000003 

904        000004 

905 

906        000020 

907 

90b       000001 
909        000002 


S8TTL  DEFINITIONS 


ITT 


LIST  STORAGE  BLOCK 


A  LIST  BLOCK  IS  USUALLY  CREATED  DURING  SUBSCRIPT 
CALCULATIONS.  EACH  ENTRY  IN  THE  LIST  BLOCK  IS  A 
POINTER  TO  A  STORAGE  BLOCK.  THE  STORAGE  BLOCKS 
REPRESENT  THE  ARRAYS  WHICH  COMPRISE  THE  SUBSCRIPTS 
THUS.  EACH  APL  EXPRESSION  DELIMITED  BY  SEMI-COLONS 
IS  POINTED  TO  BY  THE  POINTERS  IN  A  LIST  BLOCK.   THE 
POINTERS  ARE  ADDED  WORKING  BACKWARDS  FROM  THE  END 
OF  THE  LIST  BLOCK  TOWARDS  ITS  HEAD.   IF  THE  BLOCK 
OVERFLOWS,  A  LARGER  BLOCK  IS  ALLOCATED,  AND  THE 
POINTERS  ARE  COPPIED  INTO  THE  NEW  BLOCK.   (THIS 
RARELY  HAPPENS). 


*  LENGTH  * 

***  ********* 

•  POINTER  ♦ 

************ 

*8ITS*C0UNT* 

************ 

♦LAST  PTR  * 


*  POINTERS  • 


L.PTR   <—  REFERENCE  POINT 

L.BITS  /  L.CNT 

L.PTR1 


* 


* 


FIRST  POINTER 


•  LENGTH  ♦ 

************ 


L.PTR=0 
L.CNT-^2 
L.8ITS=3 
L.PTR1^4 

L1SIZE=20 

L.PRNTrOOl 
L.  SUBS =002 


.•POINTS  TO  LAST  ENTRY  STORED  N  LIST  BLOCK 
.•NEGATIVE  COUNT  OF  WORDS  AVA]'.A3LE  IN  BLOCK 
;8ITS  DESCRIBING  LIST 
.•OFFSET  TO  LAST  AVAILABLE  POINTER 


.•INITIAL  SIZE  OF  BLOCK 

.•PRINTING  FLAG  TEMP  SAVE 
;Used  tor  Subscripting  (KILL 


must  delete  subsidiaries) 
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911 

912 

913 

91A 

915 

916 

917 

918 

919 

920 

921 

922 

923  i 

924 

925 

926 

927 

928 

929 

930 

931 

932 

1 77766 

933 

1 77770 

934 

1 77772 

935 

1 7777U 

936 

937 

1 7777t 

938 

000012 

S8TTL     DEFINITIONS 


TTT 


INDEXING  STACK  FRAME 


A  LIST  OF  INDEXING  STACK  FRAMES  IS  CREATED  ON  THE 
SP  STACK  DURING  SUBSCRIPT  CALCULATIONS.  ONE  INDEX 
FRAME  IS  CREATED  FOR  EACH  DIMENSION  IN  THE  ARRAY 
BEING  SUBSCRIPTED.  BELOW  IS  A  MAP  OF  AN  INDEXING 
FRAME: 


♦  STRIDE* 

♦  OLD  * 

♦MAX  DIM* 

******  *** 

♦POINTER* 

********* 

♦  COUNT  ♦ 
********* 


I.STR=-12 
I.OLD=-10 
I.DIM=-6 
I.PTR=-4 

I.CNT=-2 
I.LEN=12 


I.STR 

I.  OLD 

I. DIM 

I.PTR 

I.CNT 

<—  REFERENCE  POINT 

STRIDE  FOR  THIS  DIMENSION 

VALUE  OF  LAST  INDEX  IH   THIS  DIMENSION 

MAXIMUM  INDEX  FOR  THIS  DIM 

POINTS  TO  VALUES  IN  ARRAY  COMPRISING 

THE  LIST  OF  INDICES  FOR  THIS  DIMENSION 

COUNT  OF  INDICES  POINTED  TO  BY  I.PTR 

OFFSET  TO  BACK  UP  BY  1  INDEX  FRAME 
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9<»0 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

1 117H, 

958 

959 

960 

1 7711 t 

961 

962 

000000 

963 

964 

000002 

965 

000002 

966 

000003 

967 
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SYMBOL  TABLE  ENTRV 


;AN  ENTRY  IN  THE  SYMBa  TABLE  HAS  THE  FOLLOWING  FORM: 


t 

; 
; 


********** 

*  LINK 

********** 

*  ABLINK 

********** 

*  VAL 
********** 

•LHR1»LEN 

********** 

*  REST  OF 

*  ENTRY 

********** 


S.LINK 

S.AB 

S . VAL   <- 

S.CHR1  / 


-  REFERENCE  FGINT 
S.LEN 


S.LJNK=-4 

S.AB=-2 

S.VAL=0 

S.8ITS=2 

S.LEN=2 

S.CHR1=3 


.-LINK  TO  NEXT  ENTRY.  EACH  WORD  IN  THE 
;HASH  TABLE  POINTS  TO  A  LINKED  LIST  OF 
.•ENTRIES  WHICH  HASH  TO  THAT  LOCATION. 
.ALL  ENTRIES  ARE  LINKED  TOGETHER  IN 
.-AlPHABETICAL  ORDER  TO  MAKE  LISTING  EASY. 
.-POi.'^'TS  OF  VALUE  OF  SYMBOL.  (A  BLOCK  OF 
.STORAc^)  OR  IS  ZERO  IF  NO  VALUE. 
.BITS  DESCRIBING  SYMBOL. 
.•NUMBER  OF  CHARACTERS  IN  SYMBOL 
; FIRST  CHAR  OF  SYMBa 
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969 
970 
971 
972 
973 
974 
975 
976 
977 
978 

979  000020 

980  OOOOU 
981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994  *■ 

995 

996 

997  r 

998 

999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 

1018 
1019 

1020 
1021 
10?2 
1023 
1024 
1025 
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CHANNEL  BLOCK 


;ALL  I/O  IS  DONE  THROUGH  THESE  BLOCKS.  CHANNEL  0  IS  RESERVED  FOR  \Hl 
.-USER'S  TERMINAL  I/O.  CHANNEL  15  IS  USED  FOR  OVERLAYS  AND  NON-RESIDENT 
;CODE  ON  RT-11/RSTS.  CHANNEL  14  IS  RESERVED  FOR  A  SYSTEM  UTILTY 
.•CHANNEL.   CHA'MNEL  13  IS  RESERVED  FOR  FUTURE  USE  OR  SPECIAL  USER 
.•APPLICATIONS.  THIS  LEAVES  CHANNELS  1  THROUGH  12  AVAILABLE  FOR  USER 
;MANIP«JLATION.  DUE  TO  THE  NATURE  OF  I/O.  CHANNEL  BLOCKS  ARE  NOT  PART  OF 
.-THE  STANDARD  DATA  AREA.  BUT  ARE  PERMANENT  BLOCKS. 


NUMCHN=  16. 
MAXCHN=  12. 


.•NUMBER  OF  CHANNELS 
.•MAXIMUM  USER  CHANNEL 


# 


* 


• 


; 
I 
I 

• 
; 
; 
; 


***************i^ 

*         STATUS 

»       C.S8IT 

**************** 

♦  BUFFER  START     ^ 

*       C.BUFF 

***<f»*****i^****** 

♦  liUFFER  LENGTH 

»       C.8UFL 

****t*********** 

♦     CHR  POINTER 

*        ..CPTR 

t**«^**«r****«***i 

*       CHR  COUNT 

*       C.CCNT 

**************** 

*           WIDTH 

»       C.WIDR 

*********ft******i 

♦     WIDTH  COUNT     ' 

»       C.WIDC 

******«*********i 

♦     NAME  POINTER  ' 

►       C.NAME 

********* ***ft*ft*i 

•     STATUS   INFO     ' 

»       C.SRC 

***«-*****«****«*i 

RSX-11 

REFERENCE   POINT 

RSTS/E.   RT11 

**•**•*•*•****«*« 

•  FILE              • 

•  DESCRIPTOR     • 

•  BLOCK           • 

FD8 

•FUNCTN  •   CHANf  • 

•  BLOCK            • 

•  BUFFER  PTR       ♦ 

•  COUNT            • 

•  WAIT   TYPE        • 

•  HANDLER  PTR     • 

•  FILE   LENGTH     • 

•  HLE             I 

•  NAME             < 

•  BLOCK           « 

»       C.NAMt--    (or  F.FNB) 

C.CHAN 
C.FUNC 
C.8L0K 

C.8UFP 

C.CNT 

C.WAIT 

C.HAND 

C.FLEN 


D  A 
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1026  ;  ♦  ♦ 

1027  ;  ♦»♦♦♦♦*♦***♦♦♦♦♦♦ 
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1029 

1030 

177756 

C.S8IT=  -22 

1031 

1 77760 

C.BUFF=  -20 

1032 

1  iim 

C.BUFL=  -16 

1033 

1 77764 

C.CPTR=  -14 

1034 

1 77766 

C.CCNT=  -12           ; 

1035 

1 7117^ 

C.WIDC=  -10 

1036 

1 77772 

C.WIDR=  -6 

1037 

1 77771, 

C.SRC=  -4 

1038 

1 7777 t 

C.RDLN=  -2 

1039 

1040 

.-BELOW  ARE  THE  BITS  DESCR 

1041 

1043 

020000 

C.FASW=  020000  ; 

1044 

010000 

C.OPN=  010000  ; 

1045 

004000 

C,FLSH=  004000  ; 

1046 

002000 

C.REWT=  002000  ; 

1047 

001000 

C.CZ=   001000  ; 

1048 

000400 

C.N0BF=  000400  ; 

1049 

OOOOlO 

C.RND=  FD.DIR  ; 

1050 

000004 

C.TT=   FD.TTY  ; 

1051 

000001 

C.FRC=  FD.REC  ; 

T^ 


STATUS  BITS  FOR  CHANNEL 

POINTER  TO  START  OF  PUFFER  (0  U   NOT  ALLOCATED) 

BUFFER  LENGTH  FOR  CHANNEL 

POINTER  TO  NEXT  BYTE  IN  BUFFER 

NUMBER  OF  BYTES  TO  END  OF  BUFFER 

NUMBER  OF  CHRS  TO  END  OF  LINE 

RESET  WIDTH  VALUE 

STATUS  AREA  FOR  CHANNEL 

LENGTH  OF  DATA  READ 


FUe  type  zero 

THE  CHANNEL  IS  OPEN 

BUFFER  NEEDS  FLUSHING  BEFORE 

BUFFER  NEEDS  TO  BE  REWRITTEN 

WRITE  n   AND  NULLS  TO  END  OF 

SPECIAL  BUFFERING,  DON'T  ALLOCATE  OR  DEALLOCATE 

Well,  sort  of  Random 

Terminal  Device 

Character  Oriented  Device 


INPUT 

(RANDOM  ACCESS) 

BUFFER 
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1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 

1096  000000 

1097  000000 

1098  000000 

1099  000000 
1100 
1101 
1102 
1103 
1104 
1105 
llOo 
1107 
1108 
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.MCALL 
.MCALL 
.MCALL 
.MCALL 
.MCALL 
.MCALL 
.MCALL 
.MCALL 

FD0F$L 
NBOFSL 
FCS8T$ 


FDBDFS, 

FINITS, 

OFID$, 

OPENSU, 

NBOFSL, 

SVTKSS, 

GTSKSS, 

CSISSW, 


DEF$L 
0 


FDATSA, 

FDATSR, 

OFNB$. 

FDOFSL, 

DIR$, 

ALUNt, 

CSISI, 

CSISND, 


DEFINE 
DEFINE 
DEFINE 
Define 


RSX  DATA 

FDRCSA, 

FDRCSR, 

CLOSES, 

EXITSS, 

QIOU$S, 

yAIT$, 

CSI$2, 

GETSS, 


FDOP$A, 

FDSKSR, 

URITES, 

GPRTSS, 

QIOU$, 

GLUN$S, 

CSI$, 

PUTSS 


NMBLK$, 

FDOPSR, 

READS, 

GTIMSS, 

QIOWSC, 

FD8KSA, 

FCS8TS 


FSRSZI 

FDBFSR 

WTSEJ 

ASTX?SS 

SFPASS 

OPNTSW 


0tK)036 
0001 40 
000162 

000064 
000024 
000102 
000010 


N.BLSZ^ 
C.BLSZ^ 
C.AL0C= 

C.6L0K= 
C . SRCP= 
C.NAME^ 

C.FLEN= 


N.UNIT^2 

F.FNB^N.BLSZ 

C.8LSZ-C.SBIT 

F.BKVB 
F.8KST 

F.EFBiv 


THE  FILE 
THE  NAME 
THE  BITS 
the  File  Storage  Region 


DESCRIPTOR  BLOCK 
BLOCK 


SIZE  OF  FILE  NAME  BLOCK 
SIZE  OF  FD6/FNB 
TOTAL  SIZE  OF  BLOCK 

NEXT  BLOCK  NUMBER  TO  READ/WRITE  (2  WORDS) 
POINTER  TO  I/O  STATUS  WORDS 
Name  Block  Pointer 
End-of-File  Block  Number 


APLDF   MACRO 
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1110 
1111 
1112 
llli 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
112i> 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
11<S6 
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000020 
000024 
000006 
000014 
000032 
000034 


000004 
000000 
000040 
000002 
000000 
000020 


.S8TTL     DEFINITIi>JS 


G  4 


NAME  BLOCKS 


NAME  BLOCKS  CONTAIN  THE  FILE  NAME  IN  DECODED  FORMAT.  CURRENTLY 
THE  FORMAT  IS  VERY  COMPATIBLE  WITH  THE  FILES-11  FORMAT. 
THE  CURRENT  FORI^T  FOR  A  NAME  IS: 

DEVn:Cpr.|,prg]NAME.EXT<prot> 
THE  NAME  BLOCK  IS  AS  FOLLOWS: 


* 


* 


* 

*  FILE  ID  FIELD 

* 

it 

*  FILE  NAME 

* 

**************** 

*  EXTENSION 

**************** 

*  VERSION  NO. 
**************** 

*  STATUS  WORD 

**************** 

**************** 

* 

* 

* 

**************** 

*  DEV  NAME 

**************** 

*  DEV  NUMBER 

**************** 


(N.FID) 


REFERENCE  POINT 


N.NAME 

(N.FNAM) 

N.EXT 

(N.FTYP) 

(N.FVER) 

N.DESC 

(N.STAT) 

(N.NEXT) 

(N.DID) 

N.DEV 

(N.DVNM) 

N.DEVN 

(N.UNIT) 

;  Describe  the  RSX  Filename  Block  Stuff 


N.DESC=  N.STAT 
N.PPN=  N.DID 
N.NAME=  N.FNAM 
N.EXT=  N.MVP 
N.DEV=  N.DVNM 
N.DEVN=  N.UNIT 


;Bits  that  Describe  Name  info  picked  up 

;UFD 

;File  N«f>e 

;File  Type 

; Device  Name 

.•Device  Ntinber 


Also  the  Hmne  Block  Bits 


ND.NAM^  NB.NAM 
ND.SNM^  0 
ND.INS^  NB.SAM 
ND.EXTr  NB.TYP 
ND.IEX=  0 
ND.If$=  NB.STP 


;Stt  if  Explicit  Name  is  Specified 

:H9\j€r   have  •?"  Wildcard 

;Set  if  Wildcard  Filename  Specified 

;Set  if  Explicit  Extension  is  Specified 

;H9\f9r   have  •*?'*  Wildcard 

;Set  if  Wildcard  Extension  is  Specified 
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1167  000100  ND.PPN=  NB.DIR        ;Set  If  UK  Specified 

1168  001400  ND.$PN=  NB.SD1 INB.SD2   ;Set  if  Uildcard  in  UIC 

1169  000200  ND.DEV=  NB.DEV        ;Set  if  Device  Name  Specified 
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1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
:659 
1660 
1661 
1662 
1663 
1664 
1665 

1666 
1667 

1668 
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.•MACRO  USED  TO  CALL  SUBROUTINES 

.MACRO  CALL  SUBR 
.NLIST 

JSR  PC,5!jBR 
.LIST 
.ENDM 

.•MACRO  USED  TO  CALL  SUBROUTINES  AND  RETURN 

.MACRO  CALLR  SUBR 
.NLIST 

JMP  SUBR 
.LIST 
.ENDM 

.•MACRO  TO  RETURN  TO  CALLER 


.MACRO  RETURN 
.NLIST 

RTS  PC 
.LIST 
.ENDM 


.•MACRO  TO  PUSH  ITEMS  ON  SP  STACK 

.MACRO  PUSH  ARCS 
.NLIST 

.IRP  ARG.<ARGS> 
MOV  ARG.-(SP) 
.ENDM 
.LIST 


;PUSH  ARG  ON  SP  STACK 


ENDM 


.•MACRO  TO  POP  ITEMS  FROM  SP  STACK 


.MACRO  POP  AR6S 

.NLIST 

.IRP  ARG.<ARGS> 

MOV  (SP)SARG 

.ENDM 

.LIST 
.ENDM 


;POP  ARG  FROM  SP  STACK 


.-MACRO  TO  CONDITIONALLY  INCRFMfM  fav  1 


.MACRO  rONINC  ARGl.?Ll 
.NLiST 

BNf   Li 


;DON'T   INCREMENT   IF   'T'  CLEAR 
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1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1 703 
1704 
1705 
1706 
1 707 
1708 
1709 
1710 
1711 
1712 
171! 
1714 
1715 

1716 
1717 

1718 
1^9 
17?0 
1721 

1723 
1724 
1725 
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.LIST 

.ENDM 


J  4 


INC  ARG1 


; INCREMENT 


Macro  to  build  a  value  frame  on  the  SI  stack 

'.MACRO  SIFRAM  ARG1  ,ARG2,ARG3 
.NLIST 


.IF   B  ARG3 

MOV 
.IF^ 

MOV 
.ENDC 

#SVSER,(SI)^ 
ARG3,(SI)* 

; Return  Address 
.-Return  address 

.IF   B  ARG2 

MOV 
.IFF 

MOV 
.ENDC 

#T.VAL*T.NUM,(SI)> 
AR62,(SI)i' 

;SI  Frame  Bits 
;SI  Frame  bits 

.IF   B  ARG1 
MOV 

.IFF 
MOV 

.BNOC 

.LIST 
.ENDM  SJFRAM 

RO,(SI)* 
ARGI.(SI)* 

.-Value  Pointer 
; Value  pointer 

.-MACROS  TO  FILL  IN  TABLE  ENTRIES 

.MACRO  BFILL  COUNT. ARG 

.NLIST 

.REPT  COUNT 

.BYTE  ARG 
.ENDM 
.LIST 
.ENDM 


.MACRO  WFILL  COUNT. ARG 

.NLIST 

.REPT  COUNT 

.WORD  ARG 
.ENDM 
.LIST 
.ENDM 


.-MACRO  TO  BRING  SI  UP  TO  A  WORD  BUUNDARV 
.MACRO  ^iVLH 
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1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
173A 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
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.NLIST 

BIT  #1,51 

BEQ  .-^6 

MOVB  /lfCHRFIL,(SI)* 
.LIST 
ENDM 


K  4 


SI  ON  WORD  BOUNDARY? 

YES,  FINE 

NO,  PUSH  A  FILL  CHARACTER 


.-MACRO  TO  GET  NEXT  INPUT  CHARACTER 

.MACRO  GETC  ADDR 

DEC  R3 

BLT  ADDR 

MOVB  (R4)^,R2 
.ENDM 


ANY  CHARACTERS  LEFT? 
NO,  BRANCH  TO  ADDR 
YES,  GET  NEXT  CHAR 


.•MACRO  TO  PRINT  A  MESSAGE  TERMINATED  BY  A  ZERO  BYTE. 


.MACRO  MPRINT  ARG 

.NLIST 
,lf   NB,ARG 

PUSH  R1 

MOV  #ARG,R1 
.ENDC 

CALL  PRINTM 

POP  R1 
.LIST 
.ENDM 


.•SAVE  R1 
.•POINT   TO  ARG 

.•PRINT   THE  MESSAGE 
.•RESTORE  R1 


.-QUICK  VERSION  OF   ABOVE    (DOES  NOT  SAVE  R1) 


.MACRO  OPRINT  ARG 
.If^  NB.ARG 

MOV  #ARG,R1 
.ENDC 

CALL   PRJNTM 
.ENDM 


.•POINT   TO  ARG 
.-PRINT   THE  MESSAGE 
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1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
177A 
1775 
1776 
1778 
1779 
1780 
1781 
1782 
1783 
178A 
1785 
1786 
1787 
1788 
1789 
'790 
1/'91 
17v: 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
180A 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1815 
18U 
1815 
1816 
1817 
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;MACR0  TO  DEFINE  A  FLOATING  POINT  NUMBER  OF  PROPER  LENGTH 

.MACRO  FLOAT  ARGS 
.IRP  ARG,<ARGS> 
.If   NE  FIS 

.FLT2   ARG 
.Iff 

.FLT4   ARG 
.ENDC 
.ENDR 
.ENDM 

;MACROS  TO  SIMULATE  INSTRUCTIONS  NOT  FOUND  ON  LOWER  MACHINES 

.MACRO  SIMPSH  SOURCE, REGNUM, SIGN, ROUTINE 
.NLIST 

.NTYPE  REGTyP,<REGNUM> 
.IF  NE  REGTYPft70 

.ERROR  NON-REGISTER  USED  IN  REGISTER  INSTRUCTION 
.ENDC 

PUSH  <SOURCE,#SIGN*REGTYP> 
CALL  ROUTINE 
.LIST 
.ENDM 


.MACRO  SXT 

DST,?L0C1 

,?L0C2 

.NLIST 

BMI 

LOCI 

CLR 

DST 

BR 

L0C2 

LOCI;   MOV 

#-1,DST 

L0C2; 

.LIST 

.ENDM 

.MACRO  SOB 

REG, LOCI 

.NLIST 

DEC 

REG 

BNE 

LOCI 

.LIST 

.ENDM 

.MACRO  MUL 

SRCKREG 

SIMPSH  SRC1, 

RECUMUL 

.ENDM 

.MACRO  DIV  SRC1,REG 

SIMPSH  SRC1,REG,1JDIV 
.ENDM 
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1823 
182A 
1825 
1826 
1827 
1828 
1829 
1830 
'831 
1832 
1833 
183A 
1835 
1836 
1838 
1840 
1841 
184? 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 

1876 
1877 

1878 
1879 

1880 
1881 
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.MACRO  ASH  SRC1,REG 

SIMPSH  SRC1,REG,-1,IASH 
.ENDM 


.MACRO  ASHC  SRC1,REG 

SIMPSH  SRC1,REG,1,IASHC 
.ENDM 


.MACRO  XOR  SRC1,REG 

SIMPSH  SRC1. REG, -UXOR 
.ENDM 


.•FLOATING  POINT  FAKE-OUT  MACROS 

'TYPE   1:      AC  AND  FARG 

'.IRP  INS.<ADD,LD,SUB,CMP,MUL,MOD,ST,DIV.LDCF,STCF,LDCD.STCD> 
.MACRO  INS'F   FSRCFDST 
.NLIST 

JSR  RO,$'INS'F 
MOV  FSRC.FDST 
.LIST 
.ENDM 

.MACRO  INS'D  FSRCFDST 
.NLIST 

JSR  RO,$'INS'D 
MOV  FSRCFDST 
.LIST 
.ENDM 
.ENDR 

;TyPE  2;     FARG 
.IRP   INS,<CLR,TST,ABS,NEG> 
.MACRO   INS'F   FARG 

.NLIST 

JSR  RO,l'INS'F 

MOV  RO,FARG 

.LIST 
.ENDM 
.MACRO  INS'D  FARG 

.NLIST 

JSR  RO,$'INS'D 

MOV  RO.FARG 

.LIST 
.ENDM 
.ENDR 

;TrPE   3;      AC   AND  DIFFERENT   rORMAT   ARG  OR  FARG 

.IRP   INS.<LDEXP,LDClF,LDCLf ,LDCiD,LDCLD,STtXP.STCf:,STCFL.STCDI,STCDl> 
.MACRO  INS  SRCUDST 

.Niisr 

JSR  RO,$'INS 
MOV  SRC1  DST 
lIST 


N     A 
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1882  .ENDR 

1883 

188A 

1885 

1886 

1887 

1888 

1889 

18W 

1891 

1 892 

1893 

189A 

1 895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 


;TYPE  A: 

lARG 

.IRP  INS 

,<LDFPS,STFPS, 

,STST> 

.MACRO 

INS  ARG 
.NLIST 

JSR  R0,$'INS 
MOV  R0,ARG 

1  TST 

.fcNDM 

.ENDR 

;TVPE  5: 

f'xIILADIC 

.IRP  INS 

,<CFCC,SETF,SETI 

,SETD,SETL> 

.MACRO 

INS 
.NLIST 

JSR  RO,$"INS 
.LIST 

.ENDM 

.FNDR 
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1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

-929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

194C 

1941 

194 

194 

1944 

1945 

1946 
1947 

1948 
1949 

1950 
1951 
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bT 


APL  CHARACTERS 


1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 


rknnoo3 
000007 
000010 
000011 
000012 
000015 
000016 
000017 
000032 
000040 
000042 
000042 
000043 
000046 
000047 
000051 
000053 
000054 
000055 
000056 
000057 
0000<»0 
OOCOtI 
0000)2 
000073 
000074 
00007  5 
0000'6 

ooo:oQ 

O0J105 

000106 
000107 

OCOllO 
000112 

c:x)ii3 

000114 
000120 
000121 
0001 
0001 
0001 
1137 

H4i 

-  J14$ 
000165 
000164 


THIS  TABLE  COfJTAINS  THE  ASCII  DEFINITIONS  FOR  CERTAIN  APL 
CHARACTERS. 


CHR.CC 

CHR86L 

CHR.BS 

CHR.TB 

CHR.LF 

CHR.CR 

CHP.SO 

CHR.SI 

CHR.C2 

CHRSPA 

CHRRPR 

ASCOUO 

CHR.LT 

CHR.6T 

CHRRBR 

CHRAND 

CHRDIV 

CHRCMA 

CHRPLU 

CHRDOT 

CHR.SL 

CHR..0 

CHR..1 

CHRLPR 

CHRL8R 

CHRSEM 

CHRWJL 

CHRCOl 

CHRNEG 

CHREP 

CHR.UL 

CHRDEL 

C4RDLT 

CHRSMO 

CHROUO 

CHRBOX 

CHRPyR 

CHROST 

CHRUPA 

CHR8KR 

CHRFRO 

CHRr^lS 

CHR  A 
CHR..E 
CHR..S 
CHR..T 
CHR..U 
CHR..Z 
CHRDLR 
CHRFiL 
CHRBOL 
CHRPDl 


=00:» 
=007 
=010 
=011 
=012 
=015 
=016 
=017 
=032 
=040 
=042 
=042 
=043 
=046 
=047 
=051 
=053 
=054 
=055 
--056 
=057 
=060 
=061 
=072 
=073 
=074 
=0/5 
=076 

=111 
=11, 
sii: 

=114 
=120 


=1 
=1 
=1 
-1 
=1 

=  141 
=145 
=  163 
=  164 
=lo5 
=172 


CONTROL-C 

BELL 

BACKSPACE 

TAB 

LINE  ''EED 

CARRIAGE  RETURN 

SHIFT  OUT 

SHIFT  IN 

CONTROL  Z 

SPACE 

RIGHT  PARENTHESIS 

ASCII  QUOTATION  MARK 

< 

> 

RIGHT  BRACKET 

AND 

DIVIDE 

COMMA 

PLUS  SIGN 

DECIMAL  POINT 

SLASH 

ZERO 


LEFT  PARENTHESIS 

LEFT  BRACKET 

SEMI  COLON 

MULTIPLY 

COLON 

NEGATE  SIGN 

EPSILON 

UNDERLINE 

DEL 

DELTA 

SMALL   '0' 

QUOTE  MARK 

QUAD 

POyER  (STAR) 

QUESTION  MARK 

UP  ARROW 

BACK  ARROW 

FOREWARD  ARi^OU  (BRANCH) 

MINUS  SIGN  (SUBTRACTION  OPERATOR) 

A 

E 

S 

T 

U 
Z 

DaL/»R  SIGN 
FILL   CHARACTER 
BEGINNING  OF   CODtSlRINCi 
PROTECT  DEL 
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TT 


1962 
1%3 
196A 
1965 


177400 


UPPER   =^811111111 00000000 


;MASK  TO  KILL  UPPER  BYTE 
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1%7 
1968 
1969 
1970 
1971 
1972 
1973 
197A 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
198A 
1985 
1986 
1987 
1988 
1989 
1990 

1991  000000 

1992  000000 

1993  000000 

1994  000000 

1995  000000 

1996  000000 

1997  000000 

1998  000000 

1999  000000 

2000  000000 

2001  000000 

2002  000000 

2003  000000 

2004  000000 

2005  000000 

2006  000000 

2007  000000 

2008  000000 

2009  000000 

2010  000000 
2011 
2012 
2013 
20U 

2015  000000 

2016  000000 

2017  000000 

2018  000000 

2019  000000 

2020  000000 

2021  000000 

2022  000000 
2025  000000 
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;ALL  ERRORS  ARE  DEFINED  HERE 
;THE  ERROR'S  NAME  SUCH  AS: 


~n 

ERRORS 

AS  TRAPS, 


TO  CALL  AN  ERROR,  SIMPLY  USE 


SYSERR 


.•WHICH  IS  USED  TO  SIGNIFY  A  SYSTEM  ERROR.  ANY  ADDITIONS  OR  DELETIONS 
;HERE  SHOULD  BE  NOTED  IN  THE  FILE  •APL2'  IN  THE  ERROR  TEXT 
.•DEFINITIONS. 


.MACRO  ERR  NAME 

.NUMBER 

.If   NB  NUMBER 

TMPTAG=NUMBER 

.ENDC 

NAME=104400^TMPTAG 

NAME^   NAME 

TMPTAG= 

TMPTAG+1 

.ENDM 

TMPTAG^ 

=0 

ERR 

SYSERR. 

2. 

ERR 

WSFULL. 

3. 

ERR 

SYMT8F. 

A. 

ERR 

DEFERR. 

5. 

ERR 

LABERR, 

6. 

ERR 

SYNERR. 

7. 

ERR 

INDERR. 

8. 

ERR 

RANERR. 

9. 

ERR 

LENERR. 

10. 

ERR 

VALERR. 

11. 

ERR 

DPTERR. 

14. 

ERR 

DOMERR. 

15. 

ERR 

STOP. 

16. 

ERR 

COMERR. 

21. 

ERR 

CHRERR. 

25. 

ERR 

NYIERR. 

26. 

ERR 

SIDAMN. 

27. 

ERR 

TURKEY. 

30. 

ERR 

BADERR. 

31 . 

ERR 

RESERR. 

32. 

;  BEGINNING  OF 

I/O  ERRORS 

UOERR'- 

=50. 

ERR 

INSNAM. 

: . OERR        • 

ERR 

BADDIR. 

I.OERR 

ERR 

ILFNAM. 

I.0ERR*2. 

ERR 

DIRFUL. 

I.0ERR^4. 

ERR 

FlLNfF. 

LOERR**" 

ERR 

DEVNTF. 

I.OERK  . 

ERR 

CHNOr*N, 

I.0ERR*7. 

tRA 

NOTAVL. 

I.0ERR*8. 

ERR 

NOTOPN. 

I.0ERR*9. 

ERRORS  START  AT  0 

SYSTEM  ERROR 

WORK  SPACE  FULL 

SYMBOL  TABLE  FULL 

DEf'N  ERROR 

LABEL  ERROR 

SYNTAX  ERROR 

INDEX  ERROR 

RANK  ERROR 

LENGTH  ERROR 

VALUE  ERROR 

DEPTH  ERROR 

DOMAIN  ERROR 

EXECUTION  STOP 

COMMAND  ERROR 

CHARACTER  ERROR 

NOT  YET  IMPLEMENTED 

SI  DAMAGE 

TURKEY  ERROR   (GOBBLE!!   GOBBLE!!) 

aAD  ERROR  -  SHOULD  NEVER  HAPPEN 

Rtt»rARr  ERROR 


STAi<T  OF    I/O  ERRORS 
Installation  Nam« 
Bid  Directory 
Illegal  File  Hmo 
Directory  Full 
FUe  Not  Found 
Device  Not  Found 
File  Already  Open 
Device  Not  Avail  ible 
Channel  not  Open 
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2024  000000 

2025  000000 

2026  000000 

2027  000000 

2028  000000 
2029 

2030        000166 
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ERR 
ERR 
ERR 
ERR 
ERR 


T~T 


EOF,  I.OERR^-II. 

lOERR,  I.OERR+13. 

ILLCHN,  I.0ERRH6. 

LNLNG,  I.0ERR*A7. 

ILLSW,  I.0ERR^67. 


ERRMAX=  TMPTAG 


End  of  File  on  Device 
I/O  Error 

Illegal  Channel  Nunber 
Line  too  Long 
;Illegal  switch  usage 


.-MAXIMUM  ERROR  POSSIBLE 
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2032 
2033 
203A 
2035 
2036 
2037 
2038 
2039 
2040 
20A1 
2042 
2043 

2045  000000 

2046  000000 

2047  000000 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2128 
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DEFINE  DATA  AREA 

ALL  DATA  IS  DEFINED  AS  A  LOCATION  IN  THE  CSECT,  'APLVAR'  AND  THE 
VALUE  GIVEN  WITH  IT  IS  PUT  IN  THAT  LOCATION.   IF  NO  VALUE  IS 
GIVEN,  ALL  BYTES  ARE  ZEROED  OUT. 

IF  THE  LEN  IS        THE  VALUE  IS  TAKEN  AS 

1  BYTE  BYTE 

2  BYTES  WORD 

FPPLEN  FLOATING  POINT  0 


.PSECT  DEF$0, 
.PSECT  DEF$1, 
.PSECT  DEF$2, 


RW,  D,  OVR,  GBL 
RW,  D,  OVR,  GBL 
RW,  D,  OVR,   GBL 


.MACRO     $$DEF       LEN,         VALUE 
.IF  B  <VALUE> 
.IF  NB  <LEN> 
.NLIST 
.REPT  LEN 

.BYTE  0 
.ENDR 
.LIST 
.ENDC 
AfF 

.IF   EQ  LEN-1 

.BYTE   VALUE 
.IFF 

.IF  EQ  LEN-2 

.WORD  VALUE 
.IFF 

.IF   EQ  LEN-8. 

.FLT4  VALUE 
.IFF 

.ERROR 
.ENDC 
.ENDC 
.ENDC 
.ENDC 
ENDM       $$DEF 


;VALUE    IS   ILLEGAL   FOR  SIZE   OF   NAME 


NAME 


.MACRO  $DEF    NAME,   LEN, 
.IF   NB  NAME 

.IF   NE    .DEF.-2 

.GLOBL  NAME 

.ENDC 
.ENDC 

$$DEF  LEN,         <VALUE> 

.ENDM      SDEF 


VALUE 
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2130 

2131 

2132 

2133 

2134 

2135 

2136 

2138  000000 

2H0 

2141  000000 

2142  000022 

2143  000204 

2144  000344 
2145 

2146  000402 

2147  000403 
2149  000404 
2151 
^152 
2153 
2154 
2155 

2157  000000 
2159 

2160  OOOCOO 

2161  000002 

2162  000004 
2163 
2168 
2170 

2172  000000 
2175 
2176 
2177 

2178  000000 

2179  000000 

2180  000002 

2181  000004 

2182  000006 

2184  000010 

2185  000020 

2190  000030 

2191  000032 

2192  000042 

2193  000044 

2194  000046 

2195  000050 

2196  000052 

2197  000054 

2198  000056 

2199  000060 

2200  000062 

2201  000064 

2202  000066 

2203  000070 

2204  000072 

2205  0000/4 
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.DEF.=  0 


: Special  Case 


Channels  13  and  14  (the  Utility  Channels)  are  very  special  and 
must  not  be  modified  whi'e  SAVE  or  LOAD  is  in  progress.  Hence, 
they  are  in  a  special  place  that  is  not  LOADed. 


$DEF 
$DEF 
SDEF 
$DEF 

SDEF 
SDEF 
SDEF 
•  > 


.PSECT  DEFSO 

-C.SBIT 
CHAN13,  <C.BLSZ-C.SBIT> 
CHAN14,  C.BLSZ 
UTNAME,  N.BLSZ 


OMODE,  1, 
TMODE ,  1 , 
.MOLUN,  2 


377 
1 


STUFF  FOR  UTIL  CHANNEL 
Stuff  for  Utility  Channel  1. 
Stuff  for  Utility  Channel  2. 
Name  Block  for  COPY 


;OLD  'TMODE'  FOR  FILES 
;0=APL  TERMINAL,  ELSE  TTY 
:M   OF  MESSAGE  OUTPUT 


000001 


;  Some  of  these  first  variables  are  v/ery  special  and  should  not  be 
;  cleared  with  a  ') CLEAR' 

; NON-OVERLAID  STUFF 


000002 


.DEF.=  .DEF.^1 

.PSECT  DEFS1 

SDEF    SYSTAT,  2, 

SDEF    SPINIT,  2. 

SDEF    SPHOLD,  2, 


.DEF.=  .DEF.*1 

.PSECT  DEF$2 


SYSTEM  STATUS 

SP  RESET  VALUE 

STACK  POINTER  SLOT  DURING  LOAD/^'^VE 


.•OVERLAID  STUFF 


These  other  variables  need  to  be  reset  by  the  ')CLEAR'  command 


SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDfF 

SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 


VAR8LS,  0 

VERNUW,  2 

LOWCOR,  2 

ENDCOR,  2 

DIGITS,  2 

ROUND,  8 

UROUND,  8 

ORIGIN,  2 

FORIGN,  8 

FPMODE,  2 

SIZTA6,  2 


^ECSN, 
LENTAB, 


f 


NlflLEN, 
INPTR. 
OUTPfR, 
LWIDTH, 
WIDTH.  , 
WSNAME,  0 


\ 


RSION»256.>EDIT 


6^<FPPLEN/10*4.> 

5E-6 

5E-7 

1 

1.0 

«FPPLENg1 


I 


fPPLEN/10* 
1 


\ 


FPPLEN 

GETL 

OCHAR 


START  OF  VARIABLES 

Version  and  edition 

Pointer  to  beginning  of  user's  WS 

Pointer  to  the  top  of  the  WS 

INITIAL  #  OF  DIGITS 

ROUNDING  CONSTANT  (SINGLE  PRECISION) 

ROUNDING  CONSTANT  FOR  WRITING  FILES 

SUBSCRIPTING  ORIGIN 
.FLOATING  ORIGIN 
0>»20*1000>:INITIAL  \P9   MODE 

TABLt  FOR  SHIFTS 

BOaEAN  ENTRY 

INTEGER  ENTRY 

SHIFT  TO  MULTIPLY  BY  PRECISION 

TABLE  FOR  SIZE  LOOKUP 

BOOLEAN  ENTRY 

WORD  ENTRY 

LENGTH  OF  FLOATING  NUMBERS 

POINTER  TO  INPUT  ROUTINE 

POINTER  TO  OUTPUT  ROUTINE 

PAPER  WIDTH 

PAF>ER  WIDTH 
;WS  NAME 
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2206  00007A 

2207  000132 

2208  0001 34 

2209  000136 

2210  OOOHO 

2212  0O0H2 

2213  000152 
22H  000162 
2215  000172 
2:  6  000202 
2224  000212 
2225 
2227   000222 

2229  000234 

2230  000256 
2232  000256 

2236  000306 

2237  000330 

2238  000512 

2239  000674 

2240  001056 

2241  001240 

2242  001422 

2243  001604 

2244  001766 

2245  002150 

2246  002332 

2247  002514 

2248  002676 
2249 
2253 

2254  003060 
2255 

2257  003060 
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$DEF 
IDEF 
$DEF 
$DEF 
$DEF 
$DEF 
$DEF 
$DEF 
$DEF 
$DEF 
$DEF 

$DEF 
SDEF 
$DEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 


SDEF 
SDEF 


WSTIME, 

WSDATE , 

FUZZ, 
CTEPS, 

CTRMAX, 

CTMAX, 

FLSWTB, 

CHANOO, 


CHAN01, 
CHAN02, 
CHAN03, 
CHAN04, 
CHAN05, 
CHAN06, 
CHAN07, 
CHAN08, 
CHAN09, 
CHAN10, 
CHAN11, 
CHAN12, 


ITT 


N.BLSZ  .-LENGTH  IS  SIZE  OF  NAME  BLOCK 

2,  Q  ;WSTIME  (RT-11  LIKE  FORMAT) 

I'  » 

2.  0  ;WSDATE    

2,  0 

8..  5E-7  ;FUZZ  FACTOR 

8.,  5E-7  il?%   Constant,  Plus  Argunent,  =Fuzz 

8.,  0.500OOO250000125E-7;Minus  Argument 

8.,  0.5000001 25000031 25 ;RMAX  Constant,  Plus  argument 

8.,  0.499996874998749999;Minus  Argtment 

8.,  0.38196601 1250105;Maximun  Value  for  Fuzz 


10. 

-C.SBIT 

0 

24. 

-C.SBIT 

<C.BLSZ-C 

<C.BLSZ-C 

<C.BLSZ-C 

<C.BLSZ-C 

<C.BLSZ-C 

<C.BLSZ-C 

<C.BLSZ-C 

<C.BLSZ-C 

<C.BLSZ-C 

<C.BLSZ-C 

<C.BLSZ-C 

<C.BLSZ-C 


SBIT> 
SBIT> 
SBIT> 
SBIT> 
SBIT> 
SBIT> 
SBIT> 
SflIT> 
SBIT> 
SBIT> 
SBIT> 
SBIT> 


CHANEX,  0 
REENTR,  2,      1 


Formatted  ASCII  switch  table 

SPACE  FOR  USER  TERMINAL 

USER  TERMINAL 

THIS  IS  THE  AREA 

1ST  USER  CHANNEL 

USER  CHANNEL  1 

USER  CHANNEL  2 

USER  CHANNEL  3 

USER  CHANNEL  4 

USER  CHANNEL  5 

USER  CHANNEL  6 

USER  CHANNEL  7 

USER  CHANNEL  8 

USER  CHANNEL  9 

USER  CHANNEL  10 

USER  CHANNEL  11 

USER  CHANNEL  12 


.'Execute  Channel 

;FAKE   fPP  RE-ENTERED  FLAG 
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2260  003062 

SDE^ 

RANDY, 

2,     1 

•RANDOM  KERNEL 

2261  003064 

SDEf 

RANDAC , 

p  0.  #              1 

•BUFFER  USED  TO  GENERATE  RANDOM  NUMBERS 

2262  003074 

SDEf 

FIXPTR. 

-  2 

•POINTER  TO  INPUT  BUFFER 

2263  003076 

SDEf 

FXPTR1 , 

-  2 

•POINTER  TO  RIGHTMOST  CHR  OF  LINC 

2264  003100 

$DEf 

LEXPTR. 

,  2 

•POINTER  TO  START  OF  LEX  LINE  IN  SI 

2265  003102 

SDEf 

GNOME, 

2 

•INPUT  CHR  POINTER 

2266  003104 

SDE^ 

SUBCNT . 

,   2 

; COUNT  OF  DIMENSIONS  IN  ARRAY 

2267  003106 

SDEf 

SLfiDCT, 

,  2 

; COUNT  OF  DIMS  IN  RESULT 

2268  003110 

SDEf 

SUBPTR. 

,  2 

;POINTER  TO  ARRAY'S  DIM  LIST 

2269  003112 

SDEf 

DIMBLK. 

,  2 

•POINTER  TO  DIMENSION  ARC  BLOCK 

2270  003114 

%m 

DIMPTR, 

,  2 

[POINTER  TO  FIRST  DIM  ARC 

2271  003116 

SDEf 

DIMTVP. 

,  2 

•TYPE  OF  DIM  ARG 

2272  003120 

%^V 

MONBLK. 

,  2 

•POINTER  TO  MONADIC  ARG  BLOCK 

22 tl   003122 

SDEf 

MONPTR. 

,  2 

[POINTER  TO  MONADIC  ARG 

2274  003124 

SDEf 

MONTVP. 

,  2 

iTYPE  OF  RESULT  (CHAR/BOOL /I NT/FLOAT) 

2275  003126 

SDEf 

MONSFT, 

,  2 

[MONADIC  SHIFT  CONSTANT 

2276  003130 

SDEf 

MONLEN< 

.  2 

[MONADIC  LENGTH  CONSTANT 

22n   003132 

SDEf 

MONCVT. 

,  2 

[POINTER  TO  CONVERSION  ROUTINE 

2278  003134 

SDEf 

MONVAL  < 

.  2 

[VALUE  TEMPORARY 

2279  003136 

SDEf 

RESULT. 

,  2 

[POINTER  TO  RESULT  BLOCK 

2280  003140 

SDEf 

RESPTR. 

,  2 

[RESULT  DATA  POINTER 

2281  003142 

SDEf 

RES8JT. 

,  2 

[RESULT  DESCRIPTION  BITS 

2282  003144 

SDEf 

RESTyP. 

.  2 

[TYPE  OF  RESULT 

2283  003146 

SDEf 

•    RESSFT. 

,  2 

[RESULT  SHIFT  CONSTANT 

2284  003150 

SDEf 

RESLEN. 

.  2 

[RESULT  LENGTH  CONSTANT 

2285  003152 

SDEf 

'    RESCVT. 

.  2 

[CONVERSION  ROUTINE  FOR  RESULT 

2286  003154 

SDE^ 

RESVAL. 

,  2 

[VALUE  TEMPORARY 

2287  003156 

SDEf 

COMRL'^. 

,  2 

[POINTER  TO  COMPARE  ROUTINE 

2288  003160 

SDEf 

LAR6FL. 

,  2 

[SET  IF  LEFT  ARG  NOT  SCALAR 

2289  003162 

SDEf 

LARGBL . 

,  2 

[POINTER  TO  LEFT  ARG  BLOCK 

2290  003164 

SDEf 

LARGPT, 

,  2 

[POINTER  TO  LEFT  ARG 

2291  003166 

SDEf 

LARGLN< 

,  2 

[VOLUME  TO  LEFT  ARG 

2292  003170 

SDEf 

LARGTY, 

.  2 

[RIGHT  ARG  TYPE 

^293  003172 

SDEf 

'    LARGSF . 

,  2 

[LEFT  ARG  SHIFT  CONSTANT 

2294  003174 

SDEf 

'         LAR6LE. 

.  2 

[LEFT  ARG  LENGTH  CONSTANT 

2295  003176 

SDEf 

'    LARGCV. 

,  2 

[RIGHT  ARG  CONVEf^SION  ROUTINE 

2296  003200 

SDEf 

'         LAR6VA, 

.  2 

[TEMPORARY  FOR  VALUE 

2297  003202 

SDEf 

'          RAR6FL. 

.  2 

[SET  IF  RIGHT  ARG  1.  COMP  ARRAY 

2298  003204 

SDEf 

'         RARQBL. 

,  2 

[POINTER  TO  RIGHT  ARG  BLOCK 

2299  003J06 

2300  003210 

SDEf 

RARGPT. 

,  2 

[POINTER  TO  RIGHT  ARG 

SDEf 

RAR6LN. 

,  2 

[VOLUME  OF  RIGHT  ARG 

2301  003212 

SDEf 

'          RARGTY. 

,  2 

[LEFT  ARG  TYPE 

2302  003214 

2303  003216 

SDEf 

'          RARGSF . 

,  2 

[RIGHT  ARG  SHIFT  CONSTANT 

SDEf 

'         RARGLE. 

f  2                           i 

[RIGHT  ARG  LENGTH  CONSTANT 

2304  003220 

SDEf 

'         RARGCV. 

,  2 

[LEFT  ARG  CONVERSION  ROUTINE 

2305  003222 

SDEI 

'    RARGVA. 

,  2 

[TEMPORARY  FOR  VALUE 

2306  003224 

SDEf 

f    DVDCNT. 

[COUNT  OF  ELEMENTS  IN  ARRAY 

2307  003226 

2308  003230 

SDEf 

NIMJD, 

'  \                           1 

[NUMERIC  FIELD  WIDTH 

SDEf 

'         NUMFLG. 

►  5        ! 

[SAVE  Nl/DFL  Ar«0  NIMRIG  ;n  THE  3A/^  WORD 

2309  003230 

SDEI 

'          NlfOFL. 

»  '        1 

[SET  IF  DFriMAL  POiNI  FOUND 

2310  003231 

SDEI 

'         NUMRiG. 

>   '         1 

;COUNf  OF  DIGITS  ON  RIGHT  OF  DECIML  POINT 

2311  003232 

2312  003233 

SDEI 

'         NkPNEG, 

f   '        1 

[SET  IF  NUMBER  NEGATIVE 

lE^! 

'         NUMEfi, 

»  '        1 

iSET  IF  EXPONENT  FOUND 

2313  003254 

'          NUMOFL 

>  '        1 

[SET  SET  IF  DIGIT  FOUND 

2314  00^255 

SDEI 

'          NL^/FL 

>  '                     1 

[SET  IF  N0N-7Er<0  DIGIT  FOUND 

23 lb  003236 
2316  003257 

SDEI 

'          NUMESN 

t  ' 

[SET  IF  EXPONENT  NEGATIVE 

m\ 

0 

[<FILLLR  FOR  EVENING  COlWTER> 
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2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
233A 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2358 
2362 
2363 
2364 
2365 

1^ 

2368 
2369 
2370 
2371 
237? 
2373 
2374 
2375 


003240 
003240 

003250 
003250 
003250 
003270 
003272 
003274 
003276 
003300 
003302 
003304 
003306 
003310 
003312 
003314 

003316 

004140 
004762 
004764 
004766 
004770 
004772 
004774 
005012 
005014 
005016 
005016 
005026 
005026 
005036 
005040 
005042 
005044 
005046 


005050 
005052 
005054 
005056 
005060 
005062 
005063 
005063 
005064 


000010 


000621 
00C622 


001000 
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-1 

$DEF 

NAMBUF, 

0 

$DEF 

« 

10 

CMDMAX= 

10 

$DEF 

CMD8UF, 

0 

$DEF 

INNTMP, 

0 

SDEF 

FLCaJF, 

20 

$DEF 

FLOEXP, 

2 

$DEF 

FLONEG, 

2 

SDEF 

ALLINT, 

2 

$DEF 

ARYRET, 

2 

SDEF 

NINPT2, 

2 

SDEF 

NINPT1, 

2 

SDEF 

NINSTK, 

2 

SDEF 

NINTYP, 

2 

SDEF 

NINTMP, 

2 

SDEF 

ROVER, 

2 

SDEF 

SIFRAM, 

2 

LBUFLN=401. 

SDEF 

L8UFF, 

LBUFLN^I 

TTyLEN=402. 

SDEF 

TTVBUF, 

TTYLEN 

SDEF 

NPRT1, 

2 

SDEF 

FLAGS, 

2 

SDEF 

LSTERP, 

2 

SDEF 

ERRPTR, 

2 

SDEF 

ERRNUM, 

2 

SDEF 

ERRO, 

16 

SDEF 

f  HE  ADR. 

2 

SDEF 

FLJNE, 

2 

SDEF 

INNTM2, 

0 

SDEF 

LINE, 

8. 

SDEF 

0PTM14, 

0 

SDEF 

LINING, 

8. 

SDEF 

LOCLCT, 

2 

SDEF 

FHRET, 

2 

SDEF 

LABLPT, 

2 

SDEF 

fHlHSl. 

2 

SDEF 

BRSELF, 

2 

;J/0 

VARIABLES 

OBUFLN^512. 

SDEF 

KHAN, 

2 

SDEF 

OCHAN, 

SDEF 

EXE8UF , 

2 

SDEF 

ESCT, 

2 

SDEF 

ESPT, 

2 

SDEF 

EDIFLG, 

} 

SDEF 

NEGSGN 

SDEF 

EDICHR, 

1 

SDEF 

EDjCNT, 

2 

SHARED  NAME  BUFFER  FOR  DECODING  NAME 

FAKE  ZEROES 

MAX  #  OF  CHARS  ALLOWED  IN   A  COMMAND 

COMMAND  BUFFER  (SHARED  WITH  NUM  OUTPUT) 

INNER  PRODUCT  TEMPORARY 

FLOATING  OUTPUT  BUFFER 

FLOATING  EXPONENT 

SIGN  OF  NUMBER 

SET  FOR  CLOSE  PACKING  OF  NUMBERS 

POINTER  TO  RETURN  FROM  ROUTINE 

LORD  KNOWS  WHAT  THIS   POINTER  DOES 

THIS  ONE  TOO... 

PTR  PAST  INDEX  FRAMES 

NON-ZERO  MEANS  NUMERIC  ARRAY 

TEMP  STORAGE 

POINTER  TO  FREE  STORAGE 

POINTER  TO  CURRENT  SI  STACK  FRAME 

SIZE  OF  LINE  BUFFER  (ODD) 

LINE  BUFFER 

SIZE  OF  I/O  BUFFER 

I/O  BUFFER 

POINTER  TO  FIRST   ITEM  TO  PRINT 

CURRENT  FLAGS  FOR  THIS  FRAME 

VALUE  OF  WIDTH  AT  ERROR 

POINTER  TO  ERROR  CALLER 

ERROR  NIWER  OF  LAST  ERROR 

ERROR  REGISTER  BUFFER 

POINTER  TO  FUNCTION  HEADER 

POINTER  TO  CURRENT  LINE  BLOCK 

Inner  product  tfmporary  result 

CURRENT  LINE  NLMBER 

Inner  product  tefwporary 

CURRENT  LINE   INCREMENT 

COUNT  OF   LOCAL  VARIABLES 

POINTER  TO  SUBROUTINE  RETURN 

POINTER  TO  LABELS  SYMBOL  BLOCK 

NON-ZERO  IF   FN  IS   IN  SI   STACK 

SPECIAL   FLAG  TO  ALLOW  A  BRANCH   TO 

EXECUTE   A  LINE  WITH  A  STOP  BIT   SET. 


POINTER   TO  INPUT  CHANNEL  BLOCK 
POINTER  TO  OUTPUT   CHANNEL  BLOCK 
POINTER  TO  EXECUTE  OP  BUFFER 
EXECUTE   CHARACTER  COUNT 
EXECUTE   CHARACTER  POINTER 
1=LINE  EDIT  MODE,   -1=CHR  SEARCH 
MINUS  SIGN  CHARACTER  FOR  NUMOUT 
EDIT  SEARCH  CHARACTER 
EDIT   CHARACTER  SKIP  COUNT 


;END  OF  NON-INITIALIZED   I/O  VARIABLES 
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2377  005066 

$DEF 

LFTOP 

2378  005066 

$DEF 

REDIGN 

2379  005066 

SDtF 

TKFRAM 

2380  005066 

$DEF 

RLTBAS 

2381  005066 

$DEF 

OPTMPO,  2 

2382  005070 

$DEF 

RTOP 

2383  005070 

SDEF 

REDCNT 

2384  005070 

$DEF 

TKLEFT 

2385  005070 

$DEF 

ROTINC 

2386  005070 

SDEF 

0PTMP1,  2 

2387  005072 

SDEF 

LITOP 

2388  005072 

SDEF 

REDOFF 

2389  005072 

%DEf 

TKDIMS 

2390  005072 

SDEF 

CCNT 

2391  005072 

SDEF 

0PTMP2,  2 

2392  005074 

SDEF 

RBASE 

2393  005074 

SDEF 

0PTMP3,  2 

2394  005076 

SDEF 

COMBINE 

2395  005076 

SDEF 

0PTMP4,  2 

2396  005100 

SDEF 

LBINC 

2397  005100 

SDEF 

0PTMP5,  2 

2398  005102 

SDEF 

LINC 

2399  005102 

SDEF 

0PTMP6,  2 

2400  005104 

SDEF 

RINC 

2401  005104 

SDEF 

0PTMP7,  2 

2402  005106 

SDEF 

LCOUNF 

2403  005106 

SDEF 

0PTMP8.  2 

2404  005110 

SDEF 

RCOUNT 

2405  005110 

SDEF 

0PTMP9,  2 

2406  005112 

SDEF 

RCOUNR 

2407  005112 

2408 

2409 

SDEF 

OPTM10,  2 

2410  005114 

SDEF 

DEVIL,  2 

2411  005116 

SDEF 

BLZBUB,  2 

2412  005120 

SDEF 

CORPTR,  2 

2413  005122 

SDEF 

COMPTR,  2 

2414  005124 

SDEF 

COMSKP,  2 

2415  005126 

SDEF 

COMCNT,  2 

2416  005130 

SDEF 

CNTSIZ,  2 

2417  005132 

SDEF 

ELESIZ,  2 

2418  005134 

SDEF 

SKPSJZ,  2 

ITT 


; TEMPORARY  OP  VARS  FOR  EACH  OP  TO  USE 


INCREMENT   FOR  RESULT  POINTER 

PTR   TO  DYADIC  OP  ROUTINE    (OPTIONAL) 

CURRENT  CORE  PEEK/POKE  ADDRESS 

POINTER  TO  DIM  BEING  USED 

NUMBER  OF   ELEMENTS   TO  SKIP  AT  A   TIME 

NIWBER  OF   GROUPS   TO  DO  AT  A   TIME 

SIZE   OF    'COMCNT*   GROUPS 

SIZE  OF   EACH  ELEMENT 

SIZE   OF   ELEMENTS  FOR  EACH  LEVEL 
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2A20 

2A21 

2A22 

000200 

2A23 

1 77601 

2A2A  005136 

2A25  005140 

2426 

2427  005340 

2428  005342 

2429  005344 

2430  005346 

2431 

2432 

000774 

2433 

000054 

2434  005350 

2435  005352 

2436  006272 

2437 

2438 

2439 

2440 

000200 

2441  006346 

2442  006350 

2443  007144 

2444 
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r^ 


; SYMBOL  TABLE  AND  HASH  TABLE  DEFINITIONS 


$DEF 
$DEF 

$DEF 
$DEF 
$DEF 
$DEF 


$DEF 
$DEF 
$DEF 


HSHSIZ= 
HSHMSK= 
HASHC, 
HASHTB, 

SYMF, 

SYMBI- 
SYMPT1, 

STKINC= 
SYMURN= 
SYMTOP, 
SYMTAB, 
SYMTP, 


128. 

''C<HSHSIZ-2> 

2 

HSHSIZ 


2, 
2. 
2. 
2 


SYMTAB 

0 

0 


508. 

44. 

2,      SYWTP 

STKINC-SYMWRN 

SYMWRN 


HASH  TABLE  SIZE 
MASK  FOR  HASHING  FUNCTION 
HASH  FUNCTION  VALUE  WORD 
HASH  TABLE 

POINTER  TO  SYMBOL  TABLE  TOP 
ALPHABETIC  LINK  FOR  SYMB1 
ALPHABETIC  LIST  HEADER 
POINTER  TO  SYMBOL  TO  ENTER  INTO  TABLE 

SIZE  OF  TABLE  OR  STACK  INCREMENT 
SIZE  OF  SYMBOL  TABLE  WARNING  AREA 
POINTER  TO  SYMBOL  TABLE  WARNING  AREA 
SYMBOL  TABLE 
SYMBOL  TABLE  WARNING  AREA 


;SI  STACK  DEFINITION 


$DEF 
$DEF 
$DEF 


SIWARN=  128. 
SITOP,  2,      SITP 
SISTAK,  STKINC-SIWARN 
SITP,   SI WARN 


Sill   OF  SI  STACK  WARNING  AREA 
POINTER  TO  SI  STACK  WARNING  AREA 
SI  STACK 
WARNING  LIMIT 
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24A6 
24A7 
2A48 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
248  ^ 
2512 


007344 

007364 
007366 
007367 
007370 
007372 
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SDEF 

SDEF 
SDEF 
SDEF 
SDEF 
SDEF 


PATCH, 
NULL, 


20 


TT 


; PATCH  AREA 

?;NULL  ARRAY  IMAGE 
;#  OF  DIMENSIONS 
A.ASB^A.NUMM.CON-^A.TMP 

8;ALEN 
;DIM  1 


HERE  IS  BUILT  A  FREE  BLOCK  REPRESENTING  ALL  OF  CORE  WHEN  APL  IS 
INITIALIZED 


007374 
007400 
007400 


000406 
000406 

000022 
000022 

000204 
000204 

007400 
007400 


0002?2 
000252 


000022 • 
000204' 


000222* 


iDEF 

4             ; BLOCK  HEADER 

SDEF 

FREBLK,  0              ;REST  OF  MINIMUM  BLOCK 

SDEF 

VAR8LE,  0             ;  END  OF  VARIABLE  AREA 

.MACRO  INITCH  CHANUM 

.IRP  CHANN0,<CHANUM> 

CHAN'CHANNO 

FD6DFS 

FD8KSA   ,,,32.,CHAN'CHANNO>C.SRC 

FDOPSA  CHANNO\ 

.ENDR 

.ENDM 

.PSECT  DEFSO 

INITCH  <13,14> 

.=CHAN13 

FDRCSA  FD.RWM 

FDATSA  R.FIX 

.=CHAN14 

FDRCSA  FD.RWM 

FDATSA  R.FIX 

.PSECT  DEFS2 

INITCH  <01,02,03,04,05,06,0^08,09JOJM2> 

.=FISWTB 

CSISSW  FA,C.FASW,,,NEG.,LONG 
CSISND 


—^ 
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1  000001  .END 
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ACQ      ^XOOOOOO 
AC1       ^XOOOOOI 
AC2      :=X000002 
AC3      =X000003 
AC<»      =1000004 
ACS      ^XOOOOOS 
ALL INT     003274R 
ARYRET    003276R 
ASCQUO=  000042 
A.ALEN=  000004 
A.ARG  =  000040 
A.ASB  -  000200 
A.BITS^  000003 
A.CGN  =  000020 
A.DinSr  000002 
A.Dim:^  000006 
A.NUM  =  000006 
A.PTR  =  OOfxXX) 
A.T«P  =  000010 
BADOIR::  10^463 
BADERRs  104437 
QLZBUB    0051 16R 
BRSELF     005046R 
CCNT        005072R 
CHANEX    003060R 
CHANOO    000256R 
CHAN01     000330R 
CHAN02    000512R 
CHAN03    000674R 
CHAND4    001056R 
C^iAN05    001240R 
CHAN06    001422R 
CHAN07    001604R 
CHmS;    001766R 
CHAN09    002150R 
CHAN10    002332R 
CHAN11     0Q2514R 
CH^12    002676R 
CKAN13    000022RG 
CHMn4    000204RG 
CHNQf>N>  104471 
CMR>^- 
CNRBEL" 
CHRBKR* 
CHROa* 
CHRBOX> 
CNRCm* 
CHRCa* 
CHROEL> 
CHROIV* 
CHROtR« 
CHRDtT> 
CHROOU 
CMRCP  --^ 
CHRERRk 
CMRriL« 
LHRfRO« 


CHRLBR= 

CHRLPR= 

CHRRNS^ 

CHRMUL= 

CHRNE6= 

CHRPOL= 

025  CHRPLU= 

025  CHRPUR= 

CHRQST= 

CHRQUO= 

CHRRBR= 

CHRRPR= 

CHRSEMs 

CHRSMO== 

CHRSPA= 

CHRUPA= 

CHRIS  = 

CHR.BS^ 

CHR.CC= 

CMR.CR= 

CHR.CZs 

025  CHR.GT= 

025  CHR.LF= 

025  CHR.LT= 

025  CHR.SI= 

025  CHR.SL= 

025  CHR.SO= 

025  CHR.TB= 

025  CHR.UL= 

025  CHR..A= 

025  CMR..E= 

025  CMR..S= 

025  CHR..T= 

025  CMR..U= 

025  CHR..Z= 

025  CMR..0= 

025  CHR..1= 

025  CH.AND- 

3  cmuf 

3  CMMAXs 
CNTSIZ 
CNTII  « 
CQMBIN 

rnwcNT 

CQRERR' 

CCFTTR 

COMRTN 

CCNSICP 

CORPTR 

CS.ASS* 

CS.BOO^ 

CS.FLO* 

rSJON> 

CS.0NE< 

CTEPS 

CTMM 

CTRMAX 


8 


000073 
000072 
000137 
000075 
000100 
000271 
000055 
000120 
000121 
000113 
000047 
000042 
000074 
000112 
000040 
000131 
000101 
000010 
000003 
000015 
000032 
000046 
000012 
000043 
000017 
000057 
000016 
000011 
000106 
000141 
000145 
000163 
000164 
000165 
000172 
000060 
1 
1 
OR 


i124R 


I152R 
7jR 


C.ALOC= 
C.BLOK= 
C.BLSZ= 
C.8UfF= 
C.BUFL= 
C.CCNT= 
C.CPTR= 
C.CZ  = 
C.OIG  = 
C.FASW= 
C.FLEN= 
C.FLSH= 
C.FRC  = 
C.IDEN= 
C.^4V€= 
C.NOBF= 
C.NLW  = 
COP  = 
C.OPN  = 
C.RDLN= 
C.  RE  WT= 
C.RND  = 
C.SBITr 
C.SPFX= 

c.spa= 

C.SPLX= 
C . SPRS= 
C.SRC  = 
C.SRCPs 
C.TT  = 
C.WIDCr 
C.WIDRs 
DEBUG  = 

DEF1^€= 
DEVIL 
DEVNTF« 
DIGITS 

025  DIHAX  2 
DIMBLK 

025  DI«PTR 
DIMTYP 
DIRFUL= 
DOF€RR^ 
DPTERRs 
DrDCNT 
,     D.AND  ^ 
5  D.BXCTs 
15  D.BXIU* 
D.BXM> 
D.BXPPs 
D.BXPWs 
D.BXRL* 
D.CIRC= 

^5  D.CQHP= 
f5  D.CONT= 


>5 
\5 


000162 
000064 
000140 
177760 
177762 
177766 
177764 
001000 
000040 
020000 
000010 
004000 
000001 
000010 
000102 
000400 
000020 
000004 
010000 
1 77776 
002000 
000010 
1 77756 
000100 
000200 
000001 
000002 
1 7777i, 
000024 
000004 
1 77770 
)77772 


104405 
000000 
0Q5114R 
104470 
I006R 
120 
12R 
114R 
116R 
466 
.41? 
416 
'24R 


B6 


D.CTL«= 
D.DEAL= 
D.DECD= 
D.DIV  = 
D.DMD  = 
D.DQAD= 
D.DROP* 
D.ENCD= 
D.EQ  =: 
D.EXPD= 
D.FGET= 
D.FWT  = 
D.FPNT= 
D.FPUT= 
D.GE  = 
D.GT  = 
D.IBM  = 
D.INO  = 
D.IF  JR= 
D.I.JR= 
D.LE  = 
D.LOG  = 
D.LT  = 
D.F1AX  = 
D.«E«  = 
D.MIN  = 
D.MUL  = 
D.^€  = 
D.NN  = 
D.NR  = 
D.OR  = 
D.PLUS^ 
D.PSUB^ 
D.PWR  = 
D.UQAD^ 
025  D.OUAD^ 
D.RES  = 
025  D.RHO  ' 
D.ROT  = 
025  D.SCON^ 
025  D.SDIFs 
0?^  D.SUB  ' 
D.SUBS- 
D.TAKE= 
D.TRAN« 
025  O.iHOHr 
D.MAX^ 
D.$MIN> 
D.VU> 
D.IPLU* 
D.IRES:: 
D.ISUB^ 
i.lCOW« 
D.1EXP-- 
D.1R0T= 
EDICHR 
EDKNT 


000000 
000003 
000002 
000000 
000010 
1 77777 
000002 
000002 
000000 
000002 
000005 
000004 
000005 
000005 
000000 
000000 
000002 
000002 
000013 
000006 
000000 
000001 
000000 
000000 
000002 
000000 
000000 
000000 
000000 
00000<) 
000000 
000000 
000006 
000001 
000000 


)0U 


I 


EDIFLG 

EDIT  = 

BIS      = 

ELESIZ 

ENDCOR 

EOF   = 

ERRF1AX> 

ERRNUM 

ERRPTR 

ERRO 

EXEBUF 

E$CT 

E$PT 

FA.APD= 

FA.CRE= 

FA.DLK^ 

FA.ENBs 

FA.EXC= 

FA. EXT- 

fA.HSR' 

FA.POS= 

FA.RD  = 
FA.RWD:: 

FA.SEO= 
FA.SHRr 
FA.T«P= 
FA.WCM 
FA.WRTs 
FD.BLM 
FD.CCL= 
FD.CO«= 
FD  CR  = 
FD.DIRs 
FD.FTN^ 
FD.F11= 
FD.INS» 
FD.ISP=« 

FD.OSP= 
FD.PLC= 
FD.PRN= 
FD.PSE- 
FD.RAH^ 
FD.RANs 
FD.REC= 
FD.RV#|B 
FD.SDI- 
FD.SOD' 
FD.TTVs 
FD.yBH« 
fF.CMR= 
n.f^N  = 
FF.POI= 
FF.RWD^ 


005062R 

000003 

000000 

005132R 

000004R 

104475 

C00166 

(K^772R 

004770R 

004774R 

005054R 

005056R 

005060R 

000100 

000010 

001000 

100000 

002000 

000004 

000100 

000200 

010000 

000001 

004000 

040000 

000040 

000020 

020000 

000002 

000010 

000002 

020000 

000002 

000010 

000001 

04( 


025 


025 
025 


025 
025 
025 
025 
025 
025 


li\  W:'^ 


SPC  = 
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F  HE  ADR 

00501 2R 

025  f 

'.FLB  = 

000100 

HSHMSK= 

FHRET 

005040R 

025  1 

•.FNAM=  000110 

HSHS]Z= 

F1LNTF= 

104467 

•.Fl«  = 

000102 

KHAN 

FIS   = 

000000 

•.FNDF= 

000010 

ILFNA«= 

fISCON=  046000 

'.FTYP= 

000116 

ILLCHN= 

FIXPTR 

003074R 

025  1 

".FUN  = 

000010 

ILLSW  = 

FLAGS 

004764R 

025  1 

•.FVER= 

000120 

INDERR= 

FLCBUF 

003250R 

025  1 

•.HEAD= 

000006 

INNTMP 

FLINE 

00501 4R 

025  1 

■.HIBK= 

000004 

INNTM2 

FLOEXP 

003270R 

025  1 

'.LBL  = 

000020 

INPTR 

FLQNEG 

003272R 

025  \ 

•.LINE= 

000012 

1NSNAM=: 

FLSyiB 

000222R 

025  1 

".LOC  = 

000004 

lOERR  = 

FLTLEN=  000C10 

■.LSTC= 

000004 

I.CNT  = 

FNINSI 

005044R 

025  1 

'.LUN  ^ 

000042 

I. DIM  = 

FORIGN 

000032R 

025  1 

•.MBCT= 

000054 

I.LEN  = 

FO.AP0= 

000106 

•.«BC1  = 

000055 

I.OERR= 

FO.MFY= 

0000C2 

•.MBFG= 

000056 

I. OLD  = 

FO.RO  = 

000001 

'.MON  = 

000002 

I.PTR  = 

FO.UP0= 

000006 

'.NIL  = 

000001 

I.STR  = 

FO.yRT= 

000016 

'.NRBD^ 

000024 

IABERR= 

FP«0OE 

000042R 

025  1 

•.NREC= 

000030 

LABLPT 

FPP   = 

000000 

'.OPN  = 

000010 

LARGBL 

FPPLE^*= 

000004 

'.0VBS= 

000030 

LARGCV 

FREBLK 

007400F 

025  1 

•.PREV= 

000000 

LARGFL 

FUZZ 

0001 42R 

025  1 

'.PHNTr 

100000 

LARGLE 

FXPTR1 

003076R 

025  1 

•.PROT= 

010000 

LARGLN 

FSEVAL= 

oorioo 

•.RACC= 

000016 

LARGPT 

FSEVI  -^ 

000200 

'.RATT= 

000001 

LARGSF 

FSEXEC- 

000400 

'.RC^i*=  000034 

LARGTV 

FSFUNC= 

001000 

'.RCTL= 

000017 

LARGVA 

?.ACTL= 

000076 

>.REAO= 

004000 

LBINC 

F.ALOC= 

000040 

•.REDF= 

000040 

L8UFF 

F.flBFS= 

000062 

'.RES  = 

000040 

LBUFLi"^ 

F.RD6  ^ 

000070 

'.RET  = 

1 77772 

LCOUNT 

F.BGBC^ 

000057 

•.RSIZ= 

000002 

LENERR= 

F.BITS= 

177774 

f.RTYP= 

000000 

LBNJMB 

F.BICONs 

000026 

^R2  = 

000014 

LEXPTR 

F.BKDS= 

000020 

^R3  = 

000016 

LFTOP 

F.BICEF  = 

000050 

^R4  = 

000020 

LiNC 

F.BKP1= 

995551 

^SEQ^  000100 

LINE 

F.BKSTs: 

000024 

^ . SPOV= 

000072 

LiNINC 

F.BK\^ 

000064 

^SPUN= 

?8o036 

LISIZE= 

F.8R  = 

000054 

^sT»c= 

LISTDF= 

F.CMR  = 

^ST^c  = 

000022 

UTOP 

F.CNTG= 

^ST0P= 

000004 

LNLNG  = 

F.COOE* 

000010 

^STP  = 

OOOOOI 

LOCICT 

f.Ofm^   000046 

' . SUSP= 

LOWCOR 

F.DSPTh 

000044 

^TRC  = 

D000Q2 

LSTERP 

F.DV^^  000134 

^UNIT= 

[XX)l36 

LyiDTH 

F.EFBKr 

000010 

'.URBD^ 

mi 

L.BiTS^ 

f.EfH   = 

000050 
00?0Q0 
000032 

^VAL  = 

L.CNT  ^ 

F.FI4>  = 

'  VBN  = 

000064 

L.PRNTr 

F.EQBB^ 

f  VBSZ= 

000060 

L.PTR  = 

F.ERR  = 

000052 

jtfL   = 

••••••  GX 

L.PrRU 

F.FACC= 

000043 

jNOME 

0031()2R 

025  L.SUBS= 

F.FFBV-- 

000014 

^ASMC 

005156R 
005  UOR 

025  MACHINE 

F.FLAG^ 

C00002 

^ASHTB 

025  MAXCHN^ 

1 77601 
000200 
005050R 
104464 
104540 
104565 
104410 
0O325OR 
00501 6R 
000064R 
104462 
104477 
1 77776 
1 77772 
000012 
000062 
1 77770 
1 7777^ 
177766 
104406 
005042R 
0031 62R 
0031 76R 
0031 60R 
0031 74R 
0031 66R 
0031 64R 
0031 72R 
0031 70R 
003200R 
005100R 
00331 6R 
000621 
005106R 
104412 
000054R 
GC?100R 
005066R 
005102R 
)5016R 
)5026R 
)20 


)2R 


C6 


MONBLK 

MONCVT 

025  MONLEN 

MONPTR 

MONSFT 

MONTYP 

MONVAL 

025  M.ABS  = 

025  M.Ba  = 

025  M.BXAV= 

M.BXCR= 

M.BXCT= 

M.BXEX= 

M.BXFX= 

M.BXIO= 

M.BXLC= 

M.BXNC^ 

M.BXNL= 

M.BXPP= 

M.BXPW= 

025  M.BXRL= 

025  M.BXTS= 

025  M.BXyA^ 

025  M.CEJ  = 

025  M.CHT  = 

025  M.CMV  = 

025  M.D0UT= 

025  M.DQAD> 

025  M.ENCD= 

025  M.EXE  = 

025  M.EXP  = 

025  M.FACTs 

M.FIL  = 

025  M.FLR  = 

M.FMT  = 

Qc3  M.CDUP"- 

025  M.GDUN= 

025  M.GET1= 

025  M.IBM  = 

025  M.IDN  = 

025  M.JNSP= 

M.10TA= 

M.LIT  = 

025  M.LN  = 

M.MMD  = 

025  M.NE6  = 

025  M.NOT  = 

025  M.NUB  = 

025  M.Nl^  :: 

M.OUTR- 

M.PITM= 

M.PRDS= 

M.OQAD^ 

M.O«JAD= 

M.RAND= 

M.RAVL= 

M.9CJP= 


003i20R 

003132R 

003130R 

0031 22R 

0031 26R 

0031 24R 

0031 34R 

000000 

000200 

000007 

000007 

000007 

000007 

000007 

000007 

000003 

000007 

000007 

000007 

000007 

000007 

000007 

000007 

1 77777 

000202 

0^^0206 

wvXXX)6 

000006 

000004 

000000 

000001 

000001 

000177 

}77777 

000004 

000003 

000003 

000006 

000003 

000000 

000006 


)205 
000001 
000010 


025 
025 
025 
025 
025 
025 
025 


M.RDCT= 

M.REVS= 

M.ROLL= 

M.SATA= 

M.SCAN= 

M.SHAP= 

M.SIGN= 

M.SUBR= 

M.SVM  = 

M.SYN  = 

M.TRAN= 

M.$ABS= 

M.$CEI= 

M.$FLR= 

M.SIDN= 

M.$NEG= 

M.SSIG^ 

M.1RDT= 

M.1REV= 

M.1SCN= 

NAMBUF 

NB.DEV= 

NB.DIR= 

NB.NAM:^ 

NB.SDU 

NB.SD2= 

NB.STPr 
NB.SVR= 
NB.TYP= 
NB.VER^ 
ND.DEV= 
ND.EXT= 
ND.NAMr 

ND. PPN= 
ND.SEXr 

ND.SES^ 

ND.I^i^ 

ND.SNS^ 

ND.$PN= 

NEGSGN 

NINPT1 

N1NPT2 

NINSTK 

NINTMP 

NINTYP 

NOTAVL= 
NOTOPN= 

nprt: 

NLMC^INr 

NlMDFL 

NIMEFL 

NLMSN 

NUMFLG 

.NIM.EN 

NUMNEG 


000011 
000003 
000000 
000001 
000011 
000000 
000000 
000001 
000203 
000201 
000012 
000000 
000000 
000000 
000000 
000000 
000000 
000011 
000003 
000011 
003240R 
000200 
000100 
000004 
000400 
001000 
000040 
000020 
000010 
000002 
000001 
000200 
000002 
000004 
000100 
000000 
000020 
000000 
000040 
001400 
005063R 
003302R 
003300R 
003304R 
003310R 
003306R 
104472 
104473 
762R 
>7364R 

00523QR 
00323^ 

003230R 
000062R 
003^52R 


025 


025 
025 
025 
025 
025 
025 


025 
025 

025 
025 
025 
025 
025 
025 
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NLMQFL 

00323AR 

025 

RANDY 

003062R 

025 

R.OFF  = 

000000 

SY.CLR=  000040        1 

r.NIL  =  000004 

roftiG 

003231 R 

025 

RANERR^ 

104411 

R.PREV= 

000004 

SY.ERP=  000020        1 

r.NLfl  =  002000 

NJ%ilD 

003226R 

025  RARGBL 

003204R 

025 

R.PTR  = 

000000 

SY.NOU=  000100        1 

r.OPFN=  000001 

NJMfl 

003235R 

025 

RARGCV 

003220R 

025 

R.SEO  = 

000003 

SY.aPN=  000002        1 

r.OTHRr  040000 

NYIERR= 

104A32 

RARGFL 

003202R 

025 

R.VAR  = 

000002 

SY.PMT=  001000        1 

r.sop  =  000002 

N.BLSZ= 

000036 

RARaE 

00321 6R 

025 

R6 

X000006 

SY.SRT=  000400        1 

r.sPOP=  000040 

N.DESC= 

000020 

RARGLN 

00321  OR 

025 

R7 

X000007 

SY.SVC=  000C04        1 

r.TMP  =  000200 

N.DEV  = 

000032 

RARGPT 

003206R 

025 

SI 

X000005 

SY.SVL=  000200        1 

r.VAL  =  100000 

N.D€VN=  00003A 

RARGSF 

00321 4R 

025 

SIDAMN= 

104435 

S.AB  =  177776        1 

r.VAR  =  001000 

N.DID  = 

000024 

RARGTY 

00321 2R 

025 

SIFRAM 

00331 4R 

025 

S.ASB  =  100000        UPPER  =  177400 

N.DVM^  000032 

RARGVA 

003222R 

025 

SISIAK 

006350R 

025 

S.BFHD=  000020        UTNAME  000344RG 

023 

N.EXT  = 

000014 

RBASE 

C05074R 

025 

SITOP 

006346R 

025 

S.BITS=  000002        VALERR=  104413 

N.FID  = 

000000 

RCOUNR 

0051 12R 

025 

SITP 

0071 44R 

025 

S.CHR1=  000003        VARBLE  007400R 

025 

N.FNA^  000006 

RCOUNT 

005110R 

025 

SiyARN=  000200 

S.F.JT=  000016        VARBLS  OOOOOOR 

025 

N.FTYP= 

000014 

REDCNT 

005070R 

025 

SIZTAB 

000044R 

025 

S.FD6  =  000140        VERNLfl  OOOOOOR 

025 

N.FVER= 

000016 

REDIGN 

005066P 

025 

SIZ$$  = 

000002 

S.FLB  =  040000        VRSION=  000002 

N.N^WE— 

000006 

REDOFF 

005072R 

025 

SI.8IT= 

1 7777^ 

S.FNA^.-  000006         WIDTH   000072R 

025 

N.NEXT= 

000022 

REENTR 

003060R 

025 

SI.LEN= 

1 77772 

S.FNB  =  000036        yROUND  000020R 

025 

N.F*r*N  = 

000024 

RESBIT 

0031 42R 

025 

SI.RET= 

1 77772 

S.FMJW=  000017        WSDATE  0001 36R 

025 

N.STAT= 

000020 

RESCVT 

0031 52R 

025 

SI.VAL= 

1 77776 

S.FNTY=  000004         ySFULL=  104403 

N.UNIT= 

000034 

RESERR= 

104440 

SKPSIZ 

005134R 

025 

S.FTYP=  000002        WSNAME  000074R 

025 

QBUFLN=  001000 

RESLEN 

0031 50R 

025 

sPHar 

000004RG 

024 

S.LEN  =  000002        WSTIME  000132R 

025 

OCHAN 

005052R 

025 

RESPTR 

0031 40R 

025 

SPINIT 

000002RG 

024 

S.LINK=  177?74        $EIS  --  000000 

OCHAR  = 

***«•*  GX 

RESSFT 

0031 46R 

025 

STKINC= 

000774 

S.NFEN=  000020        $FIS  =  000000  6 

onooE 

000402RG 

023  RESTYP 

0031 44R 

025 

STOP  = 

104420 

S.TYPE=  140000        %fPP     =  000000  G 

OPT«F»0 

005066R 

025 

RESULT 

0031 36R 

025 

SUBCNT 

0031 04R 

025 

S.VAL  =  000000        %fPPLH=   000004  G 

0PTHP1 

005070R 

025 

RESVAL 

0031 54R 

025 

SUBDCT 

0031 06R 

025 

TKDIMS  005072R     025  1 

JMACHN=  000106  G 

0PT«P2 

005072R 

025 

RINC 

005104R 

025 

SUBPTR 

00311  OR 

025 

TKFRAM  005066R     025  SRSTS  =  000000  G 

C3PT«P3 

005074R 

025  RLTBAS 

005066R 

025 

SYMB1 

005344R 

025 

TKLEFT  005070R     025  SRSX  =  000115  G 

CPV^P^ 

005076R 

025  ROT INC 

005070R 

025 

SYMF 

005340R 

025 

TMODE   000403RG    023  SRT11  =  000000  G 

0PT«F>5 

005100R 

025 

ROUND 

000010R 

025 

SYMPT1 

005346R 

025 

TMPTA6=  000166        S$    =  000001 

0PT«F»6 

005102R 

025  ROVER 

00331 2R 

025 

SYMTAB 

005352R 

025 

TTYBUf  004140R     025  . 

.BOOLE=  000002 

0PT«P7 

005104R 

025  RSTS  = 

000000 

SYMT8f  = 

104404 

TTYLEN=  000622 

.CHARA=  000000 

0PT«F»8 

005106R 

025 

RSX   = 

000115 

SYMTOP 

005350R 

025 

TURKEY=  104436 

.DEF.  =  000002 

0PT«F>9 

00511 OR 

025  RTOP 

005070R 

025 

SVMTP 

006272R 

025 

TYPE  =  000166 

.FL0AT=  000006 

CJPtmO 

0051 12R 

025  RT11  = 

000000 

SYMyRN= 

000054 

T.Ba  =  020000 

.FSRCB=  •*♦**♦  G 

OPTHIA 

005026R 

025  R.81TS= 

000003 

SYNERR= 

104407 

T.CON  =  004000 

INTEG=  000004 

ORIGIN 

000030R 

025 

R.FIX  = 

000001 

SYSFRR= 

104402 

T.OIM  =  000100 

.MOLUN  000404RG 

023 

OUTPTR 

000066R 

025 

R.LCr  = 

000002 

SrSiAT 

OOOOOORG 

024 

T.FUN  =  010000 

...QBL=  000000 

OS/ROPR= 

000000 

R.LN  = 

000002 

SY.aAD= 

000001 

T.LIST=  000400 

...PC1=  002676R 

025 

PATCH 

007344R 

025 

R.LNLW= 

000010 

Sy.8RK= 

100000 

T.LIT  =  000020 

..PC2=  003036R 

025 

PRECSN 

000052R 

025 

R.NEXT= 

000006 

SY.BS  = 

000010 

T.MON  =  000010 

..TPC=  000020 

RAM)AC 

003064R 

025 

.  ABS. 

000000 

000 
001 

000000 

TABLES 

000000 

002 

nONTB 

000000 

003 

OYDTB 

000000 

004 

BnPTB 

000000 

005 

noNBrB 

DYDBTB 

0000§8 

007 

COHTB 
CNR TBI 

000008 

010 
Oil 

013 

VTBL 

000000 

ASCTBL 

000000 

OVRTBL 

000000 

OH 
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TRNTBL 

000000 

015 

MNTBL 

000000 

016 

WNTRTL 

000000 

017 

CODE 

000000 

020 

PATCH 

000000 

021 

SSFSR1 

000000 

022 

DEFSO 

000406 

023 

DEFSI 

000006 

024 

DEF$2 

007400 

025 

ERRORS 
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FPPLEN 

=  4 

DEBUG 

=  0 

— r"5 
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.•SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 
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.TITLE  APLEM 
.IDENT  \V02.03\ 

.S8TTL  ISETUP 


L     6 


SET  UP  FJJR  FAKE  REG  INTRSUCTJONS 


FUNCTIONAL  DESCRIPTION: 

SETS  UP  FOR  SUCH  SIMULATIONS  AS  XOR,  MUL,  DIV,  ASH,  AND  ASHC. 
THIS  IS  CALLED  BY  THE  SEPARATE  SIMULATION  ROUTINES  TO  SET  UP 
POINTERS  AND  SAVE  REGISTERS  AND  EXIT.  WHEN  CALLED  THE  SP  STACK 
LOOKS  LIKE: 


*  SOURCE  VALUE  ♦ 

♦  REG  #  ♦ 
»    RETURN  ♦ 

•  RETURN  ♦ 


VALUE  OF  LEFT  ARG  IN  THE  INSTRUCTION 

REGISTER  .0  USE  (MINUS  IF  ONLY  1  REGISTER 

ELSE  USES  'R*  AND  'R  OR  D 

RETURN  POINTER  TO  CALLING  'INSTRUCTION* 

RETURN  POINTER  TO  SIMULATION  ROUTINE 


THIS  ROUTINE  SETS  ALL  FLAGS  TO  ZERO  FOR  INDIVIDUAL  ROUTINES  TO  SET 
WHEN  NEEDED. 


• 
• 


INPUTS: 
R1 
R2 
R3 


SOURCE  VALUE 
REGISTER  VALUE 
(REGISTER  OR  1)  VALUE 


;  VARIABLES  FOR  XOR,  MUL,  DIV,  ASH,  ASHC  SIMULATOR 
.PSECT  EMULAT,  Rw,  D,  LCL 


I FLAGS: 

IREGO: 

IREG1: 

IRETRN: 

I  REG: 

I  SRC: 

IRETR1: 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

IC=01 
IV=02 
1/^04 
IN^IO 


0 
0 
0 
0 


CONDITION  BITS 
POINTER  TO  FIRST  REG 
POINTER  TO  (REG  OR  1) 
POINTER  TO  ROUTINE  TO  USE 
REGISTER  NUMBER  BEING  USED 
SOURCE  VALUE 
RETURN  POINTER 

CONDITION  CODE  DEFINITIONS 
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56  000000 
57 

58  000000 

59  000004 

60  000024 

61  000036 

62  000042 

63  000046 

64  000050 
65 

66  000052 

67  000054 

68  000056 

69  000060 

70  000064 

71  000070 

72  000072 

73  000074 

74  000100 
75 
76 
77 
78 
79 
80 

81  000114 

82  000120 

83  000124 
8/»  000130 
85  000132 
86 

87  000136 

88  000150 

89  000160 


.PSECT  CODE 


005037  000000* 


ISETUP: 


000102 
000104 
000106 
000110 


01 3701 
013704 
006304 
100414 

01040C 
06W>04 
011402 
010437 
052700 
060600 
011003 
010037 
000405 

005404 
060604 
011402 
010437 


010277 
105737 

100402 
010377 


000002 


000012' 
000010* 


000002* 
000002 


000004* 


1$: 


000002 • 


000002 • 
000010* 

000004* 


2$: 


3$ 


CLR 

POP 

PUSH 

MOV 

MOV 

ASL 

BMI 

MOV 
ADD 
MOV 
MOV 
BIS 
ADD 
MOV 
MOV 
BR 

MEG 
ADD 
MOV 
MOV 

CALL 

MOV 

TST8 

BMI 

MOV 

POP 

PUSH 

RTI 


IFLAGS         ;ZERO  CONDITIONAL  FLAGS 

<IRETRN,IRETR1.IREGJSRC>;GET  SOME  STUFF  OFF  THE  STACK 

<R4,R3,R2,R1,R0>;AND  SAVE  SOME  REGISTERS  ON  IT 

ISRCRI        ;GET  SOURCE  VALUE 

IREG,R4        ;GET  REGISTER  TO  USE 

R4  ;WORD  OFFSET  ON  STACK 

IS  ;ONLY  ONE  REGISTER  U   NEGATIVE 


R4,R0 

SP,R4 

(R4),R2 

R4JREG0 

#2,R0 

SP,RO 

(R0),R3 

ROJREGI 

m 

SP,R4 

(R4),R2 

R4,IREG0 

ilRETRN 
R2,dIREG0 
IREG 
3$ 

R3,aiREG1 


COPY  REG  # 

POINT  TO  REG  VALUE 

GET  REG  VAlUE 

SAVE  POINTER 

REGISTER  OR  1 

POINT  TO  IT 

AND  GET  IT 

SAVE  POINTER  FOR  LATER 

DO   INDIVIDUAL  ROUTINE 

MAKE  POSITIVE 
POINT  TO  REGISTER 
GET  REG  VALUE 
SAVE  POINTER 

DO  ROUTINE 

SAVE   1   REG 

1   OR  2  REGS? 

ONLY   1! 

OR  ONE    IF   ODD  REGISTER 


<R0,R1,R2,R3,R4>;RESTORE   REGISTERS 
<IFLAGS,IRETR1>   ;SE*   FOR  RTI    TYPE   RETURN 

;SET   PROPER  CONDITION  CODES 
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91 

92 

93  000162 

9A 

95  000162 

96  000166  010200 

97  000170  050102 

98  000172  005101 
'9  000174  040100 

100  000176  040002 

101  000200  000463 
102 

103 

104 

105  000202 

10^  000206  010204 

107  000210  005701 

108  000212  001430 

109  000214  100004 
110 

111  000216  006202 

112  000220  005201 

113  000222  001375 

114  000224  000423 
115 

116  000226  006302 

117  000230  005301 

118  000232  001375 

119  000234  000417 


.seriL 

IXOP 

.PSECT 

CODE 

I XUH  r I 

CALL 

ISETUP 

MOV 

P2,P0 

BIS 

P1,P2 

COM 

PI 

BIC 

P1,P0 

BIC 

P0,R2 

BP 

INZBIT 

.S8TTL 

I  ASH 

lASH;; 

CALL 

ISETUP 

hOV 

P2,P4 

TST 

PI 

BEO 

lASHX 

BPL 

2$ 

1$: 

ASP 

P2 

INC 

PI 

BNE 

1$ 

BP 

lASHX 

21: 

a<;l 

R2 

DEC 

PI 

BNE 

2$ 

BP 

lASHX 

TTT 


•XOR*  SIMULATOR 


SET  UP  VALUES 

COPY  SOURCE 

OP  SOPCE  AND  REGISTER 

LOGICAL  NOT  ON  REGISTER 

CLEAR  A  FEW  BITS 

AND  A  fEU   MORE 

AND  ZAPPO,   WE'RE   DONE 


•ASH'    SIMULATOR 


SET  UP  VALUES 

SAVE  REGISTER  VALUE 

WHICH  WAY? 

NIEfHER!  DONE  KEAL  FAST 

LEFT' 

SHIFT  ONCE 

DONE  YET? 

NOPE 

YES,  SET  CONDITION  CODES 

LEFT  ONCE 

DONE  VET? 

NOPE 

YES,  SET  CONDillON  CODES 
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B  7 

lASHC 

' ASHC • 

SIMULATOR 

121 
122 
123  000236 

.S8TTL 

I  ASHC 

•ASHC*  SIMULATOR 

.PSECT 

CODE 

124 

125  000236 

lASHC;: 

CALL 

I SETUP 

;SET  UP  SOME  VALUES 

126  000242 

010204 

MOV 

R2,R4 

;SAVE  REGISTER  VALUE 

127  000244 

005701 

TST 

R1 

;WHICH  UAY? 

128  000246 

001412 

BEQ 

lASHX 

.-NEITHER!  DONE 

129  000250 

130 

131  000252 

100005 

BPL 

2$ 

;G0  cEFT  YOUNG  MAN 

006202 

1$: 

ASR 

H 

;SHIFT  HIGH  RIGHT 

132  000254 

006003 

ROR 

H 

; SHIFT  LOW  RIGHi  WITH  CARRY 

133  000256 

005201 

INC 

wn 

;DOWE? 

134  000260 

001374 

BNE 

1$ 

;N0 

135  000262 

136 

137  000264 

000404 

BR 

lASHX 

;YUP,  WH  IS,  SHO  'NUFF 

006303 

2$: 

ASL 

M 

;SHIFT  LOW  LEFT 

138  000266 

006102 

ROL 

0 

iSHIFT  HIGH  LEFT  WITH  CARRY 

139  000270 

005301 

DEC 

£ 

;DUNE  YET? 

140  000272 

HI 

142 

143 

144  000274 

001374 

BNE 

;N0  WAY 

;SET  'C 

•  At40   'V 

•  BITS  FOR  ' 

ASHC  AND  'ASH* 

103003 

lASHX; 

BCC 

ti 

;CHECK  *C*  BIT 

145  000276 

052737 

000001  000000' 

BIS 

#IC,IFLAGS 

;SET  'C*  U   CARRY  SET 

146  000304 

010400 

1$: 

MOV 

R4,R0 

;CHECK  *V* 

147  000306 

010201 

MOV 

R2,R1 

;XOR  SIGNS  OF  ORIGINAL  REG  AND  RESULT 

148  000310 

050104 

BIS 

R1,R4 

;U  NO  ASH  THEN  NO  XOR  SO  DO  IT  THE 

149  000312 

005101 

COM 

R1 

LONG  WAY. 

150  0003H 

040100 

BIC 

R1,R0 

[DRAWN  OUT  AND  BORING 

151  000316 

040004 

i^IC 

R0,R4 

ISIMILAR  TO  THE  'XOR*  ROUTINi" 

152  000320 

15^  000322 

154 

155 

156 

157  000330 

100003 

tPL 

INZBI2 

;NOT  SET  IF  SAME  SIGN 

052737 

000002  000000 • 

BIS 

#IV,IFLAGS 

•SIGN  CHANGE,  SET  'V 

;SET  'N 

•  ^w   'z 

*  ACCORDING 

TO  R2  AND  R3 

005703 

lHiBl2: 

TST 

n3 

;LOW  ZERO? 

158  0OCJ".2 

001013 

BNE 

INZOIl 

-NO 

159  000334 

005702 

TST 

R2 

•HIGH  ZERO? 

160  000336 

001011 

BNE 

INZBIl 

•NO 

161  000340 

052737 

000004  000000* 

BIS 

#IZ, IFLAGS 

■SET  'Z*  BIT 

162  000346 

163 

164 

165 

166  000350 

000405 

BR 

INZBIl 

CHECK  ON  'N*  BIT 

;SET  'N 

•  AND  *I 

'  ACCORDING 

TO  R2 

005702 
001003 
052737 

IN/BJT; 

TST 

K2 

;R2  ZERO? 

167  000352 

BNE 

I.^ZBII 

NO 

168  000354 

169 

170  000362 

000004  000000* 

BIS 

#JZ,1FLAGS 

t 

• 

YES,  SET  'Z* 

005702 
100003 
052.i7 

IN7B11- 

TST 

n 

#IN, 'FLAGS 

;NE GATIVE? 

171  000364 

172  000366 

174  000374 

000010  ooooou* 

BPL 
6JS 

9 
t 

NO 

YES,  SHOW  WE*RF  NEa^TIVE 

11: 

RfTuRN 

.•DONE.'!' 

♦-• 
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IMUL 

•MUL'  SIMULATOR 

176 

177 

178  000376 

179 

180  000376 

181  OOOAOi? 

005701 

182  OOOAOA 

100002 

183  000A06 

005401 

18A  000410 

005'.C2 

185  000412 

010200 

186  0004U 

020001 

187  000416 

101402 

188  000420 

010100 

189  000422 

010201 

190  000424 

005002 

191  000426 

005003 

192  000430 

005004 

193  000432 

005701 

194  000434 

100001 

195  000436 

005104 

196 

197 

198 

199  000440 

006200 

200  000442 

103414 

201  000444 

001016 

202 

203  000446 

005702 

204  000450 

100006 

205  000452 

005703 

206  000454 

100403 

207  000456 

052737  000001  0( 

208  000464 

000721 

209  000466 

005703 

210  000470 

100772 

211  000472 

000774 

212 

213  000474 

060103 

214  000476 

005502 

215  000500 

060402 

216  000502 

006301 

217  000504 

006104 

218  000506 

00075a 

02  PAGE  48 


.S8TTL   IMUL 


TT 


•MUL*  SIMULATOR 


.PSECT  CODE 


IMUL:: 


1$: 


2$; 


CALL 

TST 

BPL 

NEG 

NEG 

MOV 

CMP 

BLOS 

MOV 

MOV 

CLR 

CLR 

CLR 

TST 

BPL 

COM 


I  SETUP 

R1 

1$ 

R1 

R2 

R2,R0 

R0,R1 

2$ 

R1.R0 

R2,R1 

R2 

R3 

R4 

R1 

3$ 

R4 


STUFF  PREPARED  FOR  US 
SOURCE? 


IS  POSITIVE 


GET  SOME 

POSITIVE 

YES 

MAKE  S;iRE  AT  LEAST  ONE 

PRESERVE  RESULT  SIGN 

COPY  REG  VALUE 

IS  SOURCE  LOWER? 

NO 

LOWEST  IN  PO 

HIGHEST   IN  f71 

CLEAR  RESULT 

DOUBLE  PRECISION  RESULT 

MAKE  R4  HIGH  PART  OF  R1 

WHAT  SIGN  FOR  SIGN  EXTENSION 

POSITIVE,  LEAVE  ZERO 

EXTEND  SIGN  NOT  ON  THIS  MACHINE 


;LOOP  AND  MULTIPLY  BY  SHIFTS  AND  ADDS 


3S: 


000000'  4S 
5$ 
6$ 


7$; 
8S; 


ASR  RO 

BCS  7$ 

BNE  8$ 

TST  R2 

BPL  6$ 

TST  R3 

BMI  5$ 

BIS  #ICJFLAGS 

BR  INZBI2 

TST  R3 

BMI  4$ 

BR  5% 

ADD  R1,R3 

ADC  R2 

ADD  R4,R2 

ASL  R1 

ROL  R4 

BR  3$ 


SHIFT  MULTIPLIER  RIGHT 
ADD  THIS  TIME 
NO  ADD 

SET  C-8IT,  IF  SIGNS  OF  HIGH  HALF 

AND  LOW  HALF 

DON'T  MATCH 
THEY  DO) 

SET    'C   FOR  MORE   THEN   ^-2*15 
GO  TAKE   CARE   OF    'Z'   AND    'N'   BITS 
IS  LOW  HALF   NEGATIVE? 
YES 
NO 

ADD  TO  RESULT 

DON'T  FORGET  OVERFLOW  OF   ADD 

WE'RE   DOING  DOUBLE   PRECISION 

SHIFT  ONE  MORE   LEFT 

DOUBLE   PRECISION 

GO  DO   IT   AGAIN  SAM 
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D  r 

IDIV 

•DIV  SIMULATOR 

220 
221 
222  000510 

.S8TTL 

IDIV 

'DIV  SIMULATOR 

.PSECT 

CODE 

223 

224  000510 

JDIV:: 

CALL 

ISETUP 

; SET  UP  SOME  VALUES 

225  000514 

005000 

CLR 

RU 

;USE  CR0:R1]  AS  A  DOUBLE  REGISTER 

226  000516 

005004 

CLR 

R4 

;ZERO  QUOTIENT 

227  000520 

PUSH 

R2 

;SAVE  SIGN  OF  DIVIDEND 

228  000522 

005701 

TST 

R1 

;DIVIS0R  NEGATIVE? 

229  000524 

001467 

BEQ 

IIS 

•MOMMY!  HELP!  DIVISION  BY  ZERO!! 

230  000526 

100004 

B^L 

2$ 

•NOPE 

231  000530 

005401 

NEG 

R1 

;MAKE  POSITIVE 

232  000532 

005403 

NEG 

R3 

INEGATE  DIVIDEND  TOO 

233  000534 

005502 

ADC 

n2 

;DOUBLE  PRECISION  NEGATE 

234  000536 

005402 

NEG 

R2 

;A  REAL  PAIN 

235  000540 

010137 

000012' 

2$: 

MOV 

R(,ISRC 

;REPLACE  POSITIVE  SOURCE 

236  000544 

PUSH 

R2 

;SAVE  SIGN  OF  RESULT 

237  000546 

100003 

BPL 

3$ 

\IS   DIVIDEND  NOW  POSITIVE 

238  000550 

005403 

NEG 

R3 

;N0,  MAKE  POSITIVE 

239  000552 

005502 

ADC 

R2 

iDOUBLE  PRECISION  NEGATE 

240  000554 

05402 

NEG 

R2 

;REAL  TRICKY  NEGATE 

241  000556 

c 06301 

3$: 

ASL 

R1 

;LEFT  JUSTIFY  SOURCE 

242  000560 

1^376 

BPL 

3$ 

; THERE  YET? 

243  000562 

244 

245 

006001 

ROR 

R1 

;VES!  MOVE  BACK  RIGHT  ONE 

;D0  THE 

GPUNGY 

DIVISION 

246 

247  000564 

160003 

4$: 

Slfl 

R0,R3 

;TAKE  DIVISOR  FROM  DIVIDEND 

248  000566 

005602 

SBC 

R2 

; DOUBLE  PRECISION  SUBTRACT 

249  000570 

160102 

SUB 

R1,R2 

;DID  WE  TAKE  OFF  TOO  MUCH? 

250  000572 

100004 

BPL 

5$ 

;NOPE 

251  000574 

060003 

ADD 

R0,R3 

;PUT  IT  BACK  ON 

252  000576 

005502 

ADC 

R2 

;ALL  OF  IT 

253  000600 

060102 

ADD 

R1,R2 

;THE  WHaE  DOUBLE  PRECISION  REG 

254  000602 

255 

256  000604 

000401 

BR 

6$ 

ISHIFT  DIVISOR  RIGHT  1 

005204 

5$: 

INC 

R4 

;SET  BIT  IN  QUOTIENT 

257  000606 

006201 

6$: 

ASR 

R1 

;SHIFT  DIVISOR  RIGHT 

258  000610 

006000 

ROR 

RO 

iDOUBLE  PRECISION  RIGHT 

259  000612 

005701 

TST 

R1 

;HIGH  NON-ZERO? 

260  000614 

001003 

BNE 

12$ 

;YES.  NOT  DONE  YET! 

261  000616 

020037 

000012' 

CMP 

RO.ISRC 

;DONE  YET 

262  000622 

263  000624 

103413 

BLO 

7$ 

;YES 

006304 

12$: 

ASL 

R4 

'BkTP   QUOTIENT 

264  000626 

265  000650 

100356 

BPL 

4$ 

;GOOD  IF  NO  OVERFLOW 

017702 

000002' 

8$: 

MOV 

aiREG0,R2 

lOVERFLOW,  RESTORE  REGISTERS 

266  000634 

017703 

000004' 

MOV 

dIREGl,R3 

;BOTH  OF  THEM 

267  000640 

052737 

000002  000000' 

BIS 

#IVJFLAGS 

lOVERFLOW  FLAG! 

268  000646 

022626 

CMP 

(SP)*, (SP)* 

: Clean  stack 

269  000650 

RETURN 

270 

271 

;FINJSH  UP  DIVISION 

272 

271   000652 

005702 

7%i 

TST 

R2 

;REMAINDER  TOO  BIG?? 

274  000654 

001565 

BNE 

8$ 

;YES:  BAD! 

275  000656 

005703 

TST 

R3 

;ONLY  A  LITTLE  TOO  BIG? 

276  000660 

100763 

BMI 

8$ 

;YAS!  HA-HA 

APLEM   WACRO  Mil  13  08-FEB-80  09:0;^ 
IDIV  'DIV  SIMULATOR 


PAGE  49-1 


TT 


277  000662  005726 

278  000664  100001 

279  000666  005404 

280  000670  005726  9%: 

281  000672  100001 

282  000674  005403 

283  000676  010402  10$: 

284  000700  000137  000350' 
285 

286  ;DJVIDE 

287 

288  000704  005726  US: 

289  000706  052737  000003  000000' 

290  000714 
291 


TST 

(SP)^ 

BPL 

9$ 

NEG 

R4 

TST 

(SP)> 

BPL 

10$ 

NEG 

R3 

MOV 

R4,R2 

JMP 

INZBIT 

&v  ZERO 

ERROR!  HE  DID  A  ^ 

TST 

(SP)  + 

BIS 

#IVIIC,ULAGS 

RETURN 

SHOULD  QUOTIENT  BE  NEGATIVE? 

NO 

NEGATE  QUOTIENT 

AND  WHAT  ABOUT  THE  SIGN  OF  REMAINDER? 

LEAVE  POSITIVE 

NEGATE  IT  PLEASE 

MOVE  QUOTIENT  TO  PROPER  PLACE 

CHECK  ON  'Z'  AND  'N'  BITS 


CLEAN  STACK 

SET  'C  AND  'V  FLAGS 

BACK  TO  COMMON  ROUTINE 
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295 

2% 

297 

298 

299 

301  000016 

306 

307  000016 

308  000016 

309  000020 

310  000030 

311  000032 

312  00003? 

313  OOOO'A 

314  00004A 

315  000046    000000 

316  000050    000016' 

317  000052     000000 

318  000054     000032' 

319  000056 

320  000060 

321  000062 

322  000076 

323  000100 

324  000102 

325  000104 

326  000106 

327  000110 

328  000112 
320  000114 

330  000116 

331  000120 

332  000122 

333  000124 

334  000126 

335  000130 

336  000132 

337  000142 

338  0001*^2 

339  000162 

340  000172 

341  000202 


.S8TTL  FPCODE 


FAKE  THE  HARDWARE  FPP 


;  Variables  for  PDP-11  FPP  Simulator 
.PSECT  EMULAT,  RW,  D,  LCL 


FVALA:   .BLKW 

0 

; VALUE  'A* 

FSGNA:   .BLKW 

;SI6N  OF  A 

FMANA:   .BLKW 

;MANTISSA  OF  A 

FEXPA:   .BLKW 

[EXPONENT  OF  A 

FVALB:   .BLKW 

; VALUE  B 

FSGNB:   .BLKW 

;SIGN  OF  B 

FMANB:   .BLKW 

[MANTISSA  OF  B 

FEXP8:   .BLKW 

[EXPONENT  OF  B 

FSRC 

.WORD 

[SOURCE  POINTER 

.WORD 

FVALA 

FDST 

.WORD 

[DESTINATION  POINTER 

.WORD 

FVALB 

FSTAT;   .BLKW 

',fPP   STATUS  WORD 

F STATS:  .BLKW 

[SAVED  STATUS  WORD 

FTMP 

.BLKW 

O  • 

;fPP*S   TEMP  LOCATIONS 

REGO 

.BLKW 

[SAVED  RO 

REGl 

.BLKW 

[      R1 

REG2 

.BLKW 

[      R2 

REG3 

.BLKW 

;      R3 

REG4 

.BLKW 

[      R4 

REG5 

.BLKW 

;      R5 

REG6 

.BLKW 

[      SP 

REG7 

.BLKW 

[      PC 

FMOV 

.BLKW 

-PSEUDO  MOVE  INSTRUNCTION 

FDES( 

::   .BLKW 

•SRC/DST  DESC  BITS  FOR  OP 

FRTN 

.BLKW 

•RETURN  POINTER  FOR  'FSAVIT'  ROUTINE 

FFLA( 

3$:    .BLKW 

■CONDITION  FLAGS  TO  SET  ON  RETURN 

FSJZl 

::   .QLKW 

•SIZE  OF  ^PP   #'S 

FlSIi 

IE:    .BLKW 

•SIZE  IF  FPP'S  INTEGERS 

FACO 

.BLKW 

FLTLEN/2 

FAC1 

- :   .BLKW 

FLTLEN/2 

FAC2 

.BLKW 

FLTLEN/2 

FAC3. 

.BLKW 

FLTLEN/2 

FAC4 

.BLKW 

FLTLEN/2 

FAC5 

.BLKW 

FLTLEN/2 
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"G^" 


3A3  000716 

345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 

373  000716 

374  000722 

375  000726 

376  000732 

377  000742 

378  000746 

379  000750 

380  000752 

381  000754 

382  000756 

383  000760 

384  000762 

385  000766 

386  000772 

387  001000 

388  001004 

389  001006 
390 

391  001014 

392  001020 

393  001024 

394  001030 

395  001032 

396  001036 

397  00104? 

398  001044 
402  001050 


000001 
000002 
000004 
000010 
000400 
001000 
002000 
004000 
010000 
020000 
100000 


000200 
000100 
000010 
000004 
000002 
000001 


010037 
011637 
062716 

012700 
010120 
010220 
010320 
010420 
010520 
010620 
017705 
010537 
012737 
032705 
001403 
042737 

013704 
162706 
032705 
001430 
012437 
032705 
001411 
013703 
006303 


000114* 
000120' 
000002 

000100* 


000120* 

000120* 

000015  000124* 

100000 

000017  000056* 

000114* 

000020 

000401 

000116* 
000001 

000116* 


ens 

.SRC 

.ISRC 

.FSRC 

.GSRC 

.DST 

.IDST 

.FDST 

.GDST 

.PDST 

.JDST 

.CFLG 

BITS 


.PSECT  CODE 


USED  TO  DESCRIBE  OPERATION  TO  'FSAVIT*  AND  *FDONE*  ROUTINES 


000001 
000002 
000004 
000010 
000400 
001000 
002000 
004000 
010000 
020000 
100000 


SOURCE  POINTER 

INTEGER  SOURCE 

FLOATING  SOURCE 

GET  SOURCE  TO  VALUE  'A* 

DESTINATION  POINTER  (UPPER  BYTE!) 

INTEGER  DESTINATION 

FLOATING  DESTINATION 

GET  DESTINATION  TO  VALUE  'B* 

SAVE  FLOATING  DESTINATION 

SAVE  INTEGER  DESTINATION 

CHECK  FLAGS 


OF  FPP  STATUS  WORD,  *FSTAT' 


FS. D8L 

FS.LNG 

FS.N 

FS.Z 

FS.V 

FS.C 


200  ;DOUBLE  PRECISION 

100  ;LONG  INTEGER 

10  ;N  BIT 

4  ;Z  BIT 

2  ;V  BIT 

1  ;C  BIT 


4 

SAVE 


REGISTERS  AND  GET  SRC/DST 


FSAVIT 


31 


MOV 
MOV 
ADD 
POP 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIT 
BEQ 
BIC 

MOV 
SUB 
BIT 
BEO 
MOV 
BIT 
BEQ 
MOV 
ASL 


R0,REG7 

(SP), FDESC 

#2,(SP) 

<FRTN,REGO> 

#RE61-R0 

R1,(R0)* 

R2,(R0)* 

R3,(R0)^ 

R4,(R0)^ 

R5,(R0)^ 

SP,(RO)* 

aFDESC,R5 

R5.FDESC 

#l5,FFLAGS 

/r..CFLG,R5 

3$ 

#17,FSTAT 


POINTERS/VALUES 


SAVE  IT  AGAIN 


IF  NEEDED 


REG7,R4 
#20, SP 
#..SRC! 
2$ 

(R4)*,FM0V 

#..SRC,R5 

IS 

FM0V,R3 

R3 


DST,R5 


SAVE  POINTER  TO  BITS  DESCRIBING  ARCS 
POINT  TO  RETURN  TO  FPP  ROUTINE 
SAVE  RETURN  POINTER  AND  RO 
POINT  TO  WHERE  TO  SAVE  REGISTERS 
SAVE  R1 
AND  R2 

AND  R3 

AND  R4 

AND  R5 

AND  R6 
GET  BITS  DESCRIBING  ARGS 
SAVE  FLAGS  AGAIN 
SAVE  fPP   CONDITION  FLAGS 
CHECK  FLAGS? 
NO 
CLEAR  FLAGS  TO  START  WITH 

GET  INSTR  PC 

GET  SOME  BREATHING  ROOM  ON  THE  STACK 

ARGS  TO  PROCESS? 

NOPE 

GET   DESCRIPTIVE    'MOV*    INSTR 

DECODE   SOURCE   ARG? 

NO 

GRAB  MOV  INSTR 

SRC  BITS  TO  RIGHT 
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403  001052 

404  001054 

406  001056 

407  001062 
408 

409  001066 

410  001072 

411  001074 

412  001076 

413  001102 

414  001106 


415 
416 
417 
418 

419 


001112 
001116 


006303 
000303 
012702 


032705 
001407 
000305 
013703 
01 2702 


010437 
000177 


000046' 
000400 


000116' 
000052' 


000114' 
000122' 


ASL  R3 

SWAB  R3 

MOV     /lfFSRC,R2 

CALL    FPTR 


1$; 


2$; 


BIT 

BEQ 

SUAB 

MOV 

MOV 

CALL 

MOV 
JMP 


#..DST,R5 

2$ 

R5 

FM0V,R3 

#FDST,R2 

FPTR 

R4,REG7 
SFRTN 


POINT  TO  WHERE  TO  PUT  ARG  INFO 

GET  POINTER  AND  DECODE  If   NECESSARY 

DECODE  DST  BITS? 
NOPE! 

SHIFT  DST  BITS  TO  LOWER  BYTE 
GET  DST  DESC  BITS 
POINTER  TO  WHERE  TO  PUT  ARG  INFO 
;GET  POINTER  AND  ARG  If   NESCESSARY 


;SAVE  NEW  PC 

.•RETURN  TO  CALLING  fPP  ROUTINE 
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A21 
A22 
A23 
A2A  001122 

•DECODE 

POINTER  DESCRIPTION  BITS  AS  IN  'MOV   INSTRUCTION 

010A37 

00011A' 

FPTR: 

MOV 

RA,RE67 

;SAVE  UPDATED  PC 

425  001126 

010301 

MOV 

R3,R1 

;COPY  PTR  BITS 

A26  001130 

0A2701 

1 77770 

BK 

#"C7,R1 

;MASK  TO  REG  BITS 

A27  001 13A 

006301 

ASL 

R1 

.-MULTIPLY  BY  2  FOR  WORDS 

A28  001136 

062701 

000076' 

ADD 

#REG0,R1 

.•POINT  TO  REG  TO  USE 

A29  001 1A2 

006203 

ASR 

R3 

.•SHIFT  MODE  BITS  TO  RIGHT  ♦  2 

A30  001 1AA 

006203 

ASR  R3 

A31  001 1A6 

0A2703 

177761 

BIC 

/r^C16,R3 

.•MASK  TO  MODE  BITS 

A32  001152 

032705 

OOOOOA 

BIT 

#..FSRC,R5 

.•FLOATING  ARG? 

A33  001156 
A3A 

000173 

001162' 

JMP 

aFMTBL(R3) 

;GOTO  PROPER  ROUTINE  FOR  MODE 

A35 

A36  001162 

001202' 

FMTBL: 

FMODEO 

A37  001 16A 

001226' 

FM0DE1 

A38  001166 

001 23A' 

FM0DE2 

A39  001170 

001320' 

FM0DE3 

AAO  001172 

001332' 

FMODEA 

AA1  001 17A 

001372' 

FM0DE5 

AA2  001176 

001 AOA' 

FM0DE6 

AA3  001200 

001 A20' 

FM0DE7 

AAA 

AA5 

AA6  001202 

001A06 

FMODEO: 

BEO 

1$ 

;AC.  NOT  REG 

AA7  001 20A 

162701 

000076* 

SUB 

#REG0,R1 

.-GET  REG  #  ♦  2 

AA8  001210 

006301 

ASL 

R1 

;*A 

AA9  001212 

006301 

^sl 

R'. 

.•♦10 

a50  001 21  a 

A51 

A52  001220 

062701 

000132' 

ADD 

#FArj,Rl 

.•POINT   TO  AC 

010100 

IS: 

MOV 

R1,R0 

;COPY  POINTER 

A53  001222 

005003 

CLR 

R3 

;N0  REG  INC/DEC 

A5A  001 22A 

A55 

A56  001226 

000503 

BR 

FGETIT 

;FIX  UP  POINTER 

011100 

TMODEI 

MOV 

(R1),R0 

.•DEFER  OFF   REG  FOR  PTR 

A57  001230 

005003 

CLR 

R3 

.NO  REG  INC/DEC 

A58  001232 

A59 

A60  001 23A 

000500 

BR 

FGETIT 

;FIX  UP  PTR 

001A17 

FM0DE2: 

BEO 

IS 

;REG.  NOT  AC 

A61  001236 

013703 

000126' 

MOV 

FSIZE, R3 

;GET  FLOATING   INC 

A62  001 2A2 

020127 

00011A' 

CMP 

R1,4fREG7 

.•IMMEDIATE   CONST? 

A63  001 2A6 

001022 

BNE 

3S 

.NO 

A6A  001250 

012703 

000002 

MOV 

4f2,R3 

;INC  ONLY  2  THEN   (SPECIAL    CASE) 

A65  001 25A 

012700 

000072' 

MOV 

4fFTMPO0,R0 

.•POINT   TO  WHERE    TO  FAKE   OUT   ARG 

A66  001260 

0050A0 

CLR 

-(RO) 

;CLR  LS8 

A67  001262 

005OA0 

CLR  -(RO) 

A68  001 26A 

0050AO 

CLR  -(RO) 

A69  001266 

0171A0 

000000 

MOV 

a(R1).-(R0) 

;COPY  MSB  AND  MAKE   POINTER 

A70  001272 
A  71 

A72  00127A 
A73  001300 

0OOA6O 

BR  FGETIT 

032705 

000002 

1$; 

BIT 

#..ISRC,R5 

.•INTEGER  SOURCE? 

001A03 

BEO 

2S 

.NOPE 

A7A  001302 

013703 

000130' 

MOV 

FISIZE,R3 

;GET  CURRENT   INTEGER  SIZE 

A75  001306 
A  76 

0OOA02 

BR  3$ 

A77  001310 

012703 

000002 

2$: 

MOV 

#2,R3 

;GET  WORD  SIZE 
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478 

A79  001 3U 

480  001316 

481 

482  001320 

483  001324 

484  001330 
485 

486  001332 

487  001334 

488  001340 

489  001342 

490  001346 
491 

492  001350 

493  001354 
494 

495  001356 
496 

497  001362 

498  001364 

499  001366 

500  001370 
501 

502  001372 

503  001376 

504  001400 

505  001402 
506 

507  001404 

508  001406 

509  001410 

510  001414 

511  001416 
512 

513  001420 

514  001422 

515  001424 

516  001430 

517  001432 
518 

519  001434 

520  001440 

521  001442 

522  001446 

523  001450 

524  001454 

525  001456 

526  001460 

527  001462 

528  001466 

529  001470 

530  001472 

531  001500 

532  001502 

533  001504 

534  001506 


011100 
000446 

012703 
017100 
000441 

001011 
032705 
001403 
013703 
000405 

012703 
000402 

013703 

005403 
011100 
060300 
000421 

012703 
011100 
014000 
000414 

005003 
012400 
010437 
061100 
000406 

005003 
012400 
010437 
061100 
011000 

010437 

060311 

013704 

010022 

032705 

001425 

011202 

012022 

032705 

001013 

0120 

0327 

001403 

012022 

012022 

000410 


3$: 


MOV  (R1),R0 

BR  FGETJT 


000002 
000000 


000002 
000130' 

000002 

000126' 


FM0DE3;  MOV  #2,R3 

MOV    a(R1),R0 
BR  FGETJT 


;GET  VALUE  OF  REGISTER 


;INC  REG  BY  2 
;REG  IS   PTR  TO  PTR 


1 77776 


000114' 


000114' 

000114' 
000114' 
000010 

000002 

000200  000056' 


FM0DE4: 

BNE 

1$ 

;F-ARG 

BIT 

#..ISRC,R5 

; INTEGER  SOURCE? 

BEQ 

3$ 

;N0 

MOV 

FISIZE,R3 

;GET  INTEGER  SIZE 

BR  2$ 

3$: 

MOV 
BR  2$ 

4f2,R3 

;WORD  SOURCE 

1$: 

MOV 

FSIZE,R3 

;FL0ATIN6  SIZE 

2$; 

NEG 

R3 

;AUT0  DEC  THIS  TIME 

MOV 

(R1),R0 

;GET  POINTER  PAST  ARG 

ADD 

R3,R0 

; POINT  TO  ARG 

BR  FGETJT 

FM0DE5: 

MOV 

#-2,R3 

;DEC  REG  BY  2 

MOV 

(R1),R0 

;GET  PTR  PAST  PTR 

MOV 

-(R0),R0 

;MAKE  PTR  TO  ARG 

BR  FGETJT 

FM0DE6: 

CLR 

R3 

;N0  INC/DEC 

MOV 

(R4)*,R0 

;GET  INDEX  CONST 

MOV 

R4,REG7 

; UPDATE  PC 

ADD 

(R1),R0 

;ADD  IN  REG  VALUE 

BR  FGETJT 

FM0DE7: 

CLR 

R3 

;N0  INC/DEC 

MOV 

(R4)^,R0 

;GET  INDEX  CONST 

MOV 

R4,REG7 
(R1),R0 

; UPDATE  PC 

ADD 

;ADD  REG  VALUE 

MOV 

(RO),RO 

;DEFER  OFF  JTl 

FGETIT: 

MOV 

R4,REG7 

■UPDATE  PC 

ADD 

R3,(R1) 

•INC  REG  (IF  NEEDED) 

MOV 

REG7,R4 

•IN  CASE  PC  CHANGED 

MOV 

R0,(R2)^ 

■SAVE  PTR 

BIT 

f..GSRC,R5 

•GET  FLOATING  ARG? 

BEQ 

2S 

•NO 

MOV 

(R2).R2 

•GET  POINTER  TO  WHERE  TO  PUT 

IT 

MOV  (R0)>,(R2)^ 

BIT 

#..ISRC,R5 

•INTEGER  SOURCE? 

BNE 

3S 

YES 

MOV  (R0)*,(R2)* 

BIT 

#FS.DBL,FSTAT   . 

DOUBLE  PRECJSJON? 

BEO 

1$ 

NOPE 

MOV  (R0)*,(R2)* 

MOV  (R0)*.(R2)^ 

BR  21 
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535 

536  001510 

537  001512 

538  001514 
539 

540  001516 

541  001524 

542  001526 
543 

544  001530 

545 

546 

547 

548 

549 

550 

551 

552  001532 

553  001534 

554  001536 

555  001540 

556  001542 

557  001546 
558 

559  001550 

560  001552 

561  001556 

562  001562 

563  001564 
564 


005022 
005022 
000405 


1$: 


CLR     (R2)> 
CLR  (R2)^ 
BR  2$ 


032737  000100  000056'  3$: 

001401 

012022 

2$: 


BIT 
BEQ 
MOV 

RETURN 


*FS.LNG,FSTAT 

2$ 

(R0)+,(R2)> 


;CLcAR  AMY  EXTRA  GARBAGE 


JUMBO  SIZED  INTEGERS? 

NO 

YES,  COPY  ONE  MORE  WORD 


;8ACK  TO  CALING  ROUTINE  (IE.    FSAVIT) 


SUBROUriNE  TO  SET  FLAGS  IN  FFLAGS  ACCORDING  TO  ARGUMENT 
PASSED  IN  RO. 


005001 
005700 
001003 
052701 
005700 


000004 


FSETFL:  PUSH 
CLR 
TST 
BNE 
BIS 
TST 


100002 

052701  000010 

010137  000124' 


1$: 
2$: 


BPL 
BIS 
MOV 
POP 
RETURN 


R1 

R1 

RO 

1$ 

#FS.Z,R1 

RO 

2$ 

#FS.N,R1 
R1, FFLAGS 
R1 


SAVE  R1 

ASSUME  NO  FLAGS  SET 

IS   RO  ZERO 

NO 

YES,  SE^  THE  ZERO  BIT 

AND  TEST  AGAIN 

NEGATIVE? 

YES' 

SAVE  EXIT  FLAGS 

RESTORE  Rl 

AND  RETURN 
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566  001566 

567  001570 

568  001 57A 

569  001602 

570  001610 
571 

572  001612 

573  001620 
57A  001626 
575 

576  001630 

577  001636 

578  001644 
579 

580  001646 

581  001654 
58?  001662 
583 

584  001664 

585  001672 

586  001700 
587 

588  001702 

589  001702 

590  001706 

591  001710 

592  001714 

593  001720 

594  001724 

595  001726 

596  001732 
597 

598  001734 
599 

600  001740 

601  001744 

602  001746 

603  001752 
604 

605  001754 

606 

607  001760 


016600 
013766 
042766 
000002 

012737 
042737 
000200 

012737 
052737 
000200 

012737 
042737 
000200 

012737 
052737 
000200 


000400 
017700 
010037 
032700 
001003 

000402 


032700 
001003 

000402 


000002 

000056'  000002 
177760  000002 


$CFCC: 


000004  000126'  $SETF: 
000200  000056' 


000010  000126'  $SETD; 
000200  000056' 


000002  000130'  $SETI 
000100  000056' 


000004 
000100 


000130' 
000056' 


SSETL 


SLDFPS 


000052' 
000056' 
000200 


000100 


1$: 
2$; 


000137  004024' 


3$; 

41: 


PUSH 

MOV 

MOV 

BIG 

RTI 

MOV 
BIC 
RTS  RO 

MOV 
BIS 
RTS  RO 

MOV 
BIC 
RTS  RO 

MOV 
BIS 
RTS  RO 


CALL 

MOV 

MOV 

BIT 

BNE 

SETF 

BR  2$ 

SETD 

BIT 
BNE 
SET] 
BR  4$ 

SETL 

JMP 


RO 

2(SP),R0 
FSTAT,2(SP) 
#1 77760,2 (SP) 


#4,FSIZE 
#FS. DBLJSTAT 


#10,FSIZE 
#FS. DBLJSTAT 


#2,FISIZE 
#FS. LN6,FSTAT 


#4,FISIZE 
#FS.LNG,FSTAT 


FSAVIT 

..DST 
aFDST,RO 
RCFSTAT 
#FS.DBL,RO 
1$ 


#FS.LNG,RO 
3$ 


;SAVE  RETURN  POINTER 

;KEST0RE  RO 

;COPy  FLAGS 

;AND  ONLV  FLAGS 

;AND  DO  RETURN  FROM  INTERUPT 

;4  BYTE  FPP  » 
; CLEAR  D  FLAG 


;8  BYTE  FPP  ff 
;SET  D  FLAG 


;2  BYTE  INT  » 
.•CLEAR  L  FLAG 


;4  BYTE  INT  ft 
;SET  L  FLAG 


SAVE   STUFF 

GET   SRC  PTR 
GET  fPP  BITS 
NEW  STAT  BITS 
DOUBLE? 
YES 
FLOATING 


(LOOKS  LIKE   DST) 


.-DOUBLE 

;LONG? 

;YES 

.•SHORT 


.•LONG 


FDONE 
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609 

610  001 764 

611  001764 

612  001770 

613  001772 

614  002000 
615 

616  002004 

617  002004 

618  X2010 

619  002012 

620  002016 

621  002020 

622  002022 

623  002024 

624  002026 
625 

626  002032 

627  002032 

628  002036 

629  002040 
630 

631  002044 

632  002044 

633  002050 

634  002052 

635  002060 

636  002066 
637 

638  002072 

639  002072 

640  002076 

641  002:00 

642  002104 

643  002106 

644  002112 

645  002116 

646  002122 
647 

648  002126 

649  002126 

650  002126 

651  002126 

652  002132 

653  002134 

654  002140 

655  002KA 

656  002146 

657  0021*^0 

658  002152 

659  002154 
660 

661  002160 

662  002160 

663  002164 

664  002166 

665  002172 


$STFPS: 


000400 
01 3777 
000137 


112400 
012700 
005020 
005020 
005020 
005020 
000137 


106400 

•'>oni37 


106400 
042777 
042737 
000137 


106400 
013700 
001406 
062700 
010077 
010037 
000137 


000056*  000052' 
004024 • 


$CLRD: 
SCLRF : 


000032 • 


004024* 


004024 • 


$TSTF: 
STSTD: 


$ABSF ; 
SABSD: 


100000  000052' 
100000  000032' 
004024 • 


000C32 • 

100000 
000052' 
000032' 
004024 ' 


112415 
012700 
012701 
012021 
012021 
012021 

012021 
000157 


116411 
01773/ 


000016' 
000032' 


1$: 

$LDF 
$LDD 
$STF 
$STD 

SlDfl 


CALL         FSAVIT 

..DST 
MOV  FSTAT,aFOST 

JMP  FDONE 


SAVE  STUFF 

GET  DST  PTR 
SAVE  BITS 


CALL    FSAVn 

..DSTI..FDST!  . 
MOV     #FVALB,RO 
CLR     (RO)* 
CLR  (RO)* 
CLR  (R0)> 
CLR  (RO)* 
JMP     FDONE 


.pdst: 


SAVE  STUFF 
.CFIG 
PC  NIT  TO 
CLEAR  IT 


VALUE 
OUT 


6 


CALL    FSAVIT 

..DST1..FDSTI 
JMP     FDONE 


;SAVE  STUFF 
.GDSTI..CFLG 


CALL    FSAVIT         ;SAVE  STUFF 

..DSTI..FDST!..GDSTI..CFLG 
BJC     #100000, aFDST   ;ABS  THE  » 
BIC  /ri 00000, FVALB 
JMP     FDONE 


SNEGF : : 

$NEGD:!-  CALL    FSAVIT 

..DST!..FDST!..GDST! 


MOV 
8E0 
ADD 
MOV 
MUv 
JMP 


FVALB,RO 

1$ 

#1 00000, RO 

RO,aFD:T 

nC^VALB 
FDONE 


SAVE   STUFF 

CFLG 

GET  EXPONENT 

CAN'T  NEGATE   ZERO! 

NEGATE  NUMBER 

PUT  BACK  NEGATIVE   NUm^R 

AND  SAVE   FOP  FLAG  CHECKING 


I  I  I 


004024 • 


CALL  FSAVIT 

..SRC!..FSRC1..GSRC! 

MOV  #FVALA,RO 

MOV  fFVALB,R1 

MOV  (R0)*,(R1)* 

^;v  (R0)*,(R1)* 

MOV  (R0)*,(R1)* 

MOV  (R0)*,(R1)* 

JMP  FDONE 


.DSTI..FDST: 
POINT  TO  SRC 
^INl    TO  DST 
COPY  TO  DST 
COPY  ro  DST 
COPY  10  DST 
COPY  TO  DST 


.PDST!. .CFLG 


Side  MP; 


000046'  000044' 


CALL         FSAVIT 

..SRC!..GSRC!..DST 
CALL  fSETB 

MUV  iFSRC.FEXPS 


.FDST!..GDST'.. PDST!. .CFLG 
.-UNPACK   DST   t 
;GET  EXP 
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666  002200 

667  0O220A 
668 

669  002210 

670  002214 

671  002216 

672  002222 

673  002226 

674  002232 

675  002236 

676  002242 

677  002246 
678 

679  002252 

680  002252 

681  002252 

682  002252 

683  002252 

684  002256 

685  002260 

686  002266 

687  002274 

688  002302 

689  002306 

690  002312 

691  002320 

692  002322 

693  002330 

694  002334 
695 

696  002340 

697  002344 

698  002352 

699  002356 
700 

701  002562 

702  002362 
705  002362 

704  002362 

705  002362 

706  002366 

707  002370 

708  002374 

709  002400 

710  002402 

711  CO2404 

712  002406 
713 

714  002412 

715  002416 

716  002420 

71 7  002422 

718  002424 

719  002426 

720  002450 

721  002452 
7Z2 


000137 
100415 


013700 
010077 


004024 • 


SSTEXP; 


000030* 
000052* 


000137  004024' 


CALL  FPACKP 

JMP  FDONE 

CALL 

PUSH  FVALA 

CALL  FSETA 

MOV  FEXPA,RO 

MOV  RO.aFDST 

CALL  FSETFL 

POP  FVALB 

JMP  FDONE 


FSAVIT 
..GSRC! 


SLDCIF 
SLDCID 
SLDCLF 
SLDCLD 


1^2413 
013737 
013737 
012737 
005037 
005037 
032737 
001407 
012737 


000020*  000022* 

000016*  000020* 

000001  000016* 

000024* 

000026* 

000100  000056* 


000030  000030* 
000137  004024* 

005037  000022* 

012737  000010  000030* 

000137  004024* 


1$: 


$STCFI 
SSTCFL 
SSTCDI 
SSTCDL 


121415 

012^05 
012500 
012501 
012502 
013703 

020327 
002006 
000241 
006000 
006001 
C06002 
005205 
000767 


000020* 

000050* 
000050 


II: 


CALL  FSAVIT 

.. SRC!. .ISRC!.. GSRC 
MOV  FMAM,FMAMA^2 

MOV  FSGNAJMANA 

MOV  #1,FSGNA 

CLR  FMANA^4 

CLR  FMANA<6 
BIT  fFS.LNGJSTAT 

BEQ  1$ 

MOV  #30,FEXPA 
CALL  SSANSJ 

JMP  FDONE 

CLR  FMANA>2 

MOV  #10,FEXPA 

CALL  SSANSy 

JMP  FDONE 


CALL    FSAVIT 

.. SRC!. .FSRCl.. GSRC 


CALL 
MOV 
MOV 

MOV  (R 
MOV  (R 
MOV 


CMP 
BGE 
CLC 
ROR 
ROR 
ROR 
INC 

m 


R1 
R2 


FSETA 
#FMANA,R5 
(R5)^,R0 
♦,R1 

FEXPA,R3 

R3>50 
21 

RO 


R3 

II 


;PACK  BACK  TOGETHER 


DSTL.CFLG 

PUSH  PACKED  SOURCE 

UNPACK  SRC  # 

GET  EXPONENT 

SAVE   IT  AS  RESULT 

AND  SET  FLAGS  FOR  RESULT 

GET  BITS  TO  CHECK 


DST! 

MOVE 

MOVE   ARG  UP  TO 

USE   SIGN  OF    1 

CLE^i?  LOW  PART 


.FDST.'..PDST!..CFLG 
LOW  ORDER  LONG  INTEGER  81 
MANTISSA 


T5 


;LONG 
;N0 


INTEGERS? 


.•CONVERT 
.•FINISH 


ARG  AND  MAKE  POSITIVE 


CLEAR   •3*  WORDS  OF   MANTISSA 

EXP=10 

CREATE   RESULT.  NEGATE   ARG   IF   NEOaivE 

ALL  DONE 


DSTI..IDST!..JDST;..CFLG 

UNPACK  f 

POINT  TO  MANTISSA 

GET  MANTISSA 


;GET  rxP 
DONE? 

rES 

DON'T   LET   A  BIT   FALL    IN 
ROTATE   MANUSSA 


.-COUNT  A  ROTATION 
.•CHECK   AGAIN 
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723  002A3A 
72A  002436 

725  0O24A0 

726  0024A2 

727  002450 

728  002A52 

729  002456 

730  002460 

731  002462 

732  002464 

733  002466 

734  002470 

735  002474 

736  002500 

737  002502 

738  002504 

739  002506 
7/.G  002512 

741  002514 

742  002520 
743 

744  002524 

745  002526 

746  002530 

747  002534 

748  002536 

749  002540 

750  002544 

751  002546 
002552 


003050  2$: 

005700 

001046 

032737  000100  000056* 

001425 

005737  000016' 

002004 

005402 

005501 

103401 

005402 

010137  000032'        4$: 

010237  000034' 

010200 

000300 

050200 

042700 

050100 


4$ 
R2 

R2 


177400 


752 
75^ 
754 

755 


000137  004024' 

005701 

001013 

005737  000016' 

002001 

005402 

010237  000032' 

010200 

0001 37     004024 ' 


3$; 


5$ 


002556 
002564 


756  002572 


052737  000002  000056'  FVSET: 
052737  000002  000124' 
000137  004066' 


BGT 
TST 
BNE 
BIT 
BEQ 
TST 
BGE 
NEG 
ADC 
BCS 
NEG 

nov 

MOV 

MOV 

SUAB 

BIS  R2 

BIC 

BIS 

CALL 

JMP 

TST 
BNE 

TST 

BGE 

NEG 

MOV 

MOV 

CALL 

JMP 

BJS 
BIS 
JMP 


FVSET 

RO 

FVSET 

#FS. LNG,FSTAT 

3$ 

FSGN/s 

4$ 

R2 

R1 


RUFVALB 
,FVALB*2 

R2,R0 

RO 
,R0 

^fUPPER,R0 

RURO 

FSEiFL 

FDONE 

Rl 

FVSET 
FSGNA 
5$ 

'n2 

R2,FVALB 
R2,R0 
FSETFL 
FDONE 

#FS.V,FSTAT 

#FS.V,F?LAGS 

FDONE^ 


OVERFLOW! 

ANY  BITS  LEFT  IH   HIGHEST? 

YES,  OVERFLOW 

LONG  INTEGERS? 

NO' 

POSITIVE  OR  NEGATIVE 

POSITIVE! 

NEGATE  NUMBER 


.SAVE  AS  RESULT 

•PUT   TWO  BYTES   TOGETHER 


SAVE  ONLY  UPPER  BYTE 
PUT  MSB  WITH  IT 
SET  FLAGS 


ONE  WORD? 
NO,   OVERFLOW! 
SIGN  POSITIVE? 
YES 

NEGATE  Nl/«ER 
SAVE  AS  RESULT 
COPY   TO  SET  FLAGS 
SET  FLAGS 


;SET   VV  FLAG 

;AND  RETURNED  FLAGS 
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758  002576 

SLDCFD: 

• 
• 

759  002576 

$LDCDF : 

• 
• 

760  002576 

PUSH 

R1 

SAVE  A  REG 

761  002600 

013701 

000056' 

WOV 

FSTAT,R1 

•GET  STATUS  BITS 

762  00260A 

010137 

000060' 

MOV 

RUFSTATS 

•SAVE  STATUS 

763  002610 

005101 

COM 

R1 

•COMPLEMENT  STATUS  BITS 

764  002612 

042701 

177577 

BIC 

f'^CFS.DBL^RI 

; LEAVE  ONLY  DOUBLE  BIT 

765  002616 

042737 

000200 

000056' 

BIC 

#FS.DBL,FSTAT 

•CLEAR  IT  OUT  OF   STATUS 

766  00262A 

0501 37 

000056' 

BIS 

RI.FSIAT 

•SET/CLEAR  BIT   IN  STATUS    (COMP  OF  BEFORE) 

767  002630 

POP 

R1 

•RESTORE  REG 

768  002632 

CALL 

FSAVIT 

•SAVE   STUFF 

769  002636 

110015 

•   a 

SRC!..FSRCI..GSRC!.. 

.PDST!..CFLG 

770  002640 

012705 

000005 

MOV 

#..SRC!..FSRC,R5. 

•GET  FLAG  BITS  FOR  DST 

rn  002644 

013704 

0001 i4' 

MOV 

REG7,R4 

•GET  PSEUOO  PC 

772  002650 

01 3703 

000116' 

MOV 

FM0V,R3 

•ALSO  DST  BITS 

ffh  002654 

012702 

000052' 

MOV 

#FDST,R2 

;LAST  BUT  NOT  LEAST,   WHERE   TO  PUT   INFO 

771.  002UiO 

013737 

0CO060' 

000056' 

MOV 

FSTATSJSTAT 

iRESTORE  PROPER  STATUS 

n^  002666 

CALL 

FPTR 

;GET  POINTER 

776  002672 

777 

77%  00^676 

000137 

002134' 

JMP 

$LDF1 

;PUT   IN  DST 

SSTCDF: 

• 
• 

rN  002676 

ISTCFD: 

• 
• 

780  002676 

CALL 

FSAVIT 

•SAVE   STUFF 

781  002702 

100015 

•   1 

SRC!..FSRC1..GSRC!. 

.CFLG 

782  002704 

013701 

000056' 

MOV 

FSTAT,R1 

;GET  STATUS  BITS 

783  002710 

010137 

000060' 

. 

MOV 

RKFSTATS 

ISAVE 

784  002714 

010102 

MOV 

R1,R2 

;COPV 

785  002716 

005101 

COM 

R1 

;COM  ALL  BITS 

786  002720 

042701 

177577 

BIC 

f'^CFS.DBL.RI 

; LEAVE  DOUBLE  BIT  ONLV 

787  002724 

042702 

000200 

BIC 

#FS.DBL,R2 

; CLEAR  OUT  OF    COPr 

788  002730 

050102 

BIS 

R1..R2 

;COMP  BIT   IN  COPY 

789  002 /'32 

010137 

0OOOS6' 

MOV 

R1,FSTAT 

SAVE  NEW  STATUS 

790  002736 

012705 

012400 

MOV 

f..DST!..FDST!..P0ST,R5;8ITS  TO  GET  DST  POINTER 

791  002742 

013704 

000114' 

MOV 

REG7..R4 

;GET  PSEUDO  PC 

792  002746 

013703 

000116' 

MOV 

FM0V,R3 

;DST  BITS 

793  OOP752 

012702 

000052' 

MOV 

#FDST,R2 

;WHERE   TO  PUT    INFO 

794  00^756 

CALL 

FPTR 

;GET  POINTER 

795  002762 

012700 

000016' 

MOV 

fFVALA.RO 

;GET  POINTER  TO  VALUE 

796  002766 

013701 

000052' 

MOV 

FDST,Rl 

iPOINTER  TO  WHERE   TO  PUT   STUFF 

797  002772 

011021 

MOV 

(R0),(R1)* 

;COPY   TO  RESULT 

798  00277A 

012037 

000032' 

MOV 

(RO)*,FVA»G 

•COPY  FOR  FLAGS   SETTING 

799  003000 

012021 

MOV 

(RO)^,(Ri)* 

;COPY   TO  RESULT 

800  003002 

032737 

000200 

000056' 

BIT 

fFS.DBL,FSTAT 

•SAVING  DOUBLE? 

801  003010 

001402 

BEO 

1S 

•NO 

802  00301? 

012021 

MOV 

(R0)*,(R1)* 

•COPY  REST 

803  003014 

012021 

MOV 

[R0)S(R1>^ 

804  003016 

013737 

000060' 

000056' 

1$: 

MOV 

FSTATS,FSTAT 

[RESTORE    CORRECT   STATUS 

80S  003024 

000137 

0040^4 • 

JMt> 

FD0M6 

•finis: 
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R07 

808  003030 

SCMPF ; : 

809  003030 

SCMPD : : 

810  003030 

CALL 

FSAVIT 

811  00303A 

106415 

•    a 

SRC1..FSRCI..GSRC!. 

.DST:. .FDST!. .GDST!. .CFLG 

812  003036 

062737 

100000     000032' 

ADD 

#1 00000, FVALB 

.•NEGATE  SECOND  # 

813  00304A 

CALL 

SSADD 

814  003050 

000137 

004024 • 

JMP 

FDONE 

815 

816  003054 

$SUBF : : 

817  003054 

SSUBD:: 

818  003054 

CALL 

FSAVIT 

819  003060 

116415 

•  « 

SRC!..FSRC1..GSRC!. 

.DST ! . . FDST ! . .GDST ! . .PDST ! . .CFLG 

820  003062 

062737 

100000     000016* 

ADD  #1 00000. FVALA 

821  003070 

CALL 

SSADD 

822  003074 

823 

824  003100 

000137 

004024' 

JUP 

FDONE 

SADDF : ; 

825  003100 

$ADDD : : 

826  003100 

CALL 

FSAVIT 

827  003104 

116415 

•  I 

SRC!..FSRC:..GSRC1. 

.DST!.. FDST!.. GDST !..PDST!.. CFLG 

828  003106 

CALL 

SSADD 

829  003112 

830 

831  003116 

000137 

004024 • 

JMP 

fdom: 

SWULF ;  ; 

832  003116 

SWULD :  ; 

833  003116 

CALL 

FSAVIT 

834  003122 

116415 

•    a 

SRCi..FSRCl..GSRC!. 

.DST!.. FDST!.. GDST!.. PDST!.. CFLG 

835  003124 

CALL 

SSMUL 

836  003130 

CALL 

FNORMB 

837  003134 

CALL 

FPACKB 

838  003140 

000137 

004024' 

Jf^ 

FDONE 

839 

840  003144 

$«0DF  :  : 

841  003144 

SMODD :  ; 

842  003144 

CALL 

FSAVIT 

843  003150 

116415 

•  ■ 

SRC. .FSRC!..GSRfl. 

.DST! . .FDST !. .GDST! . .PDST 1 . .CFLG 

844  003152 

CALL 

SS^kJL 

845  003156 

CALL 

FNORW. 

.-NORMALIZE   RES'lT 

846  003162 

012700 

000006 

MOV  #6,R0 

847  003166 

012701 

000016' 

MOV  #FVALA.R1 

848  003172 

012702 

000032' 

MOV  #FVALB.R2 

849  003176 

012221 

1$: 

MOV 

(R2)>,(R1)* 

;COPY  RESULT 

850  003200 

851 

852  003204 

SOB  ROJI 

005002 

CLR 

R2 

;CLEAR  OFFSET   INTO  MANTISSA 

853  003206 

005000 

CLR 

RO 

; CLEAR  COUNT  OF   EXP 

854  003210 

012701 

000200 

MOV 

#200, R1 

;BIT   TO  CLEAR 

855  003214 

856 

857  003220 

013703 

000044' 

MOV 

FEXPB,R3 

;GET  B'S  EXPONENT 

2$: 

858  003220 

020003 

CMP 

R0,R3 

;INTO  FRACTIONAL    PART  OF   #? 

859  003222 

002003 

BGE 

3S 

;yES 

860  003224 

861  003230 

040162 

000054' 

BIC 

R1,FMANB(R2) 

;CLEAR  PART   OF    INTEGER 

000402 

» 

4S 

•NEXT  BIT! 

862  003232 

040162 

000020' 

3$: 

BIC 

R1,FMANA(R2) 

;CLEAR  PART   OF    FFRACTION 

863 
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864  003236 

865  003240 

866  003242 

867  003244 

868  003246 

869  003250 

870  003254 

871  003260 

872  003262 

873  003270 

874  003272 

875  003300 
876 

877  003302 

878  003306 

879  003312 

880  003316 

881  003322 

882  003326 

883  003330 

884  003332 

885  003334 
886 

887  003336 

888  003342 

889  003346 
890 

891  003352 

892  003352 

893  003352 

894  003356 

895  003360 

896  003364 


005200 

000241 

006001 

001365 

006001 

062702  000002 

020227  000010 

002757 

023727  000052'  000132* 

001404 

023727  000052'  00015^* 

001016 


012700  000016' 

013701  000052' 

062701  000010 

012021 

012021 

012021 

012021 


000137  004024* 


116415 

000137  004024' 


4$: 

INC 

RO 

ICOUNT  A  SHIFT 

CLC 

;DON'T  WANT  EXTRA  BITS 

ROR 

R1               ; 

; SHIFT  BIT 

BNE 

2$ 

;RESET  TO  FIRST  BIT? 

ROR 

R1 

;6ET  BACK  HIGH  ORDER  BIT 

ADD 

M2.R2 

;POINT  TO  NEXT  WORD  OF  MANTISSA 

CflP 

R2,#10 

',END   OF  MANTISSA? 

BLT 

2$ 

;NOPE,  DO  THIS  WORD 

CMP 

FDST,*FACO 

;EyEN   AC? 

BEQ 

5$ 

;YES! 

CMP 

FDST,4fFAC2 

;CHECK  AGAIN,  IS  IT? 

BNE 

6S 

;N0! 

5$: 

CALL 

FNORMA 

;NORMALIZE  A 

CALL 

FPACKA 

;PACK   UP  THE  M 

MOV 

#FVALA,RO 

■POINT  TO  INT  PART 

MOV 

FDST,R1 

•POINT  TO  DESTINATION  AC 

ADD 

#10, R1 

•POINT  TO  ONE  AFTER  IT 

MOV 

(R0)>,(R1)* 

•COPY  OUT  # 

MOV 

(R0)^,(R1)> 

MOV 

(R0)^,(R1)^ 

MOV 

(R0)^,(R1)^ 

6$: 

CALL 

FNORMB 

•NORMALIZE  B 

CALL 

FPACKB 

•PACK  THE  FRACTION 

JMP 

FDONE 

•SAVE  THE  FRACTION 

SDJVF:: 

SDIVD:: 

CALL 

FSAVIT 

• 

.SRC!..FSRC:..GSRC1.. 

DST!..FDST!..GDST!..PDSTI..CFLl 

CALL 

$$DIV 

JMP 

FDONE 
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898 
899 
900 
901 

902  003370 

903  00337A 
904 

905  003376 
906 

907  003402 

908  003404 

909  003410 

910  003412 

911  003414 

912  003416 

913  003420 

914  003422 

915  003424 

916  003426 

917  003430 

918  003432 

919  003434 

920  003436 
921 

922  003440 
923 

924  003442 

925  003446 

926  003452 
927 

928  003454 
929 

930  003456 

931  003460 

932  003462 

933  003470 

934  003472 

935  003474 

936  003476 
937 

938  003500 

939  003502 
940 

941  003504 

942  003506 

943  003510 

944  003512 

945  003514 

946  003520 

947  003522 
948 


012700 
000402 

012700 

010001 
012702 
010203 
012123 
012123 
012123 
012123 
005010 
012201 
010105 
001411 
002402 
005220 
000401 

005320 

042701 
052701 
000401 

005020 

010120 
012220 
032737 
001403 
012220 
012220 
000402 

005020 
005020 

010501 
006301 
105001 
000301 
162701 
010120 


000016' 
000032 • 
000062' 


UNPACK  FLOATING  POINT  NUMBER 


FSETA: 

FSETB: 
FSET: 


1 77600 
000200 


1$: 
2$: 

3$: 
4$; 


000200  000056' 


5$: 

6$: 


000200 


MOV  /rFVALA,RO 
BR  FSET 

MOV  #FVALB,RO 

MOV  R0,R1 
MOV  #FTMP,R2 
MOV  R2,R3 
MOV  (R1)^,(R3)^ 
MOV  (R1)'^,(R3)  + 
MOV  (R1)*,(R3)* 
MOV  (R1)  +  ,(R3)^- 
CLR  (RO) 
MOV  (R2)>,R1 
MOV  R1,R5 
8F0  5S 
BIT  n 
INC  (RO)^ 
BR  2$ 

DEC  (RO)* 

BIC  4fC177,R1 
BIS  #200, R1 
BR  4$ 

CLR   (RO-^ 

MOV  PI.(RO)* 
MOV  (R2)*,(R0)* 
BIT  #FS.D8L,FSTAT 
BEO  5$ 

MOV  (R2)*,(R0)* 
MOV  (R2)*, (R0)t 
BR  6S 


CLR 
CLR 


(R0)  + 
(R0)  + 


MOV  R5,R1 
ASL  R1 
CLRB  R1 
SUA8  R1 
SUB  #200, R1 
MOV  R1,(R0)* 
RETURN 
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950 
951 
952 

953  003524 

954  003530 
955 

956  003532 
957 

958  003536 

959  003540 

960  003542 

961  003544 

962  003546 

963  003550 

964  003552 

965  003554 

966  003556 

967  003560 

968  003564 
969 

970  003566 

971  003572 

972  003574 

973  003576 

974  003600 

975  003602 

976  003604 

977  003606 

978  003610 
979 

980  003612 

981  003616 

982  003620 

983  003622 

984  003624 

985  003626 

986  003630 

987  003632 
988 

989  003634 

990  003636 

991  003640 

992  003642 

993  003644 
994 

995 


012700  000020' 
000402 

012700  000034' 

012001 
010105 
012002 
050205 
012003 
050305 
012004 
050405 
001003 
005060  1 77766 


032701  177400 

001407 

000241 

006001 

006002 

006003 

006004 

005210 

000766 


032701 
001006 
006304 
006103 
006102 
006101 
005310 
000767 

010440 
010340 
010240 
010140 


.•NORMALIZE  FLOATING  POINT  NUMBER 

FNORMA:  MOV  #FMANA.RO 
BR  FNORM 


FNORMB: 
FNORM: 


1$: 


000200 


2$: 


3$ 


MOV 

#FMANB,RO 

MOV 

(R0)^,R1 

MOV 

R1.R5 

MOV 

(R0)'^,R2 

BIS 

R2.R5 

MOV 

(r6)'^,R3 

BIS 

R3.R5 

MOV 

(R0)+,R4 

BIS 

R4,R5 

BNE 

1$ 

CLR 

-12(R0) 

RETURN 

BIT 

#^C377,R1 

BEQ 

2$ 

CLC 

ROR 

R1 

ROR 

R2 

ROR 

R3 

ROR 

R4 

INC 

(RO) 

BR  ' 

1$ 

BIT  #200, R1 

BNE 

3$ 

ASL 

R4 

ROL 

R3 

ROL 

R2 

ROL 

R1 

DEC 

(RO) 

BR  l 

'$ 

MOV 

R4,-(R0) 

MOV 

R3,-(R0) 

MOV 

R2,-(R0) 

MOV 

R1,-(R0) 

RL  rURN 
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997 

• 

0 

998 
999 
1000  0036A6 

;PACK  A  NUMBER  TO  FLOATING  FORMAT  AGAIN 

012702 

000016' 

FPACKA: 

MOV  #FVALA,R2 

1001  003652 

000402 

BR  FPACK 

1002 

1003  003654 

012702 

000032* 

FPACKB: 

MOV  #FVAL8,R2 

1004 

1005  003660 

010203 

FPACK: 

MOV  R2,R3 

1006  003662 

012700 

000062* 

MOV  *FTMP,RO 

1007  003666 

012701 

000006 

MOV  #6,R1 

1008  003672 

012320 

1$: 

MOV   (R3)^,(R0)+ 

1009  003674 

SOR  R1J$ 

1010 

1011  003700 

012700 

000062* 

MOV  #FTMP,RO 

1012  003704 

005710 

TST   (RO) 

1013  003706 

001435 

BEQ  F UNDER 

1014  003710 

013701 

000074 • 

MOV  FTMP^12,R1 

1015  003714 

020127 

000177 

CMP  R1,/lf1 77 

1016  003720 

003035 

BGT  FOVER 

1017  003722 

020127 

1 77601 

CMP  R1,#-1 77 

1018  003726 

002425 

BLT  FUNDER 

1019  003730 

062701 

000200 

ADD  #200, R1 

1020  003734 

000301 

SWAB  R1 

1021  003736 

000241 

CLC 

1022  003740 

006001 

ROR  R1 

1023  003742 

005720 

TST   (RO)* 

1024  003744 

002002 

BGE  2$ 

1025  003746 

052701 

100000 

BIS  #100000, R1 

1026 

1027  003752 

042710 

1 77600 

2$: 

BIC  #*C177,(R0) 

1028  003756 

052001 

BIS   (RO)-^.RI 

1029  003760 

010122 

MOV  R1,(R2)* 

1030  003762 

012022 

MOV   (R0)*,(R2)* 

1031  003764 

032737 

000200     000056* 

BIT  #FS.D6L,FSTAT 

1032  003772 

001402 

BCO  3$ 

1033  003774 

012022 

MOV   (R0)*,(R2)+ 

1034  003776 

012022 

MOV   (R0)>,(R2)* 

1035 

1036  004000 

1037 

1038  004002 

3$: 

RETURN 

005022 

F UNDER : 

CLR   (R2)* 

1039  004004 

005022 

CLR   (R2)* 

1040  004006 

005022 

CLR   (R2)* 

1041  004010 

005022 

CLR   (R2)* 

1042  004012 

RETURN 

1043 

1044  004014 

052737 

000002     000056' 

FOVER: 

BIS  #FS.V,FSTAT 

1045  004022 

000767 

BR  FUNDER 

1046 
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10A9 

•FINISH 

1  UP  FPP  INSTRUCTION 

1050 

1051  OOA024 

032737 

100000  000120*  FDONE: 

BIT 

*..CFLG,FDESC 

.-CHECK  FLAGS? 

1052  OOA032 

001415 

BEQ 

FDONE 1 

;N0 

1053  OOA03A 

013700 

000056' 

MOV 

FSTAT,RO 

105A  004040 

013701 

000032' 

MOV 

FVALB.R1 

1055  0040AA 

001003 

BNE 

^i 

;SET  Z? 

1056  004046 

052700 

000004 

BIS 

#FS.Z,RO 

;YES 

1057  00405? 

005701 

TST 

R1 

1058  004054 

100002 

1$: 

BPL 

2$ 

;SET  N? 

1059  004056 

052700 

000010 

BIS 

*FS. N,RO 

:yES 

1060 

1061  004062 

010037 

000056'        2$: 

MOV 

RO,FSTAT 

1062 

1063  004066 

012700 

000032*        FD0NE1: 

MOV 

#FVALB,RO 

;POINT  TO  RESULT,  IF  ANY 

1064  004072 

013701 

000052' 

MOV 

FDST,R1 

;AND  DST,  TOO 

1065  004076 

032737 

010000  000120' 

BIT 

#..PDST,FDESC 

;SAVE  RESULT  (FLOATING)? 

1066  004104 

001411 

BEQ 

1$ 

;N0 

1067  004106 

012021 

MOV 

rR0)+,(R1)* 

1068  004110 

012021 

MOV 

(R0)^,(R1)^ 

1069  004112 

032737 

000200  000056' 

BIT 

#FS. DBL,FSTAT 

1070  004120 

001415 

BEQ 

2$ 

1071  004122 

012021 

MOV 

(R0)^,(R1)^ 

1072  004124 

012021 

MOV 

(R0)+.(R1)+ 

1073  004126 

000412 

BR  2$ 

1074 

1075  004130 

032737 

020000  0001 ?0'  1$: 

BIT 

#..JDST,FDESC 

;SAVE  RESULT  (INTEGER)? 

1076  004136 

001406 

BEQ 

2$ 

;N0 

1077  004140 

012021 

MOV 

(R0)+,CR1)+ 

1078  004142 

032737 

000100  000056' 

BIT 

#FS. LNCFSTAT 

1079  004150 

001401 

BEQ 

2$ 

1080  004152 

012021 

MOV 

(RO)^JR^)^ 

1081 

1082  004154 

012700 

000114'        2$; 

MOV 

#REG7,R0 

;POINT  TO  SAVED  REGISTERS 

1083  004160 

014006 

MOV 

-(RO),SP 

.•RESTORE  SP 

1084  004162 

014005 

MOV 

-(R0),R5 

.-AND  R5 

1085  004164 

014004 

MOV 

-(R0),R4 

AND  R4 

1086  004166 

014003 

MOV 

-(R0),R3 

AND  R3 

1087  004170 

014002 

MOV 

-(R0),R2 

AND  R2 

1088  004172 

014001 

MOV 

-(R0),R1 

;             AND  R1 

1089  004174 

014000 

MOV 

-(R0),R0 

AND  FINALLY.  RO 

1090  004176 

PUSH 

1  <FFLAGS,REG7> 

1091  004206 

000002 

RTJ 

.•RETURN 
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093 
09A 
095 
0% 
097 
098 
099 

00 

01 

02  0OA210 

03  00A21A 

04  004220 

05  004224 
06 

07  004226 

08  004232 
09 

10  004234 

11  004240 
12 

13  004242 

14  004:'/»f 

15  004^52 

16  004256 

17  004260 

18  004262 

19  004264 

20  004266 
21 

22 
23 
24 

25  004270 

26  004274 

21  004300 

28  004302 

29  004304 

30  004310 

31  004312 

32  004316 
33 

34  004320 

35  004322 

36  004326 

37  004330 
38 

39 
40 

41  004334 

42  004336 

43  004340 

44  004342 

45  004344 


$$ADD  —  ADD  FVALA  TO  FVALB 


UNPACK  NUMBERS 
JUST  THE  OTHER 


AND  CHECK  IF  EITHER  IS  ZERO. 
NUMBER.   (ADDITIVE  IDENTITY.) 


IF  ONE  IS,  THE  ANSWER  IS 


.ENABL  LS8 


SSADD: 


005737 
001003 


000016' 


005737  000032' 
001013 


012701 
012702 
012122 
012122 
012122 
012122 


000016' 
000032' 


1$: 
2$: 
3$: 


CALL 
CALL 
TST 
BNE 

CALL 
RETURN 

TST 
BNE 


FSETA 
FSETB 
FS6NA 
2$ 

FPACKB 


FS6NB 
4$ 


UNPACK  A 
UNPACK  B 
IS  A=0? 
NOPE 


'REPACK  B 

•AND  RETURN  IT  AS  THE  ANSWER 


CALL    FPACKA 
MOV     #FVALA,R1 
MOV     #FVALB,R2 
MOV     (R1)^,(R2)+ 
MOV  (R1)^,(R2)* 
MOV  (R1)>,(R2)* 
MOV  (R1)>,(R2)^ 
RETURN 


lis   B=0? 
;NOPE 


REPACK  A 
POINT  TO  A 
POINT  TO  B 
MOVE  A  INTO  B 


;AND  RETURN  B  AS  ANSWER 


COMPARE  EXPONENTS  TO  CHECK  WHICH  VALUE  MUST  BE  SHIFTED 
RIGHT  TO  ALLIGN  THE  TWO  NUMBERS  SO  THAT  THEY  MAY  BE  ADDED. 


013700 
163700 
002407 
001470 
020027 
002354 
012705 
000406 

005400 
020027 
002337 
012705 


012501 
012502 
012503 
012504 
060015 


000030' 
000044' 


000070 
000034' 

000070 
000020 ' 


4$: 


5$: 


MOV 
SUB 
BLT 
BEQ 
CMP 
BGE 
MOV 
BR  6$ 

NEG 
CMP 
BGE 

MOV 


FEXPA,RO 

FEXPB,RO 

5$ 

SSADD1 

R0,#56. 

3$ 

#F<MANB,R5 


RO 

R0,4f56. 
1$ 
4fFMANA,R5 


GET  EXPONENT  FOR  A 

MINUS  B'S  EXPONENT 

B  HAS  LARGER  EXPONENT 

NO  SHIFTING  NEEDED! 

NUMBER  OUT  OF  RANGE? 

YES,  SO  JUST  RETURN  VALUE  OF  B 

NO,  SHIFT  B  RIGHT  TO  ALLIGN  NUMBERS 


A  HAS  LARGER  EXPONENT 

OUT  OF  RANGE? 

YES,  SO  JUST  RETURN  VALUE  OF  B 

NO,  SHIFT  A  RIGHT  TO  ALLIGN  NUMBERS 


PICK  UP  THE  N(i«ER  TO  SHIFT 


6$: 


MOV  (R5)*,R1 

MOV  (R5)*,R2 

MOV  (R5)*,R3 

MOV  (R5)^  R4 
ADD     RO,dRS 


.•RESULTING  EXPONENT   AFTER   SHIFT 


APLEM      MACRO  Ml  113     08-FE8-80  09:02 

K    8 
PAGE  62 

FPCOOE 

FAKE   THE  HARDWARE   FPP 

147 

.•SHIFTING   IN  MULTIPLES  OF   16  PLACES  SIMPLY  BUMPS  THE 

148 
149 
150  004346 

.•REGISTERS. 

020027 

000020 

h:            CMP           R0.#16.                    ;SHIFTING  AT  LEAST   16  PLACES? 

151  004352 

002410 

BLT           8$ 

;NOPE 

152  004354 

010304 

MOV           R3,R4 

liESs   SO  DO  VERY  FASH  SHIFT 

153  004356 

010203 

MOV  R2.R3 

154  004360 

010102 

MOV  R1.R2 

155  004362 

005001 

CLR           R1 

; ZEROES  INTO  Rl 

156  004364 

162700 

000020 

SUB           #16.. RO 

jCOUNT  16  SHIFTS 

157  004370 

003366 

BGT           7$ 

;MORE  TO  SHIFT 

158  004372 

159 

160 

001430 

BEQ           10$ 

;NUWBERS  ARE  ALLIGNED! 

';IF   SHIFTING  AT  LEAST  8  PLACES.   UIE   CAN  USE  A  CLASSY 

161 
162 
163  004374 

;BYTE  Algorithm. 

020027 

000010 

8$:            CMP           R0.#8.                      .'SHIFTING  AT  LEAST  8  PLACES? 

164  004400 

002416 

BLT           9$ 

;NOPE 

165  004402 

105004 

CLR8         R4 

; CLEAR  RIGHT  BYTE  OF   R4 

166  004404 

1 50304 

BIS8         R3.R4 

;MOVE  LOWER  BYTE  OF   R3  INTO  HOLE 

167  004406 

000304 

SUA8         R4 

^REVERSE  BYTES    (SHIFT  RIGHT   1   BYTE! 

!!) 

168  004410 

105003 

CLRB         R3 

:ETC. 

169  004412 

1 50203 

BISa  R2.R3 

170  004414 

000303 

SUA8  R3 

171  004416 

105002 

CLRB  R2 

172  004420 

150102 

BIS8  R1.R2 

173  004422 

000302 

SWAB  R2 

174  004424 

105001 

CLRB         R1                               ;ZEROES  FILL  R1 

175  004426 

000301 

SWAB  Rl 

176  004430 

162700 

000010 

SUB           #8..R0                      .-COUNT   THE   SHIFT 

177  004434 

178 

179 

001407 

BEQ           10$                            .-ALL  DONE 

•SHIFTING  HAS  NOW  BEEN  REDUCED   TO  CASE  OF    7  PLACES  OR  LESS. 

180 
181 
182  004436 

;USE   THE  GRUNGY  SLOW  METHOD... 

000241 

H:            CLC                                             .-ZEROES  FILL  Rl 

183  004440 

006001 

ROR           ni                               .-BUMP  EVERYTHING  RIGHT   1   BIT 

184  004442 

006002 

ROR  R2 

185  004444 

006003 

ROR  R3 

186  004446 

006004 

ROR           R4                              ;WITH  BITS  FALLING  OUT  OF   R4 

187  004450 

188 

189 

190 

191  004454 

SOB           R0.9$                        ;7  SHIFTS  MAX 

•PUT  SHIFTED  ARGUMENT  BACK  WHERE    IT   CAME   FROM 

010445 

io$;         MOV  R4.-(R5) 

192  004456 

010345 

MOV  R3.-(R5) 

193  004460 

010245 

MOV  R2.-(R5) 

194  004462 

195 

196 

197 

198  004464 

010145 

MOV  R1.-(R5) 

;•PER^ORM  THE  ADDITION 

012701 

000030* 

i$ADD1:   MOV           ^fFEXPA.RI                .-POINT  PAST  A 

199  004470 

012702 

000044 • 

MOV           #FEXPB,R?               ; 

AND  PAST  B 

1 

200  004474 

023737 

000016'  000032 

CMP           FSGNA.FSGNB 

ADDING  OR   SUBTRACTING? 

1 

201  004502 

001016 

8NE            14$                            ; 

SUBTRACTING 

1202  004504 

000241 

CLC                                             ; 

ADDING  NUMBERS  OF    SAME    SIGN 
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120A 

;D0  MULTIPLE 

PRECISION  BINARY 

ADD... 

1205 

• 
« 

1206  0OA506 

064241 

11$: 

ADD 

-(R2),-(R1) 

;ADD  LOW  ORDER  WORDS 

1207  OOA510 

010103 

MOV 

R1,R3 

;COPY  POINTER 

1208  00A512 

005543 

ADC 

-(R3) 

.-PROPAGATE  CARRY 

1209  004514 

005543 

ADC 

-(R3) 

1210  004516 

005543 

ADC 

-(R3) 

1211  004520 

064241 

ADD 

-(R2), -(R1) 

;ADD  NEXT  TO  LAST  WORDS 

1212  004522 

010103 

MOV 

R1,R3 

;COPY  POINTER 

1213  004524 

005543 

ADC 

-(R3) 

.-PROPAGATE   CARRY 

1214  004526 

005543 

ADC 

-(R3) 

1215  004530 

064241 

ADD 

-(R2),-{R1) 

.-ADD  SECOND  WORDS 

1216  004532 

005541 

ADC 

-(R1) 

.-PLUS  CARRY 

1217  004534 

064211 

ADD 

-(R2), aRi 

;AND  FINAL  WORD 

1218  004536 

000417 

BR 

18$ 

.-AND  FINISH 

1219 

1220 
1221 
1222  004540 

•DO  MULTIPLE 

PRECISION  BINARY 

SUBTRACTION... 

164241 

14$: 

SUB 

-(R2),-(R1) 

.-SUBTRACT  LOW  ORDER  WORDS 

1223  004542 

010103 

MOV 

R1,R3 

.-COPY  POINTER 

1224  004544 

005643 

SBC 

-(R3) 

.-DO  BORROWING 

1225  004546 

005643 

SBC  • 

-(R3) 

1226  004550 

005643 

SBC  - 

-(R3) 

1227  004552 

164241 

SUB 

-(R2),-(R1) 

.-SUBTRACT   SECOND  FROM  LAST  WORDS 

1228  004554 

010103 

MOV 

R1,R3 

.-COPY  POINTER 

1229  004556 

005643 

SBC 

-(R3) 

.-BORROW 

1230  004560 

005643 

SBC  • 

-(R3) 

1231  004562 

164241 

SUB 

-(R2),-(R1) 

.-SUBTRACT  SECOND  WORDS 

1232  004564 

005641 

SBC 

-(R1) 

.-BORROW 

1233  004566 

164211 

SUB 

-(R2),dR1 

.-FINAL   SUBTRACTION 

1234  004570 

000402 

BR 

18$ 

.-AND  FINISH 

1235 

1236 

;D0NE   PROCESSING.     NEGATE  RESULT   IF  NECESSARY.                                                                                                  1 

1237 

1238  004572 

1239 

1240  004576 

012701 

000020' 

i$ANSU: 

MOV 

#FMANA,R1 

.-POINT   TO  RESULT 

005711 

18$: 

TST 

aR1 

.-END  UP  NEGATIVE? 

1241  004600 

002013 

6GE 

$$ADD4 

;N0 

1242  004602 

012701 

000030' 

MOV 

fFEXPA,Rl 

.-YES.   POINT  PAST  NUMBER 

1243  004606 

012700 

000004 

MOV 

#4,R0 

.-WHICH   IS  FOUR  WORDS  LONG 

1244  004612 

000241 

CLC 

;N0  CARRY 

1245 

1246  004614 

005541 

$$ADD2 : 

ADC 

-W) 

;ADD  CAhRY 

1247  004616 

103401 

BCS 

$$ADD3 

.-GENERATE   CARRY? 

1248  004620 

005411 

NEG 

dRl 

;N0.   NEGATE    THAT  WORD 

1249  004622 

$$ADD3: 

SOB 

R0,$$ADD2 

.-LOOP 

1250  004626 

005441 

NEG 

-(R1) 

.-NEGATE   SIGN 

1251 

1252  004650 

$$ADD4 : 

CALL 

F  NORMA 

.-NORMALIZE    THE   RESUl  T 

1253  004634 

000137 

004242' 

JMP 

3$ 

;AND  RETURN  A  AS   THE   RESULT 

IPSA 

.DSA8L   LS6 

APLEM 
FPCCX)E 

1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
126A 
1265 
1266 
1267 
1 268 
1269 
1270 
1271 
\272 
1273 
1274 
1275 
1276 
\271 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
•'89 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 

1308 
1309 

1310 
1311 
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00^640 
004644 
004650 
004654 
004660 
004666 
004672 
004700 
004706 
004710 
004714 


004722 
004724 
004726 
004730 
004732 


004734 
004736 
004740 
004742 
004744 
004746 
004754 
004756 
004760 
004762 
004764 
004766 
004  77i. 


004776 
005002 
005004 
005010 
005012 
005014 
005016 
00*5022 
0O5024 
005026 
005050 
005052 


$$MUL  —  MULTIPLY  FVALA  BY  FVALB.     RESULT  GOES   IN  FVAL8. 


012705 
063737 
005337 
012737 
032737 
001005 
162705 
012737 


005000 
005001 
005002 
005003 
005004 


000044 ' 

000030' 

000044* 

000070 

000200 

000004 
000030 


000044 ' 

000062 • 
000056* 


000062 • 


006300 
001036 
005200 
005745 
001033 
022737 
003027 
010304 
010203 
010102 
005001 
162737 
00]36r 


032704 
001405 
062704 
005503 
005502 
005501 
012700 
010120 

010320 
010420 


000020  000062 ' 


000020  000062 ' 


000001 
000001 

000034* 


;FIRST 

UNPACK  ARGUMENTS  AND  SET  I 

JP  COUNT  FOR  WORD  LENGTH. 

iSMUL: 

CALL 

FSETA 

; UNPACK  A 

CALL 

FSETB 

; UNPACK  B 

CALL 

FSGNX 

; CALCULATE   SIGN  OF   RESULT 

M0»' 

#FEXPB,R5 

jPOINT  TO  ARGUMENT   TO  TEST 

ADD 

FEXPAJEXPB 

;MULTIPLI CATION  ADDS   THE  EXPONENTS 

DEC 

FEXPB 

; MINUS  FUDGE  FACTOR 

MOV 

#56.,FTMP 

;NIWBER  OF   BITS 

BIT 

#FS.DBL,FSTAT 

jDOUBLE  PRECISION? 

BNE 

1$ 

;YES 

SLfi 

#4,R5 

;N0,  BACK     ^  THE  POINTER  BY  2  WORDS 

MOV 

4f24.,FTMP 

;FEWER  BI . . 

•CLEAR 

RESULT 

w. 

CLR 
CLR 
CLR 
CLR 
CLR 

RO 
R1 
R2 
R3 
R4 

•GENERATE  NEXT 

BIT    TO  CHECK.      IF 

BIT  OVERFLOWS  WORD,    THEN  CHECK 

.-NEXT  \ 

JORD   IN  B.     NOTE:      A  ZERO  WORD   IT  OPTIMISED  HERE. 

h: 

ASL 

RO 

;8UMP  BIT  LEFT 

BNE 

5$ 

■IF    THERE    STILL   IS  ONE 

INC 

RO 

;eiT  RETURNS  TO  RIGHT 

3$: 

TST 

-(R5) 

•GET  NEW  WORD   TO  CHECK 

BNE 

5$ 

■IT   IS  NOT   ZERO 

CMP 

#16.,fTMP 

■LAST  WORD? 

BGT 

5$ 

•YES,  BE   CAREFUL 

MOV 

R3,R4 

•NO.    SO  BJiP  WORDS  DOWN 

MOV 

R2. 

R3 

MOV 

R1. 

R2 

CLR 

R1 

ZEROES   INTO  R1 

SUB 

f16.,FTMP 

•COUNT  BITS   SHIFTED 

BNE 

5S 

MORE    TO  DO 

•PUT  RESULT 

INTO  FVALB   (UNNURMALJ 

IZEDl) 

il: 

BIT 

#1,R4                         ; 

LAST  BIT    SET? 

BEQ 

lOi                            ; 

NO 

ADD 

#1,R4 

YES.   POUND  UP 

ADC 

R3 

WITH  CARRY 

ADC 

R2 

ADC 

R1 

10$: 

MOV 

#FMANB,RO 

POINT   TO  RESULT 

MOV 

R1,(R0)* 

STORE   RESULT 

MOV 

R2. 

(ROW 

MOV 

R3. 

(RO)* 

MOV 

R4, 

(RO)* 

RETUW 


;AND  RfTLjRN 


APLEM 
FPCOOE 

1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
135«? 
1353 
1354 
^355 
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005034 
005036 
005040 
005042 
005044 
005046 
005050 
005052 
005056 
005060 


005062 
005064 
005070 
005072 
005074 
005076 
005100 
005102 
005104 
005106 
005110 
005112 
005114 
005116 


005120 
005126 
005130 
005136 

005140 
00*^146 


ROTATE  RESULT  1  RIGHT  AND  ADD  IF  CORRESPONDING  BIT  SET  IN   FVALB, 


000241 

006001 

006002 

006003 

006004 

03001 5 

001004 

005337  000062' 

003326 

000746 


$S: 


6$; 


012700 
064004 
005503 
005502 
005501 
064003 
OC3502 
005501 
064002 
005501 
064001 

000755 


000030' 


H: 


ROR 

R1 

ROR 

R2 

ROR 

R3 

ROR 

R4 

BIT 

R0,aR5 

BNE 

7$ 

DEC 

FTMP 

B6T 

2$ 

BR 

4$ 

0  RESULT 

PUSH 

RO 

MOV 

#FEXPA,RO 

ADD 

-(R0),R4 

ADC 

R3 

ADC 

R2 

ADC 

R1 

ADD 

-(R0),R3 

ADC 

R2 

ADC 

R1 

ADD 

-(R0),R2 

ADC 

R1 

ADD 

-(R0),R1 

POP 

RO 

BR 

6S 

.•CLEAR  CARRY 

;BUMP  EVERYTHING  RIGHT 


NEED  TO  ADD? 

YES 

COUNT  THIS  BIT 

AND  CONTINUE 

ELSE  ly^E 


SAVE  BIT  MASK 
POINT  PAST  A 
ADD  LOW  ORDER  BITS 
PROPAGATE  CARRY 


;NEXT 
;WITH 


TO  LAST 
CARRY 


WORDS 


.•SECOND  WORDS 
;AND  CARRY 
.•FIRST  WORD 
.RESTORE  MASK 
;AND  COUNT  THE 


BIT 


S'JBROUTINE    TO  CALCULATE   SIGN  OF    RESULT  OF   MULTIPLY  OR  DIVIDE 


025737     000016'   000032'   FSGNX 

00U04 

012737  )77777     000032' 

000403 

012737  000001  000032'  1$: 

21: 


CMP 
BEO 
MOV 
BR  2% 


FSGNA.FSGNB 

1$ 
#-1.FSGNB 


MOV  #1.FSGN« 

RETURN 


SIGNS   THE    SAME? 

YES.  SO  RESULT  IS  POSITIVE 

NO.   RESULT    :S  NEGATIVE 


.•RESULT   IS  POSITIVE 


APLEM 
FPCOOE 


MACR' 
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1357 
1358 
1359 
1360 
1361 
1362 

1363  005150 

1364  0051 5A 

1365  005160 

1366  005164 

1367  005166 
1368 

1369  005172 

1370  005200 

1371  005204 

1372  005210 

1373  005212 

1374  005214 

1375  005216 

1376  005220 

1377  005222 

1378  005224 

1379  005226 

1380  005230 

1381  005234 
1382 

1383 
1384 

1385  005240 

1386  005244 

1387  005246 

1388  005250 

1389  005252 

1390  005254 

1391  005256 

1392  005260 

1393  005262 

1394  005264 

1395  005266 

1396  005270 
1397 

1398 
1399 

1400  005272 

1401  005276 

1402  005300 

1403  005302 


;   $$DIV  —  DIVIDE  FVALB  BY  FVALA.  RESULT  IN  FVAL8 
•FIRST,  CHECK  SIGN  OF  RESULT  AND  PICK  UP  FVALB 


ISDIV: 


005737 
001002 
000137 

163737 

012700 
011001 
005020 
011002 
005020 
011003 
005020 
011004 
005010 
012705 
01 2746 


012700 
0?2001 
002411 
003025 
022002 
103406 
101022 
022003 
103403 
101017 
022004 
101015 


012700 
164004 
005603 
005602 
005601 
164003 
005602 
005601 
164002 
005601 
164001 
051615 


000016' 
004014' 
000030' 
000034 ' 


000044'  1$; 


0C0034' 
000400 


000020' 


CALL 

CALL 

TST 

BNE 

JI1P 

SUB 
CALL 
MOV 
MOV 
CLR 
MOV 

CLR  (RO) 
MOV  aRO, 
CLR  (RO) 
MOV  aRO, 
CLR  aRO 
MOV 
MOV 


FSETA 
FSETB 
FSGNA 

1J 
FOVER 

; UNPACK  A 

; UNPACK  B 

^DIVISION  BY  ZERO? 

;N0 

;YES!   OVERFLOW 

fEXPAJEXPB 

FSGNX 

#FMANB,RO 

aRO.Rl 

(R0)> 

aR0,R2 

;DIVISION  SUBTRACTS  THE  EXPONENTS 

; CALCULATE  SIGN  OF  RESULT 

; POINT  TO  B 

;PICK  UP  HIGH  ORDER  WORD 

:MAKE  ROOM  FOR  RESULT 

»  •  ■  • 

R3 

R4 

#FMANB,R5 
#400, -(SP) 


.-POINT  TO  RESllT 
;BIT  MASK 


.•CHECK  NUMBERS  FOR  POSSIBILITY  OF  SUBTRACTION. 


10$:    MOV     #FMANA.RO 
CMP     (R0)>.R1 
BLT     2$ 
BGT     3S 
CMP  (R0)^.R2 
BLO  2$ 
BHI  3$ 
CMP  (R0)^.R3 
BLO  2$ 
BHI  3$ 
CMP  (R0)^.R4 
BHI  3$ 

•SUBTRACT  A  FROM  B 


POINT  TO  A 

CHECK  HIGH  ORDER  WORD 

BACON.  LETIUCE.  &  TOMATOE 


000030' 


>%: 


MOV 
SUB 
SBC 
SBC 
SBC 
SUB 
SBC 
SBC 
SUB 
SBC 
SUB 
BIS 


R2 

Rl 

R2 
Rl 

Rl 


fFEXPA.fJO 

-(R0).R4 

R3 


-(R0).R3 


-(R0).R2 

-(RO).RI 
dSP.dRS 


POINT  PAST  A 

SUtrWACT  LOW  ORDER  WORDS 

WITH  BORROW 


; THIRD  WORDS 


.-SECOND  WORDS 

*r IRST  WORD 

•H^K  SUBTRACTION  BIT  IN  RESULT 


APLEM      MACRO  Ml  113     08-FEB-80  09:02     PAGE  67 
FPCOOE  FAKE  THE  HARDWARE  ^PP 


TT 


1413 

1AH 

1A15 

1A16  005324 

HI  7  005326 

U18  005330 

1419  005332 

1420  005334 

1421  005336 

1422  005340 

1423  005342 

1424  005344 

1425  005346 

1426  005352 

1427  005354 

1428  005356 

1429  005362 

1430  005364 

1431  005370 

1432  005372 

1433  005374 

1434  005376 

1435  005402 

1436  005404 

1437  005410 

1438  005414 
1439 

1440  005416 

1441  005420 

1442  005422 

1443  005424 

1444  005430 


.•ROTATE  A  LEFT  1  BIT 


1445 
1446 
1447 
1448 
1449 
1450 
1452 
1453 


006304 
006103 
006102 
006101 
000241 
006016 
001337 
006016 
005725 
020527 
103732 
005726 
032745 
001405 
062715 
005545 
005545 
005545 
005737 
002013 
012700 
012701 
000241 

005541 
103401 
005411 

005441 


j$: 


000044' 

000001 
000001 

000034' 

000004 
000044 ' 


11$: 


005432 
005436 
005442 


4$: 
6$: 
5$; 


ASL  R4 

ROL  R3 

ROL  R2 

ROL  R1 

CLC 

ROR 

BNE 

ROR 

TST 

CMP 

BLO 

TST 

BIT 

BEQ 

ADD 

ADC 

ADC 

ADC 

TST 

BGE 

MOV 

(iOV 

CLC 

ADC 
BCS 
NEC 

see 

NEC 

CALL 
CALL 
RETURN 


asp 

10$ 

^SP 

(R5)* 

R5,#FEXPB 

lOi 

(SP)* 

#1,-(R5) 

iii 

#1.dR5 

-(R5) 

-(R5) 

-(R5) 

FMA^6 

5$ 

f4,R0 

#FEXP8,R1 


-(R1) 

6$ 

aR1 

R0,4$ 

-(R1) 

FNORMB 
FPACKB 


WIPE  OUT  THE  CARRY 

ROTATE  MASK  1  RIGHT 

KEEP  ON  TRUCKIN 

BRING  BACK  HIGH  ORDER  BIT 

BUMP  RESULT  POINTER 

DON€/ 

NOPE 

VES.  KILL  BIT  MASK 

NEED  TO  ROUND  NUMBER? 

NO 

YES,  ROUND  UP  NUMBER 

WITH  CARRY 


RESULT  POSITIVE? 
YES,  GOOD 
4  WORDS  TO  NEGATE 
POIN)  PAST  RESULT 
CLEAR  CARRY 

ADD  THE  CARRY 
GENERATED  CARRY 
CORREST  SIGN  OF  RESULT 
LOOP  ONCE  PER  WORD 
CHANGE  SIGN  OF  NUMBER 

NORMALIZE  B 

CONVERT  TO  NUMBER 
AND  RETURN 


I  g-y 
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SYMBOL 

TABLE 

ACQ   =• 

lOOOOOO 

CHRLBR=  000073 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

AC1   = 

X000001 

CHRLPR=  000072 

C.BUFF= 

177760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

AC2   = 

X000002 

CHRMNS=  000137 

C.8UFL= 

1 77762 

D.DQAD= 

1 77777 

EOF   = 

104475 

AC3   = 

X000003 

CHRMUL=  000075 

C.CCNT= 

177766 

D.DR0P= 

000002 

ERRMAX= 

000166 

AC4   = 

X000004 

CHRNEG=  000100 

C.CPTR= 

1 77764 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

AC5   = 

X000005 

CHRPOL=  000271 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

ALLiNT 

003274R 

025 

CHRPLU=  000055 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRO 

004774R 

025 

ARYRET 

003276R 

025 

CHRPWR=  000120 

C.FASW=  020000 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

ASCQUO=  000042 

CHRQST=  000121 

C.FLEN=  000010 

D.FMT  = 

000004 

ESCT 

005056R 

025 

A.ALEN=  000004 

CHRQUC=  000113 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.ARG  = 

000040 

CHRRBR=  000047 

C.FRC  = 

000001 

D.FPUT= 

000005 

FACO 

0001 32RG 

026 

A.ASB  = 

0X200 

CHRRPR=  000042 

C.IDEN=  000010 

D.6E  = 

000000 

FAC1 

0001 42RG 

026 

A.BITS= 

000003 

CHRSEM=  000074 

C.NAME= 

000102 

D.GT  = 

000000 

FAC2 

0001 52RG 

026 

A. CON  = 

000020 

CHRSMO=  000112 

C.NUBF= 

000400 

D.IBM  = 

000002 

FAC3 

0001 62RG 

026 

A.DI«S= 

000002 

CHRSPA=  000040 

C.NUI  = 

000020 

D.IND  = 

000002 

FAC4 

0001 72RG 

026 

A.Dim  = 

000006 

CHRUPA=  000131 

COP  = 

000004 

D.INNR= 

000013 

FAC5 

000202RG 

026 

A.roi  = 

000006 

CHR.BS=  000010 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.APD= 

000100 

A.PTR  = 

000000 

CHR.CC=  000003 

C.RDLN= 

1 77776 

D.LE  = 

000000 

FA.CRE= 

000010 

A.  IMP  = 

000010 

CHR.CR=  000015 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.DLK= 

001000 

BADDIR= 

104463 

CHR.CZ=  000032 

C.RND  = 

000010 

D.LT  = 

000000 

FA.E^e= 

100000 

BADERR= 

104437 

CHR.GT=  000046 

C.S8IT= 

177756 

D.MAX  = 

000000 

FA.EXC= 

002000 

BLZBUB 

0051 16R 

025 

CHR.LF=  000012 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.EXT= 

000004 

BRSELF 

005046R 

025 

CHR.LT=  000043 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.NSP= 

000100 

CCNT 

005072R 

025 

CHR.SI=  000017 

C . SPLX= 

000001 

D.MUL  = 

000000 

FA.NSR= 

000200 

CHANEX 

003060R 

025 

CHR.SL=  000057 

C . SPRS= 

000002 

O.NE     = 

000000 

FA.POS= 

010000 

CHANOO 

000256R 

025 

CHR.S0=  000016 

C.SRC  = 

1 7777(* 

D.NN  = 

000000 

FA.RD  = 

000001 

CHAN01 

000330R 

025 

CHR.TB=  000011 

C . SRCP= 

000024 

D.NR  = 

000000 

FA.RyD= 

004000 

CHAN02 

00051 2R 

025 

CHR.UL^:  000106 

C.TT  = 

000004 

D.OR  = 

000000 

FA.SEO= 

040000 

CHAN03 

000674R 

025 

CHR..A=  000141 

C.yiDC= 

1 77770 

D.PLUS= 

000000 

FA.SHR= 

000040 

CHAN04 

001056R 

025 

CHR..E=  000145 

C.WIDR= 

1 77772 

D.PSUB=  000006 

FA.TMP= 

000020 

CHAN05 

001240R 

025 

CHR..S=  000163 

DEBUG  = 

000000 

D.PWR  = 

000001 

FA.WCK= 

020000 

CHAN06 

001422R 

025 

CHR..T=  000164 

DEFERR= 

104405 

D.OQAD= 

000000 

FA.yRT= 

000002 

CHAN07 

001604R 

025 

CHR..U=  000165 

DEVIL 

0051 14R 

025  D.OUAD= 

000000 

FDESC 

0001 20R 

026 

CHAN08 

001766R 

025 

CHR..Z=  000172 

DEVNTF= 

104470 

D.RES  = 

000000 

FDONE 

004024R 

020 

CHAN09 

0021 50R 

025 

CHR..O=  000060 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD0NE1 

004066R 

020 

CHAN10 

002332R 

025 

CHR..1=  000061 

DIMAX  = 

000020 

D.ROT  = 

000003 

FDST 

000052R 

026 

CKAN11 

00251 4R 

025 

CH.AND=  000001 

DIMBLK 

0031 12R 

025  D.SCON=  000006 

FD.BLK= 

000010 

CHAN12 

002676R 

025 

CMDBUF  003250R 

025 

DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.CCL= 

000002 

CHAN13 

000022R 

023 

CMDMAX^  000010 

DJMTYP 

0031 16R 

025  >.SUB  = 

000000 

FD.CO«=  020000 

CHAN14 

000204R 

023 

CNTSIZ  005130R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.CR  = 

000002 

CHNOPN= 

104471 

COMBIN  005076R 

025 

DOMERR= 

104417 

D.TAKE= 

000002 

FD.DIR= 

000010 

CHRAND^ 

000051 

COMCNT  0Q5126R 
C0MERR=  104425 

025 

DPTERR= 

104416 

D.TRAN=  000004 

FD.FTN=  000001 

CHRBEL^ 

000007 

DYDCNT 

003224R 

025  D.UN0N=  000006 

FD.F1U 

040000 

CHRBKR- 

000133 

CQMPTR  005122R 

025 

D.AND  = 

000000 

D.$«AX= 

000000 

FD.INS= 

000010 

CHRBa= 

000200 

COMRTN  0031 56R 

025 

D.BXCT= 

000007 

D.$MIN=  000000 

FD.ISP= 

002000 

CHRBOXr 

000114 

COMSKP  005124R 

025 

D.BXIO=  000007 

D.$MUL= 

000000 

FD.MNT= 

100000 

CHRCHA= 

000054 

CORPTR  005120R 

025 

D.BXNL^ 

000007 

D.SPLU=  000000 

FD.OSP= 

004000 

CHRCa= 

000076 

CS.ASS=  000200 

D.8XPP= 

000007 

D.$RES= 

000000 

FD.PLC= 

000004 

CHROEL= 

000107 

CS.B00=  000010 

D.8XPy= 

000007 

D.$SUB=  000000 

FD.PRN=  000004 

CHROIV= 

000053 

CS.FLO=  000020 

D.BXRL= 

000007 

D.1C0M=  000001 

FD.PSE= 

010000 

CMROIR^ 

000176 

CS.IDN=  000040 

D.CIRC= 

000001 

D.I EXP= 

000002 
000003 
005063R 

FD.RAH= 

000001 

CHRDLTr 

000110 

CS.0NE=  000100 
CTEPS   0001 52R 

D.COMB= 

000001 

D.1R0T= 

FD.RAN=  000002 

CHR0OT= 

000056 

025 

D.COMP= 

000001 

EDICHR 

025  FD.REC= 

000001 

CHREP  = 

000105 

CTMAX   00021 2R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FD.RWM=  000001 

CMRERR= 

104431 

CTRHAX  0001 72R 

025 

D.CTLM= 

000000 

EDIFL6 

005062R 

025  FD.SDI= 

000020 

CMRFIL= 

000177 

C.AL0C=  000162 

D.DEAl= 

000003 

EDIT  = 

000003 

FD.SQD= 

000040 

CHRFR0= 

000135 

C.BL0>c=  000064 

D.DECD= 

000002 

EIS   r 

000000 

FD.TTY= 

000004 
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F  ^ 

SYMBOL 

TABLE 

FD.yBH= 

000002 

•SAVIT 

00071 6R 

020  f 

■.FNAM=  000110 

lASH 

000202R6 

020  LINC    0051 02R 

025 

FEXPA 

000030R 

026  1 

•SET 

003402R 

020  f 

•.FNB  = 

000102 

lASHC 

000236RG 

020  LINE    00501 6R 

025 

FEXPB 

OOOOAAR 

026  f 

•SETA 

003370R 

020  } 

•.FNDF= 

000010 

lASHX 

000274R 

020  LININC     005026R 

025 

F FLAGS 

0001 24R 

026  1 

•SETB 

003376R 

020  f 

■.FTYP= 

000116 

IC 

000001 

LISIZE=  000020 

FF.CHR= 

000005 

•SETFL 

001 532R 

020  » 

•.FUN  = 

000010 

I  CHAN 

005050R 

025  LI  TOP   005072R 

025 

FF.NV  = 

000003 

'SGNA 

00001 6R 

026  f 

•.FVER= 

000120 

IDIV 

00051  ORG 

020  LNLNG  =  104541 

FF.POE= 

000002 

'SGNB 

000032R 

026  f 

•.HEAD= 

000006 

I FLAGS 

OOOOOOR 

026  LOCLCT  005036R 

025 

FF.RyD= 

000001 

•SGNX 

005120R 

020  i 

•.HI8K= 

000004 

ILFNAM= 

104464 

LOWCOR  000002R 

025 

FF.RWF= 

000006 

•SIZE 

0001 26R 

026  f 

■.LBL  = 

000020 

ILLCHN= 

104540 

LSTERP  004766R 

025 

FF.SPC= 

000004 

•SRC 

000046R 

026  f 

•.L1NE= 

000012 

ILLSW  = 

104565 

LWIDTH  000070R 

025 

FGETIT 

00H34R 

020  1 

•STAT 

000056R 

026  f 

-.LOC  = 

000004 

IMUL 

000376RG 

020  L.BITS=  000003 

F  HE  ADR 

00501 2R 

025  F 

•STATS 

000060R 

026  1 

•.LSTC= 

000004 

IN 

000010 

L.CNT  =  000002 

FHRET 

005040R 

025  1 

•S.C  = 

000001 

'.LUN  = 

000042 

INDERR= 

104410 

L.PRNT=  000001 

FILNTF= 

104467 

■S.DBL= 

000200 

•.MBCT= 

000054 

INNTMP 

003250R 

025  L.PTR  =  000000 

FIS   = 

000000 

■S.LNG= 

000100 

•.MBC1  = 

000055 

INNTM2 

00501 6R 

025  L.PTR1=  000004 

FISCON=  046000 

■S.N  = 

000010 

•.MBFG= 

000056 

INPTR 

000064R 

025  L.SUBS=  000002 

FISIZE 

0001 30R 

026  1 

•S.V  = 

000002 

•.MON  = 

000002 

INSNAM= 

104462 

MACHIN=  000106 

FIXPTR 

003074R 

C25  f 

•S.Z  = 

000004 

•.NIL  = 

000001 

INZBIT 

000350R 

020  MAXCHN=  000014 

FLAGS 

004764R 

OZ*"  i 

•TMP 

000062R 

026  1 

•.NRBD= 

000024 

INZBI1 

000362R 

020  MONBLK  0031 20R 

025 

FLCBUF 

003250R 

025  \ 

•UNDER 

004002R 

020  1 

•.NREC= 

000030 

INZBI2 

000330R 

020  MONCVT  0031 32R 

025 

FLINE 

00501 4R 

025  1 

•uzz 

0001 42R 

025  1 

■.OPN  = 

000010 

lOERR  = 

104477 

MONLEN  0031 30R 

025 

FLOEXP 

003270R 

025  1 

'VALA 

00001 6R 

026  ( 

•.OVBS= 

000030 

IREG 

00001  OR 

026  MONPTR  0031 22R 

025 

FL0NE6 

003272R 

025  \ 

■VALB 

000032R 

026  1 

'.PREV= 

000000 

IREGO 

000002R 

026  MONSFT  0031 26R 

025 

FLSWTB 

000222R 

025  1 

•VSET 

002556R 

020  1 

■.PRNT= 

100000 

IREG1 

000004R 

026  MONTYP  0031 24R 

025 

FLTLEN= 

000010 

■XPTR1 

003076R 

025  1 

■.PROT= 

010000 

IRETRN 

000006R 

026  MONVAL  0031 34R 

025 

FMANA 

000020R 

026  1 

"$EVAL= 

000100 

•.RACC= 

000016 

IRETR1 

00001 4R 

026  M.ABS  =  000000 

FMANB 

000034R 

026  f 

•$EVI  = 

000200 

'.RATT= 

000001 

ISETUP 

OOOOOOR 

020  M.BOL  =  000200 

FMODEO 

001202R 

020  1 

•SEXEC= 

000400 

■.RCNM=  000034 

I  SRC 

00001 2R 

026  M.BXAV=  000007 

F«ODei 

001226R 

020  I 

•SFUNC= 

001000 

■.RCTL= 

00001 7 

IV 

000002 

M.BXCR=  000007 

F«00E2 

001234R 

020  ( 

'.ACTL= 

000076 

•.READ= 

004000 

IXOR 

0001 62RG 

020  M.BXCT=-  000007 

FM0DE3 

001320R 

020  1 

'.AL0C= 

000040 

'.REDF= 

000040 

IZ 

000004 

M.BXEX=  000007 

FMOOEA 

001332R 

020  1 

'.8BFS= 

000062 

'.RES  = 

000040 

I.CNi  = 

1 77776 

M.BXFX=  000007 

F«D0E5 

001372R 

020  I 

•.8D8  = 

000070 

'.RET  = 

1 77772 

I. DIM  = 

1 77772 

M,BXIO=  000007 

FM0DE6 

001404R 

020  1 

•.BGBC= 

000057 

•.RSIZ= 

000002 

I.LEN  = 

000012 

M.BXLC=  000003 

FW0DE7 

001420R 

020  ( 

'.BITS= 

177774 

•.RTYP= 

000000 

I.OERR= 

000062 

M.BXNC=  000007 

F«DV 

000116R 

026  1 

•.BKDN=  000026 

'.R2  = 

000014 

I. OLD  = 

1 /7770 

M.BXNL=  000007 

F«TBL 

001162R 

020  1 

'.BKDS= 

000020 

•.R3  = 

000016 

I.PTR  = 

1 7777^ 

M.BXPP=  000007 

FNINSI 

005044R 

025  1 

'.aKEF= 

000050 

•.R4  = 

000020 

I.STR  = 

177766 

M.BXPW=  000007 

FNORM 

003536R 

020  1 

'.BrP1  = 

000051 

•.SEQN=  000100 

LABERR= 

104406 

M.BXRL=  000007 

FNORMA 

003524R 

020  1 

^BKST= 

000024 

• . SPDV= 

000072 

LABLPT 

005042R 

025  M.BXTS=  000007 

fNORm 

003532R 

020  ( 

^a»c»;B=  000064 

•.SPUN=  000074 

LARQBL 

0031 62R 

025  M.BXyA=  000007 

FORIGN 

000032R 

025  I 

^aR  = 

000020 

•.ST8K= 

000036 

LARGCV 

0031 76R 

025  M.CEI  =  177//7 

FOVER 

00401 4R 

020  1 

'.CHR  = 

000075 

'.STK  = 

000022 

LARGFL 

0031 60R 

025  M.CHR  =  000202 

FO.AP0= 

000106 

' . CNTG= 

000034 

•.STaP= 

000004 

LARGLE 

0031 74R 

025  M.CMT  =  000206 

FO.«Fr= 

000002 

^C0DE= 

000010 

',STP   = 

000001 

LARGLN 

0031 66R 

025  M.D0UT=  000006 

FO.RD  = 

000001 

^DF^e= 

000046 

' . SUSP= 

000002 

LARGPT 

0031 64R 

025  M.DQAD=  000006 

FO.UPOs 

000006 

^DSPT= 

000044 

'.TRC  ^ 

000002 

LARGSF 

0031 72R 

025  M.ENCD=  000004 

FO.yRT= 

000016 

^DVNM=  000134 

'.UNIT= 

000136 

LARGTY 

0031 70R 

025  M.EXE  =  000000 

FPACK 

003660R 

020  1 

^EFBK= 

000010 

'.llRflD= 

^^l 

LARGVA 

003200R 

025  M.EXP  =  000001 

FPACKA 

003646R 

020  1 

'.BfN   = 

000050 

'.VAL  = 

LBINC 

005100R 

025  M.FACTr  000001 

FPACKB 

003654R 

020  1 

^END  = 

002000 

'.VBN  = 

000064 

LBUFF 

00331 6R 

025  M.FIL  =  000177 

FPHODE 

000042R 

025  1 

^EOflB= 

000032 

'.VBSZ= 

000060 

LBUFLN= 

000621 
005106R 

M.FLR  =  }77777 

fPP       = 

000000 

^ERR  = 

000052 

5N0ME 

003102R 

0^5  LCOUNT 

025  M.FMT  =  000004 

fPf>LEH= 

000004 

^FACC= 

0000/.3 

^ASHC 

005136R 

025  LENERR= 

104A12 

M.GDUP=  000003 

FPTR 

001122R 

020  1 

f.FFBY= 

000014 

^ASHTB 

005140R 

025  LENTAB 

000054R 

025  M.GDWN=  000003 

FREBLK 

007400R 

025  1 

^FLAG= 

000002 

hshmsk= 

1 77601 

LEXPTR 

003100R 

025  M.GETI=  000006 

fRTN 

0001 22R 

026  1 

^FLB  = 

000100 

^SHSIZ= 

000200 

LFTOP 

005066R 

025  M.I8M  =  000003 
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M.IDN  =  000000 

ND.$PN=  001400 

PATCH 

007344R 

025 

R.VAR  = 

000002 

S.FTYP= 

000002 

M.INSP=  000006 

NEGSGN  005063R 

025 

PRECSN 

000052R 

025  R6 

X000006 

S.LEN  = 

000002 

M.IOTA=  000000 

NINPT1  003302R 

025  RANDAC 

003064R 

025  R7 

X000007 

S.LINK= 

177774 

W.LIT  =  000205 

NINPT2  003300R 

025  RANDY 

003062R 

025 

SI 

X000005 

%M^IH= 

000020 

M.LN  =  000001 

NINSTK  003304R 

025 

RANERR= 

104411 

SIDAWN= 

104433 

S.TYPE= 

140000 

M.MMD  =  000010 

NINTMP  00331 OR 

025 

RARGBL 

003204R 

025 

SIFRAW 

00331 4R 

025 

S.VAL  = 

000000 

M.h€G  =  000000 

NINTYP  003306R 

025 

RARGCV 

003220R 

025 

SISTAK 

006350R 

025 

TKDIMS 

005072R 

025 

H.NOT  =  000000 

NOTAVL=  104472 

RARGFL 

003202R 

025 

SI  TOP 

006346R 

025 

TKFRAM 

005066R 

025 

n.MR  =  000006 

N0T0PN=  104473 

RARGLE 

00321 6R 

025 

SITP 

0071 44R 

025 

TKLEFT 

005070R 

025 

M.NUM  =  00020A 

NPRT1   004762R 

025 

RARGLN 

00321 OR 

025 

SIUARN=  000200 

TWODE 

000403R 

023 

H.OUTR=  000012 

NULL    007364R 

025 

RARGPT 

003206R 

025 

SIZTAB 

000044R 

025 

TI1PTAG= 

000166 

H.PITM=  000000 

NU«CHN=  000020 

RARGSF 

00321 4R 

025 

SI.BIT= 

1 7777^ 

TTYBUF 

004140R 

025 

M.PROS=  000006 

NUMDFL  003230R 

025 

RARGTY 

0032 12R 

025 

SI.LEN= 

1 77772 

TTYLEN= 

000622 

n.QQAD=  000000 

NUMEFL  003233R 

025  RARGVA 

003222R 

025 

SI.RET= 

y77772 

TURKEY= 

104436 

M.QUAD=  000000 

NUMESN  003236R 

025 

RdASE 

005074R 

025 

SI.VAL= 

1 7777 t 

TYPE  = 

000166 

M.RAM)=  000012 

NJIFLG  003230R 

025 

RCOIJNR 

0051 12R 

025 

SKPSIZ 

005134R 

025 

T.Ba  = 

020000 

«.RAVL=  000000 

NIM-EN  000062R 

025  RCOUNT 

0051 10R 

025 

SPHOLD 

000004R 

024 

T.CON  = 

004000 

«.RCIP=  000000 

NUMNEG  003232R 

025  REDCNT 

005070R 

025 

SPINIT 

00C002R 

024 

T.DIW  = 

000100 

M.ROCT=  000011 

NlfWFL  003234R 

025 

REDIGN 

005066R 

025 

STKINC= 

000774 

T.FUN  = 

010000 

M.REVS=  000003 

NUMRIG  003231 R 

025 

REDOFF 

005072R 

025 

STOP  = 

104420 

T.LIST= 

000400 

«.RGLL=  000000 

NUMWID  003226R 

025 

REENTR 

003060R 

025 

SUBCNT 

0031 04R 

025 

T.LIT  = 

000020 

M.SATA=  000001 

NUMZFL  003235R 

025 

REGO 

000076R 

026  SUBDCT 

0031 06R 

025 

T.MON  = 

000010 

N.SCAN=  000011 

NYIERR=  104432 

REG1 

0001 OOR 

026  SUBPTR 

00311  OR 

025 

T.NIL  = 

000004 

M.SHAP=  000000 

N.BLSZ=  000036 

REG2 

0001 02R 

026 

SYMB1 

005344R 

025 

T.Nlfl  = 

002000 

n.SIGN=  000000 

N.DESC=  000020 

REG3 

0001 04R 

026  SY«F 

005340R 

025 

T.OPFN=  000001 

n.5unR=  000001 

N.DEV  =  000032 

RE64 

0001 06R 

026  SYMPTI 

005346R 

025 

T.OTHR= 

040000 

M.SY«  =  000203 

N.DEVN=  000034 

REG5 

00011  OR 

026  SYMTAB 

005352R 

025 

T.SOP  = 

000002 

H.SYN  =  000201 

N.DID  =  000024 

REG6 

0001 12R 

026  SYf1TBF= 

104404 

T.SPOP= 

000040 

H.TRAN=  000012 

N.DVF#<=  000032 

REG7 

0001 14R 

026  SYMTOP 

005350R 

025 

T.TMP  = 

000200 

M.$ABS=  000000 

N.EXT  =  000014 

RES8IT 

0031 42R 

025 

SYMTP 

006272R 

025 

T.VAL  = 

100000 

M.$CEI=  000000 

N.FID  =  000000 

RESCVT 

0031 52R 

025 

SYMWRN=  000054 

T.VAR  = 

001000 

«.$FLR=  000000 

N.FNA^  000006 

RESERR= 

104440 

SYNERR= 

104407 

UPPER  = 

177400 

n.$IDN=  000000 

N.FTYP=  000014 

RESLEN 

0031 50R 

025 

SYSERR= 

104402 

UTNA«E 

000344R 

023 

n.$NE6=  000000 

N.FVER=  000016 

RESPTR 

0031 40R 

025 

SYSTAT 

OOOOOOR 

024 

VALERR= 

104413 

n.ssi6=  000000 

H.NAi€=   000006 

RESSFT 

0031 46R 

025 

SY.aAD= 

000001 

VARBLE 

007400R 

025 

«.1R0T=  000011 

N.NEXT=  000022 

RESTYP 

0031 44R 

025 

SY.BRK= 

100000 

VARBLS 

OOOOOOR 

025 

M.1REV=  000003 

N.PPN  =  000024 

RESULT 

0031 36R 

025 

SY.BS  = 

000010 

VERNUM 

OOOOOOR 

025 

M.1SCN=  000011 

N.STAT=  000020 

RESVAL 

0031 54R 

025 

SY.CLR= 

000040 

VRSION=  000002 

NVQUF  0032^0R 

025  N.UNIT=  000034 

RINC 

005104R 

025 

SY.ERP= 

000020 

WIDTH 

00O072R 

025 

NB.DEV:^  000200 

GBUFLN=  001000 

RLTBAS 

005066R 

025 

SY.NOU=  000100 

UROUND 

000020R 

025 

NB.D1R=  000100 

OCHAN   005052R 

025 

ROTINC 

005070R 

025  SY.OPN=  000002 

USDATE 

0001 36R 

025 

fB.NN^   000004 

OMODE   000402R 

023  ROUND 

00001 OR 

025 

SY.PMT= 

001000 

WSFULL= 

104403 

NB.SD1=  000400 

QPTMPO  005066R 

025 

ROVER 

00331 2R 

025 

SY.SRT= 

000400 

USNAME 

000074R 

025 

NB.SD2^  001000 

0PTMP1  005070R 

025  RSTS  = 

000000 

SY.SVC= 

000004 

WSTIME 

0001 32R 

025 

m.sm=  000040 

0PTMP2  005072R 

025 

RSX   = 

000115 

SY.SVL= 

000200 

SABSD 

002044RG 

020 

l«.STP=  000020 

aPT«P3  005074R 

025  RTOP 

005070R 

025 

S.AB  = 

1 7777h 

SABSF 

002044RG 

020 

NB.SVR^  000010 

0PT«P4  005076R 

025 

RT11  = 

000000 

S.ASB  = 

100000 

SADDD 

0031 OORG 

020 

rCTYP=  000002 

0PTMP5  005100R 

025  R.8ITS= 

000003 

S.8FHD= 

000020 

SADDF 

0031 OORG 

020 

NB.VER^  000001 

0PTMP6  005102R 

025  R.FIX  = 

000001 

S.8ITS= 

000002 

SCFCC 

001566RG 

020 

ND.DEV=  000200 

0PTMP7  005104R 

025  R.LCT  = 

000002 

S.CHR1= 

000003 

SCLRD 

002004RG 

020 

ND.EXT=  000002 

0PTMP8  005106R 

025  R.LN  = 

000002 

S.FATTr 

000016 

SCLRF 

002004RG 

020 

ND.MA^  000004 

0PTMP9  0051 10R 

025  R.LNUW=  000010 

S.FDB  = 

000140 

$C«PD 

003030RG 

020 

ND.PPN=  000100 

orrmo  005112r 

025 

R.NEXT= 

000006 

S.FL8  = 

040000 

$C«PF 

003030RG 

020 

ND.$EX=  000000 

OPTHK  005026R 

025 

R.OFF  = 

000000 

S.FNAW= 

000006 

SDIVD 

003352RG 

020 

ND.I6S=  000020 

ORIGIN  000030R 

025 

R.PREV= 

000004 

S.FNB  = 

000036 

SD IVF 

003352RG 

020 

ND.$NW=  000000 

OUTPTR  C00066R 

025 

R.PTR  = 

000000 

S.FNBW= 

00001 7 

$FIS  = 

******  Q 

rD.$N$=  000040 

0VR0PR=  000000 

R.SEQ  = 

000003 

S.FNTY= 

000004 

SFPP  = 

«•****  Q 

APLEM 
SYMBa 

$FPPLN= 

SLDCDF 

SLDCFD 

SLDCID 

SLDCIF 

SLDCLD 

SLDCLF 

SLDD 

SLDEXP 

$LDF 

SLDFPS 

$LDF1 

$MACHN= 

$MDDD 

.   ABS. 
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0O2576RG 
002576RG 
002252R6 
002252R6 
002252RG 
002252RG 
0021 26RG 
0021 60RG 
0021 26RG 
001702RG 
0021 34R 

HHIfkitlt     Q 

0031 4ARG 


TABLES 

MONTB 

DYDTB 

BOPTB 

MONBTB 

DYDBTB 

COMTB 

CHRTBL 

VTBL 

ASCTBL 

OVRTBL 

TRNTBL 

MNTBL 

MNTRTL 

CODE 

PATCH 

SSFSRI 

DEF$0 

DEF$1 

DEF$2 

EMULAT 

ERRORS 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
005AAA 
000000 
000000 
0O0A06 
000006 
007A00 
000212 
DETECTED 


0 


$MODF 
020  SMULD 
020  SMULF 
020  SNEGD 
020  SNEGF 
020  SRSTS 
020  SRSX 
020  $RT11  : 
020  $SETD 
020  SSETF 
020  $SFTI 
020  SSEP. 

SSTCDr 
020  SSTCDI 

000 
001 
002 
003 
OOA 
005 
006 
007 
010 
Oil 
012 
013 
OK 
015 
016 
017 
020 
021 
022 
023 
02A 
025 
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TITLE  APLOP 
I DENT  \V02.03\ 

FUNCTIONAL  DESCRIPMON: 

THIS  MODULE  CONTAINS  THE  CODE  FOR  MOST  APL  OPERATORS  WHICH 
HAVE  BEEN  IMPLEMENTED  SO  FAR.  TWO  MACROS  ARE  USED  TO  \>1}\H^ 
OPERATOR  ROUTINES.   'DOPINS'  DEFINES  A  DYADIC  OPERATOR,  AND 
•MOPINS*  DEFINES  A  MONADIC  OPERATOR.  THE  ARGUMENTS  TO  THE 
MACROS  ARE  THE  NAME  OF  THE  OPERATOR  ROUTINE  AND  THE  OPERATOR 
NUMBER  FOR  THE  OPERATOR  (WHICf.  CAN  BE  FOUND  BY  LOOKING  IN 
•VTAB').  FOR  DYADIC  SCALAR  OPS,  THE  LEFT  ARG  IS  IN  AC1 ,  THE 
RIGHT  ARG  IS  IN  AC2,  AND  THE  RESULT  \%   RETURNED  IN  ACO.  FOR 
MONADIC  SCALAR  OPS,  THE  ARGLWENT  IS  IN  AC1,  AND  THE  RESULT 
IS  RETURNED  IN  ACO.  SCALAR  K*%   MUST  LEAVE  THEIR  ARGUMENTS 
INTACT! 


LAS TOP 
SCALOr 


=120 
=30 


.•MAXIMUM  NUMBER  OF  OPERATORS!  !  ! 
;MAXIMlJW  NUMBER  OF  SCALAR  OPERATORS!!! 


.'THESE  MACRO  DEFINITIONS  ARE  USED  FOR  THE  RESIDENT  OP'S  AND  OTHER 
.•VARIOUS  SUBROUTINES.   THE  MACRO  'PRMRES'  IS  USED  TO  PREFIX  PERMENENTLY 
.•RESIDENT  CODE  WHICH  IS  FOLLED  BY  A  MFTF'  AND  'LIST'. 
.THE  'LIST'  MACRO  IS  USED  TO  END  OVERLAY/RESIDENT  SECTIONS  AND  MUST 
;BE  USED  AFTER  EVERY  'MOPINS'.  'DOPINS'.  OR  'PRMRES'  SECTION.   IF 
;ANY  MORE  OP'S  ARE  ADDED.  BE  SURE  TO  INCLUDE  THEM  IN  THE 
.•RESIDENT/OVERLAY  LIST  IN  THE  COMMON  FILE. 


.MACRO  DOPINS  NAME. NUM.BITS. BOZO. NOTME 
A\^         NDF  D.'NAME.  .ERROR  ;D.'NAME  IS  NOT 
A^   GT  HJ^ 

BITSX=6ITS^0 

BITSYs«OZO^0 

.PSECT  BOPTB 

.=80PTAB^<Nlf1/2> 

.BYTE  BITSX!T.OPFN 

.PSECT  DYD8TB 

.=DvDBTL^<NUM/2> 
.BYTE  BITSY 

.ENDC 
.PSECT  CODE 

ssssss=. 

.PSECT  DYDTB 
.=DYDTAB^Nll^ 
A^   EG  D.'NVIF 

.WORD  DS'NAME 

.PSECT  CODE 

.LIST 


'DEFINED  BY  OVROP  MACRO  1 


D$*NV€ 

•   • 
»   • 

.NLIST 

An 

1 

A^ 

NB  NOTME 

.WORD 

NOTME 

.GLOBL 

NOTME 

.IFF 


.GLQBL      DS'NAME 
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66 
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69 
70 
71 
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73 
7A 
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76 
17 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 

I? 

92 

93 

9A 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

110 
Iff 

113 
lU 
115 

116 

119 

1 

1 

159 

160  007400 
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rw 


? 


.WORD   DS'NAWE 
.ENDC 

.PSECT  CODE 
.IFT 
.ENDW 

.MCRO  MOPINS  NA/1E,NUM,BITS,B0Z0,N0mE 

.IIF  r^^   M. 'NAWE,       .ERROR  ;D.'NAWE  IS  NOT  DEFINED  BY  OVROP  MACRO! 

A^   GT  NUM 

B1TSX=8ITS>0 

BITSY=80Z0*0 

.PSECT  BOPTB 

.=80PTA8'KNUW/2> 

.BYTE  BITSXIT.OPFN 

.PSECT  MONBTB 

.=M0NBTL^<NU«/2> 
.BYTE  BITSY 

.ENDC 
.PSECT  CODE 

.PSECT  M0NT8 
.=MDNTAB^Nlf1 
,U   EQ  M.'NAME 
,U  NE   NUM 

.WORD  M$'NAME 
.PSECT  CODE 
.LIST 
MS'NAME:: 

.NLIST 
.ENDC 
.Iff 

.IF  NE  NIJM 

.If   NB  NOTME 

.WORD   NOTME 
.GLOBL  NOTME 
Aff 

.WORD   MS'NAME 
.GLOBL  MS'NAME 
.ENDC 

.PSFCT  CODE 
.ENDC 
.IFT 
.ENDM 

.MACRO  LIST 

.ENDC 
.ENDM 

.MACRO  PRMRFS 
.If   EO  0 
.ENDM 

;*********^«  ASSEMBLING  TH&  FILE!!!  I! 


PRMRES 


;•«****•***«  ASSEMBLING  THE  FIlEII 


t  I  I 
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.•TABLE  OF   MONADIC  OPERATORS 

.PSECT  M0NT8 

WFILL   SCALOP,SYNER 
MONTAB:: 

WFILL   LASTOP^SYNER 


.•TABLE  OF  DY.ADIC  OPERATORS 

.PSECT  DYDT8 

WFILL   SCALOP.SYNER 
DYDTAB:: 

WFILL   LASTOP,SiNER 


.•OPERATOR  DESCRIPTION  BITS  (BYTE  TABLE!) 

.PSECT  BOPTB 
B0PTA6:: 

BFILL  LASTOP.O 


.•TABLE  OF  DYADIC  OPERATOR  BITS  (BYTE  TABLED 

.PSECT  DYDBTB 
DYDBTL:: 

BFILL   SCALOP.O 


.•TABLE  OF  MONADIC  OPERATOR  BITS  (BYTE  TABLE!) 

.PSETT  MONBTB 
MONB'  :; 

BFILL        SCALOP.O 

LIST 


APLOP   MACRO 
DEFINITIONS 

201  000030 
000001 
000001 
000062 
000000 

202 

203 

20A  000000 

205  000006 

206  00001 A 
208  000016 
209 
210  000016 

000056 
000016 

211 

212 

219  000016 

220  00002A 
222  000032 
224  00003A 
225 
226  00003A 

000002 
000002 
00006A 
000034 

227 

228 

229  000034 

230  000042 

231  000050 
233  000052 
234 
235  000052 

000054 
000052 

236 

237 

244  000052 

245  000060 
247  000066 
249  000070 
250 
251 
252  000070 

000003 
000003 
000066 
000070 

253 

254 

255  000070 

256  00u072 

257  000076 

258  000112 

259  00('116 
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003 
244 
000000' 


013737  003200'  003154* 
063737  003222'  003154' 


000016' 


003 
044 
000034' 


013737  003200'  003154' 
163737  003222'  003154' 


000052' 


003 
354 
000070' 


013701  003200' 
010137  003154' 


DOPINS 


D$PLUS 
.S8TTL 


DOPINS 

DSSPLU; 
.S8TTL 


DOPINS 


D$SUB; 
.S8TTL 


DOPINS 

D$SSUB: 
.SeTTL 


DOPINS 


DSMUL: 
.S8TTL 


T^ 


PLUS,2,T.S0P,.INTEGER^'CS.IDN+CS.ASS 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 
.WORD  DSPLUS 


SCALAR  FUNCTION 


MOV 
ADD 

RETURN 
LIST 


LARGVA,RESVAL 
RARGVA,RESVAL 


ADDITION 

;6ET  LEFT  ARG 
;ADD  RIGHT  A.RG 


$PLU,-2 
.WORD  D$$PLU 

SCALAR  FUNCTION 


STF 
ADDF 
RETURN 
LIST 


AC1,AC0 
AC2,AC0 


ADDITION,  FLOATING 

;6ET  LEFT  ARG 
;ADD  RIGHT  ARG 


SUB,4,T.S0P,.INTEGER^CS.IDN 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 
.WORD  D$SUB 


SCALAR  FUNCTION 


MOV 
SUB 

RETURN 
LIST 


LARGVA,RESVAL 
RARGVA,RESVAL 


SUBTRACTION 

;GET  LEFT  ARG 
;:fiTRACT  RIGHT  ARG 


$SUB,-4 
.WORD  DSSSUB 

SCALAR  FUNCTION 


STF 
SUBF 
RETURN 
LIST 


AC1,AC0 
AC2,AC0 


SUBTRACTION,  FLOATING 

;GET  LEFT  ARG 

; SUBTRACT  RIGHT  ARG 


MUL,6,T.S0P,.INTEGER*CS.B00L^CS.IDN>CS.0NE*CS.ASS 
.8YTE  BITSXIT.OPFN 
.BYTE  BITSY 
.WORD  DSMUL 


SCALAR  FUNCTION 


PUSH 

MOV 

MUL 

MOV 

POP 


R1 

LARGVA,R1 

RARGVA,R1 

R1,RESVAL 

R1 


MULTIPLY 


SAVE  WORKING  REGISTER 

GET  LEFT  ARG 

TIMES  RIGHT  ARG 

STORE  RESULT 

RESTORE  R1  (CARRY  BIT  THE  SAME) 


F   16 
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SCALAR  FUNCTICDN 

MULTIPLY 

260  000120 

103001 

BCC 

1$ 

;FITS  IN  16  BITS 

261   000122 

000262 

SEV 

;DOESN'T  FIX,   OVERFLOW 

262  000124 

1$: 

RETURN 

26A  000126 

LIST 

265 

266 

267  000126 

DOPINS 

$MUL,- 

6 

000052 

000126' 

.WORD 

D$$MUL 

000126 

D$$MUL  : 

• 
• 

268 

.S8TTL 

SCALAR 

FUNCTION                   ML'LTIPLY,   FLOATING                                                                                         1 

269 

276  000126 

STF 

AC1,AC0 

;GET  LEFT  ARG 

277  000134 

MULF 

AC2,AC0 

^MULTIPLY  BY  RIGHT  ARG 

273  OO0H2 

CFCC 

; OVERFLOW? 

279  000146 

102001 

BVC 

IS 

;N0 

280  000150 

104417 

DOMERR 

;YES 

282  000152 

1$: 

RETURN 

284  000154 

LIST 

285 

286  000154 

DOPINS 

DIVJO 

,T.SOP,.FLOAT*CS.BOOL^CS.IDN^CS.ONE                                                                                           I 

000004 

003 

.BYTE 

BITSXiT.OPFN 

000004 

156 

.BYTE 

BUSY 

000070 

000154* 

.WORD 

DSD  IV 

000154 

DSDIV:: 

287 
288 
306  000154 

.S8TTL 

SCALAR 

FUNCTION                    DIVISION                                                                                                                 | 

TSTF 

AC2 

;DIVISION  BY  ZERO? 

307  000162 

CFCC 

:GET  CONDITION  CODES 

308  000166 

001013 

BNE 

1$                              ! 

; NON-ZERO,  GOOD 

309  000170 

TSTF 

AC1 

;DIVIDE   INTO  ZERO? 

310  000176 

CFCC 

;GET  CODES 

311  000202 

001017 

BNE 

3s               ; 

;N0,  DIVIDE  BY  0 

312  000204 

LDF 

#''F1.0,AC0 

;GET  A  1.0 

313  000214 

000411 

BR 

2S 

•DONE 

314  000216 

1$: 

STF 

AC1,AC0 

•GET  LEFT  ARG 

315  000224 

DIVF 

AC2,AC0 

•DIVIDE  BY  RIGHT  ARG 

316  000232 

CFCC 

•CHECK  FOR  OVER/UNDER  FLOW 

317  000236 

102401 

BVS 

3s               ; 

•OOPS! 

319  000240 

2$: 

RETURN 

320 

321  000242 

104417 

3$: 

DOMERR 

^ 

DOMAIN  ERROR 

323  000244 

LIST 

324 

325 

326  000244 

DOPINS 

PWR,20 

,T.SOP,.FLOATtLS.BOOL*CS.IDN^CS.ONE                                                                                           I 

000010 

003 

.BYTE  1 

BITSXIT.OPFN 

000010 

156 

.BYTE  1 

3ITSY 

000100 

OOOOOOG 

.WORD 

DSPWR 

392  000244 

LIST 

393 

394 

395  000244 

DOPINS 

LOG, 54 

,T. SOP, .FLOATKS. BOOL                                                                                                                        1 

000026 

003 

.BYTE  1 

3ITSXIT.0PFN 

000026 

016 

.BYTE  1 

3ITSY 

000134 

OOOOOOG 

.WORD 

DSLOG 

417  000244 

LIST 

418 

G  10 
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SCALAR  FUNCTION 

DIVISION 

419 

420  000244 

DOPINS 

CIRC, 52,7. SOP, .FLOAT 

000025 

003 

.BYTE  BirSX!T.OPFN 

000025 

006 

.BYTE  BITSY 

000132 

OOOOOOG 

.WORD   DSCIRC 

477  000244 

LIST 

478 

479 

480  000244 

DOPINS 

MINJ4,T.S0P,.INTEGER*CS.800L+CS.ASS 

000006 

003 

.BYTE  BITSXiT.OPFN 

000006 

214 

.BYTE  BITSY 

000074 

000244 • 

.WORD  D$MIN 

000244 

DSMIN:: 

481 
482 
483  000244 

.S8TTL 

SCALAR  FUNCTION        I 

MINIMUM 

PUSH    LARGVA 

; ASSUME  LEFT  ARG 

484  000250 

021637 

003222' 

CMP     aSP,RARGVA 

;WERE  WE  RIGHT? 

485  000254 

002402 

BLT     1$ 

;0F  COURSE 

486  000256 

013716 

003222* 

MOV     RARGVA,aSP 

;...NOT 

487  000262 

1$: 

POP     RESVAL 

;SAVE  THE  RESULT 

488  000266 

RETURN 

490  000270 

LIST 

491 

492  000270 

DOPINS 

$MIN,-14 

000044 

000270' 

.WORD  D$$MIN 

000270 

D$$MIN: 

• 

493 
494 
507  000270 

.S8TTL 

SCALAR  FUNCTION        MINIMUM,  FLOATING 

CMPF    AC1,AC2 

; COMPARE  ARGS 

508  000276 

CFCC 

:GET  CODES 

509  000302 

003404 

BLE     1$ 

;A<B 

510  000304 

STF     AC2,AC0 

;RIGHT  ARG  IS  SMALLER 

511  000312 

000403 

BR     3$ 

;DONE 

512  000314 

1$; 

STF     AC1,AC0 

;LEFT  ARG  IS  SMALLER 

514  000322 

3$: 

RETURN 

516  000324 

LIST 

517 

518 

519  000324 

DOPINS 

MAX,16,T.S0P,.INTEGERKS 

.BOOL^CS.ASS 

000007 

003 

.BYTE  BITSXIT.OPFN 

000007 

214 

.BYTE  BITSY 

000076 

000324 • 

.WORD  DSMAX 

000324 

DSMAX :  : 

520 
521 
522  000324 

.S8TTL 

SCALAR  FUNCTION        MAXIMUM 

PUSH    LARGVA 

•ASSUME  LEFT  ARG 

523  000330 

021637 

003222* 

CMP     aSP,RARGVA 

WERE  WE  RIGHT? 

524  000334 

003002 

BGT     1$ 

OF  COURSE 

525  000336 

013716 

003222* 

MOV     RARGVA,aSP 

...NOT 

526  000342 

1$: 

POP     RESVAL 

SAVE  THE  RESULT 

527  000346 

RETURN 

529  000350 

LIST 

530 

531  000350 

DOPINS 

$MAX,-16 

000042 

000350* 

.WORD  DS$MAX 

000350 

D$$MAX  : 

■ 
• 

532 

.S8TTL 

SCALAR  FUNCTION        MAXIMUM,  FLOATING 

H  10 

APLOP   MACRO  Ml  113  08 

-FEB-80  09:04  PAGE  45-3 

) 

SCALAR  FUNCTION 

MAXIMUM. 

FLOATING 

533 

546  000350 

CMPF 

AC1,AC2 

, COMPARE  ARCS 

547  000356 

CFCC 

;GET  CODES 

548  000362 

002004 

BGE 

1$ 

;USE  A 

549  000364 

STF 

AC2,AC0 

; RIGHT  ARG  IS   LARGER 

550  00037 d 

000403 

BR 

3$ 

;DONE 

551  000374 

1$: 

STF 

AC1,AC0 

;LEFT  ARG  IS  LARGER 

553  000402 

3$: 

RETURN 

555  000404 

LIST 

556 

557 

558  000404 

DOPINS 

RES, 12 

,T.SOP,.INTEGERKS.BOOL+CS.IDN                                       1 

000005 

003 

.BYTE 

BITSXIT.OPFN 

000005 

054 

.BYTE 

BITSY 

000072 

000404 • 

.WORD 

D$RES 

000404 

DSRES:: 

559 
560 
561  000404 

.S8TTL 

SCALAR 

FUNCTION        1 

RESIDUE 

005737 

003200' 

TST 

LARGVA 

;Is  the  Left  argiment  Zero? 

562  000410 

001004 

BNE 

2$ 

;No 

563  000412 

013737 

003222' 

003154'  1$: 

MOV 

RARGVA,RESVAL 

;Yes,  Use  Right  argument  for  Result 

564  000420 

RETURN 

;Finished 

565  000422 

005737 

003222' 

2$: 

TST 

RARGVA 

;Is  the  Right  argiinent  Zero? 

566  000426 

567 

568  000430 

001771 

BEQ 

1$ 

;Yes 

PUSH 

<R1,R0> 

;No,  Save  some  Registers 

569  000434 

005000 

CLR 

RO 

; Assume  Right  argtinent  Positi\/e 

;Copy  the  Kight  argiment.  Is  it  Negative? 

570  000436 

013701 

003222' 

MOV 

RARGVA, R1 

571  000442 

002001 

BGE 

3$ 

;No,  Value  is  non-negative 

572  000444 

005300 

DEC 

RO 

;Yes,  Sign-Extend 

;Do  the  Division,  Right  /  Left 

5/'3  000446 

3$: 

DIV 

LARGVA, RO 

574  000462 

005701 

TST 

R1 

;Is  the  Remainder  Zero? 

575  000464 

001410 

6E0 

5$ 

;Yes,  Correction  not  required 

576  000466 

005737 

003222 ' 

TST 

RARGVA 

;Is  the  Right  argument  positive? 

^ff  000^72 

002012 

BGE 

6S 

;Yes 

578  000474 

005737 

003200' 

TST 

LARGVA 

;No,  Is  the  Left  argument  positive? 

579  000500 

003402 

BLE 

5$ 

;No 

580  000502 

063701 

003200' 

4$: 

ADD 

LARGVA, R1 

;Yes,  correct  the  Remainder 

581  000506 

010137 

003154' 

5$: 

MOV 

R1,RESVAL 

;Store  the  Result 

582  000512 

POP 

<R0,R1> 

;  Finished 

583  000516 

584 

585  000520 

RETURN 

005737 

003200' 

6S: 

TST 

LARGVA 

"Is  the  Left  argument  Negative? 

586  000524 

002370 

BGE 

5$ 

•No 

587  000526 

000765 

BR 

4S 

•Yes,  Correction  required 

589  000530 

590 

591 

LIST 

592  000550 

DOPINS 

$RES,- 

12 

000046 

000530' 

.UORD  1 

)$$RES 

000530 

DSSRES: 

• 
• 

593 
594 
595  000530 

.587 FL 

SCALAR 

FUNCTION        RESIDUE,  FLOATING                                     | 

TSTF 

AC1 

•SEE  WHAT  SIGN  OUR  MODULO  HAS 

596  000536 

CFCC 

597  000542 

001004 

BNE 

1$ 

SPECIAL  CAbE  IF  MODULO  IS  ZERO 

598  000544 

STF 

AC2,AC0 

IF  MODULO=0,  REMAINDER  IS  RIGHT  ARG 

APLOP       MACRO  Mil  13     08-FEB-80  09:0A     PAGE  A5-4 
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T17 


599  000552 
600 

601  000554 

602  000562 

603  000570 

604  000576 

605  000604 

606  000614 

607  000622 

60G  000626  003404 

609  000630 

610  000640 

611  000646 

612  000654 

613  000662 

614  000670 
616  000672 
617 

618 

619  000672 

00001 1  003 
000011  156 
000102  OOOOOOG 

639  000672 


1$: 


2$: 


RETURN 

STF 

STF 

DIVF 

STF 

MODF 

CMPF 

CFCC 

BLE 

SUBF 

MULF 

STF 

SUBF 

LDF 

RETURN 

LIST 


AC1  ,AC4 

AC2,AC3 

AC1,AC3 

AC3,AC0 

*^F1.0-AC0 

AC0,AC3 

2$ 

#*F1.0,AC1 

AC4,AC1 

AC2,AC0 

AC1,AC0 

AC4,AC1 


.•FINISHED  Already  ? 

;SAVE  LEFT  SIDE 
;NEED  to  use  THIS 
;FIND  RIGHT/LEFT 
;COPY  RIGHT/LEFT 
;AND  GRAB  THE  FRACTION 
;RESULT  <  AHG  ? 


OF  THAT  DIVISION 


<=  ARG,  NO  FIXUP 
FIXUP  FOR  NEGATIVE 
NOW  MAKE  IT  A  REMAINDER 
SAVE  REMAINDER  AS  POSSIBLE  RESIDUE 
B  -  A  ♦  FLOOR(B  /  A) 
.-RESTORE  AC1 


DOPINS 


COMB. 22, T.  SOP.. FLOAT^CS. BOOL  ^-CS.IDN^CS. ONE 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.'ii/ORD   D$COMB 

LIST 


J  10 
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SCALAR  FUNCTION 

RESIDUE,  FLOATING 

641  000672 

DOPINS 

AND,42,T.S0P,.B00LEANKS 

.IDN'^CS.ONE+CS.ASS 

000021 

003 

.BYTE  BITSXiT.OPFN 

000021 

342 

.BYTE  BITSY 

000122 

000672' 

.WORD  DSAND 

000672 

DSAND : : 

642 
643 
644  000672 

.SBTTL 

SCALAR  FUNCTION                   / 

i\ND 

105037 

0031 54 ' 

CLRB         RESVAL 

; ASSUME  0 

645  000676 

105737 

003200' 

TSTB         LARGVA 

; CHECK  ARG 

646  000702 

001405 

BEO           1$ 

;0  RESULT 

647  000704 

105737 

003222' 

TSTB         RARGVA 

; CHECK  ARG 

648  000710 

001402 

BEQ           1$ 

;0  RESULT 

649  000712 

105237 

003154' 

INCB         RESVAL 

;SET  TO  1 

650  000716 

1$: 

RETURN 

652  000720 

LIST 

653 

654 

655  000720 

DOPINS 

OR,40.T.SOP,.BOOLEAN^-CS. 

IDN+CS.ASS 

000020 

003 

.BYTE  BITSXiT.OPFN 

000020 

242 

.BYTE  BITSY 

000120 

000720' 

.WORD  DSOR 

000720 

D$OR:: 

656 

.S8TTL 

SCALAR  FUNCTION                   OR 

657 

658  000720 

113737 

003200'  003154' 

M0V8         LARGVA, RESVAL 

;GET  ONE  ARG 

659  000726 

153737 

003222'  003154' 

BLS8         RARGVA, RESVAL 

;0R  IT 

660  000/34 

RETURN 

662  000736 

663 

664 

LIST 

665  000736 

DOPINS 

NN,46,T. SOP,. BOOLEAN 

000023 

003 

.BYTE  BITSXiT.OPFN 

000023 

002 

.BYTE  BITSY 

000126 

000736' 

.WORD  D$NN 

000736 

D$NN:: 

666 

667 

668  000736 

.S8TTL 

SCALAR  FUNCTION                   NAND 

105037 

003154' 

CLRB         RESVAL 

•ASSUME  0 

669  000742 

105737 

003200' 

TSTB         LAHGVA 

•GET  ARG 

670  000746 

001403 

BEO           1$ 

•IT'S  0,   RETURN  1 

671  000750 

105737 

003222' 

TSTB         RARGVA 

•GET  ARG 

672  000754 

001002 

BNE           2$ 

•IT'S  1,   RETURN  0 

673  000756 

105237 

003154' 

1$: 

INCB         RESVAL 

•RETURN  A  1 

674  000762 

2$: 

RETURN 

676  000764 

tn 

tn  000764 

LIST 

DOPINS 

NR,44,T. SOP, .BOOLEAN 

000022 

003 

.BYTE  BITSXiT.OPFN 

000022 

002 

.BYTE  BITSY 

000124 

000764  • 

.WORD  DSNR 

000764 

D$NR;: 

679 
680 
681  000764 

.S8TTL 

SCALAR  FUNCTION                   NOR 

113737 

003200'  003154' 

WOVB         LARGVA, RESVAL       . 

COPY   1ST  ARG 

682  0^112 

105137 

003154' 

COMB         RESVAL 

NOT    (ISr  ARG) 

683  000776 

143737 

003222'  003154' 

BIC8         RARGVA, RESVAL       . 

(NOT    (1ST  ARG))   AND   (NOT    (2ND  ARG)) 

684  001004 

142737 

177776    003154' 

BIC8         f'^d, RESVAL 

CLEAR  GARBAGE  BITS 

K  10 
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SCALAR  FUNCTION 

NOR 

685  001012 

RETURN 

687  001014 

LIST 

688 

689 

690  001014 

DOPINS 

LT,24,T.LIT^T.SOP, 

.CHARACTER+CS.IDN 

000012 

023 

.BYTE  BITSXIT.OPFN 

000012 

040 

.BYTE  BUSY 

000104 

001014' 

.WORD  D$LT 

001014 

D$LT:: 

691 
692 
693  001014 

.S8TTL 

SCALAR  FUNCTION 

LESS  THAN 

105037 

003154' 

CLRB    RESVAL 

.•ASSUME  0 

694  001020 

CALL    aCOMRTN 

.•COMMON  COMPARE  RTN 

695  001024 

002002 

BGE  1$ 

696  001026 

105237 

003154' 

INC8    RESVAL 

;IT'S  A  1 

697  001032 

000242 

1$: 

CLV 

698  001034 

RETURN 

700  001036 

LIST 

701 

702  001036 

DOPINS 

LE,26,T.LIT^T.SOP,, 

.CHARACTFR-^CS.IDN+CS.ONE 

000013 

023 

.BYTE  BITSXIT.OPFN 

000013 

140 

.BYTE  BITSY 

000106 

001036' 

.WORD  DSLE 

001036 

D$LE:: 

703 
704 
705  001036 

.S8TTL 

SCALAR  FUNCTION 

LESS  THAN  OR  EQUAL 

105037 

003154' 

CLRB    RESVAL 

.•ASSUME  0 

706  001042 

CALL    aCOMRTN 

.•COMMON  COMPARE  RTN 

707  001046 

003002 

BGT     1$ 

.-NOT  •l.ESS  THATJ  OR  EQUAL  TO" 

708  001050 

105237 

003154' 

INCB    RESVAL 

.-IT'S  A  1 

709  001054 

000242 

1$: 

CLV 

710  001056 

RETURN 

712  001060 

LIST 

713 

714 

715  001060 

DOPINS 

EQ,30,T.LIT^T.SOP,. 

CHARACTER^-CS.IDN+CS.ONE 

000014 

023 

.BYTE  BITSXIT.OPFN 

000014 

UO 

.BYTE  BITSY 

000110 

001060' 

.WORD  DSEQ 

001060 

D$EQ:: 

716 

.SSTTL 

SCALAR  FUNCTION 

EQUAL 

717  001060 

105037 

003154' 

CLRB    RESVAL 

.'AssLine  result  is  zero  (i.e.  Not  equal) 

718  001064 

005737 

003170' 

TST     LARGTY 

;Is  the  Left  argument  character  type? 

719  001070 

001412 

BEO     3$ 

;  Yes 

720  001072 

005737 

003212' 

TST     RARGFY 

;No.  Is  the  Right  argument  character  type? 

721  001076 

001405 

BEQ     2$ 

;  Yes 

722 

723  001100 

1$: 

CALL    aCOMRTN 

.•Argunents  have  the  same  type.  Are  they  equal? 
;Not  "EQUAL" 

724  001104 

001002 

BNE     2$ 

725  001106 

105237 

003154' 

INCB    RESVAL 

.•Arguments  are  Equal 

726  001112 

000242 

2$: 

CLV 

127  001114 

728 

729  001116 

RETURN 

005737 

003212' 

3$: 

TST     RARGTY 

;Is  the  Right  argiment  character  type? 

730  001122 

001373 

BNE     2$ 

;No 

731  001124 

000765 

BR      1$ 

;  Yes 

733  001126 

LIST 

W        '   ^  ^ 

L  16 
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SCALAR  FUNCTION 

EQUAL 

734 

735  001126 

DOPINS 

GE,36. 

J.LIT-^T.SOP,.CHARACTER•^CS.IDN+CS.ONE 

000017 

023 

.BYTE 

BITSXIT.OPFN 

000017 

140 

.BYTE 

BITSY 

000116 

001126* 

.'JORD 

D$GE 

001126 

D$GL : : 

736 
737 
738  001126 

.S8TTL 

SCALAf 

\   FUNCTION        ( 

3REATER  THAN  OR  EQUAL 

105037 

0031 54 • 

CLR8 

RESVAL 

;ASSUME  0 

739  001132 

CALL 

aCOMRTN 

; COMMON  COMPARE  RTN 

740  001136 

002402 

BLT 

1$ 

:Not  "GREATER  THAN  OR  EQUAL" 

741  001140 

105237 

003154* 

INCB 

RESVAL 

;SET  TO  1 

742  001144 

000242 

1$: 

CLV 

743  001146 

RETURN 

745  001150 

LIST 

746 

747 

748  001150 

DOPINS 

GT,32, 

T.LIT+T.SOP,.CHARACTER+CS.IDN 

000015 

023 

.BYTE 

BITSXIT.OPFN 

000015 

040 

.BYTE 

BITSY 

000112 

001150' 

.WORD 

DSGT 

001150 

D$GT:: 

749 
750 
751  001150 

.S8TTL 

SCALAF 

\   FUNCTION        GREATER  THAN 

105037 

003154' 

CLRB 

RESVAL 

lASSUME  0 

752  001154 

CALL 

aCOMRTN 

; COMMON  COMPARE  ROUTINE 

753  001160 

003402 

BLE 

1$ 

;NOT  'tSREATER  THAN" 

754  001162 

105237 

003154' 

INCB 

RESVAL 

•SET  TO  1 

755  001166 

000242 

1$: 

CLV 

756  001170 

RETURN 

758  001172 

759 

760 

LIST 

761  001172 

DOPINS 

NE,34, 

T.LIT*T.SOP,.CHARACTER>CS.IDN 

000016 

023 

.BYTE 

BITSXIT.OPFN 

000016 

040 

.BYTE 

BITSY 

000114 

001172' 

.WORD 

D$NE 

001172 

D$NE : ; 

762 
763 
764  001172 

.S8TTL 

SCALAR 

(  FUNCTION        NOT  EQUAL 

105037 

003154' 

CLRB 

RESVAL 

AsSLine  the  result  is  zero  (i.e.  Equal) 

765  001176 

005737 

003170' 

TST 

LARGTY 

Is  the  Left  argument  character  type? 

766  001202 

001412 

BEO 

4S 

Yes 

767  001204 

005737 

003212' 

TST 

RAHGTY 

No,  Is  Right  argunent  chcaracter  type? 

768  001210 
769 

770  001212 

771  001216 

001403 

BEO 

2$ 

Yes 

001402 

1$: 

CALL 
BEO 

SCOMRTN 

3$            ; 

Args  have  the  same  type.  Are  they  Not  equal? 
Equal 

712   001220 

ir5237 

003154' 

2$: 

INCB 

RESVAL         ; 

Not  equal 

773  001224 

000242 

3$: 

CLV 

774  001226 

RETURA 

1 

775 

776  001230 

005737 

003212' 

4$: 

TST 

RARGTY         ; 

Is  the  Right  argiment  character  type? 

777   001234 

001371 

BNE 

fl 

No 

778  001236 

000765 

BR 

Yes 

780  001240 

LIST 

781 
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783  001240 
000006 
000006 
000074 

786  001240 

787 

788  001240 
000007 
000007 
000076 

791  001240 

792 

793  001240 
000001 
000001 
000062 
001240 


794 
795 
796 
797 
799 
800 
801 
802 


001240 
001246 
001250 


001250 
000056 
001250 

803 

804 

805  001250 

806  001256 
OOS  001260 
809 

811  001260 
000044 
001260 

812 

813 

814  001260 

815  001262 

816  001264 

817  001272 

818  001276 

819  001300 

820  001304 

821  001312 
S22   001316 

823  001326 

824  001334 

825  001344 

826  001354 

827  001360 

828  001362 

829  001372 

830  001402 

831  001406 


003 
034 
001240' 


003 
034 
001240* 


003 
014 
001240* 


013737     003134*   003154* 


MOP INS 


MOPINS 


MOPINS 


TTW 


FLRJ4,T.S0P,.INTEGERKS.800L^CS.FL0AT,M$IDN 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 

.WORD   MSIDN 
LIST 

CEIJ6,T.S0P,.INTEGER*CS.B00L"t'CS.FL0AT,M$IDN 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 

.WORD   MSIDN 
LIST 

IDN,2,T.S0P,.INTEGER^CS.B00L 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 
.WORD  MSIDN 

IDENTITY 


001250* 


001260* 


005000 


002002 

012700  000010 


002004 


005404 


MSIDN:: 

.S8TTL 

SCALAR 

FUNCTION 

MOV 

MONVAL,RESVAL 

RETURN 

LIST 

MOPINS 

$IDN,-i 

P 

.WORD  f 

i$$IDN 

M$$IDN: 

• 
• 

.S8TTL 

SCALAR 

FUNCTION 

STF 

AC1,AC0 

RETURN 

LIST 

MOPINS 

SFLR,-' 

14 

.WORD  M$$FLR 

M$$FLR: 

• 
• 

.S8TTL 

SCALAR 

FUNCTION 

PUSH 

RO 

CLR 

RO 

TSTF 

AC1 

CFCC 

BGE 

11 

MOV 

#8.,R0 

1$: 

STF 

AC1,AC3 

CALL 

TRUFLR 

ADDF 

#*F1.0,AC1 

ABSF 

AC1 

MULF 

CTEPS(R0),AC1 

CMPF 

CTRMAX(R0),AC1 

CFCC 

BGE 

2$ 

LDF 

CTRMAX(R0),AC1 

2$: 

CMPF 
CFCC 

BLE 

FUZZ,AC1 

IDENTITY,  FLOATING 
;THIS  IS  EASY! 


FLOOR,  FLOATING 

;Get  a  working  register 
;AssLine  a  positive  arguiient 
;Is  it  really  positive? 


Yes 

No,  point  to  constants  for  negative  argument 

Copy  the  argtment 

Get  the  true  floor  in  AC1 

1  ♦  .FL  A 

.AB  1  ♦  .FL  A 

EPS  #  .AB  1  ♦  .FL  A 

RMAX  <  EPS^.AB  U.FL  A  ? 


No 

Yes,   Now  have  RMAX   .K    EPS  #   .AB 

8XCT    >  RMAX.FL   EPS#.A6   U.fL    A   ? 

;No 


.^l    A 


APLOP      fWCRO  Ml  113     08- 
SCALAR  FUNCTION 

832  0OU10 

833  00H20 
83^  00H26 

835  OOU32 

836  00U40 

837  001446 

838  001456 
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3$: 


e39  001462 
84:  001464 
84  001472 
84c  001476 
84:  001500 

844  001510 

845  001516 

846  001520 
847 

848  001522 

849  J01530 

850  001540 

851  001544 

852  001546 

853  001556 
855  001560 
856 

857 

858  001560 
000042 
001560 

859 

860 

861  001560 

862  001566 
8c3  001574 

864  001600 

865  001606 

866  001614 
868  001616 
869 

870 

871  001616 
000002 
000002 
000064 
001616 

872 

873 

874  001616 

875  001624 

876  001630 
87B  001632 
879 

880  001632 
000054 
001632 

881 

882 

853  001632 


003012 
003404 


002004 


001560* 


005 
004 

001616' 


013737 
005437 


4$ 


TRUFLR 


1$; 


MOPINS 


LDF 

ADDF 

CALL 

STF 

SUBF 

CMPF 

CFCC 

BGT 

TSTF 

CFCC 

BLE 

SUBF 

STF 

POP 

RETURN 

STF 

MODF 

CFCC 

BGE 

SUBF 

RETURN 

LIST 


"iTRr 


FUZZ,AC1 

AC3,An 

TRUFLR 

AC1,AC0 

AC3,AC1 

CTF.MAX(R0),AC1 

41 
AC3 

4$ 

#^F1.0,AC0 
AC3,AC1 
RO 


AC1,AC0 
#^F1.0,AC0 

1$ 
#'*F1.0,AC1 


MO»-INS  SCEi,-16 

.WORD  M$$CEI 
M$$CEI:; 
.S8TTL   SCALAR  FUNCTION 


STF 

NEGF 

CALL 

NEGF 

LDF 

RETURN 

LIST 


AC1,-(SP) 

AC1 

M$$FLR 

ACO 

(SP)*,AC1 


NEG,4,T.S0P,. INTEGER 
.BYTE  BITSXIT.OPFN 
.BYTE  BUSY 
.WORD  MSNEG 


Yes,  Now  have  BXCT  .CE  RMAX  .FL  EPS#.A8  U.FL  A 

A  *   BXCT  .CE  RMAX  .FL  EPS  #  .A6  1  ♦  .FL  A 

.FL  A  ♦  BXCT  .CE  R'lAX  .FL  EPS  *  .AB  1  ♦  .FL  A 

Copy  the  above  and  call  ft  F 

F  -  A 

Is  (F  -  A)  >=  Rf^X  ? 


;No 

;Is  the  argument  >  0  ? 

;No 

;  Correct  ion  for  plus  argu^nent 

; Res tore  argument 

.'Restore  working  register 


;Copy  the  argument  to  the  correct  register 

;Get  pseudo  rloor 

;Was  the  argument  negative? 

;No 

;Yes,  Correction  tor  negative  argtirients 


CEILING,  FLOATING 


Save  the  argunent 

-  A 

.fl  -  A 

-  .fl  -  A 
Restore  the  argument 


001632* 


MJNEO:: 
.S8TTL 

SCALAR  FUNCTION 

NEGATION 

003134*   003154* 
003154* 

MOV           MONVAL, RESVAL 
NE6           RESVAL 
RETURN 
LIST 

;COPy   VALUE 
;AND  NEGATE    IT 

MOPINS 

M$$NEG: 
.S8TTL 

$NEG,-4 
.WORD  MSSNEG 

• 

'scalar  FUNCTION 

NEGATION,   FLOATING 

STF            AC1,AC0 

.-COPY  ARG 
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884  001 6A0 

885  001 6A6 
887  001650 
888 

889 

890  001650 
000003 
000003 
000066 
001650 

891 

892 

893  001650 

894  001654 

895  001660 

896  001662 

897  001666 

898  001670 

899  001674 
901  001676 
902 

903  001676 
000052 
001676 

904 

905  001676 

906  001704 

907  001712 

908  001716 

909  001720 

910  001730 

911  001732 

912  001742 
914  001744 


47-2 


TIT 


NEGF 

RETURN 

LIST 


ACO 


;N0  SWEAT 


003 
034 
001650* 


005037  003154" 

005737  003134' 

003402 

005237  003154* 

002002 

005337  003154* 


MOPINS 


SIGN, 6, T. SOP,. INTEGER^CS.BOOL^CS. FLOAT 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 
.WORD  MSSIGN 

SI6NUM 


001676 


003404 
002004 


915 

916 

917  001744 
000004 
000004 
000070 
001744 

918 

919 

920  001744 

921  001752 

922  001756 

923  001760 

924  001770 

925  001776 

926  002000 
928  002002 
929 

930  002002 
OOO010 
000010 
0OO100 

939  002002 


003 
016 
001744* 


001410 


104417 


003 
006 
OOOOOOG 


MSSIGN: 

• 
• 

.S8TTL 

SCALAR 

FUNCTION 

CLR 

RESVAL 

TST 

MONVAL 

BLE 

1$ 

INC 

RESVAL 

1$: 

6GE 

2$ 

DEC 

RESVAL 

2$: 

RETURN 
LIST 

MOPINS 

$SIG,-6 

> 

.WORD  M$$SIG 

M$$SI6: 

• 
• 

.SBTTL 

SCALAR 

FUNCTION 

CLRF 

ACO 

TSTF 

AC1 

CFCC 

BLE 

1$ 

lDF 

#*F1.0,AC0 

1$: 

BGE 

2$ 

SUBF 

#^F1.0,AC0 

2$: 

RETURN 
LIST 

CLEAR  (ASSUME  0) 

TEST  ARG 

LESS  THAN,  SIGN  NEGATIVE 

VALUE  IS  1 

NOT  NEGATIVE 

VALUE   IS  -1 


SIGNUM,   FLOATING 
CLEAR  (ASSUME  0) 
TEST  ARG 
GET   CODES 

LESS  THAN,   SICN  NEGATIVE 
VALUE   IS   1 
NOT  NEGATIVE 
VALUE   IS  -1 


MOPINS 


MSRCIP; 
.SBTTL 


RCIP,10,T.SnP,.FLOAT^CS.BOOL 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 
.WORD  M$RCIP 


SCALAR  FUNCTION 
AC1 


2$: 

MOPINS 


TSTF 

CFtC 

BEQ 

LDF 

DIVF 

RETURN 

DOMERR 

LIST 


2$ 

#*F1.0.AC0 
AC1,AC0 


RECIPROCAL 


TEST  ARG 
GET  CODES 
NON-ZERO,   GOOD 
GET   1.0 
DIVIDE  BY  ARG 


; DOMAIN  ERROR 


EXP, 20, T. SOP,. FLOAT 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 

.WORD       MSEXP 
LIST 


APLOP 
SCALAR 
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C  11 


940 

941 

942  002002 
000026 
000026 
000134 

949  002002 

950 

951 

952  002002 
000025 
000025 
000132 
002002 


003 
016 
OOOOOOG 


003 
006 
00200? • 


953 
954 
955 
956 
957 


002002 
002010 
002020 

959  002022 

960 

961  002022 

962  000000 
963 

964  000000 
000006 

966  000010 

967 

968 

969  000010 
000005 
000005 
000072 
002022 

970 

971 

972  002022 

973  002030 

974  002032 

975  002036 
002040 


040511 
064302 


007732  121041 


003 
014 
002022 • 


013737  003134'  003154* 

002002 

005437  0031 5'*' 


977 
978 
979 


002040 
000046 
002040 


002040' 


980 
981 

983  002040 

984  002046 
990  002054 
992  002056 
993 

995  00c  56 
000C11 
000C11 
000102 


003 

016 
OOOOOOG 


MOP INS 


MOPINS 


MSPITM: 
.S8TTL 


PRMRES 
PI:: 


MOPINS 


M$ABS: 
.S8TTL 


1$: 


MOPINS 

M$$A8S : 
.S8TTL 


MOPINS 


LN,54,T.SOP,.FLOAT*CS.BOOL 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 

.WORD   M$LN 
LIST 


PITM, 52, T. SOP,. FLOAT 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 
.WORD  MSPITM 


SCALAR  FUNCTION 


STF 
MULF 
RETURN 
LIST 


AC1,AC0 
PI,ACO 


PI    TIMES 

;COPY  ARG 
.-MULTIPLY  BY  PI 


.PSECT     TABLES 

.FLT4  3.14159265358979323846 

LIST 


A6S,12,T.S0P,.INTEGER+CS.800L 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSr 
.WORD  MSABS 


SCALAR  FUNCTION 


MOV 

BGE 

NEG 

RETURN 

LIST 


MQNVAL,RESVAL 

1$ 

RESVAL 


ABSOLUTE  VALUE 


COPY  VALUE 
POSITIVE  NUMBER 
NO,   MAKE   IT   SO 


$A8S,-12 
.WORD  M$$AfiS 

SCALAR  FUNCTION 


STF 
A8SF 
RETURN 
LIST 


AC1,AC0 
ACO 


ABSOLUTE   VALUE,    FLOATING 

;COPY  ARG 
;GOOD  OLD  FPPl 


FACT, 22,  T.  SOP,.  FLOATKS. BOOL 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 

.WORD       MSFACT 
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D  11 


1002  002056 

1003 

100A 

1005  002056 
00002A 
00002A 
000130 
002056 

1006 

1007 

1008  002056 

1009  002062 

1010  002066 

1011  002070 

1012  002072 

1013  002100 

1014  002106 

1015  002110 

1016  0021 K 

1017  002120 

1018  002124 

1019  002126 
1020 

1021  002130 

1022  002134 

1023  002142 

1024  002146 

1025  002152 

1026  002156 

1027  002160 
1028 

1029  002164 

1031  002166 

1032 

1033 

1034  002166 
000040 
000040 
000160 
002166 

1035 

1036 

1037  002166 

1038  002172 

1039  002176 

1040  002200 

1041  0C2202 

1042  002210 

1043  002216 

1044  002220 

1045  002224 

1046  002230 

1047  002232 
1048 

1049  002254 

1050  002240 

1051  002246 


001 
000 
002056' 


013702  003120' 

013701     003124' 

001001 

104417 

016137  OOOOOOG  003132' 

012737  OOOOOOG  003152' 

010200 

01 2701  000002 

016203  000004 

001417 

011202 


113737  003134'  003154' 

105437  003154' 

105237  003154' 

104402 


MDPINS 


MSNOT: 
.S8TTL 


1$: 


2$: 


001 
000 
002166' 


013702  003120' 

013700  003124' 

001001 

104417 

016037  OOOOOOG  003132' 

016037  OOOOOOG  003152' 

010200 

016203  000004 

001415 

011202 


3$: 


MOPINS 


MSROLL 
.S8TTL 


1$: 


2$: 


LIST 


NOT, 50 

.BYTE  BITSXIT 
.BYTE  BITSY 
.WORD  M$NOT 


OPFN 


SCALAR  FUNCTION 


NOT 


MOV 

MOV 

BNE 

DOMERR 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

BEQ 

MOV 

CALL 

M0V8 

NEGB 

INCB 

CALL 

SYSERR 

SOB 

RETURN 
LIST 


M0NBLK,R2 
M0NTYP,R1 
IS 

aM0NCT(R1),M0NCvt 

#SM.B8,RESCVT 

R2,R0 

#.B00LEAN,R1 

GETSM3 

A.ALEN(R2).R3 

3$ 

(R2),R2 


Get  pointer  to  data  array  block 

Get  source  type 

Character  type? 

Yes,  A  No  No 
;6et  source  fetch  routine  pointer 
;6et  result  store  routine  pointer 

Copy  the  source  pointer 

Result  type  is  Boolean 

Get  some  space  for  the  result 

Get  the  size  of  ♦'he  result 

Is  the  source  a  null  array? 

No,  Point  to  the  source  data 


aMONCVT 

MONVAL,RESVAL 

RESVAL 

RESVAL 

iRESCVT 

R3,2$ 


.•Fetch  a  source  value 
;Copy  it  to  the  result,  CO, 13 
.-Complement  it,  CO, -13 
; Convert  to  Boolean,  CI, 03 
; Store  it  away 

;Loop  for  all  the  elements 

;AU  done 


ROIL, 100 

.BYTE  BITSXIT. OPFN 
.BYT-  BITSY 
.WORD  MSROLL 

SCALAR  FUNCTION 


MOV 

MOV 

BNE 

DOMERR 

MOV 

MOV 

MOV 

CALL 

MOV 

BEQ 

MOV 

CALL 
STF 

CALL 


ROLL 


M0NBLK.R2 

1 

; POINT  TO  ARG  BLOCK 

MONTYP,RO 

^ 

;GET  THE  SOURCE  TYPE 

IS 

i 
1 

;YES 

; DOMAIN  ERROR 

FMONCT(RO) 

,M0NCV' 

r  .-MONADIC  FETCH 

FRESCT(RO) 

,RESCV^ 

r  .-RESULT  STORE  ROUTINE 

R2,R0 
GET SMI 

;COPY  POINTER 

;GET  RESULT  CORE 

A.ALEN(R2) 

,R3  , 

;GET  0   OF  NUMBERS 

3S 

1 

;DONE  IF  NONE 

(R2),R2 

i 

;POINT  TO  ARG  DATA 

aMONCVT 

;GET  MONADIC  SOURCE 

ACI.ACO 

i 

; TRANSFER  IT 

.RAND 

i 

•randomize: 

APLOP 
SCALAR 
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FUNCTION 


08-FEB-80 
ROLL 
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E  11 


1052  002252 

1053  002256 

1054  002260 

1055  002264 
1057  002266 


104402 


3$: 


CALL 

SYSERR 

SOB 

RETURN 

LIST 


aRESCVT 
R3,2$ 


SAVE   VALUE 

DIE,    SYSTEM  ERROR 

LOOP   TILL   DONE 


'^ 
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1059  002266  DOPINS  DEAL  J  00 

OOOOAO     001  .BYTE  BITSXIT.OPFN 

OOOOAO     000  .BYTE  BITSY 

000160  OOOOOOG  .WORD   DSDEAL 

1187  002266  LIST 


F  11 


G  11 
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SCALAR  FUNCTION 

ROLL 

1189  002266 

MOPINS 

SNAP/ 

102 

000041 

001 

.BYTE 

BITSXIT.OPFN 

000041 

000 

.BYTE 

BITSY 

000162 

002266' 

.WORD  MSSHAP 

002266 

MSSHAP: 

• 
• 

1190 

.SBTTL 

MIXED 

FUNCTION 

1 

SHAPE 

1191 

1192 

1193  002266 

013704 

003120' 

MOV 

M0NBLK,R4 

; POINT  TO  ARG  BLOCK 

1194  002272 

116403 

000002 

MOVB 

A.DIMS(R4) 

,R3 

;GET  NUMBER  OF  DIMS 

1195  002276 

010300 

MOV 

R3,R0 

;COPY  DIM  NUMBER 

1196  002300 

006300 

ASL 

RO 

^MULTIPLY  BY  2 

1197  002302 

062700 

000010 

ADD 

*A.DIMU2J 

^0     ; 

;ADD  HEADER  SIZE 

1198  002306 

CALL 

GETFRA 

;Get  result,  SI  frame  for  it 

1199  002312 

062720 

000010 

ADD 

*A.DIMU2, 

(R0)+  ' 

:FILL  IN  POINTER  \H   HEADER 

1200  002316 

012720 

102001 

MOV 

/lf<A.ASB+.INTEGER>*400'»-1 .  (R0)-^                                       1 

1201 

;FILL  IN  BITS 

1202  002322 

010320 

MOV 

R3,(R0)+ 

;FILL  IN  ALEN 

1203  002324 

010320 

MOV 

R3,(R0)+ 

;FILL  IN  DIM1 

1204  002326 

001407 

BEQ 

2$ 

; SORRY,  NULL  ^^Z^^K 

1205  002330 

013701 

003120' 

MOV 

M0NBLK,R1 

; POINT  TO  ARG  BLOCK 

'206  002334 

062701 

000006 

ADD 

#A.DIM1,R1 

;POINT  TO  FIRST  DIM 

1207  002340 

012120 

1$: 

MOV 

(R1)'^,(R0)' 

♦■ 

;SAVE  VALUE 

1208  002342 

SOB 

R3J$ 

:COPY  ALL  DIMS 

1209  002346 

2$: 

RETURN 

;DONE! 

1211  002350 

LIST 

1212 

1213 

1214 

1215 

1216 

1217  002350 

DOPINS 

RHO,102 

000041 

001 

.BYTE 

BITSXIT.OPFN 

000041 

000 

.BYTE 

BITSY 

000162 

002350' 

.WORD 

DSRHO 

002350 

DSRHO:: 

1218 
1219 
1220 

.S8TTL 

MIXED 

FUNCTION 

RESHAPE                                             1 

1221  002350 

012700 

100000 

MOV 

/lfT.VAL,RO 

•GET  RESULT  BITS 

1222  002354 

005737 

003212' 

TST 

RARGTY 

•CHECK  RIGHT  TYPE 

1223  002360 

001402 

BEQ 

1$ 

•NO,  LITERAL 

1224  002362 

052700 

002000 

BIS 

#T.NUM,RO 

•SET  NUMERIC  BIT 

1225  002366 

010037 

003142' 

1$: 

MOV 

RO^RESBIT 

•SET  RESULT  BITS 

1226  002372 

013704 

003162' 

MOV 

LARGBL,R4 

•POINT  TO  LEFT  ARG  BLOCK 

1227  002376 

005764 

000004 

TST 

A.ALEN(R4) 

•NULL? 

1228  002402 

001006 

BNE 

3$ 

•NO,  GOOD 

1229  002404 

012701 

000001 

MOV 

*1,R1 

YES,  SCALARS  HAVE  0  DIMENSIONS 

1230  002410 

PUSH 

R1 

•AND  A  LENGTH  OF  1 

1231  002412 

1232 

1233  002414 

000437 

BR 

20$ 

•SKIP  THIS  JUNK 

104411 

19$: 

RANERF 

1 

RANK  Error 

1234  002416 

104417 

2$: 

DOMERF 

{ 

YES,  DOMAIN  ERROR 

1235  002420 

013702 

003170' 

3$: 

MOV 

LARGTY,R2 

GET  LEFT  ARG  TYPE 

1236  002424 

001774 

BEQ 

2$ 

OOPS ! I ! 

1237  002426 

016237 

OOOOOOG  003176' 

MOV 

IM0NCT(R2), 

.LARGC\ 

/  ;CONVERT  LEFT  ARG  TO  INTEGER 

1238  002434 

122764 

000001  000002 

C.MP8 

#1,A.DIMS(R4) 

LEFT  ARG  A  VECTOR  OR  SCALAR? 

APLOP   MACRO  Ml  113  08-FBB-80  09:0A 

H  11 
PAGE  49-1 

MIXED  FUNCTION 

RESHAPE 

1239  002442 

002764 

BLT     19$           ;N0.  RANK  ERROR 

1240  002444 

012701 

000001 

MOV     4n,R1 

;GET  MULTIPLICATIVE  IDENTITY 

1241  002450 

016403 

000004 

MOV     A.ALEN(R4),R3 

;GET  #  OF  ELEMENTS 

1242  002454 

013702 

003164' 

MOV     LARGPT,R2 

;POINT  TO  FIRST  LEFT  ELEMENT 

1243  002460 

4$:     CALL    SLARGCV 

; CONVERT  TO  INTEGER 

1244  002464 

PUSH    MONVAL 

;SAVE  IT 

1245  002470 

100752 

BMI     2$ 

;LEFT  ARGUMENT  NEGATIVE? 

1246  002472 

MUL    asp,Ri 

^MULTIPLY  BY  SIZE  OF  THIS  DIMENSION 

1247  002504 

103525 

BCS     ROROX 

;T00  BIG.'! 

1248  002506 

SOB     R3,4$ 

;GET  SIZE  OF  RESULT  ARRAY 

1249  002512 

013703 

003204 • 

20$:    MOV     RARGBL,R3 

;P01NT   TO  RIGHT  BLOCK 

1250  002516 

005763 

000004 

TST     A.ALEN(R3) 

;NULL? 

1251  002522 

001002 

BNE     5$ 

;NOPE,  FINE 

1252  002524 

005701 

TST     R1 

;YES,  IS   RESULT  A  NULL? 

1253  002526 

1254 

1255 

1256 

1257  002530 

001333 

BNE     2$ 

;N0,  CAN'T  MAKE  NULL  BIGGER 

;GET  CORE  FOR  RESULT  AND  FILL  IN  RESULT  HEADER 

5$:     PUSH    R1            ;SAVE  ARRAY  LENGTH 

1258  002532 

013700 

003212* 

MOV     RARGTY^RO 

:GET  RIGHT  TYPE 

1259  002536 

ASH     SIZTAB(R0),R1 

; TIMES  ITEM  SIZE 

1260  002552 

102502 

BVS     ROROX 

;T00  BIG 

1261  002554 

005201 

INC     R1 

; ROUND  TO 

1262  002556 

042701 

000001 

BIC     #1,R1 

;  WORD  SIZE 

1263  002562 

016400 

000004 

MOV     A.ALEN(R4),R0   . 

;GET  DIM  COUNT  OF  RESULT 

1264  002566 

PUSH    RO 

;SAVE  IT 

1265  002570 

CONINC  RO 

;; CHEAT  FOR  SCALAR 

1266  002574 

006300 

ASL     RO 

;GET  »   OF  WORDS  NEEDED  FOR  DIMS 

1267  002576 

062700 

000006 

ADD     #A.DIM1,R0 

;ADD  REST  OF  HEADER  SIZE 

1268  002602 

PUSH    RO 

■SAVE  HEADER  SIZE 

1269  002604 

060100 

ADD     R1,R0 

■ADD  ON  VALUE  SIZE 

1270  002606 

CALL    GETCOR 

•AND  GET  A  BLOCK  OF  STORAGE  THAT  SIZE 

1271  002612 

SIFRAM  ,RESBIT 

Build  an  SI  frame 

1272  002624 

010010 

MOV     RO,(RO) 

■POINT  TO  SELF 

^2^S   002626 

062620 

ADD     (SP)*,(RO)^- 

■MAKE  THAT  POINTER  TO  DATA 

1274  002630 

POP     R1 

GET  DIM  COUNT 

1275  002632 

020127 

000020 

CMP     RU#DIMAX 

•TOO  MANY  DIMS? 

1276  002636 

003267 

BGT     2$ 

•YES,  FLAG  ERROR 

1277  002640 

110120 

MOVB    R1,(R0)> 

SET  DIM  COUNT 

1278  002642 

CONINC  R1 

.•CHEAT  FOR  SCALAR 

1279  002646 

113710 

003212* 

MOVB    RARGTY,(RO) 

FILL  IN  BUS  IN  HEADER 

1280  002652 

152720 

000200 

BISB    4fA.ASB,(R0)* 

SAY  II'S  AN  ARRAY 

1281  002656 

POP     R3 

GET  LENGTH  OF  RESULT 

1282  002660 

010320 

MOV     R3,(P0)> 

FILL  IN  ALEN 

1283  002662 

060100 

ADD     R1,R0 

MOVE  TO  LAST  DIM 

1284  002664 

060100 

ADD     H1,R0         ; 

WORDS  NOT  BYTES! 

1285  002666 

012640 

9$:     MOV     (SP)^,-(RO) 

FILL  IN  DIMS  GOING  BACKWARDS 

1286  002670 

1287 

1288 

SOe     R1,9$          ; 

FILL  IN  ALL  DIMS 

;NOW  THAT  RESULT  HEADER  IS  COMPLETE,  FILL  IN  THE 

1289 

; ARRAY  VALUES 

1290 

1291  002674 

016501 

1 77776 

MOV     SI.VAL(SI),R1   ; 

POINT  TO  RESULT 

1292  002700 

016104 

000004 

MOV     A.ALEN(R1),R4   ; 

GET  LENGTH 

1293  002704 

001424 

BEQ     16$           ; 

IF  ANY 

1294  002706 

011101 

MOV     aR1,R1         ; 

POINT  TO  FIRST  ELEMENT 

1295  002710 

013702 

003204 • 

MOV     RARGBL,R2      ; 

POINT  TO  SOURCE  ARRAY 
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1296  002714 

1297  002720 

1298  002722 

1299  002724 

1300  002726 

1301  002730 

1302  002732 

1303  002736 

1304  002740 

1305  002742 

1306  002744 

1307  002746 

1308  002752 

1309  002756 
1310 

1311   002760 
1313  002762 


016200    000004 

001407 

020004 

003401 

010400 


160004 
010400 
001404 
016502     177776 


104403 


MOV 

A.ALEN(R2) 

,R0  , 

;GET  ITS  LENGTH 

BEQ 

10$ 

;lf   NULL  THEN  SKIP 

CMP 

R0,R4 

;C0PY  IT  ALL? 

BLE 

11$ 

;YES 

MOV 

R4,R0 

;N0,  ONLY  COPY  PART 

11$: 

PUSH 

RO 

;SAVE  COUNT 

CALL 

ACOPY 

;C0PY  FIRST  PART 

POP 

RO 

;GET  BACK  COUNT 

10$: 

SUB 

R0,R4 

;GET  LENGTH  OF  REST  TO  COPY 

MOV 

R4.R0 
16$ 

;IT  IS  LENGTH  TO  COPY  NOW 

BEQ 

;1F   NULL  ^hEN  DONE 

MOV 

SI.VAL(SI) 

M    : 

;C0PY  SELF  TILL  DONE 

CALL 

ACOPY 

■COPY  OVER  WHAT  WE  ALREADY  HAVE 

16$: 

RETURN 

ROROX: 

WSFULL 
LIST 

1 

•NO  SPACE  LEFT 
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1315  002762 

MOPINS 

RAVL,! 

56 

000027 

001 

.BYTE 

BITSXIT.OPFN 

000027 

000 

.BYTE 

BITSY 

000136 

002762' 

.WORD  MSRAVL 

002762 

MSRAVL : 

• 
• 

1316 
1317 
1318  002762 

.S8TTL 

MIXED 

FUNCTION 

RAVEL 

013704 

003120' 

MOV 

M0NBLK,R4 

.-POINT  TO  ARG 

1319  002766 

CALL 

SAME 

.•CREATE  A  DUPLICATE  ARRAY 

1320  002772 

016500 

1 1771 t 

MOV 

SI.VAL(SI),RO 

:6ET  POINTER  TO  IT 

1321  002776 

016060 

000004 

000006 

MOV 

A.ALEN(RO),A.DIM1(RO);MAKE  INTO  A  VECTOR 

1322  003004 

112760 

000001 

000002 

M0V8 

*KA.DIMS(RO) 

;WITH  ONLY  ONE  DIMENSION 

1323  003012 

RETURN 

1325  003014 

LIST 

1326 

1327 

1328 

1329 

1330 

1331  003014 

DOPINS 

CTLM,56,T.DIM 

000027 

101 

.BYTE 

BITSXIT.OPFN 

000027 

000 

.BYTE 

BITSY 

000136 

003014' 

.WORD 

DSCTLM 

003014 

DSCTLM: 

• 
• 

1332 
1333 
1334  003014 

.S8TTL 

MIXED 

FUNCTION 

CATENATION/LAMINATION 

005037 

003142' 

CLR 

RES8IT 

;DIM  NOT  pcxjf^p  yet 

1335  003020 

013702 

003162' 

MOV 

LARGBL,R2 

.-POINT  TO  LEFT  ARG  BLOCK 

1336  003024 

116201 

000002 

MOVB 

A.DIMS(R2),R1 

.-GET  H   OF  DIMS 

1337  003030 

001003 

BNE 

1$ 

;It  IS  not  a  scalar 

1338  003032 

005201 

INC 

R1 

;; CHEAT  FOR  SCALAR 

1339  003034 

005037 

003160' 

CLR 

LARGFL 

;YES,  MARK  AS  SCALAR 

1340  003040 

116200 

000003 

1$: 

MOVB 

A.BITS(R2),R0 

.-GET  BITS 

1341  003044 

062702 

000006 

ADD 

#A.DIM1,R2 

.-POINT  TO  FIRST  DIM 

1342  003050 

013704 

003204 ' 

MOV 

RARGBL,R4 

.-POINT  TO  RIGHT  ARG 

1343  003054 

116403 

000002 

MOVB 

A.DIMS(R4),R3 

.-GET  #  OF  DIMS 

1344  003060 

001003 

BNE 

2$ 

;It  IS  not  a  scalar 

1345  003062 

005203 

INC 

R3 

.-.-CHEAT  FOR  SCALAR 

1346  003064 

005037 

003202' 

CLR 

RARGFL 

.-YES,  MARK  AS  SCALAR 

1347  003070 

116400 

000003 

2$: 

MOVB 

A.BITS(R4),R0 

.-GET  BITS 

1348  003074 

013737 

003170' 

003144' 

MOV 

LARGTY,RESTYP 

.-WHAT  IS  THE  LEFT  ARG? 

1349  003102 

001004 

BNE 

3$ 

.-IT  IS  NUMERIC... 

1350  003104 

005737 

003212' 

TST 

RARGTY 

.-WHAT  ABOUT  THE  RIGHT  ARG? 

1351  003110 

001014 

BNE 

4$ 

.-IT  IS  NUMERIC  (UNFORTUNATELY) 

1352  003112 

000427 

M 

CTLMO 

; ...  60 

1353 

1354  003114 

005737 

003212' 

3$: 

TST 

RARGTY 

;IS  THE  RIGHT  ARG  NUMERIC? 

1355  003120 

001410 

BEQ 

4$ 

;NOPE.  PROBLEM 

1356  003122 

023737 

003144' 

003212' 

CMP 

RESTYP, RARGTY 

.-WHAT  ABOUT  THE  RESULT  TYPE? 

1357  003130 

002020 

BGF 

CTLMO 

.-I  GUESS  THE  LEFT  IS  OK 

1358  003132 

013737 

003212' 

003144' 

MOV 

RARGTY, RESTYP 

.•USE  THE  RIGHT  SIDE  TYPE 

1359  003140 

000414 

BR 

CTLMO 

; ...  GO 

1360 

1361  003142 

005764 

000004 

4$: 

TST 

A.ALEN(R4) 

.•RIGHT  ARG  A  NULL  ARRAY? 

1362  003146 

001411 

BFO 

CTLMO 

;AL50  LEGAL 

1363  003150 

013737 

003212' 

003144' 

MOV 

RARGTY, RESTYP 

.•ASSUME  RIGHT  TYPE 

1364  003156 

013700 

003162' 

MOV 

LARGBL,RO 

.•POINT  TO  LEFT  ARG 

APLOP      MACRO  M1113     08-FEB-80  09:04 

PAGE  50-1 

K  11 

MIXED  FUNCTION 

CATENATION/LAMINATION 

1365  aJ3162 

005760 

000004 

TST 

A.ALEN(RO) 

;NULL  ARRAY? 

1366  003166 

1367 

1368  003170 

001401 

BEQ 

CTLMO 

;THAT  IS  LEGAL 

104417 

DOMERR 

;N0,  DOMAIN  ERROR 

1369  003172 

062704 

000006 

CTLMO: 

ADD 

XfA.DIM1,R4             ; 

;P0INT  TO  FIRST  DIM 

1370  003176 

010100 

MOV 

R1,R0 

;C0PY  M  OF  DIMS  IN  LEFT  aR 

1371  003200 

020103 

CMP 

R1,R3 

;#  OF   DIMS  MATCH? 

1372  003202 

001426 

BEQ 

6$ 

;YES1      CONFORMITY" 

1373  003204 

002413 

BLT 

5$ 

;LEFT  »  OF  DIMS  SMALLER 

1374  003206 

005737 

003202 • 

TST 

RARGFL 

;RI6HT  AR6  A  SCALAR? 

1375  003212 

001422 

BEQ 

6$ 

;YESI    CONFORMITY 

1376  003214 

160301 

SIF) 

R3,R1 

;ELSE  GET  DIFFERENCE 

1377  003216 

022701 

000001 

CfV 

M^,R^ 

;N-1   DIMS? 

1378  003222 

001003 

BNE 

4$ 

;ARGS  DON'T  CONFORM 

1379  003224 

005437 

003202 • 

NEG 

RARGFL 

;ELSE   SET  N-1    FLAG 

1380  003230 

1381 

1382  003232 

1383 

1384  00323A 

000413 

BR 

6$ 

;AND  CONTINUE 

104412 

4$: 

LENERR 

;AR6S  DON'T  CONFORM 

010300 

5$: 

MOV 

R3,R0 

:MAX  »  OF  DIMS 

1385  003236 

005737 

003160' 

TST 

LARGFL 

:LEFT  AR6  A  SCALAR? 

1386  003242 

001406 

BEQ 

6$ 

;YES,   ARGS  CONFORM 

1387  003244 

160103 

SIR 

R1,R3 

;GET  DIFFERENCE  OF   DIMS 

1388  003246 

022703 

000001 

CMP 

M^,R^S 

;N-1   DIMS? 

1389  003252 

001367 

BNE 

4$ 

:NOPE,   LENGTH  ERROR 

1390  003254 

1391 

1392  003260 

005437 

003160* 

NEG 

LARGFL 

;SET  N-1   FLAG 

010037 

003136* 

6$: 

MOV 

RO, RESULT 

;SET  POSSIBLE  DIM  ARG  FLAG 

1393  003264 

010037 

005070' 

MOV 

RO,REDCNT 

;SAVE  MAX  #  OF  DIMS 

1394  003270 

005037 

005106' 

CLR 

0PTMP8 

; CLEAR  FLAG 

1395  003274 

005737 

003112' 

TST 

DIMBLK 

;DIM  ARG? 

1396  003300 

001470 

BEQ 

9$ 

;NOPE 

1397  003302 

PUSH 

R2 

;SAVE  R2-D2  FROM  THE  DEATH  STAR 

1398  003304 

013700 

003116' 

MOV 

DIMTVP,RO 

;GET  THE   TYPE  OF    THE  DIMENSION 

1399  003310 

013702 

003114' 

MOV 

DIMPTR,R2 

; POINT   TO  DATA 

1400  003314 

CALL 

aFMONCT(RO) 

; FETCH  THE  RASCAL 

1401  003320 

POP 

R2 

; RESTORE  R2 

1402  003322 

STF 

AC1,AC0 

;COPY   INTO  REG 

1403  003330 

CALL 

F.TO.I 

; CONVERT 

1404  003334 

000407 

BR 

11$ 

;IT  DINNA  WORK   , CAPTAIN 

1405  003336 

013700 

003154' 

MOV 

RESVAL,RO 

;WE  HAVE  THE  RESULT 

1406  00334? 

163700 

000030' 

SUB 

ORIGIN, RO 

^SUBTRACT  ORIGIN 

1407  003346 

005200 

INC 

RO 

; CHEAT 

1408  003350 

003440 

BLE 

7$ 

;T00  SMALL 

1409  003352 

1410 

1411  003354 

000443 

BR 

9$ 

;JUST  RIGHT 

11$: 

STF 

AC1,AC0 

;SCOPY    IT 

1412  003362 

SUBF 

FORIGN,AC0 

;SUBTRACT  ORIGIN 

1413  003372 

ADDF 

#*F1.0,AC0 

iCORRFCT   IT 

1414  003402 

MODF 

^'^FI.CACO 

;F*AKt    INfU  INTEGER 

1^15  00341? 

STCFI 

AC1,R0 

;FIX  IT 

1416  003420 

100414 

BMI 

7$ 

;OOPS 

1417  003422 

103413 

6CS 

7$ 

;8AD  DIM  ARG 

1418  003424 

005237 

005106' 

INC 

0PTMP8 

; INDICATE   LAMINATION 

1419  003430 

005737 

003160' 

TST 

LARGFL 

;LEFT  ARG  N-1? 

1420  003434 

100676 

BMI 

4$ 

;OOPS! 

1421  003436 

005737 

003202' 

TST 

RARGFL 

;RIGHT  ARG  N-1? 
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1422  003AA2 

100673 

BMI 

A$ 

•OOPS! 

1A23  003AAA 

020037 

005070' 

CMP 

RO,REDCNT 

;ARG  TOO  BIG? 

1A2A  003A50 

003A01 

BLE 

8$ 

;N0 

1A25  003A52 

10AA10 

7$: 

INDERR 

; INDEX  ERROR 

1A26  003A5A 

005200 

8$: 

INC 

Ro              ; 

; FUDGE  LAMINATION  COUNT 

1A27  003A56 

003775 

BLE 

7$ 

;OOPS?! 

1A28  003A60 

1A29 

1A30  003A62 

000A03 

BR 

10$ 

;ALL'S  OK 

020037 

005070' 

9$: 

CMP 

RO,REDCNT 

;AR6  TOO  BIG? 

1A31  003A66 

003371 

B6T 

7$ 

•YES 

1A32 

1A33  003A70 

012701 

000001 

10$: 

MOV 

*1,R1 

;MULTIPLICATIVE  IDENTITY 

1A3A  003A7A 

010103 

MOV 

R1,R3 

;SAVE  IN  R3 

1A35  003A76 

160037 

003136' 

SI.R 

RO, RESULT 

;SET  DIM  FLAG 

1A36  003502 

005237 

003136' 

INC 

RESULT 

; FUDGE  FOR  SOB  CHECK 

1A37  003506 
1A38 

013700 

005070' 

MOV 

REDCNT,RO 

;GET  MAX  *  OF  DIMS 

1A39 

1AA0  003512 

020037 

003136' 

CTLMLP: 

CMP 

RO, RESULT 

;THIS  THE  MAGIC  DIM? 

1AA1  003516 

001 0A6 

BNE 

A$ 

;NOPE 

1AA2  003520 

005737 

003160' 

TST 

LARGFL 

;LEFT  ARG  OK? 

1AA3  00352A 

003A05 

BLE 

1$ 

;N0,  COUNT  STARTS  AT  1 

1AAA  003526 

MUL 

(R2)+,R1 

;ELSE  COUNT  STARTS  WITH  LEFT  DIM 

1AA5  0035A0 

005737 

003202' 

1$: 

TST 

RARGFL 

;RIGHT  ARG  OK? 

1AA6  0035AA 

003A05 

BLE 

2$ 

;N0 

1AA7  0035A6 

MUL 

(RA)^.R3 

;INITIALIZE  RIGHT  COUNT 

1AA8  003560 

005737 

005106' 

2$: 

TST 

0PTMP8 

',1S   THIS  LAMINATION? 

1AA9  00356A 

001005 

BNE 

3$ 

',1S   LAMINATION 

1A50  003566 

0101A6 

MOV 

R1,-(SP) 

; CATENATION,  PUSH  LEFT  COUNT 

1A51  003570 

060316 

ADD 

R3,aSP 

;ADD  RIGHT  COUNT 

1A52  003572 

o:o;": " 

0031 A2' 

MOV 

SI,RESBIT 

;SET  FOUND  FLAG 

1A53  003576 

(jiy:  /7 

BR 

8$ 

;AND  CYCLE 

1A5A  003600 

CU.'i 

000002 

3$: 

MOV 

02.'(SP) 

;PUSH  NEW  LAMINATION  DIM 

1A55  00360A 

vr:cJ7 

005070' 

INC 

REDCNT 

;1  MORE  DIM  IN  RESULT 

1A56  003610 

010537 

0031 A2' 

MOV 

SI,RESBIT 

;SET  FOUND  FLAG 

1A57  OOiolA 

005737 

003160' 

TST 

LARGFL 

;LEFT  ARG  A  SCALAR? 

1A58  003620 

001A01 

BEQ 

19$ 

;N0 

1A59  003622 

0057A2 

TST 

-(R2) 

; CORRECT  POINTER 

1A60  00362A 

005737 

003202 • 

19$: 

TST 

RARGFL 

;RIGHT  ARG  A  SCALAR? 

1A61  003630 

001A01 

BEQ 

A$ 

;YES 

1A62  003632 

1A63 

IA6A  00363A 

0057AA 

TST 

-(RA) 

ICORRECT  RIGHT  POINTER 

005737 

003160' 

A$: 

TST 

LARGFL 

;LEFT  ARG  A  SCALAR? 

1A65  0036A0 

001012 

BNE 

5$ 

;N0 

1A66  0036A2 

011AA6 

MOV 

aRA,-(SP) 

;PUSH  RIGHT  DIM 

1A67  0036AA 

020037 

003136' 

CMP 

RO, RESULT 

;COUNTING? 

1A68  003650 

0030A1 

BGT 

7$ 

;NOPE 

1A69  003652 

MUL 

aRA,Rl 

;MULTIPLY  LEFT  BY  RIGHT  COUNT 

1A70  00366A 

1A71 

1A72  003666 

000A23 

BR 

6$ 

;8UMP  RIGHT  COUNT 

0112A6 

5$: 

MOV 

aR2,-(SP) 

;PUSH  LEFT  DIM 

1A73  003670 

020037 

003136' 

CMP 

RO, RESULT 

[COUNTING? 

1A7A  00367A 

003027 

BGT 

7$ 

;N0 

1A75  003676 

001A05 

BEQ 

9$ 

ISPECIAL  LAMINATION  CASE? 

1A76  003700 

MUL 

aR2,Rl 

;8UMP  LEFT  COUNT 

1A77  003712 

005737 

003202 • 

9$: 

TST 

RARGFL 

;RIGHT  ARG  A  SCALAR? 

1A78  003716 

001006 

BNE 

61 

;N0 

M  11 
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1A79  003720 

MUL 

aR2,R3 

;YES,  BUMP  RIGHT  COUNT  BY  LEFT 

DIM 

1480  003732 

1481 

1482  003734 

000410 

BR 

7$ 

;AND  BUMP  POINTERS 

020037 

003136' 

6$: 

CMP 

RO, RESULT 

\\%  THI3  SPECIAL  LAMINATION? 

1483  003740 

001405 

BEQ 

7$ 

;YES 

1484  003742 

1485 

1486  003754 

MUL 

aR4,R3 

;RIGHT  COUNT  *  RIGHT  DIM 

022224 

7$: 

CMP 

(R2)^,(R4)* 

;DIMENSIONS  MATCH? 

1487  003756 

001407 

BEQ 

8$ 

;YES,   FINE 

1488  003760 

005737 

003160' 

TST 

LAR6FL 

;LEFT  ARG  OK? 

1489  003764 

001404 

BEQ 

8$ 

; SCALAR  -  GOES  W/  ANYTHING 

1490  003766 

005737 

003202' 

TST 

RARGFL 

;RIGHT  ARG  OK? 

1491  0037/^2 

1492 

1493  003//4 

1494 

1495  003776 

001401 

BEQ 

U 

;0K  HERE 

104412 

15$: 

LENERR 

[LENGTH  ERROR 

005300 

8$: 

DEC 

RO 

•DONE   YET? 

1496  004000 

003402 

BLE 

17$ 

;YES 

1497  00<»002 

000137 

003512' 

JMP 

CTLMLP 

;NOPE 

1498  004006 

005737 

003142' 

17$: 

TST 

RESBIT 

; FOUND  FLAG  SET? 

1499  004012 

001004 

BNE 

13$ 

;YES 

1500  004014 

012746 

000002 

MOV 

#2,-(SP) 

;N0,   PUSH  NEW  LAMINATION  DIM 

1501  004020 

005237 

005070' 

INC 

REDCNT 

;  INCREASE  #  OF   RESULT  DIMS 

1502  004024 

013702 

003164* 

13$: 

MOV 

LAR6PT,R2 

;POINT  TO  FIRST  ELEMENT 

1503  0040^0 

013704 

003206' 

MOV 

RARGPT,R4 

;POINT   TO  FIRST  ELEMENT 

1504  004034 

010137 

003302' 

CTLM1: 

MOV 

R1,NINPT1 

;SAVE  LEFT  COUNT 

1505  004040 

010337 

003300' 

MOV 

R3,NINPT2 

;SAVE  RIGHT  COUNT 

1506  00404; 

013700 

005070' 

MOV 

REDCNT, RO 

;GET  #  OF   RESULT  DIMS 

1507  004050 

012701 

000001 

MOV 

/(n,R1 

;GET  MULTIPLICATIVE   IDENTITY 

1508  004054 

010603 

MOV 

SP,R3 

;COPY  STACK  PTR 

1509  004056 

1$: 

MUL 

(R3)^,R1 

;MUL  BY  NEXT  DIM 

1510  004070 

SOB 

ROJ$ 

; CALCULATE  ALEN 

1511  004074 

PUSH 

R1 

;SAVE  RESULT  ALEN 

1512  004076 

010137 

003142' 

MOV 

Rl, RESBIT 

;SAVE  ALEN 

1513  004102 

013700 

003144' 

MOV 

RESTYP,RO 

;GET  RESULT   TYPE 

1514  004106 

ASH 

SIZTAB(R0),R1        . 

; CALCULATE  #  OF  BYTES 

1515  004122 

102004 

BVC 

3$ 

•NOT  TOO  BIG 

1516  004124 

104412 

LENERR 

•TOO  BIG! 

1517  004126 

005201 

2$: 

INC 

Rl                             ! 

•ROUND  UP  BYTE   COUNT 

1518  004130 

042701 

000001 

BIC 

#1,R1 

•CLEAR  FOR  WORD  BOUNDARY 

1519  004134 

01370^ 

005070' 

3$: 

MOV 

REDCNT, RO 

;GET  H  OF   DIMS 

1520  004140 

006300 

ASL 

RO 

•CONVERT  FOR  WORDS 

1521  004142 

062700 

000006 

ADD 

#A.DIM1,R0 

•ADD  HEADER  OVERHEAD 

1522  004146 

PUSH 

RO 

•SAVE  OFFSET 

1523  004150 

060100 

ADD 

R1,R0 

GET   TOTAL   SIZE 

1524  004152 

CALL 

GETFRA 

•Get  result,   SI   fraTe   ^or   it 

1525  004156 

062620 

ADD 

(SP)^,(R0)* 

;ADD   IN  OFFSET 

1526  004160 

113720 

005070' 

M0V8 

REDCNT, (R0)> 

•FILL   IN  #  OF   DIMS 

^527  004164 

113710 

003144' 

MOVB 

RESTVP,(RO) 

•BITS 

1528  004170 

001003 

BN6 

^^ 

•YES,   FINE 

1529  004172 

042765 

002000     1 7777U 

BIC 

4fT.NUM,SI.BIT(Sl! 

);RESULT  NOT  NUMERIC 

1530  004200 

152720 

000200 

4$: 

BIS8 

#A.ASB,(RO)* 

•MARK  AS  ARRAY 

1531  004204 

013703 

003204 ' 

MOV 

RARGBL,R3 

•POINT   TO  RIGHT  BLOCK 

1532  004210 

005763 

000004 

rsT 

A.ALEN(R3) 

■EMPTY  ARRAY? 

1533  004214 

001002 

BNE 

6$ 

■NO,   FINE 

1534  004216 

013703 

003162' 

MOV 

LARGBL,R3 

■YES,   POINT    TO  LEFT   ARG 

1535  004222 

012620 

6$: 

MOV 

(SP)*,(RO)* 

■FILL    IN  ALEN 
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536  004224 

537  004230 

538  004234 

539  004236 

540  004242 

541  004246 

542  004252 

543  004254 

544  004260 

545  004272 

546  004276 
547 

548 
549 
550 
551 

552  004300 

553  004304 

554  004310 

555  004312 

556  004314 

557  004320 

558  004324 

559  004326 

560  004330 

561  004334 

562  004342 

563  004350 

564  004356 

565  004362 

566  004366 

567  004372 

568  004374 

569  004400 

570  004404 

571  004406 
572 

573  004412 

574  004416 

575  004420 

576  004424 

577  004432 

578  004440 

579  004444 

580  004446 
581 

582  004452 

583  004456 

584  004460 

585  004464 

586  004472 

587  004500 

588  004504 

589  004506 

590  004512 

591  004516 
592 


017500 
01 3703 
012640 

01 3703 
063703 
005000 
013701 

010037 
0C151C 


1 7777t 
005070' 


003302 • 
00330C' 

003142* 

003136' 


5$: 


MOV 
MOV 
MOV 
SOB 
MOV 
ADD 
CLR 
MOV 
DIV 
MOV 
BEQ 
.ENABl 


;D0  THE  ACTUAL 
;SOME  FROM  THE 


N  11 


aSl.VAL(SI),RO 
REDCNT,R3 
(SP)*,-(RO) 
R3,5$ 
NJNPT1,R3 
N1NPT2,R3 
RO 

RES8IT,R1 
R3,R0 
RO, RESULT 
CTLMX 
LS8 


POINT  PAST  LAST  DIM 

GET  DIM  COUNT 

FILL  IN  DIMS 

BACK  TO  FRONT 

GET  LEFT  COUNT 

ADD  RIGHT  COUNT 

CLEAR  FOR  DIVIDE 

GET  ALEN 

DIVIDE  BY  COUNT  SL1 

SAVE  #  OF  CYCLES 

CATENATION  OF  2  NULLS! 1!!I 


017501 
013700 
006300 
006300 
013702 
013703 
060002 
060003 
063700 
016237 
016337 
016037 
013702 
013703 
005737 
002002 
005437 
005737 
002002 
005437 


177776 
003144' 


003170' 
003212' 


003144' 

OOOOOOG  003176' 
OOOOOOG  003220' 
OOOOOOG  0031*^2' 
003164' 
003206' 
003160' 

003160' 
003202' 

003202 • 


CTLMN: 


013700 
001415 


003302' 
013737  003200'  003154' 


1S: 

2$: 

3$: 


MOV 
MOV 
ASL 
ASL 
MOV 
MOV 
ADD 
ADD 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
TST 
BGE 
NEG 
TST 
BGE 
NEG 


CATENATIO^J. 
RIGHT,   SOME 

aSI.VAL(SI 

RESTYP,R0 

RO 

RO 

LARGTY,R2 

RARGTY,R3 

R0,R2 

R0,R3 

RESTYP,RO 

LARGCT(R2) 

RARGCT(R3) 

RESCT(RO), 

LARGPT,R2 

RARGPT,R3 

LA%FL 

1$ 

LARGFL 

RARGFL 

2$ 

RARGFL 


COPY  SOME  FROM 
FROM  THE  LEFT... 


THE  LEFT, 


),r<1   ;POINT  TO  RESULT 

GET  RESULT  TYPE 

TIMES  2 
"   4 

GEf  LEFT  ARG  TYPE 

GET  RIGHT  ARG  TYPE 

ADD  RESULT  TO  LEFT  ARG  FOR  TABLE  LOOKUP 

SAME  FOR  RIGHT  ARG 

RESULT  STORE  ROUTINE 
,LARGCV  ;LEFT  FETCH  ROUTINE 
,RARGCV  .-RIGHT  FETCH  ROUTINE 


RESCVT 


104402 


013700 
001415 


003500' 
013737  003222'  003154* 


4$: 
5$: 


104402 

005337 
003335 


005136' 


61: 


MOV 

NINPT1,R0 

BEQ 

4$ 

CALL 

iLARGCV 

MOV 

LARGVA^RESVAL 

STF 

AC1,AC0 

CALL 

aRESCVT 

SYSERR 

SOB 

R0,5$ 

MOV 

NINPT2,R0 

BEO 

6$ 

CALL 

aRARGCV 

MOV 

RARGVA.RESVAL 

STF 

AC2,AC0 

CALL 

aRESCVT 

SYSERR 

soe 

R0,5$ 

DEC 

RESULT 

BGT 

2% 

.DSA8L 

LS8 

AH,  HERE  IT  IS 
POINT  TO  LEFT  ARG 
POINT  TO  RIGHT  ARG 
MAKE  POSITIVE  VALUE 
...NON-NEGATIVE 
IT  WAS  NEGATIVE 
MAKE  POSITIVE  VALUE 
...NON-NEGATIVE 
IT  WAS  NEGATIVE 

COUNT  FOR  LOOP 

•  •  ■  n^^vC  •  •  • 

get  left  arg 
if  integer  m  boolean 
if  floating  point 
smv":  it 

REALLY,    TRULY,   SHOULDN'T   HAPPEN 
LOOP 

COLWT   FOR  LOOP 

...NONE... 

GET  RIGHT  ARG 

IF  INTEGER  OR  BOOLEAN 

U   FLOATING  POINT 

SAVE  IT 

THIS  ALSO  A  NO-NO 

'  OOP 

. .CREMENT   COUNT 

AND  CONTINUE 


m 
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1595 

159A  0OA520  CTLMX:  RETURN  ;ALL  DONE 

1596  004522  LIST 


C  U 
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1598  004522 

MOPINi 

IOTA, 72 

000035 

001 

.BYTE 

BITSXIT.OPFN 

000035 

000 

.BYTE 

BITSY 

000152 

004522' 

.WORD  MSIOTA 

004522 

MSI OTA: 

• 
• 

1599 
1600 
1601 

.S8TTL 

MIXED 

FUNCTION 

[OTA  —  INDEX  GENERATOR 

1602  004522 

013704 

003120' 

MOV 

M0NBLK,R4 

;GET  AR6  BLOCK  POINTER 

1603  004526 

022764 

000001  000004 

CMP 

/ir1,A.ALEN(R4) 

; SCALAR? 

1604  004534 

001401 

BEQ 

2$ 

;YES,  FINE 

1605  004536 

104417 

1$- 

DOMERF 

t 

; DOMAIN  ERROR 

1606  004540 

011402 

2$: 

MOV 

(R4),R2 

; POINT  TO  ARG 

1607  004542 

013^04 

003124* 

MOV 

M0NTYP,R4 

;6ET  THE  SOURCE  TYPE 

1608  004546 

001773 

BEQ 

1$ 

;CHARACTER?  I  DON'T  UNDERSTAND... 

1609  004550 

CALL 

aiM0NCT(R4) 

; CONVERT  SCALAR  TO  INTEGER 

1610  004554 

013703 

003134' 

MOV 

M0NVAL,R3 

;GET  NUMBER 

1611  004560 

100766 

BMI 

IS 

;BAD  ARG 

1612  004562 

010300 

MOV 

R3,R0 

;COPY  ARG 

1613  004564 

006300 

ASL 

RO 

:MULTIPLY  BY  2 

1614  004566 

102425 

BVS 

n 

;Too  Big 

;ADD  HEADER  SIZE 

1615  004570 

062700 

000010 

ADD 

#A.DIMU2,R0 

1616  004574 

102422 

BVS 

5S 

;T00  BIG 

1617  004576 

CALL 

6ETFRA 

;8uUd  result,  SI  fr?'ne  for  *t 

1618  004602 

062720 

000010 

ADD 

#A.DIMU2,(R0)^-  . 

;SET  POINTER  TO  FIRST  VALUE 

1619  004606 

112720 

000001 

MOVE 

4f1,(R0)> 

;ONE  DIMENSION  (VECTOR) 

1620  004612 

112720 

000204 

MOVE 

/r.INTEGER+A.ASB, 

CRO)^  ;ARRAY  IS  INTEGER 

1621  004616 

010320 

MOV 

R3,(R0)* 

■VECTOR  LENGTH 

1622  004620 

010320 

MOV 

R3,(R0)* 

'LENGTH  OF  FIRST  DIMENSION 

1623  004622 

001406 

BEQ 

4S 

•IF  NO  LEN,  THEN  DONE 

1624  004624 

013702 

000030 • 

MOV 

ORIGIN, R2 

•STARTING  POINT 

1625  004630 

010220 

3$: 

MOV 

R2,(R0)^ 

•STORE  NEXT  VALUE 

162r  J04632 

005202 

INC 

R2 

•INCREMENT  VALUE 

U   004634 

SOB 

R3,3S 

•AND  FILL  IN  VECTOR 

^6c'i   004640 

162V 

1630  004642 

4$: 

RETUR^ 

1 

•ALL  DONE 

104403 

5$: 

WSFULL 

ACTUAL  MESSAGE 

1632  004644 

LIST 

1633 

1634 

1635 

1636 

1637 

1638  004644 

DOPINS 

IND,72 

000035 

001 

.BYTE 

BITSXIT.OPFN 

000035 

000 

.BYTE 

BITSY 

C00152 

OOOOOOG 

.WORD 

DSIND 

1699  004644 

LIST 
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DOPINS 


M7 


1701  0OA644 

000052 

001 

000052 

000 

000204 

OOOOOOG 

1709  004644 

1710 

1711 

1712 

1713 

1714 

1715  004644 

000030 

101 

000030 

000 

000140 

OOOOOOG 

1789  004644 

1COMJ24 

.BYTE  BJTSXIT.OPFN 

.BYTE  BITSY 

.WORD   DSICOM 

LIST 


DOPINS 


COMP,60,T.DIM 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 
.WORD   DSCOMP 
LIST 
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T17 


1791  00A6A4 

00005A  001 
00005A  000 
000210  OOOOOOG 

1799  00^644 

1800 

1801 

1802 

1803 

1804 

1805  004644 

000031  101 
000031  000 
000142  OOOOOOG 

1864  004644 


DOPINS 


1EXPJ30 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.WORD   DSIEXP 

LIST 


DOPINS 


EXPD,62,T.DIM 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 
.WORD   DSEXPD 
LIST 
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1866  00A64A 
000042 
000042 
000164 

1907  004644 

1908 

1909 

1910 

1911  004644 
000046 
000046 
000174 

2149  004644 


001 
000 
OOOOOOG 


PAGE  54 
GENERATOR 

DOPINS 


F  12 


001 
000 
OOOOOOG 


DOPINS 


DROP. 104 

.8YTc  BITSXiT.OPFN 

.BYTE  BITSY 

.UORD   D$DROP 

LIST 


TAKE  J 14 

.BYTE  BITSXiT.OPFN 

.BYTE  BITSY 

.WORD   DSTAKE 

LIST 
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TlT 


2151 


2160 
2161 
2162 
2163 
216A 
2165 
2166 


220A 


00A644 

000063    001 
000063    000 
000226  0000006 
004644 


MOPINS 


1REVJ46 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.WORD   MSIREV 
LIST 


004644 
000062 
000062 
000224 
004644 


101 
000 
OOOOOOG 


MOPINS 


REVSJ44,T.DIM 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 

.WORD   MSREVS 
LIST 
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2206 


221A 
2215 
2216 
221? 
2218 
2219 
2220 


2328 


00A6A4 
000063 
000063 


001 
000 


PAGE  56 
GENERATOR 

DOPINS 


H  12 


000226  OOOOOOG 
C0A6A4 


1R0TJA6 

.BYTE  BJTSXIT.OPFN 

.BYTE  BITSY 

.WORD   D$1RGT 

LIST 


00A6AA 
000062 
000062 
00022A 
00A6^4 


101 
000 
OOOOOOG 


DOPINS 


ROT, HA, T. DIM 
.BYTE  BITSXIT.OPFN 
.B/TE  BITSY 
.WORD   DSROT 
LIST 
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2330  00A6A4  MOPINS  TRANJ26 

000053  001                      .BYTE  BITSXiT.OPFN 

000053  000                      .BYTE  BITSY 

000206  OOOOOOG                        .WORD   MSTRAN 

2A15  00A64A  LIST 


I  12 
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2A17  00A6AA 

000053  001 
000053  000 
000206  0000006 

265A  00A6AA 


J 

M 

-FEB-80  09:0A 

PAGE  58 

IOTA  — 

INDEX 

GENERATOR 
DOPINS 

IRAN/ 

.BYTE 

.BYTE 

.WORD 

LIST 

126 

BITSXIT.OPFN 
BITSY 
DSTRAN 
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2656  00A6AA  DOPINS  ENCD,76 

000037  001                      .BYTE  BITSXIT.OPFN 

000037  000                      .BYTE  BITSY 

000156  OOOOOOG                     .WORD   DSENCD 

2856  00A6AA  LIST 


inr 


APLOP   MACRO  Ml 11 3  C3-FEB-80 
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2858  00A6AA 

000032  001 
000032  000 
0001 4A  OOOOOOG 

2988  00A644 


L 

12 

B-80  09:04 

PAGE  60 

ITA  —  INDEX 

GENERATOR 

DOPINS 

DECDJ 

.BYTE 

.BYTE 

.WORD 

LIST 

S4 

BITSXIT.OPFN 
BITSY 
DSDECD 
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MOPINS 


MTT 


2990  00A64A 

000057 

101 

000057 

000 

000216 

OOOOOOG 

3001  0OA6AA 

3002 

3003 

300A  00A64A 

000060 

101 

000060 

000 

000220 

OOOOOOG 

3219  0046A4 

MOPINS 


GDWNJ36,T.DIM 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 

.WORD   MSGDWN 
LIST 


GDUP, KG, T. DIM 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 

.WORD   MSGDUP 
LIST 
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3221  0(K6AA  MOPINS  MMDJ  22 

000051     001  .BYTE  BITSXiT.OPFN 

000051     000  .BYTE  BUSY 

000202  OOOOOOG  .WORD   MSMMD 

3316  00A64A  LIST 


¥17 


—^ 
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3318  00A6A4  DOPINS  DMDJ22 

000051     001  .BYTE  BITSXIT.OPFN 

000051     000  .BYTE  BITSY 

000202  OOOOOOG  .WORD   D$DMD 


_y 

APLOP   MACRO  Ml 113  08-FEB-80  09:0A  PAGE  64 
MIXED  FUNCTION         IOTA  —  INDEX  GENERATOR 

3864  004644  LIST 


APLOP   MACRO  Ml 113  08-FEB-80  09:0A  PAGE  65 

MIXED  FUNCTION  IOTA  —  INDEX  GENERATOR 

3866  00A6A4  DOPINS  MEM, 70 

00003A  001                      .BYTE  BITSXiT.OPFN 

00003A  000                     .BYTE  BITSY 

000150  OOOOOOG                    .WORD   D$MEM 

39?1  0046AA  LIST 


TTT 


APLOP   MACRO  Ml 115  08-FEB-80  09:04  PAGE  66 
MIXED  FUNCTION         IOTA  —  INDEX  GENERATOR 


E  13 


3923 


3986 
3987 
3988 
3989 
3990 
3991 
3992 


A022 
4023 
4024 
4025 
4026 
4027 
4028 


4042 
4043 
4044 
4045 
4046 
4047 
4048 


4161 


004644 
000043 
000043 
000166 
004644 


001 
000 
OOOOOOG 


MOP INS 


NUB  J  06 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.WORD   M$NU6 
LIST 


004644 
000043 
000043 
000166 
004644 


001 
000 
OOOOOOG 


DOPINS 


UNONJ06 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.WORD   DSUNON 

LIST 


004644 
000033 
000033 
000146 
004644 


001 
000 
OOOOOOG 


DOPINS 


INTR,66 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.WORD   DSINTR 

LIST 


004644 
000024 
000024 
000130 
004644 


001 
000 
OOOOOOG 


DOPINS 


SDIF,50 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.WORD   DSSDIF 

LIST 
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nr 


4163 


4179 
4180 
4181 
4182 


4200 
4201 
4202 
4203 


4209 
4210 
4211 
4212 


4288 


004644 
000116 
000116 
000314 
004644 


004644 
000045 
000045 
000172 
004644 


004644 
000117 
000117 
000316 
004644 


004644 
000047 
000047 
000176 
004644 


001 
000 
OOOOOOG 


DOPINS 


001 
000 
OOOOOOG 


DOPINS 


001 
000 
OOOOOOG 


DOPINS 


001 
000 
OOOOOOG 


DOPINS 


SCON, 234 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.WORD   DSSCON 

LIST 


C0NT,112 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.WORD   DSCONT 

LIST 


PSUB,236 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.WORD   DSPSUB 

LIST 


SUBS, 116 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.WORD   DSSUBS 

LIST 


G  13 
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4290  004644 

MOPINS 

EXE, 70 

000034 

001 

.BYTE 

BITSXIT.OPFN 

000034 

000 

.BYTE 

BITSY 

000150 

004644 • 

.WORD  MSEXE                                                          1 

004644 

MSEXE : : 

4291 

.S8TTL 

MIXED 

FLECTION         EXECUTE 

4292 

4293 

4294 

•THE  EXECUTE 

OPERATOR  IS  USED  TO  EVALUATE  A  STRING.   THE  RESULT 

4295 

\\%   THE 

SAME 

AS  IF  THE  USER  HAD  TYPED  THE  LINE.  AN  EXECUTION 

4296 

;  FRAME 

IS  SPAWNED  ON  THE  SI  STACK,  AND  THE  INPUT  STREAM  (INPTR)                         1 

4297 
4298 
4299 

;IS  SWITCHED 

TO  E$CHR  WHICH  CAUSES  THE  STRING  TO  BE  EVALUATED. 

4300 

4301  004644 

016500 

1 7771 t 

MOV 

SI.VAL(SI),RO   /POINT  TO  ARG 

4302  004650 

132760 

000006 

000003 

81 TB 

#A.NUM,A.BITS(RC);NUMERIC? 

4303  004656 

001404 

BEQ 

1$            ;N0 

4304  004660 

010004 

MOV 

R0,R4          ;YES,  SO  RESULT  IS  JUST  ARG 

4305  004662 

CALL 

SAME           .-RESULT  IS  SAME  AS  ARG 

4306  004666 

4307 

4308  004670 

RETURN                ;ALL  DONE                                           | 

023705 

006346 • 

>i 

1$: 

CMP 

SI  TOP, SI       ; STACK  OVERFLOW? 

4309  004674 

101002 

BHI 

2$            ;N0 

4310  004676 

CALL 

STKXTN         ; EXTEND  THE  STACK 

4311  004702 

013700 

003314* 

2$: 

MOV 

SIFRAM,RO      .-POINT  TO  CURRENT  FRAME 

4312  004706 

013760 

004764' 

000002 

MOV 

FLAGS, F.FLAG(RO);SAVE  FRAME'S  FLAGS 

4313  004714 

012737 

000400 

004764' 

MOV 

*F$EXEC, FLAGS   '^Hl%   IS  AN  EXECUTION  FRAME 

4314  004722 

012625 

MOV 

(SP)*,  (SI)+     .-RETURN  GOES  INTO  PARSE  FRAME 

4315  004724 

005025 

CLR 

^S\)^                        .-WE  HAVE  NO  VALUE  YET 

4316  004726 

005025 

CLR 

(.Sl)"^                        .-BUT  WE  WILL  HAVE  LATER 

4317  004730 

010537 

003314* 

MOV 

SI.SIFRAM      \?^\H^   TO  REF.  PT.  OF  EXECUTION  FRAME 

4318  004/34 

010501 

MOV 

SI.RI          .-COPY  PTR  TO  REF.  PT. 

4319  004736 

010025 

MOV 

RO,(SI)^-       .-POINT  BACK  TO  PREVIOUS  FRAME 

4320  004740 

005025 

CLR 

(.S\)^                        .-NO  FLAGS 

4321  004742 

005025 

CLR 

i%\)^                        .-LAST  CHBYTE 

4322  004744 

005025 

CLR 

iSl)"^                        .-HEAD  POINTER 

4323  004746 

POP 

<(SI)^,(SI)  +  ,(SI)  +  ,(SI)'»-> 

4324 

.-Pop  R2,  R3,  R4,  RETURN 
INPTR,  (SD*     ;OLD  INPUT  STREAM  POINTER 

4325  004756 

013725 

000064 • 

MOV 

4326  004762 

013725 

005060* 

MOV 

E$PT,(SI)+      .-OLD  INPUT  POINTER  INTO  STRING 

4327  004766 

013725 

005056* 

MOV 

E$CT,(SI)+     .-OLD  COUNT  OF  INPUT  CHARS 

4328  004772 

4329 

4330  004776 

010561 

000006 

MOV 

SI.F.HEAD(RI)   .-LENGTH  OF  HEADER 

012737 

OOOOOOG 

000064  * 

MOV 

#E$CHR, INPTR    .-POINT  TO  NEW  INPUT  ROUTINE 

4331  005004 

013700 

003120* 

MOV 

MONBLK.RO      .-POINT  TO  ARG 

4332  005010 

016037 

000004 

005056' 

MOV 

A.ALEN(RO),E$CT  .-LENGTH  OF  INPUT 

4333  005016 

011037 

005060 • 

MOV 

aRO.ESPT       .-POINT  TO  FIRST  CHAR  OF  INPUT 

4334  005022 

0001 37 

OOOOOOG 

JMP 

EXEC           .-"AND  AWAAAAY  WE  GO..."  (J.G.) 

4336  005026 

LIST 
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4338  005026  MOPINS  ENCD,76 

000037  001                      .BYTE  BITSXIT.OPFN 

000037  000                      .BYTE  BITSY 

000156  OOOOOOG                        .WORD   MSENCD 

4411  005026  LIST 


TTTT 
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TTT 


4413  005026 

000070 

001 

000070 

000 

000240 

OOOOOOG 

4423  005026 

4424 

4425 

4426 

4427 

4428 

4429  005026 

000070 

001 

000070 

000 

000240 

C/OOOOOG 

MOPINS  FMTJ60 

.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 

.WORD   M$FMT 
LIST 


DOPINS  FMT,160 

.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 
.WORD   D$FMT 


TIT 
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A953  005026  LIST 
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4955  005026 

000055 

001 

000055 

000 

000212 

OOOOOOG 

4958  005026 

4959 

4960 

4961  005026 

000055 

001 

000055 

000 

000212 

OOOOOOG 

5046  005026 

PAGE  72 


MOPINS 


ITTT 


OOP INS 


I8M,132,,,M0NIBM 
.BYTE  BITSXIT.OPFN 
.BYTE  BUSY 

.WORD       MONISM 
LIST 


IBM, 132 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.WORD   DSIBM 

LIST 


APLOP   MACRO  Ml 113  08-FEB-80  09; 04 
MIXED  FUNCTION         EXECUTE 


50A8  005026 
000036 
000036 
0001 5A 
005026 

50A9 

5050 

5051  005026 

5052  005032 

5053  00503A 

5054  005040 

5055  005044 

5056  005052 

5057  005054 

5058  005056 

5059  005060 

5060  005064 

5061  005066 

5062  005070 

5063  005072 

5064  005074 
5065 

5066  005104 

5067  005110 

5068  005114 

5069  005120 

5070  005126 

5071  005134 

5072  005140 

5073  005144 
5075  005150 
5076 

5077 

5078 

5079 

5080 

5081  005150 
000036 
000036 
000154 
005150 

5082 

5083 

5084  005150 

5085  005156 

5086  005162 

5087  005170 
5088 

5089  005176 

5090  005200 

5091  005204 

5092  005206 

5093  005212 

5094  005216 

5095  005222 
5097  005224 
5098 


045 
000 
005026' 
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MOPINS 


M$QUAD 
.SBTTL 


TTT 


QUAD,74.T.NIL+T.SPOP 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 
.WORD  M$QUAD 

MIXED  FUNCTION 


QUAD  INPUT 


023705  006346' 
101002 

013700  003314' 

013760  004764'  000002 

012625 

005025 

005025 

010537  003314' 

010025 

005025 

005025 

005025 


013725  000064' 

013725  005060' 

013725  005056' 

012737  OOOOOOG  000064' 

012737  000200  004764' 

013700  003314' 

010560  000006 

000137  OOOOOOG 


1$; 


CMP  SITOP,SI 

BHI  1$ 

CALL  STKXTN 

MOV  SIFRAM,RO 

MOV  FLAGS, F.FLAG(RO) 

MOV  (SP)+, (SI)+ 

CLR  (Sl)^ 

CLR  (Sl)^ 

MOV  SI,SIFRAM 

MOV  RO,(SI)+ 

CLR  (Sl)^ 

CLR  (Sl)^ 

CLR  (Sl)^ 

POP  <(SI)  +  ,(SI)^-,(SI 

MOV  INPTR,(SI)+ 

MOV  E$PT,(SI)+ 

MOV  E$CT,(SI)> 

MOV  #GETL,INPTR 

MOV  *F$EVI, FLAGS 

MOV  SIFRAM,RO 

MOV  SKF.HEAD(RO) 

JMP  EXEC 
LIST 


STACK  OVERFLOW? 

NO 

YES,  EXTEND   THE  STACK 

POINT  TO  CURRENT  FRAME 

SAVE  ITS  FUGS 

SET  RETURN 

NO  BITS  YET 

NO  VALUE  YET 

POINT  TO  NEW  EVAL  FRAME 

POINT  TO  PREVIOUS  FRAME 

CLEAR  FLAGS 

CLEAR  LAST  C-6YTE 
.HEADER  POINTER 
)+,(3I)+> 

Push  R2,R3,R4, RETURN 

PUSH  OLD  INPUT  POINTER 

EXECUTE  INPUT  STRING  POINTER 

AND  COUNT  (SO  WE  CAN  EXECUTE  QUAD  iNPUT!) 

QUAD  INPUT  ALWAYS  COMES  FROM  KEYBOARD! 

MARK  FRAME  TYPE 

POINT  TO  REF  POINT  OF  FRAME 

POINT  TO  WHERE  CODESTRING  GOES 

AND  EVALUATE  SOME  INPUT 


045 
000 
005150' 


042737  001000  000000' 

012737  000256'  005052' 
023737  000246'  000?50' 

001402 

010500 


DOPINS 


DSQUAD: 
.SBTTL 


QUAD,74,T.NIL^T.5P0P 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 
.WORD  DSQUAD 


MIXED  FUNCTION 


QUAD  OUTPUT 


1$ 


BIC 
PUSH 
MOV 
CMP 

BEQ 

CALL 

MOV 

CALL 

CALL 

POP 

RETURN 

LIST 


XfSY.PMT 
OCHAN 
#CHANOO 
CHANOO+ 

IS 

NEWLIN 

SI,RO 

PRINT 

NEWLIN 

OCHAN 


,SYSTAT  ;No  Special  Prompt 
;Sa\/e  Output  Channel 

,OCHAN   ;Point  to  Terminal 

C.WIDCCHANOO+C.WIDR 

;Beginning  of  line? 
;Yes,  no  problem 
.♦Output  a  <CR><LF> 
.•POINT  TO  ARRAY  TO  PRINT 
.•PRINT  EXPRESSION 
;   AND  END  THE  LINE 
.•Restore  Output  Channel 
;  Finished 


M13 
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MIXED  FUNCTION 

QUAD  OUTPUT 

5099 

5100 

5101 

5102 

5103  005224 

MOPINS 

QQAD, 

142,T.NIL+T.SP0P 

000061 

045 

.BYTE 

BITSXIT.OPFN 

000061 

000 

.BYTE 

BITSY 

000222 

005224 • 

.WORD 

M$QQAD 

005224 

M$QQAD: 

• 
• 

5104 
5105 
5106 

.S8TTL 

MIXED 

FUNCTION         i 

iUOTE  QUAD  INPUT 

5107  005224 

PUSH 

<INPTR,ICHAN>   . 

;Say/e  Current  Input  Pointer,  Channel 
; INPUT  ALWAYS  COMES  FROM  KEYBOARD! 

5108  005234 

012737 

OOOOOOG 

000064 • 

MOV 

#GETL.lNPrR 

5109  005242 

012737 

000256' 

005050' 

MOV 

#CHANO0,ICHAN 

;Get  Input  from  the  Console 

5110  005250 

CALL 

GETuJN 

;6ET  A  l;ne  of  input 

5111  005254 

' 

POP 

<ICHAN,INPTR> 

^Restore  Old  Input  Channel,  Pointer 

5112  005264 

CALL 

FIXLIN 

;flX   IT  UP 

5113  005270 

122744 

00001 5 

CMP6 

*CHR.CR,-(R4) 

;LAST  CHAR  A  CR? 

5114  005274 

001001 

BNE 

it 

;N0 

5115  005276 

005301 

DEC 

;YES,  DELETE  IT 

5116  005300 

1$: 

PUSH 

<R0,R1> 

;PUSH  PTR  AND  COUNT 

5117  005304 

012700 

00001 0 

MOV 

/(fA.DIMU2,R0 

;GET  HEADER  SIZE 

5118  005310 

PUSH 

RO 

;SAVE  FOR  OFFSET 

'   19  005312 

005201 

INC 

R1 

;BUMP  COUNT 

^0  005314 

042701 

000001 

BIC 

#1,R1 

;T0  ROUND  FOR  WORD  BOUNDARY 

.21  005320 

060100 

ADD 

Rl.RO 

;GET  TOTAL  ROOM  NEEDED 

Dl22  005322 

CALL 

GETFRA 

:GET  CORE  FOR  RESULT 

5123  005326 

042765 

002000 

1 7777^ 

BIC 

#T.NUM,SI.BITS(SI) 

5124 

;Not  Numeric 

5125  005334 

062620 

ADD 

(SP)^, (RO)^     i 

;Add  In  Offset 

5126  005336 

012720 

100001 

MOV 

#A.ASB*400"^1,(R0: 

>^  ;FILL  IN  M   OF  DIMS/MARK  AS  LITERAL 

5127  005342 

POP 

<R1,R2> 

;GET  ALEN,  POINTER 

5128  005346 

010120 

MOV 

R1,(R0)^ 

;FILL  IN  ALEN 

5129  005350 

010120 

MOV 

R1,(R0)^- 

;FILL  IN  DIM1 

5130  005352 

001403 

BEO 

3S 

•NULL!? 

5131  005354 

112220 

2$: 

M0V8 

(R2)«»-,(R0)  + 

•COPY  1  CHAR 

5132  005356 

SflR 

R1.2$ 

•COPY  ENTIRE  LINE 

5133  005362 

3$: 

RETURN 

•ALL  DONE 

5135  005364 

LIST 

5136 

5137 

5138 

5139 

5140 

5141  005364 

DOPINS 

QQAD/ 

I42,T.NIL*T.SP0P 

000061 

045 

.BYTE 

BITSXIT.OPFN 

000061 

000 

.BYTE 

BITSY 

000222 

005364' 

.WORD 

D$QOAD 

005364 

DSQQAD; 

• 
• 

5142 
5143 
5144  005364 

.S8TTL 

MIXED 

FUNCTION         QUOTE  QUAD  OUTPUT 

052737 

001000 

000000 ' 

BIS 

#SY.PMT,SYSTAT   . 

Indicate  Prompt 
Save  Output  Channel 

5145  005372 

PUSH 

OCHAN 

514(     76 

012737 

000256' 

005052' 

MOV 

#CHANOO,GCHAN 

Point  to  Terminal 

5147  00^404 

010500 

MOV 

SI,RO 

POINT  TO  ARRAY  TO  PRINT 

3148  005406 

CALL 

PRINT 

PRINT  EXPRESSION 
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5H9  0O5A12 

5150  005A16 

5152  0O5A20 

5153 

51 54 

5155 

5156 

5157 

5158  005420 

000056 

045 

000056 

000 

000214 

OOOOOOG 

5192  005420 

5193 

5194 

5195 

5196  005420 

000056 

045 

000056 

000 

000214 

005364' 

5199  005420 

POP 

RETURN 
LIST 


OCHAN 


; Restore  Output  Channel 
; Finished 


MOP INS 


DOPJNS 


DQAD,134,T.NIL+T.SPOP 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 

.WORD   MSDQAD 
LIST 


DQAD,134,T.NIL^T.SPOP,,D$QQAD 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.WORD   DSQQAD 

LIST 


B  14 
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QUOTE  QUAD  OUTPUT 

5201  005420 

MOPINS 

BXAVJ62.T.NIL 

000071 

005 

.BYTE  BITSXIT.OPFN 

000071 

000 

.BYTE  BITSY 

000242 

OOOOOOG 

.WORD   M$6XAV 

5219  005420 

LIST 

5220 

5221 

5222 

5223 

5224 

5225  005420 

MOPINS 

BXCTJ64,T.NIL+T.SP0P 

000072 

045 

.BYTE  BITSXIT.OPFN 

000072 

000 

.BYTE  BITSY 

000244 

OOOOOOG 

.WORD   MSBXCT 

5234  005420 

LIST 

5235 

5236 

5237  005420 

DOPINS 

BXCTJ64,T.NIL^T.SPOP 

000072 

045 

.BYTE  BITSXIT.OPFN 

000072 

000 

.BYTE  BITSY 

000244 

OOOOOOG 

.WORD   DSBXCT 

5272  0O54?0 

LIST 

5273 

5274 

5275 

5276 

5277 

5278  005420 

MOPINS 

BXI0J66,T.NIL^-T.SP0P 

000073 

045 

.BYTE  BITSXIT.OPFN 

000073 

000 

.BYTE  BITSY 

000246 

OOOOOOG 

.WORD   MSBXIO 

5287  005420 

LIST 

5288 

5289 

5290  005420 

DCPINS 

BXI0J66,T.NIL^T.SPQP 

000073 

045 

.BYTE  BITSXIT.OPFN 

000073 

000 

.BYTE  BITSY 

000246 

OOOOOOG 

.WORD   D$exio 

5302  005420 

LIST 

5303 

5304 

5305 

5306 

5307  005420 

MOPINS 

BXLC,212,T.NIL 

000105 

005 

.BYTE  BITSXIT.OPFN 

000105 

000 

.BYTE  BITSY 

000272 

OOOOOOG 

.WORD   MSBXLC 

5340  005420 

LIST 

5341 

5342 

5343 

5344 

5345 

5346 

5347  005420 

MOPINS 

BXPPJ70,T.NIL^T.SPOP 

000074 

045 

.BYTE  BITSXIT.OPFN 

000074 

000 

.BYTE  BITSY 

C  14 
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000250 

OOOOOOG 

.WORD   MSBXPP 

5356  005420 

LIST 

5357 

5358 

5359  005420 

DOPINS 

BXPPJ70,T.NIL+T.SPOP 

000074 

045 

.8YTE  BITSX!T.OPFN 

000074 

000 

.BYTE  BUSY 

000250 

OOOOOOG 

.WORD   DSBXPP 

5381  005420 

LIST 

5382 

5383 

5384 

5385 

5386 

5387 

5388  005420 

MOPINS 

BXPW,172,T.NIL+T.SP0P 

000075 

045 

.BYTE  BITSXIT.OPFN 

000075 

000 

.BYTE  BITSY 

000252 

OOOOOOG 

.WORD   MSBXPW 

5397  005420 

LIST 

5398 

5399 

5400  005420 

DOPINS 

BXPWJ72,T.NIL+T.SP0P 

000075 

045 

.BYTE  BITSXIT.OPFN 

000075 

000 

.BYTE  BITSY 

000252 

OOOOOOG 

.WORD   DSBXPW 

^5417  005420 

LIST 

•5418 

5419 

5420 

5421 

5422 

5423  005420 

MOPINS 

BXRLJ74,T.NIL^-T.SP0P 

000076 

045 

.BYTE  BITSXIT.OPFN 

000076 

000 

.BYTE  BITSY 

000254 

OOOOOOG 

.WORD   MSBXRL 

5432  005420 

LIST 

5433 

5434 

5435  005420 

DOPINS 

BXRL,174,T.NIL+T.SPOP 

000076 

045 

.BYTE  BITSXIT.OPFN 

000076 

000 

.BYTE  BITSY 

000254 

OOOOOOG 

.WORD   DSBXRL 

5447  005420 

LIST 

5448 

5449 

5450 

5451 

5452 

5453  005^20 

MOPINS 

BXTS,200,T.NIL 

000100 

005 

.BYTE  BITSXIT.OPFN 

000100 

000 

.BYTE  BITSY 

000260 

OOOOOOG 

.WORD   MSBXTS 

5562  005420 

LIST 

5563 

5564 

5565 

APLOP   MACRO  Ml  113  08-FEB-80  09:0A  PAGE  7^-2 
MIXED  FUNCTION         QUOTE  QUAD  OUTPUT 
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5566 

5567 

5568 

5569  005A20 

000077 

005 

000077 

000 

000256 

OOOOOOG 

5592  005A20 

MOP INS 


BXWAJ76,T.NIL 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 

.WORD   MSBXWA 
LIST 
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5594  005420  MOPINS  BXCR,206 

000103  001                      .BYTE  BITSXiT.OPFN 

000103  000                      .BYTE  BITSY 

000266  OOOOOOG                       .'JORD   MSBXCR 

5716  005420  LIST 


Tvr 


F  U 
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5718  005A20  MOPINS  BXEX,202 

000101  001                      .BYTE  BITSXiT.OPFN 

000101  000                     .BYTE  BITSY 

000262  GOOOOOG                       .WORD   MSBXEX 

5775  005A20  LIST 
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5777  005420  MOPINS  BXFX,210 

00010A  001                      .BYTE  BITSX!T.OPFN 

00010A  000                      .BYTE  BITSY 

000270  GOOOOOG                       .WORD   WSBXFX 

5879  005420  LIST 


G  H 


H  H 
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5881  005A20  MOPINS  BXNC,20A 

000102     001  .BYTE  BITSXIT.OPFN 

000102     000  .BYTE  BITSY 

OO026A  OOOOOOG  .WORD   MSBXNC 

5950  005420  LIST 
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MOP INS 


I  U 


5952  005A20 

000106 

001 

000106 

000 

000274 

OOOOOOG 

5%3  005420 

5964 

5965 

5966  005420 

000106 

001 

000106 

000 

000274 

OOOOOOG 

6104  005420 

DOPINS 


BXNL,214 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

. WORD   MSBXNL 
LIST 


BXNL,214 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.WORD   DSBXNL 

LIST 
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DOPINS 


J  U 


6106  OO5A20 

0O0C6A 

101 

00006A 

000 

000230 

OOOOOOG 

6330  005420 

6331 

6332 

6333 

6334 

6335 

6336  005420 

000065 

101 

000065 

000 

000232 

OOOOOOG 

6485  005420 

FGETJ50,T.DIM 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 
.WORD       DSFGET 
LIST 


DOPINS 


FPUT,152,T.DIW 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 
.WORD   DSFPUT 
LIST 
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6A87  005A20  DOPINS  FPNT J54,T.DIM 

000066  101                     .BYTE  BITSXIT.OPFN 

000066  000                    .BYTE  BJTSY 

000234  OOOOOOG                    .WORD   DSFPNT 

6714  005420  LIST 


K  14 


APLOP   MACRO  Ml  11 3  08-FEB-80  09:04  PAGE  82 
MIXED  FUNCTION         QUOTE  QUAD  OUTPUT 
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6716 


6723 
6724 
6725 
6726 


6732 
6733 
673A 
6735 


6741 
6742 
6743 
6744 


7044 


005420 
000054 
000054 
000210 
005420 


005420 
000031 
000031 
000142 
005420 


005420 
000052 
000052 
000204 
005420 


005420 
000030 
000030 
000140 
005420 


001 
000 
0000006 


MOPINS 


101 
000 
OOOOOOG 


MOPINS 


001 
000 
OOOOOOG 


MOPINS 


101 
000 
OOOOOOG 


MOPINS 


1SCNJ30 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.WORD   MSISCN 
LIST 


SCAN, 62, T. DIM 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 

.WORD   MSSCAN 
LIST 


1RDTJ24 

.BYTE  BITSXIT.OPFN 

.BYTE  BITSY 

.WORD   MSIRDT 
LIST 


RDCT,60,T.DIM 
.BYTE  BITSXIT.OPFN 
.BYTE  BITSY 

.WORD   MSRDCT 
LIST 
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70A6  005A20  MOPINS  GETIDN,0 

7193  000060  LIST 


sn7 
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7195  000060  MOPINS  SATAN, 0 

7A0A  000060  LIST 


APLCDP      MACRO  in. 
MIXED  FUNCTION 


m".  1  '> 
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TTT 


QUOTE  QUAD  OUTPUT 


7A06  000060 

00006?  001 
000067  000 
000236  OOOOOOG 

7A76  0O5A20 


MOPINS 


OUTRJ56 

.BYTE  BITSX!r.OPFN 

.BYTE  BITSY 

.WORD   MSOUTR 
LIST 
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7478  005420 

7504  000060 

7505 

7506 

7507 

7508 

7509 

7510  000060 

7564  000060 

7565 

7566 

7567 

7568 

7569 

7570  000060 

7612  000060 


MOPINS  DOUTER,0 
LIST 


MOPINS  PRDSET^O 
LIST 


MOPINS  INSPACO 
LIST 
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76H  000060  DOPINS  INNR,156 

000067     001  .BYTE  BJTSXIT.OPFN 

000067     COO  .BYTE  BITSY 

000236  OOOOOOG  .WORD   DSINNR 


TIT 
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7%0  005A20  LIST 
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7%2  005420  MOPINS  SUBR,0 
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8725  000060  LIST 


r  fnr 
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8727  000060  MOPINS  RAND,0 

8771  000060  LIST 
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1        000001  .END 
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J  15 

SYMBOL 

TABLE 

ACOPY  = 

*•♦**•  GX 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D$BXIO= 

**•*•*  G 

D$$PLU 

00001 6RG    020 

ACO   = 

XOOOOOO 

CHREP  = 

000105 

CTLMLP 

00351 2R 

020  D$BXNL= 

***«r*i^  G 

D$$RES 

000530RG    020 

AC1   = 

X000001 

CHRERR= 

104431 

CTLMN 

004300R 

020  D$BXPP= 

«**•**  G 

D$$SUB 

000052RG    020 

AC2   = 

X000002 

CHRFIL= 

000177 

CTLMX 

004520R 

020  D$BXPW= 

**•*•«  G 

D$1C0M= 

******  G 

AC3   = 

X000003 

CHRFRO=  0001 35 

CTLMO 

0031 72R 

020  D$BXRL= 

***•••  G 

D$1EXP= 

******  G 

AC4   = 

X000004 

CHRLBR= 

000073 

CTLM1 

004034R 

020  D$CIRC= 

**i«r***  G 

D$1R0T= 

******  G 

ACS   = 

X000005 

CHRLPR= 

000072 

CTMAX 

00021 2R 

025 

D$C0f1B= 

******  G 

D.AND  = 

000000 

AI.LINT 

003274R 

025 

CHRMNS= 

000137 

CTRMAX 

0001 72R 

025 

D$COMP= 

******  G 

D.BXCT= 

000007 

ARYRET 

003276R 

025 

CHRMUL= 

000075 

C.ALOC= 

000162 

D$CONT= 

******  G 

D.BXI0= 

000007 

ASCQUO=  000042 

CHRNE6= 

000100 

C.BLOK= 

000064 

DSCTLM 

00301 4RG 

020  D.BXNL= 

000007 

A.ALEN=  000004 

CHRPDL= 

000271 

C.BLSZ= 

000140 

D$DEAL= 

******  G 

D.BXPP= 

000007 

A.ARG  = 

000040 

CHRPLU=  000055 

C.BUFF= 

1 77760 

D$DECD= 

******  G 

D.BXPW= 

000007 

A.ASB  = 

000200 

CHRPWR= 

000120 

C.BUFL= 

177762 

DSDIV 

0001 54RG 

020  D.8XRL= 

000007 

A.BITS= 

000003 

CHRQST= 

000121 

C.CCNT= 

1 77766 

D$DMD  = 

******  G 

D.CIRC= 

000001 

A.CON  = 

000020 

CHRQUO=  000113 

C . CPTR= 

1 77764 

o%onvr= 

******  G 

D.C0MB= 

000001 

A.DIMS= 

000002 

CHRRBR= 

000047 

C.CZ  = 

001000 

D$rNCD  = 

******  G 

D.C0MP= 

000001 

A.DIM1= 

000006 

CHRRPR= 

000042 

C.DIG  = 

000040 

D$EO 

001060RG 

020  D.CONT= 

000006 

A.NUM  = 

000006 

CHRSEM=  000074 

C . FASW= 

020000 

D$EXPD= 

******  G 

D.CTLM=  000000                  1 

A.PTR  = 

000000 

CHRSMO= 

000112 

C.FLEN=  000010 

D$FGET= 

******  G 

D.DEAL= 

000003 

A.TMP  = 

000010 

CHRSPA= 

000040 

C.FLSH= 

004000 

D$FMT  = 

****TT*   G 

D.DECD= 

000002 

BADDIR= 

104463 

CHRUPA= 

000131 

C.FRC  = 

000001 

D$FPNT= 

******  G 

D.DIV  = 

000000 

BADERR= 

104437 

CHR.BS= 

000010 

C.IDEN=  000010 

D$FPUT= 

******  G 

D.DMD  = 

000010 

BITSX  = 

000000 

CHR.CC= 

000003 

C.NAME= 

000102 

D$GE 

00112.SRG 

020  D.DQAD= 

1 77777 

BUSY  = 

000000 

CHR.CR= 

000015 

C.N0BF= 

000400 

D$GT 

001150RG 

020  D.DROP= 

000002 

BLZBUB 

0051 16R 

025 

CHR.CZ= 

000032 

C.NUM  = 

000020 

DSIBM  = 

*****<  G 

D.ENCD= 

000002 

BMONCT= 

*♦•***  GX 

CHR.GT= 

000046 

COP  = 

000004 

DSIND  = 

******  G 

D.EQ  = 

000000 

BGPTAB 

OOOOOORG 

005 

CHR.LF= 

000012 

C.OPN  = 

010000 

D$I^JNR= 

******  G 

D.EXPD= 

000002 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.RDLN= 

177776 

D$INTR= 

******  G 

D.FGET= 

000005 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C.REWT= 

002000 

D$LE 

001036f!G 

020  D.FMT  = 

000004 

CHA^€X 

003060R 

025 

CHR.SL= 

000057 

C.RND  = 

000010 

DSLOG  = 

******  G 

D.FPNT= 

000005 

CHANOO 

000256R 

025 

CHR.SO=  000016 

c.:rit= 

177756 

D$LT 

001014RG 

020  D.FPUT= 

000005 

CHAN01 

000330R 

025 

CHR.TB= 

000011 

C.SPFX= 

000100 

DSMAX 

0OO324R3 

020  D.GE  = 

000000 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.SPGL= 

000200 

DSMEM  = 

******  G 

D.GT  = 

000000 

CHAN03 

000674R 

025 

LHK  ■  mf\'- 

000141 

C.SPLX= 

OOOC/01 

D$MIN 

000244RG 

020  D.IBM  = 

000002 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.SPRS= 

000002 

DSMUL 

000070RG 

020  D.IND  = 

000002 

CHAN05 

001240R 

025 

CHR..S= 

000163 

C.SRC  = 

177774 

D$NE 

001172R6 

020  D.INNR= 

000013 

CHAN06 

001422R 

025 

CHR..T= 

000164 

C.SRCP= 

000024 

D$NN 

000736RG 

020  D.INTR= 

000006 

CHAN07 

001604R 

025 

CHR..U= 

000165 

C.TT  = 

000004 

D$NR 

000764RG 

020  D.LE  ^ 

000000 

CHAN08 

001766R 

025 

CHR..Z=: 

000172 

C.WIDC= 

177770 

D$OR 

000720RG 

020  D.LOG  = 

000001 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

C.WIDR= 

177772 

DSPLUS 

OOOOOORG 

020  D.LT  = 

cooooo 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DEBUG  = 

000000 

D$PSUB= 

******  G 

D.MAX  = 

000000 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DEFERR= 

104405 

DSPWR  = 

******  G 

D.MEM  = 

000002 

CHAN12 

002676R 

025 

CMD6UF 

003250R 

025 

DEVIL 

0051 14R 

025 

D$QQAD 

005364RG 

020  D.MIN  = 

000000 

CHAN13 

000022R 

023  CMDMAX= 

000010 

DEVNTF= 

104470 

DSQUAD 

0051 50RG 

020  D.MUL  = 

000000 

CHANU 

000204R 

023  CNTSIZ 

005130R 

025 

DIGITS 

000006R 

025 

DSRES 

000404RG 

020  D.NE  = 

000000 

CHNOPN= 

104471 

COMbIN 

005076R 

025 

DIMAX  = 

000020 

DSRHO 

002350RG 

020  D.NN  = 

000000 

CHRAND= 

000051 

COMCNT 

005126R 

025 

DIMBLK 

0031 12R 

025 

DSROT  = 

******  G 

D.NR  = 

000000 

CHRBEL= 

000007 

COMERR= 

104425 

DIMPTR 

0031 14R 

025 

D$SCON= 

******  G 

D.OR  = 

000000 

CHRBKR= 

000133 

COMPTR 

005122R 

025 

DIMTYP 

0031 16R 

025 

D$SDIF= 

******  G 

D.PLUS= 

000000 

CHRBOL= 

000200 

COMRTN 

0031 56R 

025 

DIRFUL= 

104466 

DSSUB 

000034R6 

020  D.PSUB= 

000006 

CHRBnX= 

000114 

COMSKP 

005124R 

025 

DOMERR= 

104417 

D$SUBS= 

******  G 

D.PWR  = 

000001 

CHRC«A= 

000054 

CORPTR 

0O5120R 

025 

DPTERR= 

104416 

D$TAKE= 

******  G 

D.QQAD= 

000000 

CHRCa= 

000076 

CS.ASS= 

000200 

DYDBTL 

OOOOOORG 

007  D$TRAN= 

******  G 

D.QUAD= 

000000 

CHRDEL= 

000107 

CS.BOO= 

000010 

DYDCNT 

003224R 

025 

D$UNON= 

******  G 

D.RES  = 

000000 

CHRD1V= 

000053 

CS.FLO= 

000020 

DYDTAB 

000060RG 

004 

D$$MAX 

000350RG 

020  D.RHO  = 

000000 

CHRDLR= 

000176 

CS.IDN= 

000040 

DSAND 

000672RG 

020  D$$MIN 

000270RG 

020  D.ROT  = 

000003 

CHRDLT= 

000110 

CS.ONE= 

000100 

D$8XCT= 

*i^*«**  G 

DSSM'JL 

0001 26RG 

020  D.SCON= 

000006 
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D.SD1F= 

000006 

FD.MNT= 

100000 

F.BITS= 

1 7777^ 

F.RTYP= 

000000 

LARGLE 

0031 7A« 

025 

D.SIB  = 

000000 

FD.OSP= 

004000 

F.BKDN=  000026 

F.R2  = 

000014 

LARGLN 

0031 66R 

025 

D.SUBS= 

000006 

FD.PLC= 

000004 

F .8KDS= 

000020 

F.R3  = 

000016 

LARGPT 

0031 64R 

025 

D.TAKE= 

000002 

FD.PRN= 

000004 

F.BKEF= 

000050 

F.R4  = 

000020 

LARGSF 

0031 72R 

025 

D.TRAN=  OOOOOA 

FD.PSE= 

010000 

F.8KP1= 

000051 

F.SEQN=  000100 

LARGTY 

0031 7CR 

025 

D.UNON=  000006 

FD.RAH= 

000001 

F.BKST= 

000024 

F.SPDV= 

000072 

LARGVA 

003200R 

025 

D.$MAX= 

000000 

FD.RAN=  000002 

F.8KVB= 

000064 

F.SPUN=  000074 

LASTOP= 

000120 

D.$M1N=  000000 

FD.REC= 

000001 

F.BR  = 

000020 

F.STBK= 

000036 

LBINC 

0051 OCR 

025 

D.$MUL= 

000000 

FD.RUM=  000001 

F.CHR  = 

000075 

F.STK  = 

000022 

LBUFF 

00331 6R 

025 

D.$PLU=  000000 

FD.SDI= 

000020 

F . CNTG= 

000034 

F.STOP= 

000004 

LBUFLN- 

000621 

D.$RES= 

000000 

FD.SQD= 

000040 

F.CODE= 

000010 

F.STP  = 

000001 

LCOUNT 

0051 06R 

025 

D.SSUB=  000000 

FD.TTY= 

000004 

F.DF^B=  000046 

F . SUSP^ 

000002 

LENERR= 

104412 

D.1C0H=  000001 

FD.UBH^ 

000002 

F.DSPT= 

000044 

F.TO.I= 

nmttitit   6X 

LENTAB 

000054^V 

025 

D.1EXP=  000002 

FF.CHR= 

000005 

F.DVNM= 

0001 34 

F.TRC  = 

000002 

LEXPTR 

0031  OOf? 

025 

D.1R0T= 

000003 

FF.NV  = 

000003 

F.EFBK= 

000010 

F.UNIT= 

000136 

LFTOP 

005066F^ 

025 

EDICHR 

OO5063R 

025 

FF.POE= 

000002 

F.EFN  = 

000050 

F.URBD= 

000020 

LINC 

0051 02R 

025 

EDICNT 

005064R 

025 

FF.RWD= 

000001 

F.END  = 

002000 

F.VAL  = 

1 77776 

LINE 

00501 6R 

025 

EDIFLG 

005062R 

025 

FF.RWF= 

000006 

F.EnRR= 

000032 

F.VBN  = 

000064 

LININC 

005026R 

025 

EDIT  = 

000003 

FF.SPC= 

000004 

F.ERR  = 

000052 

F.VBSZ= 

000060 

LJSJZE= 

000020 

EIS   = 

000000 

F  HE  ADR 

00501 2R 

025 

F.FACC= 

000043 

GETCOR= 

******  GX 

LITOP 

005072R 

025 

ELESIZ 

0051 32R 

025 

FHRET 

005040R 

025 

F.FFBY= 

000014 

GETFRA= 

******  GX 

LNLNG  = 

104541 

ENDCOR 

000004R 

025  FILNTF= 

104467 

F.FLAG= 

000002 

GETL  = 

******  GX 

LOCLCT 

005036R 

025 

EOF   = 

104A75 

FIS   = 

000000 

F.FLB  = 

000100 

GETLIN= 

******  GX 

LOWCOR 

000002R 

025 

ERRf1AX= 

000166 

FISrON= 

046000 

F.FNA«= 

000110 

GETSM1  = 

******  GX 

LSTERP 

004766R 

025 

ERRNUM 

00A772R 

025 

FIXLIN= 

♦**♦**  6X 

F.F^B  = 

000102 

GETSM3= 

******  GX 

LWIDTH 

000070R 

025 

ERRPTR 

00A770R 

025 

FIXPTR 

003074R 

025 

F.FNDF= 

000010 

GNOME 

0031 02R 

025  L.BITS= 

000003 

ERRO 

004//4R 

025 

FLAGS 

004764R 

025 

F.FTYP= 

000116 

HASHC 

0051 36R 

025  L.CNT  = 

000002 

EXEBUF 

OO5054R 

025 

FLCBUF 

003250R 

025 

F.FUN  = 

000010 

HASHTB 

0051 40R 

025  L.PRNT= 

000001 

EXEC  = 

**•**«  GX 

FLI^€ 

00501 4R 

025 

F.F VER= 

000120 

HSHMSK= 

1 77601 

L.PTR  = 

000000 

E$CHR  = 

******  GX 

FLOEXP 

003270R 

025 

F.HEAD= 

000006 

HSHSIZ= 

000200 

L.PTR1= 

000004 

E$CT 

OO5056R 

025 

FLONEG 

003272R 

025 

F.HIBK= 

000004 

I  ASH  = 

******  GX 

L .  SUBS= 

000002 

E$PT 

OO506OR 

025 

FLSWT8 

000222R 

025 

F.LBL  = 

000020 

I  CHAN 

005050R 

025  MACHiN= 

000106 

FA.APO= 

000100 

FLTLEN= 

000010 

F.L1NE= 

000012 

IDIV  = 

******  GX 

MAXCHN= 

000014 

FA.CRE= 

000010 

FMONCT= 

******  GX 

F.LOC  = 

000004 

ILFNAM= 

104464 

MONBLK 

0031 20R 

025 

FA.DLK= 

001000 

fmnsi 

005044R 

025 

F.LSTC= 

000004 

ILLCHN= 

104540 

MONBTL 

OOOOOORG 

006 

FA.E^©= 

100000 

FORIGN 

000032R 

025 

F.LUN  = 

000042 

ILLSW  = 

104565 

MONCVT 

0031 32R 

025 

FA.EXC= 

002000 

FO.APD= 

000106 

F.MBCT= 

000054 

IMONCT= 

******  GX 

MDNIBM= 

******  G 

FA.EXT= 

OOOOOA 

FO.MFY= 

000002 

F.MBC1  = 

000055 

IMUL  = 

******  GX 

MONLEN 

0031 30R 

025 

FA.NSP=  000100 

FO.RD  = 

000001 

F.MBFG= 

000056 

INDERR= 

104410 

MONPTR 

0031 22R 

025 

FA.NSR= 

000200 

FO.UPD= 

000006 

F.MON  = 

000002 

INNTMP 

003250R 

025  MONSFT 

0031 26R 

025 

FA.P0S= 

010000 

FO.URT= 

000016 

F.NIL  = 

000001 

INNTM2 

00501 6R 

025  MONTAB 

000060RG 

003 

FA.RD  = 

000001 

FPMODE 

000042R 

025 

F.NRBD= 

000024 

INPTR 

000064R 

025  MONTYP 

0031 24R 

025 

FA.RUD= 

004000 

FPP   = 

000000 

F.NREC= 

000030 

INSNAM= 

104462 

MONVAL 

0031 34R 

025 

FA.SEQ= 

040000 

FPPLEN=  000004 

F.OPN  = 

000010 

lOERR  = 

104477 

MSABS 

002022RG 

020 

FA.SHR= 

000040 

FREBLK 

007400R 

025 

F.OVBS= 

000030 

I.CNT  = 

1 77776 

M$BXAV= 

******  G 

^A. "HIP- 

000020 

FRESCT= 

**«*4^4^  GX 

F.PREV= 

000000 

I. DIM  = 

\77772 

M$BXCR= 

******  G 

FA.  WCK= 

020000 

FUZZ 

0001 42R 

025 

F.PRNT= 

100000 

I.LEN  = 

00001 2 

M$BXCT= 

******  G 

FA.yRT= 

000002 

FXPTR1 

003076R 

025 

F.PROT= 

010000 

I.OERR= 

000062 

MSBXEX= 

******  G 

FD.BLK= 

000010 

F$EVAL= 

000100 

F.RACC= 

000016 

I. OLD  = 

1 7777^ 

Mr9XFX= 

******  G 

FD.CCL= 

000002 

f%E\/l   = 

000200 

F.RATT= 

000001 

I.PTR  = 

1 77771, 

M$BXIO= 

******  G 

FD.COH=  020000 

F$EXEC= 

000400 

F.RCNM= 

000034 

I.STR  = 

1 77766 

M$BXLC= 

******  G 

FD.CR  = 

000002 

F$FUNC= 

001000 

F.RCTL= 

000017 

LABERR= 

104406 

M$BXNC= 

******  G 

FD.DIR= 

000010 

F.ACrL= 

000076 

F.READ= 

004000 

LABLPT 

005042R 

025  M$BXNL= 

******  G 

FD.FTN=  000001 

F.AL0C= 

000040 

F.REDF= 

000040 

LARGBL 

0031 62R 

025  M$BXPP= 

******  G 

FD.F11= 

040000 

F.8BFS= 

000062 

F.RES  = 

000040 

LARGCT= 

******  GX 

M$BXPW= 

******  G 

FD.INS= 

000010 

F.BD8  = 

000070 

F.RET  = 

177772 

LARGCV 

0031 76R 

025  M$BXRL= 

******  G 

FD.ISP= 

002000 

F.8GBC= 

000057 

F.RSJZ= 

000002 

LARGFL 

0031 60R 

025  M$BXTS= 

******  G 
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M$BXWA=: 

**•««*  (3 

M.DOUT= 

000006 

NB.SNM=  000040 

0PTMP1 

005070R 

025  RTOP 

005070R 

025 

M$DQAD= 

*♦♦*♦*  G 

M.DQAD= 

000006 

NB.STP=  000020 

0PTMP2 

005072R 

025  RT11  = 

000000 

M$ENCD= 

*•*•••  Q 

M.ENCD= 

000004 

NB.SVR=  000010 

0PTMP3 

005074R 

025  R.8ITS= 

000003 

nSEXE 

00A6A4R6 

020  M.EXE  = 

000000 

NB.TYP=  000002 

0PTMP4 

005076R 

025  R.FIX  = 

000001 

M$EXP  = 

«*i^*««  Q 

M.EXP  = 

000001 

NB.VER=  000001 

0PTMP5 

005100R 

025  R.LCT  = 

000002 

MSFACT= 

♦♦♦**♦  Q 

M.FACT= 

000001 

ND.DEV=  000200 

0PTMP6 

005102R 

025  R.LN  = 

000002 

MSFMT  = 

«r«««l^*  (5 

M.FIL  = 

000177 

ND.EXT=  000002 

0PTMP7 

0051 04R 

025  R.LNUM=  000010 

M$GDUP= 

*♦*♦♦*  Q 

M.FLR  = 

\77777 

ND.NAM=  000004 

0PTMP8 

005106R 

025  R.NEXT= 

000006 

nSGOUN= 

***♦•*  (5 

M.FMT  = 

000004 

ND.PPN=  000100 

0PTMP9 

00511  OR 

025  R.OFF  = 

000000 

nSIDN 

0012A0R6 

020  M.GDUP= 

000003 

ND.$EX=  000000 

OPTM10 

0051 12R 

025  R.PREV= 

000004 

liSIOTA 

00A522RG 

020  M.GDUN= 

000003 

ND.$E$=  000020 

0PTM14 

005026R 

025  R.PTR  = 

000000 

M$LN  = 

♦♦♦**•  Q 

M.GETI= 

000006 

ND.$M«1=  000000 

ORIGIN 

000030R 

025  R.SEQ  = 

000003 

FWfWD  — 

•*♦*•♦  Q 

M.IBM  = 

000003 

ND.$N$=  000040 

OUTPTR 

000066R 

025  R.VAR  = 

000002 

nSNEG 

001616RG 

020  M.IDN  = 

000000 

ND.$PN=  001400 

0VR0PR= 

000000 

R6 

X000006 

M$NOT 

002056RG 

020  M.INSP= 

000006 

NEGSGN  005063R 

025  PATCH 

007344R 

025  R7 

X000007 

n$NUB  = 

******  Q 

M.I0TA= 

000000 

NEWLIN=  *•***•  GX 

PI 

OOOOOORG 

002 

SAME  = 

******  GX 

M$OUTR= 

*♦*•**  G 

M.LIT  = 

000205 

NINPT1  003302R 

025  PRECSN 

000052R 

025 

SCALOP= 

000030 

MSPITM 

002002RG 

020  M.LN  = 

000001 

NINPT2  003300R 

025  PRINT  = 

****••  GX 

SI 

X000005 

nSQQAO 

005224RG 

020  M.MMD  = 

000010 

NINSTK  003304R 

025  RANOAC 

003064R 

025 

SIDAMN= 

104433 

nSQUAD 

OO5026RG 

020  M.NEG  = 

000000 

NINTMP  00331 OR 

025  RANDY 

003062R 

025 

SIFRAM 

00331 4R 

025 

NSRAVL 

002762RG 

020  M.NOT  = 

000000 

NINTYP  003306R 

025  RANERR= 

104411 

SISTAK 
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TITLE  APL001 
IDENT  \V02.03\ 

THIS  IS  USED  WHEN  ASSEMBLING  APLOP  TO  DEFINE  A  NEW  OVERLAY  SEGMENT 
CONTAINING  OPERATOR  ROUTINES.  IN  THE  COMMON  DEFINITION  FILE, 
•OVROPR'  IS  DEFINED  AS  ZERO.   IF  IT   IS  DEFINED  AS  ONE  BEFORE  APLOP 
IS  ASSEMBLED,  ONLY  THE  CODE  DESIGNATED  FOR  THE  OPERATOR  OVERLAY  IS 
ASSEMBLED.   THEREFORE,  THE  COMMAND  TO  ASSEMBLE  APL001  IS: 

APL001  <  APL001, APLOP 


000001 


OVROPR=  1 


; OVERLAY  SPECIFIED  OPERATORS 
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143 
144 
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146 
147 

148  .MACRO 

149 

150  .ENDM 

151 

152  .MACRO 

153 

1 54  . ENDM 

155 

159 

160  007400  PRMRES 

199  007400 


H  16 


■♦•■♦• 
FUNCTIONAL  DESCRIPTION: 

THIS  MODULE  CONTAINS  THE  CODE  FOR  MOST  APL  OPERATORS  WHICH 
HAVE  BEEN  IMPLEMENTED  SO  FAR.  TWO  MACROS  ARE  USED  TO  DEFINE 
OPERATOR  ROUTINES.   'DOPINS'  \il^\H^%   A  DYADIC  OPERATOR,  AND 
•MOPINS'  DEFINES  A  MONADIC  OPERATOR.  THE  ARGUMENTS  TO  THE 
MACROS  ARE  THE  NAME  OF  THE  OPERATOR  RaJTINE  AND  THE  OPERATOR 
NUMBER  FOR  THE  OPERATOR  (WHICH  CAN  BE  FOUND  BY  LOOKING  IN 
•VTAB').   FOR  DYADIC  SCALAR  OPS,  IH^   LEFT  ARG  IS  \H   AC1,  THE 
RIGHT  ARG  IS  IN  AC2,  AND  THE  RESULT  IS  RETURNED  IN  ACO.   FOR 
MONADIC  SCALAR  OPS,  THE  ARGUMENT  IS  IN  AC1,  AND  THE  RESULT 
IS  RETURNED  IN  ACO.  SCALAR  OPS  MUST  LEAVE  THEIR  ARGUMENTS 
INTACT i 


THESE  MACROS  ARE  FOR  OVERLAY  CODE.   THEY  ARE  USED  THE  SAME  AS 
RESIDENT  MACROS.  THE  DIFFERENCE  COMES  IN  THE  WAY  THEY  WORK.   THE 
•PRMRES'  MACRO,  FORCES  ALL  CODE  BETWEEN  IT  AND  THE  NEXT  MFTF  VLIST' 
TO  NOT  BE  ASSEMBLED.   THE  'MOPINS*  AND  'DOPINS*  DON'T  PUT  ANYTHING  IN 
ANY  TABLES.  OTHER  THAN  THAT  THEY  WORK  BASICLY  THE  SAME  AS  THE  RESIDENT 
MACROS. 

.MACRO  DOPINS  NAME, NUM,B ITS, BOZO, NOTME 

AU  NDF  D.'N-AME,  .ERROR  ;D.'NAME  IS  NOT  DEFINED  BY  OVROPI 

Af   EQ  OVROPR-D.'NAME 

,?SIZ1     CODE 
DS'NAME:: 
.ENDM 

.MACRO  MOPINS  NAME, NUM, BITS, BOZO, NOTME 

A\^  NDF  M.*NAM2,  ERROR  ;M.'NAME  IS  NOT  DEFINED  BY  OVROP! 

.IF  EQ  0VR0PR-M."4AME 

.PSECT  'ODE 

A^   NE  NUM 
MS'NAME::  ^'^ 

.ENDC 
.ENDM 

LIST 
.ENDC 


PRMRES 
A^   EQ  1 


;**•««««««««  ASSEMBLING  THE  FILE 


I  I  I  I  I 
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251 

252  007400 

264  007400 

265 

266 

267  007400  DOPINS 

284  007400 

285 

286  007400  DOPINS 

323  007400 

324 

325 

326  007400 

327 

328 

329  000000 

330  000006 

331  000012  001005 

332  000014 

333  000024 
334 

335  000026 

336  000034 

337  000040 

338  000042 

339  000050 

340  000054 

341  000056 

342  000060 

343  000066 
344 

345  000070 

346  000072 

347  000100 

348  000106 

349  000116 

350  000122  001052 

351  000124 

352  000132  103^46 

353  000134  002001 

354  000136  005400 

355  000140 

356  000146 

357  000156  006200 

358  000160  103003 


I  16 


DOPINS  PLUS,2,T.S0P,.INTEGER^CS.IDN+CS.ASS 
LIST 

DOPINS  $PLU,-2 
LIST 

DOPINS  SUB,4,T.S0P,.INTEGER+CS.IDN 
LIST 

DOPINS  $SUB,-4 
LIST 


DOPINS  MUL,6,T.S0P,.INTEGER+CS.B00L+CS.IDN+CS.0NE+CS.ASS 
LIST 


$WUL,-6 
LIST 

DIV,10,■^.SOP,.FLOAT+CS.BOOL+CS.IDN•^CS.ONE 
LIST 


DOPINS     PWR,20,T.SOP,.FLOATKS.BO0L+CS.IDN+CS.ONE 
.SBTTL     SCALAR  FUNCTION  POWER 


001013 


100001 
104417 


STF 

AC2,AC0 

;COPY  EXPONENT 

CALL 

CLOSEO 

;1S   IT    (+-)X^0  ? 

BNE 

1$ 

;N0 

LDF 

#^F1,AC0 

;YES,  RESULT=1 

RETURN 

1$: 

STF 

AC1,AC0 

;C0PY  BASE 

CALL 

CLOSEO 

;1S   IT  0'^(+-)X? 

BNE 

3$ 

;m 

TSTF 

AC2 

;1S   IT  0^-X? 

CFCC 

;WELL,  I'M  WAITING 

BPL 

2$              ; 

;N0 

8$: 

DOMERR 

; DOMAIN  ERROR 

2$: 

CLRF 
RETURN 

Aco              ; 

;0^X=0 

3$: 

PUSH 

RO 

iSave  RO 

STF 

AC1,AC3 

;SAVE  BASE 

STF 

AC2,AC0 

;COPY  EXPONENT 

MODF 

#*F1..AC0 
CLOSEO 

;INTEGERIZE 

CALL 

;ROUGHLY  AN  INTEGER  ? 

BNE 

4$ 

;N0 

STCFI 

AC1,R0 

;  CONVERT  TO  INTEGER 

BCS 

4$ 

[OVERFLOW,  GIVE  UP 

BGE 

9$ 

[POSITIVE  #? 

NEG 

RO 

•NO,  SO  MAKE  IT  SO 

9$: 

LDF 

AC3,AC1 

•RESTORE  AC1 

LDF 

*^F1.,AC0 

•INITIAI  VALUE  OF  1 

10$: 

ASR 

RO 

•SHIF.  ,0  GET  LOW  BIT 

BCC 

lU 

•NOTHING  LOW 

APL001  MACRO  Ml  11 3  08-F  EB-80  09 : 1 0 
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TIJ" 


359  000162 

360  000170 

361  000172 

362  0001 7A 

363  000202 
36A  000204 

365  000212 

366  000216 

367  000220 

368  000230 

369  000236 

370  000244 

371  000246 
372 

373  000250 

374  000256 

375  000264 

376  000274 

377  000300 

378  000302 

379  000310 

380  000314 
381 

382  000316 

383  000324 

384  000330 

385  000332 

386  000340 

387  000344 

388  000352 

389  000356 

390  000360 
392  000362 
393 

394 

395  000362 

396 

39^ 

398  000362 

399  000370 

400  000374 

401  000402 

402  000406 
403 

404  0004^0 

405  000420 

406  000424 

407  000426 
408 

409  000430 

410  000440 
411 

412  000442 

413  000450 

414  000454 

415  000462 
417  000464 


005700 
001404 

000765 


00201 2 


001006 
000753 

100652 


103332 
104^17 


001015 


001401 
104417 
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MULF 

AC3,AC0 

;Ml'LTIPLY  BY  . . . 

11$: 

TST 

RO 

••CAUSE  EMULATOR  HAS  PROBLEM 

BEQ 

12$ 

;nK)THING  LEFT 

MULF 

AC3,AC3 

; SQUARE  EXP 

BR 

10$ 

;/ND  LOOP 

12$: 

TSTF 
CFCC 

AC2 

; CHECK  SIGN  OF  EXPONENT 

BGE 

13$ 

; NON-NEGATIVE 

LDF 

#^F1.,AC3 

;LOAD  A  1.  INTO  AC3 

DIVF 

AC0,AC3 

; INVERT  THE  RESULT 

LPF 

AC3,AC0 

;AND  PUT  IT  BACK 

13$: 

POP 
RETURN 

RO 

; Res tore  RO 

4$: 

STF 

AC3,AC1 

;GET  ACl  BACK 

STF 

AC2,AC0 

;COPY  EXPONENT 

SUBF 

4f^F.5,ACO 

;SQRT(X;? 

CALL 

CLOSEO 

;FU2Z  IT  AGAIN 

BNE 

5$ 

;N0 

STF 

AC1,AC0 

;COPY  BASE 

CALL 

.SORT 

;GET  SQUARE  ROOT 

BR 

13$ 

•And  return 

5$: 

TSTF 

ACl 

;TEST  BASE 

CFCC 

;X<0? 

BMJ 

8$ 

;YES 

STF 

ACl  ,ACO 

;X*Y--EVP(Y*LN(X)) 

6$: 

CALL 

.LN 

MLIF 

AC2,AC0 

- 

CALL 

.EXP 

BCC 

13$ 

;Return  if  no  overflow 

DOMERR 

4 

lOverflow,  Domain  error 

LIST 

DOPJNS 

LOG, 54, 

T.S0P,.FL0ATi:S.B00L 

.S8TTL 

SCALAR 

FUNCTiaN        LOGARITHM 

STF 

AC1,AC0 

•COPY  BASE 

CALL 

•  LN 

•GET  IT'S  NATURAL  LOG 

STF 

AC0,AC4 

•SAVE  IT  FOR  LATER 

CFCC 

t 

•CHECK  THE  SIGN  OF  TI-'E  BASE'S  LOG 

BNE 

1$ 

•GOOD  IF  BASE  ISN'i  1 

CMPF 

#^F1,AC2 

SEE  IF   LOG  BASE  1  OF  1 

CFCC 

BEQ 

2$           . 

If   SO,  POSSIBLE  TO  HAVE  BASE=1 

DOMERR 

< 

OTHERWISE  WE  CAN'T  DO  IT 

2$: 

LDF 
RETURN 

#*F1,AC0       ; 

LOG  BASE  1  OF  1  IS  1  SINCE  ri=1 

1$: 

STF 

AC2,AC0        ; 

COPY  THE  NUMBER  TO  TAKE  LOG  OF 

CALL 

.LN           ; 

FIND  IT'S  LOG 

DIVF 

AC4,AC0        ; 

DO  A  BASE  CONVERSION 

RETURN 

LOG  B  (A)=LN(A)/LN(8) 

LIST 

10A417 

013700  003154' 

162700  000010 

002367 

062700  000017 

002764 

006300 
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418 

419 

420  000464 

421 

422 

423  000464 

424  000466 

425  000474 

426  000500 

427  000502 

428  000506 

429  000514 

430  000520 

431  000522 

432  000526 

433  000530 

434  000532 

435  000536 

436  000540 
437 

438 

439  000000 

440 

441  000000 

442  000002 

443  000004 

444  000006 

445  000010 

446  000012 

447  000014 

448  000016 

449  000020 

450  000022 

451  000024 

452  000026 

453  000030 

454  000032 

455  000034 
456 

457  000542 

458 

459 

460 

461 

462 

463  000542 

464  000550 

465  000560 

466  00056^ 
467 

468 

469  000566 

470 

471 

472  000574 

473  000602 

474  000612 


K  16 


004140* 
004226* 
004272' 
000542' 
000622' 
000366' 
000430' 
000566' 
002270' 
002254 ' 
002734 ' 
000574' 
001526' 
001610' 
001672' 


000762 
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DOPJNS 

CIRC, 52 

,T. SOP,. FLOAT 

.SBTTL 

SCALAR 

FUNCTION 

CIRCULAR  FUNCTIONS 

PUSH 

RO 

;Sa\je   ROI 

STF 

AC1,AC0 

;C0PY  AC1  =>  ACO 

CALL 

F.TO.I 

; CONVERT  TO  INTEGER 

1$: 

DOMERR 

; WON'T  CONVERT,  ERROR 

MOV 

RESVAL.RO 
AC2,AC0 

;6ET  THE  RESULT 

STF 

;SAVE  NUMBER  TO  DO  IT  TO  IN   SCRATCH  AC 

SUB 

*10,R0 

;SEE  IF  THE  TYPE  CIRC.  FUN.  IS  LEGAL 

BGE 

1$ 

;ERROR,  DIE 

ADD 

*17,R0 

;  (THIS  ACTUALLY  WORKS,  TRYIT  SOMETIME) 

BLT 

1$ 

; ERROR,  DIE 

ASL 

RO 

;GET  READY  FOR  WORD  BRANCH  IN   TABLE 

CALL 

aCIRTAB(RO) 

;Go  to  the  user  supplied  function 

POP 

RO 

; Res tore  RO 

RETURN 

.PSECJ 

TABLES 

CIRTA8: 

.WORD 

.ATANH 

^HYPERBOLIC  ARCTANGENT 

.WORD 

.ACOSH 

^HYPERBOLIC  ARCCOSINE 

.WORD 

.ASINH 

jHYBERBOLIC  ARCSINE 

.WORD 

CNEG4 

.WORD 

.ATAN 

: ARC TANGENT 

.WORD 

.ACOS 

;ARCCOSINE 

.WORD 

.ASIN 

; ARCSINE 

.WORD 

CZERO 

.WORD 

.SIN 

;SINE 

.WORD 

.COS 

; COSINE 

.WORD 

.TAN 

;  TANGENT 

.WORD 

CP0S4 

.WORD 

.SINH 

; HYPERBOLIC  SINE 

.WORD 

.COSH 

•HYPERBOLIC  COSINE 

.WORD 

.TANH 

•HYPERBOLIC  TANGENT 

.PSECT 

CODE 

.ENABL 

LS8 

;D0  'SQR (8*2-1) 

•  ON  CIRCULAR  FUNCTION  *-4 

CNEG4: 

MULF 

AC2,AC0 

•SQUARE  ACO 

SUBF 

/«^*F1,AC0 

•GET  (B*2)-(1) 

2$: 

CALL 

.SORT 

•FIND  THE  SQUARE  ROOT  OF  THE  WHOLE  MESS 

RETURN 

•RETURN  WITH  THE  RESULT 

;D0  'SQR( 1-8*2) 

'  ON  CIRCULAR  FUNCTION  #0 

CZERO: 

NEGF 

ACO 

NEGITIVE  TIMES  POSITIVE  IS  NEGITIVE 

;DC  'SG 

r^(Ue*2) 

'  ON  CIRCULAR  FUNCTION  *4 

CP0S4 : 

MULF 

AC2,AC0 

GET  (+-)B*2 

ADDF 

**F1,AC0       ; 

ADD  ONE  TO  THAT 

BR 

2$ 

AND  GO  TO  COMMON  RETURN 

APLO01 
SCALAR 


MACRO  Ml  113 
FUNCTION 
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L  16 


A75 

i^ll   0006H 

A78 

A79 

A80  000614 

490  000614 

491 

492  000614 

516  000614 

517 

518 

519  000614 

529  000614 

530 

531  000614 

555  000614 

556 

557 

558  000614 

589  000614 

590 

591 

592  000614 

616  000614 

617 

618 

619  000614 

620 

621 

622  000614 

623  000622 

624  000630 

625  000634 

626  000636 

627  000644 
628 

629  000646 

630  000652 

631  000660 

632  000666 

633  000672 

634  000700 

635  000706 

636  000712 

637  000720 
639  000722 


100004 
000425 


1$: 


.DSABL  LS8 
LIST 


DOPINS     MINJ4,T.S0P,.INTEGER^CS.B00L+CS.ASS 
LIST 

DOPINS     $MIN,-14 
LIST 


DOPINS     MAXJ6,T.S0P,.INTEGER+CS.800L+CS.ASS 
LIST 

DOPINS  $MAX,-16 
LIST 


DOPINS  RESJ2,T.S0P,.INTEGER^-CS.B00L-^CS.IDN 
LIST 


DOPINS  $RES,-12 
LIST 


DOPINS  COMB, 22, T. SOP,. FLOAT+CS.OOOL+CS.IDNKS. ONE 
.S8TTL  SCALAR  FUNCTION        COMBINATION 


2$: 


STF 

AC2,AC0 

;COMBINATION  'AlB*  =  A!/( (Bi ) (A-B) 1) 

SIBF 

AC1,AC0 

;GET  A-B 

CFCC 

; CHECK  ARGUMENTS 

BPL 

1$ 

;A  <=  B  IS  LEGAL 

CLRF 

ACO 

;ELSE  NOT  POSSIBLE  TO  COMBINE! 

BR  2$ 

CALL 

.FACT 

•FIND  IT'S  FACTORIAL 

STF 

AC0,AC3 

■SAVE  RESULTS  FOR  LATER 

STF 

AC1,AC0 

•COPY  B 

CALL 

.FACT 

•AMD  FIND  IT'S  FACTORIAL 

MULF 

AC0,AC3 

•MULTIPLY  TO  GET  THE  DIVISOR 

STF 

AC2,AC0 

■COPY  A 

CALL 

.FACT 

•AND  GET  IT'S  FACTORIAL 

DIVF 

AC3,AC0 

•DIVIDE  TO  GET  THE  FINAL  RESULT 

RETURN 

LIST 

APL001     MACRO  Ml  113 
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6A1  000722 

652  000722 

653 

654 

655  000722 

662  000722 

663 

66A 

665  0CO722 

676  000722 

677 

678  000722 

687  000722 

688 

689 

690  CX)0722 

700  iy>0722 

701 

702  000722 

712  000722 

713 

714 

715  000722 

733  000722 

734 

735  00072.^ 

745  000722 

746 

747 

748  000722 

758  000722 

759 

760 

761  000722 

780  000722 

781 
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M  16 


DOPINS  AND,42,T.S0P,.B00LEAN+rS.IDN+CS.0NE+CS.ASS 
LIST 


DOPINS  OR,40,T.SOP,.BOOLEAN+CS.IDN'^CS.ASS 
LIST 


DOPINS  NN, 46, T. SOP,. BOOLE AN 
LIST 

DOPINS  NR, 44, T. SOP,. BOOLE AN 
LIST 


DOPINS  LT,24,T.LIT+T.SOP,.CHARACTER+CS.IDN 
LIST 

DOPINS  LE,26,T.LIT-t-T.SOP,.CHARACTER+CS.IDN^CS.ONE 
LIST 


DOPINS  EQ,30,T.LIT+T.SOP,.CHARACTER-^CS.IDN+CS.ONE 
LIST 

DOPINS  GE,36,T.LIT^T.S0P,.CHARACTER-»-CS.IDN+CS.0Nb" 
LIST 


DOPINS  GT,32,T.Lir^-T.SQP,.CHARACTER+CS.IDN 
LIST 


DOPINS  NE,34,T.LIT+T.S0P,.CHARACTER^-CS.IDN 
LIST 


B 

C 

D 

E 

F 

G 

H 

1 

J 

K 

L 

M 

N 

B 

2 

C 

2 

0 

2 

E 

2 

F 

2 

G 

2 

H 

2 

I 

2 

J 

2 

K 

? 

L 

2 

M 

2 

N 

2 

6 

3 

C 

3 

0 

3 

E 

3 

F 

3 

G 

3 

H 

3 

I 

3 

J 

3 

K 

3 

L 

3 

M 

3 

N 

3 

B 

4 

C 

4 

0 

A 

E 

4 

F 

4 

G 

A 

H 

4 

I 

A 

J 

4 

K 

4 

L 

4 

M 

4 

N 

4 

B 

5 

C 

5 

0 

5 

E 

5 

F 

5 

G 

5 

H 

5 

I 

5 

ACOPY 


APLDX1 


J 

5 

K 

5 

L 

5 

M 

5 

N 

5 

B 

6 

C 

6 

D 

6 

E 

6 

F 

6 

G 

6 

H 

6 

I 

6 

J 

6 

K 

6 

L 

6 

M 

6 

N 

6 

B 

7 

C 

7 

D 

7 

E 

7 

F 

7 

G 

7 

H 

7 

I 

7 

J 

7 

< 

7 

L 

7 

M 

7 

N 

7 

B 

8 

C 

8 

D 

8 

E 

8 

F 

8 

G 

8 

H 

8 

I 

8 

J 

8 

K 

8 

L 

8 

M 

8 

N 

8 

B 

9 

C 

9 

D 

9 

E 

9 

F 

9 

G 

9 

H 

9 

1 

9 

J 

9 

K 

9 

L 

9 

M 

9 

N 

9 

B 

10 

C 

10 

D 

10 

APLEM 


APLOP 


E 
F 
G 

H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 

^ 

c 
F 
G 
H 
I 
) 

K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 


0 

10 

0 

!0 

0 

0 

10 

0 

0 

0 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
'4 
'4 
4 
4 
4 
4 
4 
4 
4 


M  14 

N  14 

B  15 

C  15 

D  15 

E  15 

F  15 

G  15 

H  15 

I  15 

J  15 

K  15 

L  15 

M  15 

N  15  APL001 

B  16 

C  16 

D  16 

E  16 

F  16 

G  16 

H  16 

I  16 

J  16 

K  16 

L  16 

M  16 
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I    783  OCy^722 

I    786  000722 
787 

788  000722 
791  000722 
792 

793  000722 
799  000722 
800 
801 

802  000722 
808  000722 
809 
810 

811  000722 
855  000722 
856 
857 

858  000722 
868  000722 
869 
870 

871  000722 
878  000722 
879 

880  000722 
887  000722 


889 

890  000722 

901  000722 

902 

903  000722 

9U  000722 

915 

916 

917  000722 

928  000722 

930  000722 

931 


000722 
954  000730 

935  000734 

936  000736 

937  000740 
939  000742 
940 

941 

942  000742 

945 

944 

945  000^42 

946  000750 

947  000754 

949  000/^56 


105001 
104417 


PAGE  49 


TT 


APl( 
WIXI 


I10PINS  FLRJ4.T.S0P,.INTEGERKS.B00L^CS.FL0AT,«$IDN 
LIST 

MOPINS  CEIJ6,T.S0P,  INTEGER^CS.900L*CS. FLOAT, WSIDN 
LIST 

NOPINS  IDN,2,T.S0P,.INTlGER^CS.B00L 
LIST 


WOPINS  $IDN.-2 

irsT 


MOPINS  $FLR.-14 
LIST 


MOPINS  $CEI,-16 
LIST 


MOPINS  NEC, 4, T. SOP,.  INTEGER 
LIST 

MOPINS  $NFG,-4 
LiST 


Mr«>INS     SIGN. 6, T  SOP,.  INTEGERKS.8C0LKS. FLOAT 
LIST 

MOPINS     SSIG.-6 
LIST 


MOPINS     RCIPJ0.T.SOP..FLOATHS,BOa 
LIST 


MOPINS     EXP, 20,  \SOP,. FLOAT 
.S8TTL     SCALAR  FUNCTION 


II: 


STF 
CALL 

ecc 

fKlWERR 
RETURN 
LIST 


AC1.AC0 


EXPONENTIAL 

.COPY  ARG 

.•FIND  THE  EXP  Of  IT 

;CK#ck  for  overflow 

.-Thert  M«S  overflow.  Do«»*<n  error 

;EASV 


MOPINS     LN.54.T. SOP,. FLOAT^CS. BOOL 

.SBffL     SCALAR  rUNCTlON  NATURAL   LOGARIT^f^ 


STF  AC1.AC0 

CAlL  .LN 

RETURN 
LIST 


.COPY  ARG 
.•FIND  LOG  OF    IT 
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C  1 


SCALAR  FUNCTION 

950 

951 

952  000756 

959  000756 

960 

961  000756 

966  000756 

967 

968 

969  000756 

977  000756 

978 

979  00C756 

992  000756 

993 

994 

995  000756 

996 

997 

998  000756 

999  00076A 
1000  000770 
1002  000772 
1003 

1004 

1005  000772 

1031  000772 

1032 

1033 

1054  000772 

1057  000772 


NATURAL 


OGARITHM 

MOPINS 

PJTM, 52. T. SOP,. FLOAT 
LIST 

PRMRES 

LIST 

MOPINS 

ABS,12,T.S0P,.INTEGER^CS.8OOL 
LIST 

MOPJNS 

SABS, -12 
LIST 

MOPJNS 
.S8TTL 

FACT, 22, T. SOP,. FL.)ATKS.BOOL 
SCALAR  FUNCTION        FACTORIAL 

STF     AC1,AC0        ;COPY  ARC 

CALL    .FACT          ;GET  IT'S  FACTORIAL 

RETURN 

LIST 

MOPJNS 

NOT, 50 
LIST 

MOPINS 

ROcL,100 
LIST 

API 

MI) 
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D  1 


AP 
Ml 


1059  000772 
1187  000772 


DOPINS 


DEAL, 100 
LIST 
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E     1 


AF 


1 1 89  000772 

1211  000772 

1212 

1213 

121A 

1215 

1216 

1217  000772 

1313  000772 


MOPINS 


SHAPJ02 
LIST 


DOPINS 


RH0,102 
LIST 


T^ 
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08- 

-FEB-8C 

09:10 

PAGE  52 

SCALAR  FUNCTION 

FACTORIAL 

1315  000772 

MOPINS 

RAVL,56 

1325  000772 

LIST 

1326 

1327 

1328 

1329 

1330 

1331  000772 

DOPINS 

CTLM,56 

1596  000772 

LIST 

A 

M 
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1598  000772  MOPINS  IOTA, 72 

1632  000772  LIST 

1633 

1634 

1635 

1636 

1637 

1638  000772  DOPINS  IND,72 

1699  000772  LIST 


G  1 


^ 
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H  1 

SCALAR  FUNCTION 

FACTORIAL 

1701  000772 

DOPINS 

1C0MJ24 

1702 

.S8TTL 

MIXED  FUNCTION 

1 

"IRST  CO-ORDINATE  COMPRESS 

1703 

170A  000772 

CALL 

GETREG 

i 

;LOAD  SOME  REGISTERS 

1705  000776 

012702 

000001 

MOV 

*1.R2 

1 

;USE  DIM  1 

1706  001002 

CALL 

FIXDIM 

1 

:flX   THE  DIM 

1707  001006 

000137 

001016' 

JMP 

C0MP1 

i 

;D0  THE  COMPRESS 

1709  001012 

LIST 

1710 

1711 

1712 

1713 

1714 

1715  001012 

DOPINS 

C0MP,6C 

LT.DIM 

1716 

.S8TTL 

MIXED  FUNCTION 

( 

:OMPRESSION 

1717 

1718  001012 

CALL 

DFXDIM 

1 

;GET  A  POINTER  TO  THE  DIM 

1719  001016 

013701 

003170' 

C0MP1: 

MOV 

LARGTY,R1 

1 

;GET  LEFT  ARG  TYPE 

1720  001022 

001001 

BNE 

1$ 

( 

rYES 

1721  001024 

104417 

DOMERR 

1 

:YOU  TURKEY,  YOU  CAN'T  COM.  WITH  LIT'S 

1722  001026 

016137 

OOOOOOG  003176' 

1$: 

MOV 

BLARGC(RI) 

,LARGCV  .-CONVERT  LEFT  ARG  TO  BOOLEAN 

1723  001034 

126327 

000002  000001 

CMPB 

A.DIMS(R3) 

,*1 

;1S   LEFT  ARG  A  Vf^CTOR  THEN 

1724  001042 

001415 

BEO 

5$ 

i 

;YES.  THAT'S  G00f> 

1725  00104^ 

002401 

BLT 

2$ 

i 

;;HOW  'BOUT  A  SCALAR 

1726  001046 

104411 

RANERR 

1 

; HIGHER  ORDER  A^IRAYS  ARE  BAD 

1727 

1728 

•FIND  RESULT  WITH  SCALAR  LEFT  APG 

1729 

1/30  001050 

013702 

003164' 

2$: 

MOV 

LTGPT,R2 

;POINT  TO  LEFT  ARG 

1/31  001054 

CALL 

a>  ;\:;cv 

; CONVERT  TO  BOOLEAN 

1732  001060 

105737 

003200' 

TST8 

L  oVA 

:WHAT  IS  IT? 

1/33  001064 

001402 

BEQ 

3$ 

;YES,  EMPTY  RESULT 

1734  001066 

000137 

OOOOOOG 

JMP 

SAME 

;N0.  SAME  AS  RIGHT  ARG 

1735  001072 

000137 

OOOOOOG 

3$: 

JMP 

EMPTY 

;MAKE  EMPTY  ARRAY 

1736 

1737 

•COMPRESS  WITH 

VECTOR  ON  LEFT 

1738 

# 

1739  001076 

005764 

000004 

5$: 

TST 

A.ALEN(R4) 

;IS  RIGHT  SIDE  EMPTY? 

1740  001102 

001773 

BEQ 

3$ 

;YES,  RESULT  IS  EMPTY  THEN 

1741  001104 

026327 

000004  000001 

CMP 

A.ALEN(R3), 

,M^ 

;Is  the  left  arotment  a  singlton  vector? 
;Yes,  Then  handle  like  a  scalar 

1742  001112 

001756 

BEQ 

2$ 

1743  001114 

026312 

000004 

CMP 

A.ALEN(R3) 

,(R2)  ; 

;1S   LEN  OF  LEFT  SAME  AS  DIM  LEN  OF  RIGHT? 

1744  001120 

001404 

BEQ 

6% 

;YESI 

1745  001122 

105764 

000002 

TSTB 

A.DIMS(R4) 

;;  SCALAR? 

1746  001126 

001401 

BEQ 

6$ 

;;YES,  ALL  OK 

1747  001130 

104412 

LENERR 

;N0,  LENGTH  ERROR 

1748  001132 

6$: 

CALL 

NBRTRU 

;FIND  THE  #  OF  I'S 

1749  001136 

005701 

TST 

R1 

;ARE  THERE  ANY  'T'S? 

1750  001140 

001743 

BEQ 

2$ 

;N0.  COMPRESS  TO  BLANK  ARRAY 

1751  001142 

020163 

000004 

CMP 

R1,A.ALEN(R3) 

;ARE  THERE  ANY  'X>"S? 

1752  001146 

001003 

BNE 

9$ 

;YES,  RESULT  ISN'T  THE  SAME  AS  RIGHT  ARG 

1753  001150 

105764 

000002 

TST8 

A.DIMS(R4) 

;;1S   THE  RIGHT  ARG  A  SCALAR? 

1754  001154 

001335 

BNE 

2$ 

;;N0,  SO  SHORTCUT 

1755  001156 

116446 

000002 

9$: 

MOVB 

A.DIMS(R4) 

,-(sp); 

;;SAVE  THE  DIM  COUNT 

1756  001162 

CALL 

RESBL< 

; CREATE  RESULT  BLOCK 

1757 

• 

1758 

;D0  ACT 

rUAL  COMPRESSION 
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PAGE  54-1 


I  1 


1759 

• 

0 

1760  001166 

105716 

TSTB 

^%? 

1761  001170 

001010 

BNE 

7$ 

1762  001172 

013716 

005134' 

MOV 

SKPsiz,asp 

1763  001176 

016346 

000006 

MOV 

A.DIM1(R3),-(SP) 

1764  001202 

112764 

000001     000002 

MOVB 

#1,A.DIMS(R4) 

1765  001210 

000403 

BR 

8$ 

1766  001212 

005016 

7$: 

CLR 

asp 

1767  001214 

01 7746 

005122' 

MOV 

aCOMPlR,-(SP) 

1768  001220 

013704 

003206' 

8$: 

MOV 

RARGPT,R4 

1769  001224 

011603 

21$: 

MOV 

aSP,R3 

1//0  001226 

013702 

003164' 

MOV 

LARGPT,R2 

1/n  001232 

013701 

005134' 

20$: 

MOV 

SKPSIZ,R1 

1772  001236 

CALL 

aLARGCV 

1//3  001242 

105737 

003200' 

TSTB 

LARGVA 

1774  001246 

001404 

BEQ 

22% 

1775  001250 

112420 

17$: 

MOVB 

(R4)^,(R0)* 

1776  001252 

SOB 

R1J7$ 

yfff  001256 

000401 

BR 

18$ 

1778 

1779  001260 

060104 

22$: 

ADD 

R1,R4 

1780 

1781   001262 

166604 

000002 

18$: 

SUB 

2(SP), R4 

1782  001266 

SOB 

R3,20$ 

1783  001272 

005337 

005126' 

DEC 

COMCNT 

1784  001276 

001352 

BNE 

21$ 

1785  001300 

022626 

CMP 

(SP)^,(SP)* 

1786  001302 

RETURN 

1787 

1789  001304 

LIST 

ill   IT  A  SCALAR  ? 

;N0... 

;0H  YES  IT  IS 

;SAVE  n   OF  ELEMENTS 

RESULT  IS  A  VECTOR 

;AND  CONTINUE 

;FOR  NON-SCALARS 

;SAVE  n   OF  ELEMENTS 

POINT  TO  FIRST  ELEMENT  OF  RIGHT  ARG 

GET  tt   OF  ELEMENTS  TO  COMPRESS  ALONG  DIM 

POINT  TO  LEFT  ARG  ELEMENTS 

GET  'SIZE  OF  GROUPS' 

GET  THE  ELEMENT 

WELL,  IS  IT  TRUE  OR  NOT? 

U   FALSE,  DON'T  COPY 

COPY  DATA 

SEE  IF  ANY  MORE  TO  COPY 

GO  TEST  NEXT  LEFT  ELEMENT 

iSKl?  ONE   GROUP 

.•CHEAT  FOR  SCALAR 

SEE  IF  MORE  IN  LEFT  ARG 

ARE  WE  DONE  WITH  THE  WHOLE  THING? 

NO,  SO  DON'T  STAND  THERE,  DO  SOME  MOREI! 

;GET  RID  OF  BACK-UP  FACTOR 

YEA!!  RAH!!  BRAVO!!  WE  IS  DONE!! 


J  1 
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1791  00130A  DOPINS  1EXPJ30 

1799  00130A  LIST 

1800 

1801 

1802 

1803 

180A 

1805  00130A  DOPINS  EXPD,62,T.DIM 

186A  00130A  LIST 


K  1 
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1866  001 304  DOPINS  DROP J  04 

1907  00130/*  LIST 

1908 

1909 

1910 

1911  001304  DOPINS  TAKE  J  K 

2149  001304  LIST 


L     1 
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2151  00130A  MOPINS     1REVJ46 

2160  OOViOA  LIST 

2161 

2162 

2163 

216A 

2165 

2166  00130A  MOPINS     REVS J44,T. DIM 

2204  001304  LIST 


M  1 
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2206  001 30A  DOPINS  1R0T,U6 

2214  001304  LIST 

2215 

2216 

2217 

2218 

2219 

2220  001304  DOPINS  R0TJ44,T.DIM 

2328  001304  LIST 


N  1 
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2330  001 30A  MOPINS  TRANJ26 

2A15  00130A  LIST 


APLCX)1      I1ACRC  •^1115 
WIXED   FUNCTION 


08-fEB-80  0^:10 
COMPRESSION 


2654 


001 304 
00^304 


^AGE  60 


DOPINS     T»AN,126 
LIST 


T~7 


API 


APL001     HJ^CRC  «1113 
MIXED  FUNCTION 

?656  001 5(K 
2856  001 30^ 


08-FEB-80  09:10 
CCWPRESSION 


PAGE  61 


DOPINS 


rr 


API 


FNCD,76 
LIST 


APL(X)1     MACRO  Ml  1 1 3 
MIXED  FUNCTION 

2858  001 304 
2988  001304 


08-FEB-80  09:10 
COMPRESSION 


PAGE  62 


OOP INS 


TT 


AF 
HI 


DECD,6A 
LIST 
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"TT 


AF 
MI 


2990  001 30A 

3001  001 30A 

3002 

30^^3 

300A  001 30A 

3219  001304 


MOPINS 


MOP INS 


6DWNJ36,T.DIM 
LIST 


GDUP,K0,T.DIM 
LIST 
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3221  001 30A 
3316  001 30A 


PAGE  6A 


MOPINS  MMDJ  22 
LIST 


TT 


Al 

m: 
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3318  001 30A 


PAGE  65 


DOPINS     DMD,122 


TT 


APL001     MACRO  Ml  113     08-FEB-80  09:10 
MIXED  FUNCTION  COMPRESSIO^ 

386A  001 30A 


PAGE  66 


ITT 


LIST 
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3866  001 30A  DOPINS  MEM, 70 

3921  001 30A  LIST 


TT 
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3923  001 30A  MOPINS  NUB, 106 

3986  001304  LIST 

3987 

3988 

3989 

3990 

3991 

3992  001 30A  DOPINS  UNONJ06 

A022  001 30A  LIST 

A023 

A024 

4025 

4026 

4027 

4028  001304  DOPINS     INTR,66 

4042  001304  LIST 

4043 

4044 

4045 

4046 

4047 

4048  001304  DOPINS     SDIF,50 

4161   001304  LIST 


XT" 
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4163 
A179 
4180 
4181 
4182 
4200 
4201 
4202 
4203 
4209 
4210 
4211 
4212 
4288 


001304 
001304 


001304 
001304 


001304 
001304 


001304 
001304 


PAGE  69 


DOPINS  SCON, 234 
LIST 


DOPINS  C0NTJ12 
LIST 


DOPINS  PSUB,236 
LIST 


DOPINS  SUBS  J 16 
LIST 


K  2 


TT 
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MIXED  FUNCTION         COMPRESSION 

4290  001 30A  MOPINS  EXE, 70 

4336  001304  LIST 


— M — 7 
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4338  001 30A  MOPINS  ENCD,76 

4A11  00130A  LIST 


NT 
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MIXED  FUNCTION         COMPRESSION 

4A13  001 30A  MOPINS  FMTJ60 

AA23  001 30A  LIST 

AA24 

AA25 

4426 

4427 

4428 

4429  001304  DOPINS  FMTJ60 


API 001      WACRO  ^1115     08-fEB-80  09:10 
WIXED   f^UNCTION  CGWPPESSrON 

h953  001?0<» 


PAGE   73 


TT 


API. 


LIST 
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TT 


APL 
MIX 


4955  001304 

4958  001304 

4959 

4960 

4961  001504 

5046  001304 


MOPINS     I8MJ32,,,M0NIBM 
LIST 


DOPINS  IBM, 132 
LIST 


b   z 
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PAGE  75 

MIXED  FUNCTION 

COMPRESSION 

5048  001 30A 

MOPINS 

QUAD,74,T.NIL^T.SPOP 

5075  001 30A 

LIST 

5076 

5077 

5078 

5079 

5080 

5081  001 30A 

DOPINS 

QUAD,74,T.NIL^T.SPOP 

5097  001 304 

LIST 

5098 

5099 

5100 

5101 

5102 

5103  001304 

MOPINS 

QQADJ42,T.NIL^T.SPOP 

5135  001304 

LIST 

5136 

5137 

5138 

5139 

5140 

5141  001304 

DOPINS 

QQADJ42,T.NIL*T.SPOP 

5152  001304 

LIST 

5153 

5154 

5155 

5156 

5157 

5158  001304 

MOPINS 

DQAD,134,T.NIL>T.SP0P 

5192  001304 

LIST 

5193 

5194 

5195 

5196  001304 

DOPINS 

DQADJ3A,T.NIL*T.SP0P,,D$QQAD 

5199  001304 

LIST 

API 
SA1 


E  S 
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MIXED  FUNCTION         COMPRESSION 

5201  001 30A 

MOPINS 

BXAVJ62,T.NIL 

5219  001304 

LIST 

5220 

5221 

5222 

5223 

522A 

5225  001304 

MOPINS 

BXCT,164,T.NIL*T.SP0P 

523A  001304 

LIST 

5235 

5236 

5237  001304 

DOPINS 

BXCT,164,T.NIL^T.SP0P 

5272  001304 

LIST 

5273 

5274 

5275 

5276 

52// 

5278  001304 

MOPINS 

BXI0J66,T.NIL+T.SP0P 

5287  001304 

LIST 

5288 

5289 

5290  001304 

DOPINS 

BXI0J66,T.NIL+T.SP0P 

5302  001304 

LIST 

5303 

5304 

5305 

5306 

5307  001304 

MOPINS 

BXLC,212,T.NiL 

5340  001304 

LIST 

5341 

5342 

5343 

5344 

5345 

5346 

5347  001304 

MOPINS 

BXPPJ70,T.NIL^T.SPOP 

5356  001304 

LIST 

5357 

5358 

5359  001304 

DOPINS 

BXPP,170,T.NIL^T.SPOP 

5381  001304 

LIST 

5382 

5383 

5384 

5385 

5386 

5387 

5388  001304 

MOPINS 

BXPWJ72,T.NIL*T.SP0P 

5397  001304 

LIST 

5398 

5399 

5400  001304 

DOPINS 

BXPWJ72,T.NIL>T.SP0P 

541/  001304 

LIST 

5418 

5419 

5420 

AP 
SA 
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TT 


MIXED  FUNCTION 

COMPRESSION 

5A21 

5A22 

5A23  001 30A 

MOPINS 

BXRlJ/A^T.NIL^-T.SPOP 

5A32  001 30A 

LIST 

5A33 

5A3A 

5A35  001 304 

DOPINS 

BXRLJ74,T.NIL^T.SP0P 

5AA7  001 304 

LIST 

5AA8 

5AA9 

5A50 

5A51 

5A52 

5A53  001 30A 

MOPINS 

BXTS,200,T.NIL 

5562  001304 

LIST 

5563 

5564 

5565 

5566 

5567 

5568 

5569  001304 

MOPINS 

BXWAJ76,T.NIL 

5592  001304 

LIST 

AF 
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5594  001 30A  MOPINS 

5716  001 30A 


gT 


A 
S 


BXCR,206 
LIST 
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5718  001 30A  MOPINS 

5775  001 30A 


H"^ 


BXEX,202 
LIST 
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5777  00130A  MOPINS    BXFX,210 

5879  00130A  LIST 


rr 


TT 

APL001  MACRO  Ml  113  08-FEB-80  09:10  PAGE  80 
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5881  001 30A  MOPINS  BXNC,204 

5950  001 30A  LIST 
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MIXED  FUNCTION         COMPRESSION 

5952  001 30A  MOPINS  BXNL, 2U 

5963  00130A  LIST 

596^ 

5%5 

5966  001 30A  DOPINS     BXNL,2U 

610A  001304  LIST 


ITT 


r^ 
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6106  00130A  DOPINS  FGET,150,T.DIM 

6330  001 30A  LIST 

6331 

6332 

6333 

633A 

6335 

6336  00130A  DOPINS  FPUTJ52,T.DIM 

6485  001304  LIST 


?rT 
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6487  001 30A  DOPINS  FPNT  J5A,T.DIM 

6714  001304  LIST 


rr 

APL001  MACRO  Ml 113  08-FEB-80  09:10  PAGE  8A 
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6716  00130A  MOPINS  1SCNJ30 

6723  001 30A  LIST 

6724 

6725 

6726  00130A  MOPINS  SCAN, 62, T. DIM 

6732  001304  LIST 

6733 

6734 

6735  001304  MOPINS     1RDTJ24 

6741   001304  LIST 

6742 

6743 

67^4  001304  MOPINS  RDCT,60,T.DIM 

7044  001304  LIST 
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WIXED   FUNCTION  COMPRESSION 

70A6  001304  WOP INS 

7193  001304 


B  4 


GETIDN,0 
LIST 


APLC 
SUBR 

fi 
8 

S 
8 
8 
8 

8 

8 

8 

8 

8 

8 

8 


8 
8 
8 

8 


c  4 
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MIXED  FUNCTION 

COMPf^ESSION 

7195  001 304 

MOPINS  SATAN, 0 

7196 

.S8TTL  SATAN                GENERAL  PURPOSE  DATA  MOVER 

7197 

7198 

;♦♦ 

7199 

; 'SATAN*  is  a  general  purpose  data  mover  used  by   Reduction,  Scan,  and 

7200 

.-Monadic  transpose.  It  is  recursive  and  is  driven  by  special  frames 

7201 

;on  the  SP  stack.  The  format  of  each  upper  level  frame  is  shown  below: 

7202 

;(High  to  Low  core) 

7203 

7204 

;      RESULT  KJINTER  for  this  level  (Initially  zero) 

7205 

RESULT  POINTER  OFFSET  for  the  next  element  on  this  level 

7206 

SOURCE  POINTER  for  this  level  (Initially  zero) 
;      COUNT  LIMIT  of  elements  along  this  level  (dimension) 

7207 

720R 

;      CURRENT  COUNT  for  this  level  (Initially  zero) 

7209 

;      SOURCE  POINTER  OFFSET  for  the  next  element  on  this  level 

7210 

7211 

;The  zero  level  frame  is  setup  somewhat  differently: 

7212 

7213 

RESULT  STORE  ROUTINE  for  Relational  Scans 

7214 

RESULT  POINTER  INCREMENT 

7215 

COUNT  LIMIT  for  Non-  sociative  Scans 

7216 

;      COUNT  limit  for  this  level 

7217 

COUNT  INCREMENT  for  COUNT  (Reduction,  Assoc  Scan:0,  Non-assoc  Scan:1) 

7218 

SOURCE  POINTER  INCREMENT  (Left  argtinent) 

7219 

7220 

7221 

;*DEVIL*  contains  the  step  by  which  to  increrrent  the  result  pointer. 

7222 

;  (Reduction,  Non-associative  Scan:  0,  Associative  Scan:  result  size  in  bytes) 

7223 

;'8LZBUB*  points  to  an  optional  scalar  function  routine 

7224 

; ( See  Reduc  t  i on/Sc  an . ) 

7225 

7226 

•REGISTER  ASSI®«NTS: 

7227 

7228 

;  RO  —  Current  level  count  (First  level=0) 

7229 

;  R1  —  Result  pointer 

7230 

;  R2  —  Input  pointer 

7231 

;  R3  --  Temporary  pointer 

7232 
7233 
7234 

;  Rh  —  Pointer  to  SP  Stack  frames 

•INITIAL  REGISTERS: 

7235 

; 

7236 

•  R.O  —  Nifiiber  of  SP  Stack  frames 

257 
^38 

;  Rl  —  Pointer  to  first  Result  location 

;  R2  —  Pointer  to  first  Argument  element 

7239 

1? 

;  R4  —  Pointer  to  frame  deepest  (Highest  in  core)  in  SP  Stack 

;0n  exit  R4  should  replace  the  SP  to  Pop  oft  the  stack  frames 

7243  001 504 

^44 

245  001304 

•  *** 

.PSECT  COC'E 

SATAN:: 

^46  001304 

0^Cll7 

005100* 

MOV    R2,OPTMP5      ;Save  source  pointer  in  case  of  integer  overflow 

7247  001310 

005114* 

003202* 
005^/2* 

MOV     OEVlL.RARGFL    .Increment  for  right  argtifwnt  pointer 

MOV     U(SP).OPTMP?   ;G#ft  the  ..ew  result  store  rtn  ptr  just  in  case 

248  001316 

^49 

250  001 324 

01663^ 

oooou 

SATAN1: 

725 :  001324 

005700 

TST     RO            ;AC  Itvtl  ^ero? 

APLi 
SUBI 
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D  A 


APL 

sue 


7252 
7253 
725A 
7255 
7256 
7257 
7258 
7259 
7260 
7261 
7262 
7263 
726A 
7265 
7266 
7267 
7268 
7269 
7270 
7271 
7272 
7273 
727A 
7275 
7276 
7277 
7278 
7279 
7280 
7281 
7282 
7283 
728A 
7285 
7286 
7287 
7288 
7289 
7290 
7291 
7292 
729A 
7299 
7300 
7301 
7303 
7308 
7309 
7310 
7311 
7312 
7313 
731A 
7315 
7316 
7317 
7318 


001326 
001330 
001532 
001 33A 
001336 
001 3A0 
001 3A2 
001 3AA 
001350 
001 35A 
001356 
001360 
001362 
001 36A 
001366 
001372 
001 37A 
001 AOO 
001 AOA 


001 A06 
001A10 
001A1A 
001A16 
001 A20 
001 A22 
001 A2A 
00U26 
001 A32 
001 A3A 
001 A36 

001 AA2 
001 AA6 
001 A52 
001 A  5A 
001 A60 
001 A62 
001 A6A 
001 A72 
001500 

001502 
001510 
001516 
001522 
001 52A 
001530 
001536 
001 5A2 

001 5AA 
001550 
001 55A 
001556 


001 A27 
01  OKA 
0O57AA 
0102AA 
01AAAA 
0057AA 
005300 

06270A 
01AA01 
06AA01 
01AA02 
02AAAA 
06AA02 
00536A 
001526 
01016A 
01026A 
000756 


0057AA 
01AA37 
005 7A A 
01AA00 
003001 
10AA02 
0057AA 
01AA37 
010103 

01370A 


020027 
001A13 
005737 
001010 
005300 
013737 

OOOA23 

013737 

10AA02 
013737 
000A16 

010301 


00001 A 


000002 

000012 
000006 


005102' 


003160' 

005116' 

000001 
00511A' 

003200'  003222' 
003200'  0031 5A'  A$: 


005072'  003152' 


6EQ 

2$ 

MOV 

R1,-(RA) 

TST 

-(RA) 

MOV 

R2,-(RA) 

MOV 

-(RA),-(RA^ 

TSl 

-(RA) 

1$: 

DEC 

RO 

CALL 

SATAN1 

ADD 

#K,RA 

MOV 

-(RA),R1 

ADD 

-(RA),R1 

MOV 

-(RA),R2 

CMP 

-(RA),-(RA) 

ADD 

-(RA),R2 

DEC 

2(RA) 

BEQ 

10$ 

MOV 

R1,12(RA) 

MOV 

R2,6(RA) 

BR 

1$ 

•Proc 

ess  the  elements  on  Leve 

j$: 

TST 

-(RA) 

MOV 

-(RA),0PTMP6 

TST 

-(RA) 

MOV 

-(RA),RO 

BGT 

3$ 

SYSERR 

3$: 

TST 

-(RA) 

hoy 

-(RA),LARGFL 

MOV 

R1,R3 

PUSH 

RA 

MOV 

BL2BUB,RA 

CALL 

iLARGCV 

CMP 

R0,*1 

BEQ 

A$ 

TST 

DEVIL 

BNE 

AS 

DEC 

RO 

MOV 

LARGVA.RARGVA 

STF 

AC1,AC2 

BR 

6$ 

A$: 

MOV 

LARGVA.RESVAL 

STF 

AC1,AC0 

CALL 

aRESCVT 

SYSERR 

PUSH 

RESCVT 

MOV 

0PTMP2,RESCVT 

POP 

0PTMP2 

BR 

7$ 

5$: 

CALL 

aRARGCV 

6$: 

CALL 

dLARGCV 

MOV 

R3,R1 

CALL 

dDYDTAB(RA) 

Yes,  Then  do  operation 

Save  the  Result  pointer 

Skip  over  the  result  offset 

Save  the  source  pointer 

Reset  the  co'jnt  for  this  level 

Skip  over  the  source  offset 

Drop  down  to  the  next  lower  level 

And  Recurse 

Back  up  one  frame 

Reset  the  Result  pointer 

Increment  the  result  pointer  by  offset 

Reset  the  Source  pointer 

Skip  over  the  Count- limit  and  Count 

Increment  the  source  pointer  by  offset 

Count  pass  for  this  level 

All  done  on  this  level? 

Sav*>  the  Result  pointer 

Save  Source  pointer 

And  drop  down  another  level 


Zero 


Skip  the  result  pointer 

Get  the  Result  pointer  increment 

Skip  over  the  Source  pointer 

Get  the  Count 

Is  the  Count  at  least  one? 

No,  SATAN  will  loop  indefinitely 

Skip  over  the  count  limit  increment 

Set  Left  Arg  increment 

Save  pointer  to  Result/Right  argunent 

Save  the  frame  pointer 

Get  the  function  ntwber 


;Get  first  source  arounent 

;Is  there  just  one  element? 

;Yes,  Then  just  copy  it 

;Are  we  doing  an  associative  scan? 

;Yes,  Remember  to  copy  the  first  element 

; Count  the  first  fetch 

;Copy  the  Non-FF>P  value  to  the  right  argtment 

;Copy  the  fPP   value  too 

;And  '  * 

;Copy  the  argtment 

;Copy  the  FF>P  v/alue  too 

; Store  the  value  into  the  result 

; Can't  integer  overflow  on  a  copy 

;Save  initial  result  store  routine  pointer 

;6et  new  result  store  '"outine  pointer 

;Now  the  routine  pointers  are   swapped 

;All  done  on  this  level 

.-Fetch  the  Previous  Result 
;Fetrh  the  New  Argunent 
;Copy  the  Pointer  to  Result 
;Call  the  operator  routine 
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E  4 


API 
Slf 


7319 

7320 

7321 

7322 

7323 

7324 

7325 

7326 

732? 

7328 

7329 

7330 

7331 

7332 

7333 

7334 

7335 

7336 

7337 

7338 

7339 

7340 

7341 

7342 

7343 

7344 

7345 

7346 

7347 

7348 

7349 

7350 

7351 

7352 

7353 

7354 

7355 

7356 

7357 

7358 

7359 

7360 

7361 

7362 

7363 

7364 

7365 

7366 

7367 

7368 

7369 

7370 

7371 

7372 

7373 

737A 

7375 


0C1562 
001566 
001570 
001574 
001600 
00160^ 

001606 
001612 
001614 
001622 
001624 
001632 
001640 
001642 
001650 
001652 
001656 


000434 
163701 
063701 


005764 
001416 
026464 
003007 
012764 
013737 
000403 
066464 
005200 
062704 


003150' 
005102' 


000002 

000006  000004 

000001  000004 
005072'  003152' 

000002  000004 
000014 


7$: 


8$: 


9$: 

10$ 


CALL 

BR 

SUB 

ADD 

SOB 

POP 

TST 

BEQ 

CMP 

BGT 

MOV 

MOV 

BR 

ADD 

INC 

ADD 

RETURN 


aRESCVT 

INTOVR 

RESLEN,R1 

0PTMP6,R1 

R0,5$ 

R4 

2(R4) 

10$ 

6(R4),4(R4) 

9$ 

#1,4(R4) 

0PTMP2,RESCVT 

10$ 

2(R4),4(R4) 

RO 

#14, R4 


Store  the  Result 

Integer  overflow.  Try  Floating  point 

Back  up  result  pointer 

Increment  result  pointer 

Process  all  elements  at  level  Zero 

Restore  the  frame  pointer 

Are  we  doing  non-associative  scan? 

No 

Yes,  End  of  lowest  level  loop? 

No 

Yes,  Reset  the  count  limit 

Restore  the  initial  result  store  routine  ptr 

Increment  count  limit  for  scan 

Btfnp  up  one  level 

Point  to  the  next  frame 

And  return  to  the  calling  level 


;This  routine  handles  integer  overflow  for  the  SATAN  routine 


001660 
001662 
001664 
001666 
001672 
001674 
001676 
001702 
001710 
001712 
001716 
001724 
001730 
001736 
001740 
001754 
001762 
001766 
001770 
001774 
002006 
002012 
002020 
002024 
002030 
002034 
002042 
002046 
002052 
002056 
002064 
002070 
002074 
002076 


005704 
002405 
005404 
005764 
001001 
104402 
010437 
023727 
001371 
013701 
016137 
012701 
016137 
010103 

016337 
013704 
005304 
013702 

010237 
013737 
013702 
013700 


010037 
010137 


013701 
013700 
005300 
010003 


INTOVR 


OOOOOOG 


005116' 
003144'  000004 

003124' 

OOOOOOG  003176' 
000006 
OOOOOOG  003152' 


OOOOOOG  003220' 
000052' 

005114' 

005114' 

000062'  003150' 
003140' 
003136' 


003136' 
003140' 


005076' 
005074 ' 


1$; 
2$; 


TST 

BLT 

NEG 

TST 

BNE 

SYSERR 

MOV 

CMP 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MUL 

MOV 

MOV 

DEC 

MOV 

ASH 

MOV 

MOV 

MOV 

MOV 

CALL 

PUSH 

MOV 

MOV 

CALL 

POP 

MOV 

MOV 

DEC 

MOV 


R4 

2$ 

R4 

DYDTAB(R4) 

2$ 


;Is  the  function  number  negative? 

;Yes,  Then  don't  change  it 

;No,  Make  it  negative 

;Is  there  a  floating  form  of  the  function? 

;Yes 

•No,  SYSTEM  Error 
R4,BLZBUB      ;Save  the  function  nunber 
RESTYP,#. INTEGER  ;Is  the  result  type  integer? 
1$  ;No,  Then  die 

M0NTYP,R1        ;Yes,  Get  the  source  argument  type 
FLARGC(R1),LARGCV  ;Setup  the  new  left  argunent  fetch  routine 
#. FLOAT, R1       .-Result  type  is  now  floating  point 
Ff^ESCT(R1),RESCVT  ;Setup  the  new  result  store  routine 
R1,R3  ;Copy  the  result  type 

#5,R3  ;Type  times  5 

RARGCT(R3),RARGCV  ;Setup  the  right  arounent  fetch  routine 


PRECSN,R4 

R4 

DEVIL, R2 

R4,R2 

R2, DEVIL 

NUMLEN,RESLEN 

RESPTR,R2 

RESULT,RO 

GETSM2 


;Get  shift  count  for  floating  point  ntjnbers 
;Minus  one  to  convert  integer  to  floating 
;6et  result  pointer  increment 
; Convert  to  floating  type  in  bytes 
;Yes,  Fixup  the  increment  amount 
; Correct  the  result  length  too 
;Save  pointer  to  old  result  data 
;Get  pointer  to  old  result  block 
;Get  a  new  result  block 
<-(SI),-(SI),-(SI)>  ;Save  new  block's  SI  frame 
RO, RESULT      ;Save  the  result  block  pointer 
R1,RESPTR      ;Save  the  result  data  pointer 
KILL  .-Kill,  Kill,  Kill  the  old  result  block 

<(SI)^,(SI)^,(SIM>  .-Restore  new  block's  SI  fr^ne 
0PTMP4.R1      ;8ack  up  the  stack 
0PTMP3.R0      .-Get  the  ncinber  of  frames  to  process 
RO  .-Into  orig^'n  zero 

R0,R3         ;Copy  the  nimber  of  frames  to  process 


APL001 
SATAN 

7376 
7377 
7378 
7379 
7380 
7381 
7382 
7383 
7384 
7385 
7386 
7387 
7388 
7389 
7390 
7391 
7392 
7393 
7394 
7395 
7396 
7397 
7398 
7399 
7A00 
7401 
7402 
7404 
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F  4 


AP 

SU 


002100 
002102 

002104 
002106 
002110 
002122 
002124 
002126 
002130 
002132 
002134 

002140 
002144 
002146 
002160 
002162 
002164 
002170 
002172 
002176 
002202 
002204 
002210 
002214 
002220 
002224 


002675 
001416 

005041 
014102 

010211 
005041 
005741 
005041 
005741 


013741 
014102 

010211 
024141 
005761 
001402 
012711 
162701 
010106 
013704 
013701 
013702 
000137 


6$: 


003152' 


7$; 


1 7777  ti 

000001 
000006 

005076* 
003140' 
005100' 
001304' 


8$: 


BLT 
BEQ 

CLR 
MOV 
ASH 
MOV 
CLR 
TST 
CLR 
TST 
SOB 

MOV 
MOV 
ASH 
MOV 
CMP 
TST 
BEQ 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 
JMP 
LIST 


1$ 
7$ 

-(R1) 

-(R1),R2 

R4,R2 

R2,(R1) 

-(R1) 

-(R1) 

-(R1) 

-(R1) 

R3,6$ 

RESCVT,-(R1) 

-(R1),R2 

R4,R2 

R2,(R1) 

-(R1),-(R1) 

-2(R1) 

8S 

#1,(R1) 

#6,R1 

R1,SP 

0PTMP4,R4 

RESPTR,R1 

OPTMP5,R2 

SATAN 


;Reduct/Scan  should  hav/e  at  least  one  frame 
;OnLy  one  frame  skip  general  fixup 

;No  Result  pointer  initially 

;Get  the  old  result  pointer  offset 

.•Convert  it  to  floating  size 

:Stow  it  away 

;Source  pointer  is  initially  zero 

; Leave  tne  Count  limit  alone 

.-Count  is  initially  zero 

.•Source  pointer  offset  is  the  same  as  before 

;Do  all  the  frames,  but  last 

Get  new  secondary  result  store  routine  ptr 

Get  the  old  result  pointer  increment 

Convert  it  to  floating  size 

Store  the  new  result  pointer  increment 

Skip  over  the  Count- limit  and  Count 

Doing  Non-associative  scan? 

No.  Skio  the  count 

Yes.  Set  the  count  to  one 

Skip  over  the  Count  increment.  Source  pointer 

Skip  over  the  return  address 

Point  to  the  stack  frames 

Point  to  first  result  location 

Point  to  first  source  argunent  element 

Start  over  again 
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"gT 


Al 
SI 


7406  002224 
7476  002224 


MOPINS 


0UTR,156 
LIST 


APL001 
SATAN 

7478 
7504 
7505 
7506 
7507 
7508 
7509 
7510 
7564 
7565 
7566 
7567 
7568 
7569 
7570 
7612 
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hT 


A 
S 


002224 
002224 


MOPINS  DOUTER^O 
LIST 


002224 
002224 


MOPINS  PRDSET.O 
LIST 


002224 
002224 


MOPINS  INSPACO 
LIST 
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I  A 


7614  00222A 


DCPINS  INNR,156 
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J     A 


7%0  00222A 


LIST 
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K  4 

SATAN 

GENERAL  PURPOSE  DATA  MOVER                                                                   | 

7962  00222A 

MOPINS 

SUBR,0 

7963 

.S8TTL 

SCIENTIFIC  SUBROUTINES 

796A 

7965 

.S8TTL 

SI.RROUTINE           CLOSEO:  Fuzzily  close  to  zero? 

7966 

7967 

1 

;  + 

7968 

4 

;  FUNCTIONAL  DESCRIPTION:                                                         I 

7969 

1 

This  subroutine  determines  if  its  argument  is  within  fuzz  of  zero. 

7970 

i 

The  Z  bit  is  set  or  cleared  depending  on  the  arguments  closeness 

7971 

i 

to  zero. 

7972 

I 

•- 

/V73  00222A 

.PSECT  CODE 

797A 

^75  00222A 

CLOSEO: 

• 
• 

7976  00222A 

ABSF    ACO           ; Force  ACO  to  positive 

N71  002232 

SIRF    FUZZ, ACO       ;Take  off  Fuzz 

7978  0022A2 

CFCC                ;Is  it  close  to  zero? 

79/N  002246 

003001 

BGT     U            ;No 

/V80  002250 

000264 

SEZ                 ;Yes 

N^y   002252 

1$: 

RETURN 

7982 

7983 

.SSTTL 

SIRROUTINE            .COS:   COSINE 

798A 

'■¥•*■ 

7985 

'   FUNCTIONAL  DESCRIPTION:                                                         1 

7986 

WILL  RETURN  THE  COSINE  OF  THE  NUMBER  IN  ACO,  IN  ACO.   THE  OLD 

/987 

VALUE  WILL  BE  DESTROYED.  ALL  OTHER  REGISTERS  RESERVED.   THIS  ROUTINE 

7988 

IS  FAIRLY  ACCRUATE  (17  DIGITS)  AND  CAN  BE  USED  WITH  DOUBLE  PRECISION. 

7989 

— 

7990 

.ENABL  LSB 

7991  002254 

. COS : : 

7992  002254 

ABSF    ACO 

7993  002262 

012746 

000001 

MOV     #1,-(SP) 

7994  002266 

000401 

BR      1$ 

7995 

7996 

7997 

7998 

/^W 

.S8TTL 

SIRROUTINE            .SIN:   SINE 

8000 

;•¥'¥ 

8001 

•  FUNCTIONAL  DESCRIPTION:                                                           1 

8002 

ALMOST  THE  SAME  CODE  AS  THE  COSINE  ROUTINE  AND  HAS  THE 

8003 

SAME  SPECS,  TOO,  EXCEPT  DOES  THE  SINE  (NATURALLY) 

8004 

'->«. 

8005 

8006  002270 

.SJN:: 

8007  002270 

005046 

CLR     -(SP) 

8008  (^^2272 

1$: 

STFPS   -(SP) 

8009  002300 

LDFPS   #200 

8010  002310 

032716 

000200 

BIT     #200, (SP)      ;Previous  mode  Single? 

8011  002314 

001003 

BNE     30$           ;Nope 

LDCFD   ACO, ACO        ; CLEAR  OUT  LOW  32  GARBAGE  BITS 

8012  002316 

8013  002324 

30$: 

STF     AC1,-(SP) 

8014  002332 

STF     AC2,-(SP) 

8015  002340 

010046 

MOV     RO,-(SP) 

8016 

8017 

.-Quadrant  reductions  —  ARC  =   (2/J)X                                                                                                          1 

8018 

• 
« 

-1  <  ARG  <  1 

L  4 
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.SIN:   SINE 

8019 

8020  002342 

S7F 

AC0,-(SP) 

8021  002350 

ABSF 

ACO 

8022  002356 

MODF 

SINK  ACO 

8023  002366 

MODF 

#^F.25,AC1 

802A  002376 

MULF 

#^F4,AC1 

8025  002A06 

STCFI 

AC1,R0 

8026  0024U 

066600 

000034 

ADD 

34(SP),R0 

8027  002A20 

LDF 

#^F1,AC1 

8028  002430 

005200 

INC 

RO 

8029  002432 

006000 

ROR 

RO 

8030  002434 

103404 

BCS 

2$ 

8031  002436 

S(RF 

*^F1,AC0 

8032 

8033  002446 

006000 

2$: 

ROR 

RO 

8034  002450 

103003 

BCC 

3$ 

8035  002452 

NEGF 

ACO 

8036 

8037  002460 

3$: 

TSTF 

iSP)^ 

8038  002466 

CFCC 

8039  002472 

100003 

BPL 

6$ 

8040  002474 

NEGF 

ACO 

8041 

8042  002502 

6$: 

STF 

AC0,AC1 

8043  002510 

MULF 

AC0,AC1 

8044  002516 

012700 

000046' 

MOV 

4rSIN2,R0 

8045 

8046  002522 

LDF 

(R0)^,AC2 

8047  002530 

MULF 

AC1,AC2 

8048  002536 

ADDF 

(R0)^,AC2 

8049  002544 

MULF 

AC1,AC2 

8050  002552 

ADDF 

(R0)^,AC2 

8051  002560 

MULF 

ACnAC2 

8052  002566 

ADDF 

(R0)*,AC2 

8053  002574 

MULF 

AC1,AC2 

8054  002602 

ADDF 

(R0)*,AC2 

8055  002610 

MULF 

AC2,AC0 

8056 

8057  002616 

STF 

AC1,AC2 

8058  002624 

ADDF 

(R0)*,AC2 

8059  002632 

MULF 

AC1,AC2 

8060  002640 

ADDF 

(R0)^,AC2 

8061  002646 

MULF 

AC1,AC2 

8062  002654 

ADDF 

(R0)^,AC2 

8063  002662 

MULF 

AC1,AC2 

8064  002670 

ADDF 

(R0)*,AC2 

8065  002676 

DIVF 

AC2,AC0 

8066 

8067  002704 

012600 

MOV 

(SP)*,R0 

8068  002706 

LDF 

(SP)^,AC2 

8069  002714 

LDF 

(SP)*,AC1 

8070  002722 

LDFPS 

(SP)^ 

8071  002730 

005726 

TST 

(SP)^ 

8072  002732 

RETURN 

8073 

807A 

.DSABL 

LS8 

8075 
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M  4 

SUBROUTINE 

.SIN: 

SINE 

8076  000036 

.PSECT 

TABLES 

8077  000036 

040042 

1 74603 

067116 

SINI : 

.WORD 

040042, 

174603,  ( 

367116, 

042025 

000044 

042025 

8078 

8079  000046 

042021 

1 74005 

170441 

SIN2: 

.WORD 

042021 , 

174005,  • 

170441, 

1 75607 

000054 

175607 

8080  000056 

14^530 

056427 

005061 

.WORD 

143530, 

056427,  005061, 

125021 

000064 

1 25021 

8081  000066 

J44726 

162341 

133224 

.WORD 

044726, 

162341,  ' 

133224, 

052302 

000074 

052302 

8082  000076 

145626 

154170 

031651 

.WORD 

145626, 

154170,  031651, 

104637 

000104 

104637 

8083  000106 

046117 

031130 

175220 

.WORD 

046117, 

031130,  ' 

1-^5220, 

165273 

000114 

165273 

8084  000116 

042004 

123513 

026637 

.WORD 

042004, 

123513,  026637, 

160477 

000124 

160477 

8085  000126 

043423 

156142 

064161 

.WORD 

043423, 

156142,  064161, 

007314 

000134 

007314 

8086  000136 

044707 

047147 

032436 

.WORD 

044707, 

047147,  ( 

)32436, 

120046 

000144 

120046 

8087  000146 

046003 

163716 

123445 

.WORD 

046003, 

163716,  ' 

123445, 

167144 

000154 

167144 

8088 

8089 

8090 

8091  002734 

.PSECT 

CODE 

8092 

8093 

.S8TTL 

SI.BROUTINE 

.TAN: 

TANGENT 

8094 

;■¥•*■ 

8095 

;  FUNCTIONAL  DESCRIPTION: 

8096 

FINDS  THE  TANGENT  OF  ACO 

AND  RETURNS  THE  RESULTS  IN  ACO                          I 

8097 

;  — 

8098 

8099  00273/* 

.TAN:: 

8100  002734 

STF 

AC1,-(SP) 

;SAVE  AC1 

8101  002742 

STF 

ACO,-(SP) 

:SAVE  THE  ARG  TO  lAKE  TAN  OF 

8102  002750 

CALL 

.COS 

1 

;GET  COSINE  OF  ARG 

8103  002754 

STF 

AC0,AC1 

i 

;AND  SAVE  IT 

8104  002762 

LDF 

(SP)^, ACO 

;GET  ARG  BACK  AGAIN 

8105  002770 

CALL 

.SIN 

t 

:FIND  THE  SINE  OF  IT 

8106  002774 

DIVF 

AC1,AC0 

i 

;TAN(X) 

=SIN(X)/COS(X) 

8107  003002 

LDF 

(SP)^',AC1 

;RESTORE  ACI                                        1 

8108  003010 

RETURN 

8109 

8110 

8111 

.S8TTL 

SIBROUTINE 

.LN: 

NATURAL  LOGARITHM 

8112 

;■¥■¥ 

8113 

;  FUNCTIOf^L  DESCRIPTION: 

8114 

THIS  SUBROUTINE 

CALCULAT! 

:S  THE 

LOG  OF  THE  NUMBER  IN  ACO  AND 

8115 

RETURNS 

THE  RESULTS  IN  ACO.  ALL  OTHER  REGISTERS  ARE  PREVSERVED.                  1 

8116 

IF  ACO 

IS  <=0  THEN  A  DOM/ 

MN  ERROR  IS  GIVEN.                                   1 

8117 

*•  — 

8118 

8119  003012 

.PSECr 

CODE 

8120  003012 

.LN:: 

8121  003012 

TSTF 

ACO 

i 

;SEE  IF 

IT'S  A  LEGAL  ARG  GIVEN 

8122  003020 

CFCC 

N    4 
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.LN:         NATURAL  LOGARITHM 

8123  00302A 

003001 

BGT 

1$ 

81 2A  003026 

104417 

DOMERR 

8125 

8126  003030 

1$: 

CMPF 

/;^*F1,AC0 

; SPECIAL  CASE  CHECK  FOR   1 

8127  003040 

CFCC 

8128  003044 

001004 

BNE 

4$ 

8129  003046 

CLRF 

ACO 

8130  003054 

RETURN 

8131 

8132  003056 

4$: 

PUSH 

RO 

8133  003060 

STFPS 

-(SP) 

8134  003066 

LDFPS 

*200 

;D-I  MODE  FPP 

8135  003076 

032716 

000200 

BIT 

/(f200,(SP) 

;Uas  It  single  Precision? 

8136  003102 

001003 

BNE 

31$ 

;Nope 

8137  003104 

LDCFD 

ACO, ACO 

; CLEAR  OUT  LOW  32  GARBAGE  BITS 

8138  003112 

31$: 

STF 

AC2,-(SP) 

;SAVE   SOME  AC'S  TILL  LATER 

8139  003120 

STF 

AC1,-(SP) 

8140 

8141  003126 

STEXP 

ACO,-(SP) 

8142  003134 

LDEXP 

#0,ACO 

8143  003144 

012700 

000156' 

MOV 

*LN1,R0 

8144  003150 

CMPF 

(R0)^•,AC0 

8145  003156 

CFCC 

8146  003162 

002405 

BLT 

2$ 

8147  003164 

LDEXP 

ff^,Aco 

8148  003174 

005316 

DEC 

(SP) 

8149 

8150  003176 

2$: 

STF 

AC0,AC1 

8151  003204 

SIFIF 

/if^F1,AC0 

8152  003214 

ADDF 

#^F1,AC1 

8153  003224 

DIVF 

AC1,AC0 

8154  003232 

STF 

AC0,AC1 

8155  003240 

MULF 

AC0,AC1 

8156 

8157  003246 

LDF 

(R0)^,AC2 

8158  003254 

MULF 

AC1,AC2 

8159  003262 

ADDF 

(R0)^,AC2 

8160  003270 

MULF 

AC1,AC2 

8161  003276 

ADDF 

(R0)^,AC2 

8162  003304 

MULF 

AC1,AC2 

8163  003312 

ADDF 

(R0)*,AC2 

8164  003320 

MULF 

AC2,AC0 

8165 

8166  003326 

LDF 

AC1,AC2 

8lo/^  00^334 

ADDF 

(R0)>,AC2 

8168  003342 

MULF 

AC1,AC2 

8169  003350 

ADDF 

(R0)*,AC2 

8170  003356 

MULF 

AC1,AC2 

8171  003364 

ADDF 

(R0)*,AC2 

8172 

8173  003372 

DJVF 

AC2,AC0 

8174  003400 

LDCIF 

(SP)^,AC1 

8175  003406 

MULF 

(R0)^,AC1 

8176  003414 

ADDF 

AC1,AC0 

8177 

8178  003422 

LDF 

(SP)>,AC1 

•RESTORE   SOME   REGISTERS 

8179  003430 

LDF 

(SP)*,AC2 

APL001 
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SUBROUTINE 

.LN: 

NATURAL 

LOGARITHM 

8180 

003436 

LDFPS 

(SP)-. 

8181 

003444 

POP 

RO 

8182 

003446 

RETURN 

8183 

81 8A 

000156 

.PSECT 

TABLES 

8185 

8186 

000156 
000164 

040065 
157145 

002563 

03i.  71 

LN1: 

.WORD 

40065,2363,31771 

,157145 

8187 

000166 

03772? 

114303 

110107 

.FLT4 

.4210873712179797145                                                                                                               1 

000174 

114145 

8188 

000176 

141032 

031773 

064222 

.FLT4 

- . 96376909336868659324E ♦ 1                                                                                                     1 

000204 

040261 

8189 

000206 

041367 

124211 

021611 

.FLT4 

.30957292821 537650062264E^2                                                                                                 1 

000214 

114442 

8190 

000216 

141300 

016201 

002154 

.FLT4 

- . 2401 391 7955921 0509868484E  ^2                                                                                                1 

000224 

010216 

8191 

000226 

141016 

111747 

007541 

.FLT4 

-.89111090279378312337E>1                                                                                                     1 

000234 

052530 

8192 

000236 

041233 

1 54404 

136454 

.FLT4 

. 1 948096607008897305 1 623E  ^2                                                                                                 1 

00024<» 

022153 

8193 

000246 

141100 

016201 

00:15h 

.FLT4 

- . 1 20069589779605254  71 7525E  ^2                                                                                             1 

000254 

010216 

8194 

000256 

040061 

071027 

173721 

.FLT4 

.693147180559945309417232121458                                                                                         1 

000264 

147572 

8195 

8196 

8197 

.S8TTL 

SIRROUTJNE 

.EXP:        EXPONENTIAL 

8198 

;♦♦ 

8199 

;    FUNCTIONAL   DESCRIPTION: 

8200 

THIS  ROUTINE   WILL   FIND   THE   EXPONENTIAL,   e*x  or  BXP(x) .   OF   ACO 

8201 

AND  RETURN  THE   RESULT    IN  ACO.   ALL  OTHER  REGISTERS  ARE   PRESERVED. 

8202 

THIS  ROUTINE   DOES  17  DIGIT   CALCLATIONS  AND   IS  CAPABLE   OF   DOUBLE 

8203 

PRECISION  CALCULATIONS. 

For   further   information  see  "Computer 

8204 

Approximations",   John  F. 

Hart,   et.al.,  p100-102. 

8205 
8206 
82^7 

(approximation  number  1067,  maybe?  ).                                                                                           1 

005450 

.PSECT 

CODE 

8208 

005450 

.EXP:: 

8209 

0054*^0 

PUSH 

RO 

;S»\je  RO 

8210  003452 

STFPS 

'(SP) 

;SAVE   CURRENT  fPP  STATUS 

8211 

005460 

LDFPS 

0200 

;D-I  MODE 

3212 

005470 

052716 

000200 

BIT 

M200ASP) 

; Previous  mode  Single? 

8213 

005474 

001005 

BNE 

32$ 

;Nope 

; CLEAR  OUT  LOW  52  GARBAGE  BITS 

;SAVE  AC 2 

8214 

005476 

LDCFD 

ACO, ACO 

8215 

005504 

52$: 

STF 

AC2,-(SP) 

8216  005512 

STF 

AC1,.-(SP) 

AND  AC1 

8217  005520 

TSTF 

ACO 

; CHECK  FOR  SPECIAL  CASE  OF   e*0 

S^^8 

005526 

CFCC 

8219  005552 

001005 

BNE 

11 

;IF  NOT,   DO  IT  THE  APPROX  METHOD 

8220 

8221 

005554 

LDF 

#*F1,AC0 

;e*0  =  1 

8225 
8224 

005544 

000562 

BR 

as 

iRESTORE  AND  RETURN! 

005546 

012700 

000266* 

1$: 

MOV 

#EXP1,R0 

8225 

005552 

mx>f 

(RO)*,ACO 

;fcXP(x)s2*(x*L0G2(e)) 

8226  005560 
B27  005564 

100415 

crcc 

BMI 

21 
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8??8  003566 

STCFI 

AC1,-(SP) 

.•STORE  INTEGER  PART 

8229  003574 

CFCC 

8230  003600 

103516 

BCS 

4$ 

;The  argument  is  too  big 

8231  003602 

SUBF 

#*F.5,AC0 

8232  003612 

000413 

BR 

3S 

8233 

8234  003614 

2$: 

STCFI 

AC1,-(SP) 

; Store  the  integer  part 

8235  003622 

CFCC 

8236  003626 

::3517 

BCS 

6S 

;The  argument  is  too  negative 

8237  003630 

005316 

DEC 

iSP) 

8238  003632 

ADDF 

#*F.5,AC0 

8239 

8240  003642 

3$: 

STF 

AC0,AC1 

;-.5<  X  <^.5 

8241  003650 

(iULF 

AC1,AC1 

;x**2 

8242 

8243  003656 

LDF 

(R0)^,AC2 

:P2 

8244  003664 

MULF 

AC1,AC2 

8245  003672 

ADDF 

(R0)*,AC2 

;P1 

8246  003700 

MULF 

AC1,AC2 

8247  003706 

ADDF 

(R0)^,AC2 

;P0 

8248  303714 

8249 

8250  003722 

MULF 

AC2,AC0 

;xP(x**2) 

LDF 

AC1,AC2 

8251  003730 

ADDF 

(R0)^,AC2 

;01 

8252  003736 

MULF 

AC1,AC2 

8253  003744 

ADDF 

(R0)^,AC2 

;Q0 

8254 

8255  003752 

STF 

AC2,AC1 

;Q(x'»»2) 

8256  003^60 

SUBF 

AC0,AC1 

;Q-xP 

8257  003  '66 

ADDF 

AC2,AC0 

;0*xP 

8258  00377A 

DIVF 

AC1,AC0 

;(04xP)/(0-xP) 

8259  004002 

MULF 

(R0)^,AC0 

;I  don't  know  what  this  is  I  What  happened  to  02? 

8260 

8261  004010 

STEXP 

AC0,-(SP) 

;6et  the  exponent  of  the  fractional  part 

8262  004016 

005766 

000002 

TST 

2(SP) 

;Is  the  integer  exponent  positive? 

8263  004022 

002414 

BLT 

5$ 

:No 

8264 

8265  004024 

062616 

ADD 

(SP)*,(SP) 

; Correct  the  exponent 

8266  004026 

8267  004030 

102403 

BVS 

41 

;The  exponent  is  way  too  bio.  Domain  error 
;Is  the  exponent  just  &  Little  too  big? 

021627 

000177 

CMP 

(SP),4n77 

8268  004034 

003422 

BLE 

7$ 

;No.  All  is  Ok 

8269  004036 

005726 

41: 

TST 

(SP)* 

; Clean  up  the  stack 

8270  004040 

LDF 

EXPBICACO 

;Get  the  largest  possible  ncwber 

8271  004050 

000261 

sec 

;Note  the  overflow 

1^72  004052 
8274  004054 

000417 

BR 

8$ 

;Now  return 

062616 

5S: 

ADD 

(SP)^,(SP) 

.•Correct  the  exponent 

8275  004056 

102403 

BVS 

6S 

.•The  result  is  >^^ry   very  small 

KJS  95^960 

021627 

177601 

CMP 

(St>),#-177 

:Is  the  result  just  a  little  small? 

8277  004064 

002006 

BGE 

7$ 

;No.  Then  Ok 

827C  004056 

005726 

6$: 

TST 

(SP)^ 

.'Clean  up  '  te  stack 

8279  004070 

CLRF 

ACO 

;Use  zero  tor  such  a  tiny  result 

8280  004076 

000261 

SEC 

.-Note  the  underflow 

8281  004100 

000404 

BR 

8S 

8282 

8283  004102 

8284  004110 

71: 

LDEXP 

(SP)*, ACO 

.•Attach  the  exponent  to  the  result 

000241 

CLC 

.-SHOW  GOODNESS 

APLCX)1  MACRO  Mil  13  08-FEB-80  09:10  PAGE  91-6 

D  5 

SlffV^OUTINE 
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EXPONENTIAL 

8285 

8286  004112 

i 

III 

LDF 

(SP)>,AC1 

^RESTORE  STUFF  ON  STACK                                1 

8287  004120 

LDF 

(SP)*,AC2 

8288  004126 

LDFPS 

iS?)^ 

8289  004134 

POP 

RO 

; Res tore  RO 

8290  004136 

RETURN 

8291 

8292  000266 

.PSECT 

TABLES 

8293 

8294  000266 

040270 

125073 

024534  [ 

EXPl: 

.FLT4 

1 . 4426950408889634073599246 

;L0G2(e)  =  1/LN(2) 

000274 

013761 

8295  000276 

036675 

027102 

125560 

.FLT4 

. 23093347753750233624E-1 

\^2 

000304 

136652 

8296  000306 

041241 

116724 

114237 

.FLT4 

. 20202065651 286927227886E ^2 

;P1 

000314 

060333 

8297  000316 

042675 

036404 

077563 

.FLT4 

.151 390679905433891 5894328E^4 

;P0 

000324 

046675 

8298  000326 

042151 

027450 

075350 

.FLT4 

. 2331 8421 1 427481 623790295E  +3 

;Q1 

000334 

112503 

8299  000336 

043210 

100661 

076072 

.FLT4 

.436821 1662727558498496814EH 

;Q0 

000344 

062453 

8300  000346 

040265 

002363 

031771 

.FLT4 

1 .4142135623730950488016887 

:You  got  me  what  this  one  is 

000354 

157144 

'       J 

8301  000356 

077777 

1 77777 

1 77777     [ 

EXPBIG: 

.WORD 

077777 , 1 77777 , 1 77777  A77777 

;8iggest  number  we  can  handle 

000364 

1 77777 

^  t^ 

8302 

8303 

8304 

8305 

8306 

8307 

.S8TTL 

SIRROUTINE 

.ACQS 

8308 

;-f-f 

8309 

;  FUNCTIONAL  DESCRIPTION: 

8310 

FINDS 

FHE  ARCCOSINE  OF  ACO 

8311 

l». 

8312 

8313  000366 

.ACQS:: 

8314  000366 

CALL 

.ASIN 

;ACOS(X)  =  TT/2  - 

'   ASIN(X) 

8315  000372 

SIF 

AC0,-(SP) 

;SAVE  IT 

8316  000400 

LDF 

PI, ACO 

;GET  PI 

8317  000410 

MULF 

/r*F0.5,AC0 

;    ?\/2 

8318  000420 

SIRF 

(SP)^,ACO 

;ACOS(X) 

8319  000426 

8320 

8321 

RETURN 

8322 

8323 

8324 

.S8TTL 

SLe^vCHjTINE 

.ASIN:   ARCSINE 

8325 

;♦♦ 

8326 

;  FLWCTIONAl  Oi 

ESCRIPTION: 

8327 

I^^DS 

FHE  ARCSINE  OF  ACO 

8328 

:--> 

8329 

8330  000430 

.Asr<: 

8331  000430 

STF 

AC1,-(SP) 

•ASIN(X)=ATAN(X/SQRT(1-X*2))                            1 

8332  000436 

STF 

AC0,AC1 

8333  000444 

A8SF 

ACO 

•MAKE  -1  ->  1 
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835A  OOOA52 

SUBF 

/(f*F1..AC0 

r CHECK  FOR  NEAR  PLUS  OR  MINUS  ONE 

RMS  000462 

CALL 

CLOSED 

;1S   IT  ? 

8336  000466 

001025 

BNE 

2$ 

;N0,  SKIP  AROUND 

8337  000470 

LDF 

PI, ACO 

;GET  PI 

8338  000500 

MULF 

#^F0.5,AC0 

;    Pl/2 

8339  000510 

TSTF 

AC1 

;POSITIVE  OR  NEGATIVE  ? 

8340  000516 

CFCC 

8341  000522 

002003 

BGE 

1$ 

; POSITIVE... 

8342  000524 

NEGF 

ACO 

; NEGATIVE 

8343  000532 

1$: 

LDF 

(SP)+,AC1 

;RESTORE  AC1 

8344  000540 

RETURN 

;  FINISHED 

8345 

8346  000542 

2$: 

STF 

ACnACO 

8347  000550 

MULF 

ACO, ACO 

8348  000556 

NEGF 

ACO 

8349  000564 

ADDF 

f'^FUACO 

8350  000574 

CALL 

.SORT 

8351  000600 

DIVF 

AC0,AC1 

8352  000606 

STF 

ACKACO 

8353  000614 

LDF 

(SP)>,AC1 

8354 

• 
0 

BR 

.ATAN 

8355 

8356 

8357 

8358 

8359 

..SRTTL 

SIRROUTINE 

.ATAN:   ARCTANGENT 

8360 

;*♦"*■ 

8361 

;  FUNCTIONAL  DESCRIPTION: 

8362 

FINDS 

THE  ARCTANGENT  OF  / 

\C0 

8363 

;~ 

8364 

8365  000622 

.ATAN:: 

8366  000622 

STF 

AC1,-(SP) 

;SAVE  AC1 

8367  000630 

STF 

AC2,-(SP) 

;AND  AC2 

8368  000636 

STF 

AC3,-(SP) 

;AND  AC3 

8369  000644 

STFPS 

'(SP) 

;AND  THE  FPP  STATUS 

8370  000652 

PUSH 

RO 

;AND  LAST  BUT  NOT  LEAST  RO 

8371  000654 

LDFPS 

#40200 

;SET  D-I  MODE  WITH  NO  INTERUPTS 

83/2  000664 

032716 

000200 

BIT 

#200, (SP) 

•Previous  Mode  Single? 

8373  000670 

001003 

BNE 

33$ 

;Nope 

; CLEAR  OUT  LOW  32  GARBAGE  BITS 

8374  000672 

8375 

8376  000700 

LDCFD 

ACO, ACO 

33$: 

TSTF 

ACO 

•SEE  WHAT  SIGN  THE  NlfBER  IS 

8377  000706 

CFCC 

8378  000712 

001414 

BEQ 

2$ 

•If   ZERO  WERE  DONE  ALREADY 

8379  000714 

002403 

BLT 

1$ 

•TAKE  CARE  OF  NEGITIVE  NUMBERS 

8380  000716 

CALL 

3$ 

;GET  THE  ARC TAN 

8381  000722 

000410 

BR 

2$ 

•AND  EXIT 

8382 

8383  000724 

1$: 

NEGF 

ACO 

•ATN(-X)=-ATN(X) 

8384  000732 

CALL 

3$ 

;FIND  THE  ARCTAN 

8385  000736 

8386 

8387  000744 

NEGF 

ACO 

•AND  REMEMBER  TO  NEGATE  IT 

2$: 

POP 

RO 

•RESTORE  RO 

8388  000746 

LDFPS 

(SP)^ 

•RESTORE  THE  FPP  STATUS 

8389  000754 

LDF 

(SP)>, AC3 

•RESTORE  AC3 

8390  000762 

LDF 

(SP)*,AC2 

•AND  AC2 
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8391  000770 

LDF 

(SP)*, ACT 

;AND  AC1 

8392  000776 

RETURN 

;RETURN  WITH  THE  ARCTAN  IN  ACO 

8393 

8394 

;D0 

SOME  WORK  WITH  SHUFFLING 

RANGES  ON  THE  ARG 

8395 

8396  001000 

012700 

001356' 

3$: 

MOV 

#ATAN1,R0 

;6ET  POINTER  TO  CONSTANTS 

8397  001004 

CMPF 

(R0)^,AC0 

839R  001012 

CFCC 

8399  001016 

002057 

BGE 

5$ 

8400  001020 

CMPF 

ATAN3,AC0 

8401  001030 

CFCC 

8402  001034 

C03023 

BGT 

4$ 

8403  001036 

LDF 

#*F1,AC1 

8404  001046 

DIVF 

AC0,AC1 

8405  001054 

STF 

ACUACO 

8406  001062 

CALL 

5$ 

8407  001066 

NEGF 

ACO 

8408  001074 

ADDF 

(RO)*,ACO 

8409  001102 

RETURN 

8410 

8411  001104 

4$: 

STF 

AC0,AC1 

8412  001112 

SUBF 

#V1,AC0 

8413  001122 

ADDF 

f'^FI^ACI 

8414  001132 

DIVF 

ACKACO 

8415  001140 

CALL 

5$ 

8416  001144 

ADDF 

ATAN2,AC0 

8417  001154 

RETURN 

8418 

8419 

;D0 

THE  ACTUAL  SERIES  ON 

THE  PROPERLY  REDUCED  VALUE 

8420 

8421  001156 

5$: 

STF 

AC0,AC3 

8422  001164 

MULF 

AC3,AC3 

8423  001172 

LDF 

(R0)^,AC1 

8424 

8425  001200 

MULF 

AC3,AC1 

8426  001206 

ADDF 

(R0)*,AC1 

8427  001214 

MULF 

AC3,AC1 

8428  001222 

ADDF 

(R0)^-,AC1 

8429  001230 

MULF 

AC3,AC1 

8430  001236 

ADDF 

(R0)*,AC1 

8431  001244 

MULF 

AC3,AC1 

8432  001252 

ADDF 

(R0)*,AC1 

8433 

8434  001260 

STF 

AC3,AC2 

8435  001266 

ADDF 

(R0)*,AC2 

8436  001274 

MULF 

AC3,AC2 

8437  001302 

ADDF 

(R0)^,AC2 

8438  001310 

MULF 

AC3,AC2 

8439  001316 

ADDF 

(R0)*,AC2 

8440  001324 

MULF 

AC3,AC2 

8441  001332 

ADDF 

(R0H,AC2 

8442 

8443  001340 

DIVF 

AC2,AC1 

8444  001346 

MULF 

AC1,AC0 

8445  001354 

RETURN 

8446 

8447  001356 

.PSECT 

TABLES 
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G~r 


J 
T) 


8448 
8449 
8450 

8451 

8452 

8453 

8454 

8455 

8456 

8457 

8458 

8459 

8460 

8461 
8462 

8463 


001356 
001364 
001366 
001374 
001376 
001404 
001406 
001414 
001416 
001424 
001426 
001434 
001436 
001444 
001446 
001454 
001456 
001464 
001466 
001474 
001476 
001504 

001506 
001514 
001516 
001524 


037724 
074622 
037442 
015622 
040725 
050310 
041443 
025442 
041632 
056646 
041462 
126065 
041170 
064326 
041573 
071 524 
041670 
075022 
041462 
126065 
04031 1 
064302 

040111 
064302 
040432 
167462 


011714 
145026 
021566 
160206 
172223 
025125 
010112 
053776 
123114 
025125 
007732 


147747  ATAN1 

075504 

115517 

172714 

076027 

006152 

141724 

025372 

051576 

006152 

121041 


007732  121041  ATAN2; 
101171   114774  ATAN3; 


FLT;  .41421356237309504880 

, F  L  T4  .1 589740288482307048 

,  FLT4  .  666057901 7009262658E"»-1 

, F  L  T4  .4  09692648321 0225637E  ^2 

FLT4  .  77i^77(i^77y  920420862E'^2 

FLT4  .44541 34005929068032E  +2 

FLT4  .1550397755142198753E+2 

F  L  T4  . 628359305 1 1 03237683E  ^2 

, F  L  T4  . 92324801 07230097484E  ^2 

FLT4  .44541 34005929068032E'^2 


,FLT4   1 .57079632679489661923 


WORD   40111,7732,121041,64302 
,FLT4   2.41421356237309504880 


H 

5 
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.SINH:     HYPERBOLIC  SINE 

8465 

.S8TTL 

SUBROUTINE 

.Sim:     HYPERBOLIC  SINE 

8466 

••♦•"f 

8467 

;   FUNCTIONAL  DESCRIPTION: 

8468 

FINDS  ' 

FHE  HYPERBOLIC 

SINE  OF  ACQ 

8469 

:~ 

8470 

8471  001526 

< 

.SINH:: 

8472  001526 

CALL 

.EXP 

;SINH(X)=(EXP(X)-1/EXP(X))/2 

8473  001532 

103001 

BCC 

1$ 

; Over flowed? 

8474  001534 

104417 

DOMERR 

;Yes,   Domain  error 

8475  001536 

* 

1$: 

STF 

AC1,-(SP) 

8476  001544 

LDF 

**F1,AC1 

8477  001554 

DIVF 

ACO^ACI 

8478  001562 

S(.RF 

AC1-AC0 

84/9  001570 

DIVF 

**F2, ACO 

8480  001600 

LDF 

(SP)+,AC1 

8481   001606 

RETURN 

8482 

8483 

8484 

8485 

8^86 

.S8TTL 

SIFIROUTINE 

.COSH:     HYPERBOLIC  COSINE 

8487 

;■¥•¥ 

8488 

;   FUNCTIONAL  DESCRIPTION: 

8^89 

FINDS  " 

FHE  HYPERBOLIC 

COSINE  OF  ACQ 

8490 

:~ 

8491 

8492  001610 

.COSH:: 

8493  001610 

CALL 

.^X? 

;C0SH(X)=(EXP(X)*1/EXP(X))/2 

8494  001614 

103001 

BCC 

1$ 

; Over flowed? 

8495  001616 

104417 

DOMERR 

;Yes,  Domain  error 

8496  001620 

* 

1$: 

STF 

AC1,-(SP) 

8497  001626 

LDF 

#V1,AC1 

8498  001636 

DIVF 

AC0,AC1 

8499  001644 

ADDF 

ACI.ACO 

8500  001652 

DIVF 

/rV2,AC0 

8501  001662 

LDF 

(SP)^', AC1 

8502  001670 

RETURN 

8503 

8504 

8505 

8506 

8507 

.S8TTL 

SUBROUTINE 

.TANH:     HYPERBOLIC   TANGENT 

8508 

■  f -f 

8509 

:   FUNCTIONAL  DESCRIPTION: 

8510 

FINDS  ■ 

FHE  HYPERBOLIC 

TANGENT  OF  ACO 

8511 

:-- 

8512 

8513  001672 

.TANH:: 

8514  001672 

STF 

ACO,-(SP) 

;Save  aroLinent  for  its  sign 
;TANH(x)=(EXP(x)-1/EXP(x))/(EXP(x) 

8515  001700 

CALL 

.EXP 

>1/EXP(x)) 

8516  001704 

103016 

BCC 

1$ 

;Did  EXP(x)  overflow? 

8517  001706 

LDF 

#*F1,AC0 

;Yes,   Then  TANH(infinity)  =  1 

8518  001716 

TSTF 

(SP) 

;Uhat  was  the  argument's  sign? 

8519  001724 

CFCC 

8520  001730 

002043 

BGE 

2$ 

;Plus 

8521  001732 

NEGF 

ACQ 

; Minus 

T 
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8522  001740  0OOA37 

BR 

2$ 

;AU  done,  return 

8523  001742 

1$: 

STF 

AC1,-(SP) 

8524  001750 

STF 

AC2,-(SP) 

8525  001756 

LDF 

/J^V1,AC1 

8526  001766 

DIVF 

AC0,AC1 

8527  001774 

STF 

AC0,AC2 

8528  002002 

ADDF 

AC1,AC2 

8529  002010 

SUBF 

AC1 ,ACO 

8530  002016 

DIVF 

AC2,AC0 

8531  002024 

LDF 

(SP)^-,AC2 

8532  002032 

LDF 

(SP)+,AC1 

8533  002040                     2$: 

TSTF 

(SP)^ 

;Get  n'd  of  saved  argument 

8534  002046 

RETURN 

8535 

8536 

8537 

8538 

8539 

8540 

.seriL 

SIFIROUTINE 

.ATANH:  HYPERBOLIC  ARCTANGENT 

8541 

;-f+ 

8542 

;  FUNCTIONAL  DESCRIPTION: 

8543 

FINDS  THE  HYBERBOLIC 

ARCTANGENT  OF  THE  NUMBER  IN  ACO,  AND 

8544 

RETURNS 

THE  RESULTS  . 

[N  ACO. 

8545 

;  — 

8546  004140 

.PSECT 

CODE 

8547  004140 

.ATANH: 

• 

m 

8548  004140 

STF 

AC1,-(SP) 

;SAVE  SOME  REGISTERS 

8549  004146 

LDF 

#V1,AC1 

;ATANH(X)=LN((1+X)/(1-X))/2 

8550  004156 

SUBF 

ACO^ACI 

8551  004164 

ADDF 

/(r*F1,AC0 

8552  004174 

DIVF 

AC1,AC0 

8553  004202 

CALL 

.LN 

8554  004206 

DIVF 

#*F2,AC0 

8555  004216 

LDF 

(SP)^, AC1 

8556  004224 

RETURN 

8557 

8558 

8559 

8560 

8561 

.S8TTL 

SIFROUTINE 

.ACOSH:  HYPERBOLIC  ARCCOSINE 

8562 

j-f-f 

8563 

:  FUNCTIONAL  DESCRIPTION: 

8564 

FINOS   THE  HYPERBOLIC 

ARCCOSINE  OF  A  NUMBER  IN  ACO.  AND 

8565 

RETURNS 

THE  RESULT  IN  ACO.                                                1 

8566 

;~ 

8567 

.ENA8L 

LS8 

8568  004226 

.ACOSH: 

• 

8569  004226 

STF 

AC0,-(SP) 

;AC0SH(X)=X*LN(SQRT(X*2-1)) 

8570  004234 

MULF 

ACO.ACO 

8571  004242 

SUBF 

#*F1,AC0 

8572  004252 

1$: 

CALL 

.SORT 

8573  004256 

ADDF 

(SP)+, ACO 

8574  004264 

CALL 

.LN 

8575  004270 

RETURN 

8576 

8577 

8578 
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.ACOSH:  HYPERBOLIC  ARCCOSINE 

8579 

8580 

.S8TTL  SIW^OUTINE 

.ASINH:  HYPERBOLIC  f^^SlH^ 

8581 

;++ 

8582 

;  FUNCTIONAL  DESCRIPTION: 

8583 

;      FINDS  THE  HYPERBOLIC 

<\RCSINE  OF  THE  NUMBER  IN  ACO,  AND 

8584 

RETURNS 

;  THE  RESULT  IN  ACO.                                                1 

8585 

.— 

8586 

8587  004272 

.ASINH:: 

8588  004272 

STF 

ACO,-(SP) 

;ASINH(X)=X"»'LN(SQRT(X*2+1)) 

8589  004300 

MULF 

ACO,ACO 

8590  004306 

ADDF 

*V1,AC0 

8591  004316 

000755 

BR 

1$ 

8592 

.DSABL 

LS8 

8593 

8594 

8595 

8596 

8597 

8598 

.SBTTL  SIRROUTINE 

.FACT:  GENERALIZED  FACTORIAL 

8599 

;*♦"♦' 

8600 

;  FUNCTIONAL  DESCRIPTION: 

8601 

GENERALIZED  FACTORIAL 

ROUTINE.   FOR  NEGATIVE  OR  FRACTIONAL  ARGUMENTS 

8602 

;      THE  GAMMA  FUNCTION  IS 

APPLIED  AFTER  REDUCING  THE  ARGUMENT  TO  THE 

8603 

;                RANGE  0<=  X  <=1 .  COEFFICIENTS  OBTAINED  FROM  HART,  ET  AL.  "COMPUTER 

8604 

:      APPROXIMATIONS"  ROUTINE  #5243.  PRECISION:  17.02  DIGITS. 

8605 

•-- 

8606  004320 

.PSECT 

CODE 

8607 

8608  004320 

.FACT:: 

8609  004320 

PUSH 

<R0,R1> 

;SAVE  RO  and  R1 

8610  004324 

STF 

AC3,-(SP) 

;SAVE  REGISTERS 

8611  004332 

STF 

AC2,-(SP) 

8612  004340 

STF 

AC1,-(SP) 

8613  004346 

STfPS 

-iSP) 

;SAVE  ^PP   STATUS 

8614  004354 

LDfPS 

It-^r^r^ 

;SET  DOUBLE  MODE 

8615  004364 

032716 

000200 

BIT 

/r200,(SP) 

;Is  It  in  Single  Mode? 

8616  004370 

001003 

BNE 

V. 

•CONVERT  FROM  SINGLE  TO  DOIBLE  IF  NEEDED 

8617  004372 

LDCFD 

^CO,ACO 

8618  004400 

1$:     STD 

AC0,AC2 

;COPY  ARGUMENT 

8619  004406 

STD 

ACO-ACI 

8620  004414 

LDD 

#^F1.0,AC0 

;LOAD  COMMON  CONSTANT 

8621  004424 

MODD 

AC0,AC2 

; CHECK  FOR  INTEGER 

8622  004432 

TSTD 

AC1 

;IS  ARGIWENT  POSITIVE? 

8623  004440 

CFCC 

8624  004444 

001577 

BEO 

GAMDON 

;0!=1 

8625  004446 

100426 

BMI 

4S 

;YES 

8626  004450 

CMPD 

#^F32.0,AC1 

.-POSITIVE  ARG  TOO  BIG? 

8627  004460 

CFCC 

8628  004464 

003004 

BGT 

3$ 

;N0,  ARG  IS  IN  BOUNDS 

8629  004466 

2$:     I.DFPS 

k%P)^ 

;RESTORE  FPP  STATUS 

8630  004474 

104417 

DOMERR 

;AND  COMPLAIN  ABOUT  ARG 

8631 

•♦ 

8632 

;P0SITIVE  AR6 

8633 

1 

8634  004476 

012701 

000001 

3$:     MOV 

#1,R1 

;SET  POSITIVE  ARG  FLAG 

8635  004502 

LDD 

#^F-1.0,AC2 

.•INCREMENT  IS  NEGATIVE 
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8636  004512 

STCDI 

AC3.R0 

;GET  INTEGER  PART  OF  ARG 

8637  004520 

001443 

BEQ 

GAMMA 

',U   ONLY  FRACTION.  JUST  DO  GAMMA  APP^OX. 

8638  004522 

000432 

BR 

5$ 

.•ELSE  ^1^%^   REDUCE  ARG  DOWN  TO  GAMMA  RANGE 

8639 

;•»• 

8640 

.•NEGATIVE  ARG 

8641 

•  - 

8642  004524 

4$: 

CMPD 

#'^F-32.0.AC1 

-.1%   ARG  TOO  NEGATIVE? 

8643  004534 

CFCC 

8644  004540 

003352 

BGT 

2$ 

;YUP.  ARG  OUT  OF  BOUNDS 

8645  004542 

012701 

1 71117 

MOV 

/!f-1,R1 

.-SET  NEGATIVE  ARG  FLAG 

8646  004546 

TSTD 

AC2 

;IS  ARG  A  NEGATIVE  INTEGER? 

8647  004554 

CFCC 

8648  004560 

001742 

BEQ 

2$ 

;YES.  BAD  ARG  (CAUSES  DIVISION  BY  ZERO) 

8649  004562 

STD 

AC0.AC2 

.•INCREMENT  IS  1 

8650  004570 

ADDD 

AC0.AC1 

.•FUDGE  NEGATIVE  ARG 

8651  004576 

STCDI 

AC3.ro 

.-GET  INTEGER  PART 

8652  004604 

005400 

NEG 

S8 

;ELSc  MAKE  COUNT  POSITIVE 

8653  004606 

005200 

INC 

;PLUS  1  TO  INCLUDE  FRACTION 

8654 

;  + 

8655 

.•REDUCE 

ARG  TO 

FRACTION  0<=  X 

<=1. 

8656 

# 

8657  004610 

5$: 

MULD 

ACI.ACO 

.•MULTIPLY  RESULT  BY  ARG 

8658  004616 

ADDD 

AC2.AC1 

.•REDUCE  ARG 

8659  004624 

SOB 

R0.5$ 

.•REDUCE  ARG  TO  MANAGEABLE  SIZE 

8660 

;-♦- 

8661 

.•PERFORM  GAMMA 

FUNCTION  APPROXIMATION  ON  FRACTIONAL  REMAINDER                          1 

8662 

•  - 

8663  004630 

GAMMA: 

TSTD 

AC1 

;WAS  ARG  AN  INTEGER? 

8664  004636 

CFCC 

8665  004642 

001500 

BEQ 

GAMDON 

;YES.  WE  HAVE  RESULT  (STANDARD  FACTORIAL) 

8666  004644 

CMPD 

/r^FI.O.ACI 

;IS  RESULT  IN  BOUNDS? 

8667  004654 

CFCC 

8668  004660 

002007 

BGE 

1$ 

;YES 

8669  004662 

SUBD 

/r^FI.O.ACI 

;N0.  FUDGE  FOR  POSITIVE  FRACTIONAL  ARG 

8670  004672 

CFCC 

;D0NE? 

8671  004676 

001462 

BEQ 

GAMDON 

;YESi 

8672 

86/J  004700 

1$: 

PUSH 

R1 

.•SAVE  POSITIVE/NEGATIVE  ARG  FLAG 

8674  004702 

012701 

002050' 

MOV 

#GAMTAB.R1 

.•POINT  TO  COEFFICIENT  TABLE 

8675  004706 

012700 

000006 

MOV 

#6..R0 

.•THERE  ARE  6  TERMS 

8676  004712 

STD 

AC1,AC3 

.•FIRST  COEFF  OF  DENOMINATOR  IS  1 

8677  004720 

LDD 

(R1)+.AC2 

.-GET  FIRST  COEFF  OF  NUMERATOR 

8678  004726 

ADDD 

(R1)^.AC3 

.-ADD  SECOND  COEFF  TO  DENOM  (1  MORE  TERM) 

8679 

8680  004734 

2$: 

MULD 

AC1.AC2 

;MUL  NUMERATOR  BY  ARG 

8681  004742 

MULD 

AC1,AC3 

;AND  DENOMINATOR 

8682  004750 

ADDD 

(Rl5*.AC2 

;ADD  NEXT  TERM  TO  NUM. 

8683  004756 

ADDD 

(R1)*.AC3 

;AND  TO  DENOM. 

8684  004764 

SOB 

R0.2$ 

;6  TERMS 

8685 

8686  004770 

DIVD 

AC3,AC2 

.•MAKE  RATIONAL  APPROX. 

8687  004776 

005726 

TST 

{%9)^ 

.•CHECK  SIGN  OF  ARG 

8688  005000 

100404 

BMI 

4$ 

.•NEGATIVE  ARG 

8689  005002 

MULD 

AC0.AC2 

.•MULTIPLY  BY  ARG  REDUCTION  VALUE 

8690  005010 

000403 

BR 

5$ 

;AND  CLEAN  UP 

8691 

8692  005012 

4$: 

DIVD 

AC0.AC2 

.•DIVIDE  GAMMA  BY  REDUCTION  VALUE 

L  5 
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8693 

8694  005020 

5$:     ADDD 

#*F1.0-AC1      ;BUMP  UP  ARGUMENT 

8695  005030 

DIVD 

AC1,AC2        ;AND  SCALE  RESULT 

8696  005036 

STD 

AC2,AC0        ;PUT  RESULT  INTO 

CORRECT  REG 

8697 

8698  005044 

GAMDON:  LDFPS 

(SP)^                       ;POP  FPP  STATUS 

8699  005052 

LDF 

(SP)  +  ,AC1      .-RESTORE  REGS 

8700  005060 

LDF 

(SP)*,AC2 

8701  005066 

LDF 

(SP) +,AC3 

8702  005074 

POP 

<R1,R0>       .-Restore  R1  and  f 

\0 

8703  005100 

RETURN 

;THAT  WAS  HARD  WORK!                                  1 

8704 

8705 

8706 

•■♦• 

8707 

.•TABLE  OF  POLYNOMIAL  COEFFS  FOR  GAMMA  FUNCTION 

8708 

•- 

8709  002050 

.PSECT 

TABLES 

8710  002050 

140727 

1 53242 

163350 

GAMTAB:  .FLT4 

- . 6744950724592528991  BE  ^1 

;P6 

0C2056 

032215 

8711  002060 

141270 

1 23404 

076130 

.FLT4 

-.23081 551 5245801 24562E+2 

;Q6 

002066 

012650 

8712  002070 

141510 

067515 

065111 

.FLT4 

- . 501 0869375297095301 6E  >2 

:P5 

002076 

024263 

8713  002100 

042075 

077614 

043022 

.FLT4 

. 1 894982341 5702801 642E+3 

;Q5 

002106 

027572 

8714  002110 

142333 

125113 

1 76657 

.FLT4 

-.43933044406002567614E'^3 

;P4 

002116 

075737 

8715  002120 

142371 

101646 

141245 

.FLT4 

- . 499028526621 43904834E  >3 

•Q4 

002126 

011263 

8716  002130 

142773 

010340 

074264 

.FLT4 

-.2008527401 3072791 21 5E+4 

;P3 

002136 

152065 

8717  002140 

142677 

011556 

144553 

.FLT4 

-.1 52860727377952202A8E^4 

;Q3 

002146 

154176 

• 

8718  002150 

143410 

165327 

054121 

.FLT4 

-.  87627102978521489561 E-^^ 

'P2 

002156 

172630 

8719  002160 

043433 

050472 

145404 

.FLT4 

. 994030741 5082770901 5E^4 

■02 

002166 

1 75461 

8720  002170 

143643 

026671 

036161 

.FLT4 

- . 20886861 789269887364E  *5 

•PI 

002176 

072153 

8721  002200 

143072 

043052 

050302 

.FLT4 

-.  29803853309256649932EH 

•Q1 

002206 

136746 

8722   002210 

144045 

070660 

101665 

.FLT4 

- . 4235368950974408964  7E  ^5 

•PO 

002216 

164443 

8723  002220 

144045 

070660 

101665 

.FLT4 

-.423536895097440900105^5 

•QO 

002226 

164444 

8725  002230 

LIST 

rr 
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8727  002230  MOPINS  RAND,0 

8771  002230  LIST 
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SYWBOL 

TABLE 

ACQ   = 

XOOOOOO 

CHHEP  = 

000105 

CS.800= 

000010 

DSCOMP 

001012RG 

020  D.SUBS= 

000006 

AC1   = 

X000001 

CHRERR= 

104431 

CS.FLO= 

000020 

D$LOG 

000362R6 

020  D.TAKE= 

000002 

AC2   = 

X000002 

CHRFiL= 

000177 

CS.IDN=  000040 

D$PWR 

OOOOOORG 

020  D.TRAN= 

000004 

AC3   = 

X000003 

CHRFRO= 

000135 

CS.0NE= 

000100 

DSICOM 

000772RG 

020  D.UNON= 

000006 

ACA   = 

XOOOOOA 

CHRLBR= 

000073 

CTEPS 

0001 52R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

ACS   = 

XOOOOOS 

CHRLPR= 

000072 

CTMAX 

00021 2R 

025 

D.8XCT= 

000007 

D.$M1N= 

000000 

ALLINT 

00327AR 

025 

CHRMNS= 

000137 

CTRMAX 

0001 72R 

025 

D.8XI0= 

000007 

D.$MUL= 

000000 

ARYRET 

003276R 

025 

CHR«UL= 

0CX75 

CZERO 

000566R 

020  D.BXNL= 

000007 

D.$PLU=  000000 

ASCQUO= 

000042 

CHRNE6= 

000100 

C.ALOC- 

000162 

D.BXPP= 

000007 

D.SRES= 

000000 

ATAN1 

0013S6R 

002 

CHRPOL= 

000271 

C.BLOK= 

000064 

D.BXPW=^ 

000007 

D.$SUB= 

000000 

ATAN2 

001506R 

002 

CHRPLU=  000055 

C.8LSZ= 

000140 

D.BXRL= 

000007 

D.1C0M= 

000001 

ATAN3 

001516R 

002 

CHRPWR= 

000120 

C.8UFF= 

1 77760 

D.CIRC= 

000001 

D.1EXP= 

000002 

A.ALEN= 

000004 

CHRQST= 

000121 

C.8UFL= 

1 77762 

D.COMB= 

000001 

D.1R0T= 

000003 

A.ARG  = 

000040 

CHRQUO= 

000113 

C.CCNT= 

^ 77766 

D.COMP= 

000001 

EDICHR 

005063R 

025 

A.A5B  = 

000200 

CHRR8R= 

000047 

C.CPTRr 

177764 

D.CONTr 

000006 

EDICNT 

005064R 

025 

A.BITS= 

000003 

CHRRPR= 

000042 

C.CZ  = 

001000 

D.CTLM=  000000 

EDIFLG 

005062R 

025 

A. CON  = 

000020 

CHRSEM=  000074 

C.DIG  = 

000040 

D.DEAL= 

000003 

EDIT  = 

000003 

A.DIMS= 

000002 

CHRS«0=  000112 

C.FASW=  020000 

D.DECD= 

000002 

EIS   = 

000000 

A.DI«1  = 

000006 

CNRSPA= 

000040 

C.FLEN= 

000010 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

A. MUM  = 

000006 

CHRUPA= 

000131 

C.FLSH= 

004000 

D.DMD  = 

000010 

EMPTY  = 

**♦*♦♦  GX 

A.PTR  = 

000000 

CHR.8S= 

000010 

C.FRC  = 

00^^01 

D.DQAD= 

1 77777 

ENDCOR 

000004R 

025 

A. IMP  = 

000010 

CHR.CC= 

000003 

C.IDEN= 

OCjOIO 

D.DROP= 

000002 

EOF   = 

104475 

BADDIR= 

104463 

CHR.CR= 

000015 

C.NAME= 

000102 

D.ENCD= 

000002 

ERR«AX= 

000166 

BADERR= 

104437 

CHR.CZ= 

000032 

C.NCBf  = 

000400 

D.EQ  = 

000000 

ERRNUM 

004772R 

025 

BLARGC= 

♦♦♦♦♦♦  GX 

CHR.6T= 

000046 

C.NUI  ^ 

000020 

D.EXPD= 

000002 

ERRPTR 

004770R 

025 

BLZBUB 

005116R 

025 

CHR.LF= 

000012 

COP  = 

000004 

D.FGET= 

000005 

ERRO 

004774R 

025 

BRSELF 

005046R 

025 

CHR.LTr 

000043 

C.OPN  = 

010000 

D.FMT  = 

000004 

EXEBUF 

005054R 

025 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C.RDLN= 

1 77776 

D.FPNT= 

000005 

EXPeiG 

000356R 

002 

CNA^€X 

003060R 

025 

CHR.SL= 

000057 

C.REWT= 

002000 

D.FPUT= 

000005 

EXP1 

000266R 

002 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C.RND  = 

000010 

D.6E  = 

000000 

E$CT 

005056R 

025 

CNAN01 

000330R 

025 

CHR.TB^ 

000011 

C.SBITr 

1 77756 

D.GT  = 

000000 

E$PT 

005060R 

025 

CHAN02 

0005 12R 

025 

CHR.UL= 

000106 

C.SPFX= 

000100 

D.IBM  = 

000002 

FA.APO= 

000100 

CHAN03 

000674R 

025 

CHR..A= 

000141 

C.SPGL= 

000200 

D.IND  = 

000002 

FA.CRE= 

000010 

CNANCK 

001056R 

^25 

CMR..E= 

000145 

C.SPLX= 

000001 

D.INNR= 

000013 

FA.DU= 

001000 

CHANGS 

001240R 

025 

CHR..S= 

000163 

C.SPRS= 

000002 

D.INTRr 

000006 

FA.ENB= 

1000CO 

CHAN06 

001422R 

025 

CHR..T= 

000164 

C.SRC  = 

y7777U 

D.LE  = 

000000 

FA.EXC= 

002000 

CHAN07 

001604R 

025 

CHR..U= 

000165 

C.SRCP= 

000024 

D.L06  = 

000001 

FA.EXT= 

000004 

CHAN06 

001766R 

025 

CMR..Z= 

000172 

C.TT  = 

000004 

D.LT  = 

000000 

FA.NSP= 

000100 

CNAN09 

0021 SQR 

025 

CHR..0= 

000060 

C.WIDC= 

1 7777(i 

D.MM  = 

000000 

FA.NSR= 

000200 

CHAN10 

002332R 

025 

CHR..1= 

000061 

C.WIDR= 

1 77772 

D.MEM  = 

000002 

FA.POS= 

010000 

CHAN11 

0025 14R 

025 

CH.AND= 

000001 

DEBUG  = 

000000 

D.MIN  = 

000000 

FA.RD  = 

000001 

CHAN12 

002676R 

025 

CJRTAB 

OOOOOOR 

002  DEFERR= 

104405 

D.MUL  = 

000000 

FA.RWD= 

004000 

CHAN13 

000022R 

023  CLOSEO 

00?224RG 

020  DEVJL 

005114R 

025 

D.NE  = 

000000 

FA.SEQ= 

040000 

CHANU 

000204R 

023 

CtWfUf 

00i?50R 

025 

DEVNTF= 

104470 

D.^f^  = 

000000 

FA.SHRr 

000040 

C>HOPH= 

104471 

CMD«AX= 

000010 

DFXDIM= 

•••♦••  GX 

D.NR  '- 

000000 

FA.TMP= 

000020 

CHRAND= 

000051 

CNEG4 

00054  2R 

020  DIGITS 

000006R 

025 

D.OR  = 

000000 

FA.WCM 

020000 

CHRBEL  = 

000007 

CNTSJZ 

00513JR 

025 

Olf^AX   = 

000020 

D.PLUS= 

000000 

FA.WRT= 

000002 

CHR8KR= 

000133 

CCMBIN 

005076R 

811 

DIMBIK 

0031 1?R 

025 

D.PSUB= 

000006 

FD.BLK= 

000010 

CHR8a  = 

000200 

COMCNT 

0051^-6R 
104425 

DIMPTR 

0031 14R 

0?5  D.PWR  = 

000001 

FD.CCL= 

000002 

CHRRnX  = 

000114 

CaMERR= 

DIMTyP 

0031 16R 

104A66 

104417 

025 

D.OQADr 

000000 

FD.COH= 

020000 

CHRC«A:= 

000054 

COMPTR 

005122R 

III 

DIRFUL= 

D.OUAD^ 

000000 

FD.CR  '- 

000002 

CHRca^ 

000076 

C0MP1 

001016R 

DO«ERR= 

D.RES  = 

000000 

FD.DIR= 

000010 

CHRDEL^ 

000107 

COMRTN 

003156R 

DPTERR^ 

104416 

D.RHO  = 

OOOOOQ 
000005 

FD.FTN= 

000001 

CHROIV^ 

000053 

CCMSICP 

005124R 

W^ 

DrDCNT 

003224R 

025 

D.ROT  = 

FD.FIIr 

0400O0 

CHROLR^ 

000176 

CORPTR 

005120R 

DrDTAB= 

••••♦♦  GX 

D.SCON= 

000006 

FD.INS= 

000010 

CMRDIT^ 

000110 

CP0S4 

0005 74R 

020  DSC  IRC 

000464RG 

020  D.SDIFr 
020  D.SUB  = 

000006 

fD.ISP= 

002000 
100000 

CHROOU 

000056 

CS.ASS= 

000200 

DICQMB 

000614RG 

000000 

FD.MNT= 

APLC 
DEFI 
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FD.OSP= 

FD.PLC= 

FD.P»^N= 

FD.PSE= 

FD.RAH= 

FD.RAN= 

'^D.REC= 

FD.RUP^ 

FD.SOI= 

FD.SQD= 

FD.TTY= 

FD.yBH^r 

FF.CHR= 

FF.W  = 

FF.POE= 

FF.RWO= 

FF.RWF  = 

FF.SPC= 

'^;€ADR 

FHRET 

F1LNTF= 

FIS   = 

FISCOW= 

FIXDIH= 

FIXPTR 

FLAGS 

FLARGC= 

FLCBUF 

FLINE 

FLOEXP 

FLCMEG 

FLSMTB 

FLTLEW= 

FNINSI 

FORIGN 

FO.APOs 

FO.MFY= 

FO.RO  = 

F0.UPO= 

FO.yRTr 

FPMGDE 

fppiEm 

FREBLK 
FRESCT= 

FUZZ 

FXPTR1 

F$€VAL= 

FIEVI  » 

F$6XEC« 

F$FUKr 

F.ACTL== 

F.ALOC= 

F.aBFS= 

F.aw  = 

F.BGBCr 
F.BITS= 


004000 

000004 

000004 

010000 

000001 

000002 

000001 

000001 

000020 

000040 

000004 

000002 

000005 

000003 

000002 

000001 

000006 

000004 

00501 2R 

005040R 

104467 

000000 

046000 
******  GX 

003074R 
004764R 
******  GX 

003250R 

00501 4R 

003270R 

003272R 

000222R 

000010 

005044R 

000032R 

000106 

000002 

000001 

000006 

000016 

000042R 

000000 

000004 

007400R 
******  6X 

00Q142R 

Q03076R 

000100 

000200 

QOOhCO 

C01000 

^/6 

>0 


025 
025 


025 
025 

025 
025 
025 
025 
025 

025 
025 


025 


025 

025 
025 


.BICDN= 
.BKDS= 
.BKEF= 
.BKP1= 
.BICST= 
.BKVB^ 
.BR  = 
.CHR  = 
.CNT6= 
.COOE= 
.DFNB= 
.DSPT= 

.EFac=: 
.EFN  = 
.END  = 


.ERR  = 
.FACC= 
.FFBY= 
.FLAG= 
.FLB  = 
.FNA«= 
.FNB  = 
.FNDF= 
.FTYP= 
.FUN  = 
.FVER= 
.HEAD= 
.HIBK- 
.LBL  = 
.LINE^ 
.LOC  = 
.LSTC= 
.LUN  = 
.MBCT= 
.«BC1  = 
.MBFG= 
.HON  s 
.NIL  = 
.NRBOs 
.NREC» 
.OFN  = 
.OVBS- 
.PREV= 
.PRNTr 
.PR0T« 
.RACC= 
.RATTs 

.RCTL= 
.READ= 
.R£OF= 
.RES  = 
.RET  = 
.RS]Z= 
.RTYP= 


000026 
000020 
000050 
000051 
000024 
000064 
000020 
000075 
000034 
000010 
000046 
000044 
000134 
000010 
000050 
002000 
000032 
000052 
000043 
000014 
000002 
000100 
000110 
000102 
000010 
000116 
000010 
000120 
000006 
000004 
000020 
000012 
000004 
000004 
000042 
000054 
000055 
000056 
000002 
000001 
000024 
000030 
110 
)30 


1777n 
0CO002 
000000 


F.R2     = 

F.R3    = 

F.R4     = 

F.SEQN= 

F.SPOV= 

F.SPUN= 

F.STBK= 

F.STK  = 

F.ST0P= 

F.STP  = 

F.SUSP= 

F.T0.I= 

F.TRC  = 

F.UNIT= 

F.URBO= 

F.VAL  = 

F.VBN  = 

F.VBSZ= 

GAMDON 

GAMMA 

GAMTAB 

GETREG^ 

GETSM2= 

GNOME 

HASHC 

HASHTB 

HSHMSK= 

HSHSIZ= 

lASH     = 

KHAN 

lLFNm= 

ILLCHN= 

ILLSW  = 

IMUL     = 

INDERR- 

Iff^TMP 

1NNTM2 

INPm^ 

INSNAH^ 

INTOVR 

lOERR  = 

I.CNT  = 

I.DJM  = 

I.LEN  = 

I.OERR= 

I. OLD  = 

I.PTR  = 

I.STR  = 

KILL     = 

LAflERR= 

L/«LPT 

LARGBL 

LARGCV 

LARGFL 

LARGLE 

lAPGLN 

LARGPT 


000014 
000016 
000020 
000100 
000072 
000074 
000036 
000022 
000004 
000001 
000002 
******  GX 

000002 

000136 

000020 

177776 

000064 

000060 

005044R 

004630R 

002050R 

******  GX 

******  GX 

0031 02R 

005136R 

005140R 

177601 

000200 

******  GX 

005050R 
104464 
104540 
104565 
******  GX 

104410 

003250R 

00501 6R 

000064R 

104462 

0gi665R 

104477 

177776 

1 77772 

oooor, 

1 7777(. 

) 77766 
******  GX 

104406 
005O42R 

16?R 
176R 

160R 
•J174R 
I3166R 
I3164R 


TT 


LARGSF 

LARGTV 

LARGVA 

LBINC 

LBUFF 

LBUFLN= 

LCOUNT 

LENERR= 

LENTAB 

LEXPTR 

LFTOP 

LINC 

LINE 

LINING 

LI  TOP 
LNLN6  = 
LN1 
020  LOCLCT 
020  LOWCOR 
002  LSTERP 
LWIDTH 
L.BITS= 
025  L.CNT  = 
025  L.PRNT= 
025  L.PTR  = 
L.PTRIr 
L.SUBS= 
MACHIN= 
MAXCHNs 
MONBLK 
MONCVT 
MONLEN 
MONPTR 
MONSFT 
MONTYP 
MONVAL 
025  MSEXP 
MIfACT 
MILN 
M.>^  = 
M.80L  = 
M.BXAV^ 
M.8XCR= 
M.BXCTs 
M.axEXs 
M.BXFX= 
M.BXIOs 
M.BXLCs 
M.BXNC- 
5  M.BXNL^ 

5  r.BXPP^ 

«  M.8XPW= 
5  M.BXRL= 
5  M.axTS= 
5  M.BXyAr 

5  M.CEI  = 


025 


025 
025 


020 


0031 72R 
0031 70R 
003200R 
0051 OOR 
00331 6R 
000621 
0051 06R 
104412 
000054R 
0031 OOR 
005066R 
0051 02R 
00501 6R 
005026R 
000020 
005072R 
104541 
0001 56R 
005036R 
000002R 
004766R 
000070R 
000003 
000002 
000001 
000000 
000004 
000002 
000106 
000014 
0031 20R 
0031 32R 
0031 30R 
0031 22R 
0031 26R 
0031 24R 
0031 34R 
000722RG 
000756R6 
I742R6 


§ 


025  M.CHR  = 
025  M.CMT  = 
025  M.D0UT= 
025  M.DQAD^ 
025  M.ENCD= 

M.EXE  = 
025  M.EXP  = 

M.FACT= 
025  M.FIL  = 
025  M.FLR  = 
025  M.FMT  - 
025  M.6DUP= 
025  M.GDiM^ 
025  M.GETI= 

M.IBM  = 
025  M.IDN  = 

002  M.IOTA= 

025  McLIT  = 

025  M.LN  = 

025  M.MMD  = 

025  M.NEG  = 

M.NOT  = 

M.NUB  - 

M.NUM  = 

M.OUTR= 

M.PITM= 

M.PRDS= 

M.OQAD> 

M.OUAD^ 

025  M.RAND- 

025  M.RAVL= 

025  M.RCIP= 

025  M.RDCT= 

025  M.REVS= 

025  M.R0LL= 

025  M.SATA= 

020  M.SCANs 

020  M.SMAP= 

020  M.SIGN^ 

M.SUBR- 

M.SYM  = 

M.SYN  = 

M.TRAN= 

M.IABS^ 

M.ICE1= 

M.$FLR= 

M.SIDN= 

M.$NE&= 

M.ISlGx 

M.1RDT= 

M.1REV= 

M.1SlN= 

NAMBUF 

NBRTRU= 

NB.Dev= 

NB.D1R= 


000202 

ooo:o6 

000006 
000006 
000004 
000000 
OOOC01 
000001 
0001V 
1777  V 
000004 
000003 
000003 
000006 
000003 
OOOCOO 
000006 
000000 
000205 
000001 
000010 
000000 
000000 
000006 
000204 
000012 
000000 
000006 
000000 
000000 
000012 
000000 
000000 
000011 
000003 
000000 
000001 
000011 
000000 
000000 
000001 
000203 
000201 


025 


APL001  MACRO  Ml 1 1 3 

08-FEB-80  09:10  PAGE 

94-3 

D  6 

SYPf>OL  TABLE 

l«.NA«=  000004 

OMODE 

000402R 

023  RTOP 

005070R 

025 

SY.OPN=  000002 

WSDATE 

0001 36R 

025 

NB.S01=  000400 

OPTMPO 

005066R 

025  RT11  = 

000000 

SY.PMT=  001000 

WSFULL= 

104403 

^e.so2=  001000 

0PTMP1 

005070R 

025  R.BITS= 

000003 

SY.SRT=  000400 

WSNAME 

000074R 

025 

re.sm^  ooooao 

0PTMP2 

005072R 

025  R.FIX  = 

000001 

SY.SVC=  000004 

WSTIME 

0001 32R 

025 

NB.STP=  000020 

0PTMP3 

005074R 

025  R.LCT  = 

000002 

SY.SVL=  000200 

SABSF  = 

****** 

GX 

l«.SVR=  000010 

0PTMP4 

005076R 

025  R.LN  = 

000002 

S.AB  =  177776 

SADDD  = 

****** 

GX 

^e.TYP=  000002 

0PTMP5 

0051 OOR 

025  R.LNUri=  000010 

S.ASB  =  100000 

$ADDF  = 

****** 

GX 

l«.VER=  000001 

0PTMP6 

0051 02R 

025  R.NEXT- 

000006 

S.8FHD=  000020 

$CFCC  = 

****** 

GX 

ND.DEV=  000200 

0PTMP7 

005104R 

025  R.OFF  = 

000000 

S.BITS=  000002 

SCLRF  = 

****** 

GX 

ND.EXT=  000002 

0PTMP8 

005106R 

025  R.PREV= 

000004 

S.CHR1=  000003 

$CMPD  = 

****** 

GX 

ND.NAn=  000004 

0PTMP9 

00511 OR 

025  R.PTR  = 

000000 

S.FATT=  000016 

SCMPF  = 

****** 

GX 

ND.PPN=  000100 

OPTM10 

0051 12R 

025  R.SEQ  = 

000003 

S.FDB  =  000140 

$DIVD  = 

****** 

GX 

ND.SEX=  000000 

0PTM14 

0O5026R 

025  R.VAR  = 

000002 

S.FLB  =  040000 

$DIVF  = 

****** 

GX 

ND.$E$=  000020 

ORIGIN 

000030R 

025 

R6 

X000006 

S.FNAM=  000006 

$FIS  = 

****** 

G 

ND.$^#^  000000 

OUTPTR 

000066R 

025  R7 

X000007 

S.FNB  =  000036 

%fPP     = 

****** 

G 

ND,SNS=  000040 

0VR0PR= 

000001 

SAME  = 

,.*****  GX 

S.FNBW=  000017 

tfPPLH^ 

****** 

G 

ND.$PN=  001400 

PATCH 

007344R 

025 

SATAN 

001304RG 

020  S.FNTY=  000004 

$LDCFD= 

****** 

GX 

NE6SGN  005063R 

025  PI 

******  QX 

SATAN1 

001324R 

020  S.FTYP=  000002 

$LDCIF= 

****** 

GX 

NINPT1  003302R 

025  PRECSN 

000052R 

025 

SI 

X000005 

S.LEN  =  000002 

$LDD  = 

****** 

GX 

NINPT2  003300R 

025  RANDAC 

003064R 

025 

SIDAMN= 

104433 

S.LINK=  177774 

$LDEXP= 

****** 

GX 

NINSTK  003304R 

025  RANDY 

003062R 

025 

SIFRAM 

00331 4R 

025 

S.NFEN=  000020 

$LDF  = 

****** 

GX 

NINT«P  00331 OR 

025  RANERR= 

104411 

SIN1 

000036R 

002 

S.TYPE=  140000 

$LDFPS= 

****** 

GX 

NINTYP  003306R 

025  RARGBL 

003204R 

025 

SIN2 

000046R 

002 

S.VAL  =  000000 

$MACHN= 

****** 

G 

NOTAVL=  104472 

RARGCT= 

******  QX 

SIST.^K 

006350R 

025 

TKDIMS  005072R 

025 

SMODD  = 

****** 

GX 

N0T0PN=  104473 

RARGCV 

003220R 

o;5 

SITOP 

006346R 

025 

TKFRAM  005C66R 

025 

SMODF  = 

****** 

GX 

NPRT1   004762R 

025  RARGFL 

003202R 

o;5 

SITP 

0071 44R 

025 

TKLEFT  005070R 

025  SMULD  = 

****** 

GX 

NULL    00/364R 

025  RARaE 

00321 6R 

025 

SIUARN=  000200 

TMODE   000403R 

023  SMULF  = 

****** 

GX 

NUHCHW=  000020 

RARGLN 

00321 OR 

025 

SIZTAB 

000044R 

025 

TMPTAG=  000166 

SNEGF  = 

****** 

GX 

NIIDFL  003230R 

025  RARGPT 

003206R 

025 

SI.BIT= 

177774 

TTYBUF  0041 40R 

025 

SRSTS  = 

****** 

G 

NUMEFL  003233R 

025  RARGSF 

00321 4R 

025 

SI.LEN= 

1 77772 

TTYLEN=  000622 

$RSX     = 

****** 

G 

NUMESN  003236R 

025  RARGTY 

00321 2R 

025 

SI,RET= 

^ 77772 

TURKEYS  104436 

$RT11  = 

****** 

G 

NUHFLG  003230R 

025  RARGVA 

003222R 

025 

SI.VAL= 

177776 

TYPE  =000166 

$STCDI= 

****** 

GX 

NIM.EN  000062R 

025  RBASE 

005074R 

025 

SKPS12 

0051 34R 

025 

T.Ba  =  020000 

$STCFI= 

****** 

GX 

NUPf€6  00.3232R 

025  RCOUNR 

0051 12R 

025 

SPHOLD 

000004R 

024 

T.CON  =  004000 

$STD  = 

****** 

GX 

NUMQfL  003234R 

025  RCOUNT 

00511 OR 

025 

SPIHIJ 

0000C2R 

024 

T.DIM  =  000100 

$STEXP= 

****** 

GX 

Nllf^IG  003231 R 

025  REDCNT 

005070R 

025 

STKINC= 

000774 

T.FUN  =  010000 

$STF  = 

****** 

GX 

fOWID  003226R 

025  REDIGN 

005066R 

025 

STOP  = 

104420 

T.LIST=  000400 

$STFPS= 

****** 

GX 

NUMZFL  003235R 

025  REDOFF 

005072R 

025 

SUBCNT 

0031 04R 

025 

T.LIT  =  000020 

SSIJRD  = 

****** 

GX 

NyiERR=  104432 

REENTR 

003060R 

025 

SUBDCT 

0031 06R 

025 

T.MON  =  000010 

SSUBF  = 

****** 

GX 

N.BLSZ=  000036 

REGTYP=  000002 

SUBPTR 

00311 OR 

025 

T.NIL  =  000004 

STSTD  = 

****** 

GX 

N.DESC=  000020 

RES8IT 

0031 42R 

025 

SYMB1 

005344R 

025 

T.NUM  =  002000 

$T5TF  = 

****** 

GX 

N.DEV  =  000032 

RES8LK= 

******  QX 

SYMF 

005340R 

025 

T.OPFN=  000001 

.ACOS 

000366RG 

002 

N.DEVN=  000034 

RESCVT 

0031 52R 

025 

SYMPT1 

005346R 

025 

T.OTHR=  040000 

.ACOSH 

004226RG 

020 

N.DID  =  000024 

RE SERR= 

104440 

SYMTAB 

005352R 

025 

T.SOP  =  000002 

.ASIN 

000430RG 

002 

H.O\/m=  000032 

RESLEN 

0031 50R 

025 

SYMTBF= 

104404 

T.SP0P=  000040 

.ASINH 

004272RG 

020 

N.EXT  =  000014 

RESPTR 

0031 40R 

025 

SYMTOP 

005350R 

025 

T.TMP  =  000200 

.ATAN 

000622RG 

002 

N.FID  =  000000 

RESSFT 

0031 46R 

025 

SYMTP 

006272R 

025 

T.VAL  =  100000 

.ATANH 

0041 40RG 

020 

N.FNA«=  000006 

RESTYP 

003; 44R 

025 

SYMyRN=  000054 

T.VAR  =  001000 

.BOaE= 

000002 

N.FTyP=  000014 

RESULT 

0031 36R 

025 

SYNERR= 

10^407 

UPPER  =  177400 

.CHARA= 

000000 

N.FVER=  000016 

RESVAL 

0031 54R 

025 

SYSERR= 

1U4402 

UTNAME  000344R 

023 

.COS 

002254RG 

020 

N.I^AME^  000006 

RINC 

005104R 

025 

SYS TAT 

OOOOOOR 

024 

VALERR=  104413 

.COSH 

001 61 ORG 

002 

N.NEXT=  0000.^2 

RLTBAS 

005066R 

025 

SY.aAD= 

000001 

VARBLE  007400R 

025 

.DEF.  = 

000002 

N.PPN  =  000C24 

ROT INC 

0O5070R 

025 

SY.BRK= 

100000 

VARBLS  OOOOOOR 

025 

.EXP 

0034 50RG 

020 

N.STAT=  000020 

ROUND 

00001 OR 

025 

SY.BS  = 

000010 

VERNl/1  OOOOOOR 

025 

.FACT 

004320RG 

020 

N.UNn=  000034 

ROVER 

00331 2R 

025 

SY.CLR= 

000040 

VRSION=  000002 

.FLOAT= 

000006 

GBUFLN=  001000 

RSTS  = 

000000 

SY.ERP= 

000020 

WIDTH   0OO072R 

025 

.FSRCB= 

****** 

G 

OCHAN   005052m 

025  RSX   = 

000115 

SY.N0U= 

000100 

yROUND  000020R 

025 

.INTEG= 

000004 

API 
DEF 
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.LN 

00301 2RG 

020  .SIN 

002270RG    020  .SORT  =  ****••  6X 

.TANH 

001672RG    002  ...TPC=  000020 

.MOLUN 

00040AR 

023  .SINH 

001526RG    002  .TAN    002734RG 

020 

...GBL= 

000000 

■  noS* 

000000 
000000 

000 
001 

TABLES 

002230 

002 

MQNTB 

000000 

003 

DYDTB 

000000 

OOA 

ROPTB 

000000 

005 

nONBTB 

000000 

006 

DYD6TB 

000000 

007 

rOMTB 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCIHI 

000000 

013 

OVRTBL 

000000 

014 

TRNTBl 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

005102 

020 

PATCH 

000000 

021 

$$FSR1 

000000 

022 

DEF$0 

000406 

023 

DEFSI 

000006 

024 

DEFS2 

007A00 

025 

ERRORS 

DETECTED: 

0 

VIRTUAL 

MEWORY  USED:   K008  WORDS   (  55  PAGES) 
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MEWORY: 

15534  WORDS 

(  59  PAGES) 
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TT 


1  .TITLE  APL002 

2  . I DENT  \V02.03\ 
3 

4  ;THIS  IS  USED  WHEN  ASSEMBLING  APLOP  TO  ^Ef^lHE   A  NEW  OVERLAY  SEGMENT 

5  .-CONTAINING  OPERATOR  ROUTINES.  IN  THE  CDTWN  DEFINITION  FILE, 

6  ;'OVROPR'  IS  DEFINED  AS  ZERO.  IF  IT  IS   DEFINED  AS  ONE  BEFORE  APLOP 

7  ;IS  ASSE/«LED,  ONLY  THE  CODE  DESIGNATED  FOR  THE  OPERATOR  OVERLAY  IS 

8  .-ASSEMBLED.  THEREFORE.  THE  COMMAND  TO  ASSEMBLE  APL002  IS: 
9 

10  ;      APL002  < APL002.APL0P 

12 

13        000002  OVROPR=  2  .-OVERLAY  SPECIFIED  OPERATORS 


M  6 

APL002 
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5 

;-f-f 

;  FUNCTIONAL  DESCRIPTION: 

8 

THIS  MODULE  CONTAINS  THE  CODE  FOR  MOST  APL  OPERATORS  WHICH 

9 

HAVE  BEEN  IMPLEMENTED  SO  FAR.  TWO  MACROS  ARE  USED  TO  DEFINE 

10 

OPERATOR  ROUTINES.   'DOPINS'  DEFINES   A  DYADIC  OPERATOR,  AND 

11 

•MOPINS'  DEFINES  A  MONADIC  OPERATOR.  THE  ARGUMENTS  TO  THE 

12 

MACROS  ARE  THE  NAME  OF  THE  OPERATOR  ROUTINE  AND  THE  OPERATOR 

15 

NUMBER  FOR  THE  OPERATOR  (WHICH  CAN  BE  FOUND  BY  LOOKING  IN 

14 

•VTAB').  FOR  DYADIC  SCALAR  OPS,  THE  LEFT   ARG  IS  IN  AC1,  THE 

15 

RIGHT  ARG  IS  IN  AC2,  AND  THE  RESULT  IS  RETURNED  IN  ACO.  FOR 

16 

MONADIC  SCALAR  OPS,  THE  ARGUMENT  IS  IN  AC1,  AND  THE  RESULT 

17 

IS  RETURNED  IN  ACO.   SCALAR  OPS  MUST  LEAVE  THEIR  ARGUMENTS 

18 

INTACT! 

19 

•  .. 

2A 

27 

12A 

125 

.•THESE  MACROS  ARE  FOR  OVERLAY  CODE.   THEY  ARE  USED  THE  SAME  AS 

126 

.-RESIDENT  MACROS.   THE  DIFFERENCE  COMES  IN  THE  WAY  THEY  WORK.   THE 

127 

;*PRMRES'  MACRO,  FORCES  ALL  CODE  BETWEEN  IT  AND  THE  NEXT  MFTFVLIST' 

128 

;T0  NOT  BE  ASSEMBLED.   THE  "MOPINS*  AND  'DOPINS'  DON'T  PUT  ANYTHING  IN 

129 

;ANY  TABLES.  OTHER  THAN  THAT  THEY  WORK  BASICLY  THE  SAME  AS  THE  RESIDENT 

130 

.•MACROS. 

131 

132 

.MACRO  DOPINS  NAME,NUM,BITS,B020,N0TME 

133 

.IIF    NDF  D.'NAME,  .ERROR  ;D.'NAME  IS  NOT  DEFINED  BY  OVROP! 

13A 

.If   EQ  OVROPR-D.'NAME 

135 

.PSECT  CODE 

136 

D$'NA/^1E:: 

137 

.ENDM 

138 

139 

.MACRO  m^PINS     NAME,NUM,BITS.BOZO,NOTME 

1A0 

.IIF    NDF  M.'NAME,  .ERROR  ;M.'NAME  IS  NOT  DEFINED  BY  OVROP! 

HI 

.IF   EQ  OVROPR-M. 'NAME 

1A2 

.PSECT  CODE 

K3 

.IF   NE  NUM 

HA 

MS'NAME:: 

145 

.ENDC 

146 

.ENDM 

147 

148 

.MACRO  LIST 

149 

.ENDC 

150 

.ENDM 

151 

152 

.MACRO  PRMRES 

153 

.IF   EQ  1 

154 

.ENDM 

155 

159 

;***«**««*•*  ASSEMBLING  THE  FILE!!!!! 

160  007400 

PRMRES 

199 

007400 

LIST 

N  6 
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201  0O7A00 

DOPINS 

PLUS,2,T.S0P,.INTEGERKS.IDN-^CS.ASS 

208  007400 

LIST 

209 

210  007400 

OOPINS 

$PLU,-2 

224  007400 

LIST 

225 

226  007400 

DOPINS 

SUB,4,T.S0P,.INTEGER+CS.IDN 

233  007400 

LIST 

234 

235  007400 

DOPINS 

$SUB,-4 

249  007400 

LIST 

250 

251 

252  007400 

DOPINS 

MUL,6,T.S0P,.INTEGER^-CS.B00L+CS.IDN*CS.0NE+CS.ASS 

264  007400 

LIST 

265 

266 

267  007400 

DOPINS 

$MUL,-6 

284  007400 

LIST 

285 

286  007400 

DOPINS 

DIVJCT.SOP^.FLOAT^CS.BOOL+CS.IDNKS.ONE 

323  007400 

LIST 

324 

325 

326  007400 

DOPINS 

PWR,20,T. SOP,. FLOATKS. BOOL '^CS.IDN'^CS. ONE 

392  007400 

LIST 

393 

394 

395  007400 

DOPINS 

LOG,54,T.SOP,.FLOAT+CS.BOOL 

417  007400 

LIST 

418 

419 

420  007400 

DOPINS 

CIRC, 52, T. SOP, .FLOAT 

477  007400 

LIST 

478 

479 

480  007400 

DOPINS 

MIN, 14, T. SOP,.  INTEGER^-CS. BOOL -J-CS. ASS 

490  007400 

LIST 

491 

492  007400 

DOPINS 

$MIN, -14 

516  007400 

LiST 

517 

518 

519  007400 

DOPINS 

MAX,16,T.S0P,.INTEGERKS.B00L*CS.ASS 

529  007400 

LIST 

530 

531  007400 

DOPINS 

$MAX,-16 

555  007400 

LIST 

556 

557 

558  007400 

DOPINS 

RES,12,T.S0P,.INTEGERKS.800L*CS.IDN 

589  007400 

LIST 

590 

591 

592  007400 

DOPINS 

$RES,-12 

616  007^00 

LIST 

617 
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619  O07A0O 

639  007^ao 
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TT 


APLI 
MIXI 


DOPINS     C0MB,22.T.S0P,.FL0AT+CS.800L^CS.1DN^CS.0NE 
LIST 
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641  007400  DOPINS 

652  007400 

653 

654 

655  007400  DOPINS 

662  007400 

663 

664 

665  007400  DOPINS 

676  007400 

677 

678  007400  DOPINS 

687  007400 

688 

689 

690  007400  DOPINS 

700  007400 

701 

702  007400  DOPINS 

712  007400 

713 

714 

715  007400  DOPINS 

733  007400 

734 

735  007400  DOPINS 

745  007400 

746 

747 

748  007400  DOPINS 

758  007400 

759 

760 

761  007400  DOPINS 

780  007400 

781 


CT 


AND,42,T.S0P,.BOOLEAN^CS.IDN^CS.0NE^CS.ASS 
LIST 


OR,40,T.SOP,.BOaEANKS.IDNKS.ASS 
LIST 


NN,46,T.S0P,.B0aEAN 
LIST 

NR,44,T.S0P..B0aEAN 
LIST 


LT,24,T.LIT*T.S0P,.CHARACTER*CS.IDN 
LIST 

LE,26.T.LIT^T.S0P,.CHARACTERKS.IDN^CS.0NE 
LIST 


EQ,30,T.LIT^T.SOP,.CHARACTERKS.IDN^CS.0NE 
LIST 

GE,36,T.LIT*T.SOP,.CHARACTER^CS.IDN'^CS.0NE 
LIST 


GT,32,T.LlTtT.SOP,.CHARACTER>CS.IDN 
LIST 


NE,34,T.LIT*T.SJP,.CHARACTER*CS.IDN 
LIST 
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783  007400 

MOPINS 

FLRJ4,T.S0P,.INTEGER+CS.B00L+CS.FL0AT,M$IDN 

786  007400 

LIST 

787 

788  007400 

MOPINS 

CEIJ6,T.S0P,.1NTEGER+CS.800L+CS.FL0AT,M$IDN 

791  007400 

LIST 

792 

793  007400 

MOPINS 

IDN,2,T.S0P,.INTEGER*CS.B00L 

799  007400 

LIST 

800 

801 

802  007400 

MOPINS 

$IDN,-2 

808  007400 

LIST 

809 

810 

811  007400 

MOPINS 

$FLR,-14 

855  007400 

LIST 

856 

857 

858  007400 

MOPINS 

$CEI,-16 

868  007400 

LIST 

869 

870 

871  007400 

MOPINS 

NE6,4,T.S0P,. INTEGER 

878  007400 

LIST 

879 

880  007400 

MOPINS 

$^iEG,-4 

887  007400 

LIST 

888 

889 

890  007400 

MOPINS 

SIGN, 6, T. SOP,.  INTEGERKS.800L+CS. FLOAT 

901  007400 

LIST 

902 

903  007400 

MOPINS 

$SIG,-6 

914  007400 

LIST 

915 

916 

917  007400 

MOPINS 

RCIP,10,T.SOP,.FLOAT^CS.BOOL 

928  007400 

LIST 

929 

930  007400 

MOPINS 

EXP, 20, T. SOP,. FLOAT 

939  007400 

LIST 

940 

941 

942  007400 

MUPINS 

LN,54,T.SOP,.FLOAT+CS.BOOL 

949  007400 

LIST 

950 

951 

952  007400 

MOPINS 

PITM, 52, T. SOP,. FLOAT 

959  007400 

LIST 

960 

961  007400 

PRMRES 

966  007400 

LIST 

967 

968 

969  007400 

MOPINS 

ABS,12,T.S0P,.INTEGER^CS.8O0L 

977  007400 

LIST 

978 

AR 

ni) 


T — T 
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ET 


AP 
Ml 


979 

992 

993 

994 

995 

1002 

1003 

1004 

1005 

1031 

1032 

1033 

1034 

1057 


007400 
007400 


007400 
007400 


007400 
007400 


007400 
007400 


MOPINS  $A8S,-12 
LIST 


MOPINS  FACT, 22, T. SOP,. FLOAT^CS.BOOL 
LIST 


MOPINS  NOT, 50 
LIST 


MOPINS  ROLL,  100 
LIST 
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1059  OO7A0O  DOPINS 

1187  007AOO 


7"T 


Al 

M] 


DEAL , 1 00 
LIST 


6~T 
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1189  0O7A0O 

MOPINS     SHAPJ02 

1211   007400 

LIST 

1212 

1213 

1214 

1215 

1216 

1217  007400 

DOPINS     RHO,102 

1313  007400 

LIST 

A 

M 


H 
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1315  007400 

MOPINS  RAVL,56 

1325  007400 

LIST 

1326 

1327 

1328 

1329 

1330 

1331  007400 

DOPINS  CTLM,56 

15%  007400 

LIST 

^ 
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ERRORS 

1598  007A00 

MOPINS 

IOTA, 72 

1632  007A00 

LIST 

1633 

163A 

1635 

1636 

1637 

1638  007400 

DOPINS 

imj2 

1639 

.S8TTL 

MIXED  FUNCTION 

INDEX  OF 

1640 

1641  000000 

CALL 

GETREG 

;GET  SOME  REGISTERS  AND  BITS 

1642  000004 

122763 

000001  000002 

CMP8 

*1,A.DIMS(R3) 

;LEFT  A  VECTOR? 

1643  000012 

002001 

BGE 

1$ 

;YES,  FINE 

1644  000014 

104411 

RANERR 

;BAD  LEFT  ARG 

1645  000016 

042700 

1 7771^ 

1$: 

BIC 

/r*C<A.NUM>,RO 

; CLEAR  OUT  GARBAGE 

1646  000022 

010002 

MOV 

R0,R2 

; SOURCE  TYPE  IS  BIGGER  OF  TWO 

16^>7  000024 

001004 

BNE 

2$ 

;IT  IS  NUMERIC 

1648  000026 

042701 

1 7777^ 

BIC 

**C<A.NUM>,R1 

; CLEAR  OUT  GARBAGE 

1649  000032 

001066 

BNE 

8$ 

; TYPES  DON'T  MATCH 

1650  000034 

000406 

BR 

3$ 

; ...  GO 

1651 

1652  000036 

042701 

1 7777^ 

2$: 

BIC 

#*C<A.NUM>,R1 

; CLEAR  GARBAGE  BITS 

1653  000042 

001462 

BEQ 

8$ 

;NOT  SAME,  ERROR 

1654  000044 

020201 

CMP 

R2,R1 

; WHICH  TYPE  BIGGER? 

1655  000046 

002001 

BGE 

3$ 

;EVIDENTLY,  THE  1ST 

1656  000050 

010102 

MOV 

R1,R2 

;N0,  IT'S  THE  2ND 

1657  000052 

016237 

OOOOOOG  005122' 

3$: 

MOV 

C0MCT(R2),C0MPTP 

; COMPARE  ROUTINE 

1658  000060 

006302 

ASL 

R2 

; TIMES  2 

1659  000062 

006302 

ASL 

R2 

;  "   4 

1660  000064 

060200 

ADD 

R2,R0 

;LEFT  ARG  FETCH  ROUTINE 

1661  000066 

016037 

OOOOOOG  003176' 

MOV 

LARGCT(RO),LARGa 

i/  ;S0  HERE  IT  IS 

1662  000074 

060201 

ADD 

R2,R1 

;RI6HT  ARG  FETCH  ROUTINE 

1663  000076 

016137 

OOOOOOG  003220' 

MOV 

RARGCT(R1),RARGC 

i/  ;S0,  HERE  IT  IS 

1664  000104 

010400 

MOV 

R4,R0 

;COPY  POINTER  TO  RIGHT  ARG 

1665  000106 

012701 

000004 

MOV 

#. INTEGER, R1 

; RESULT  TYPE  IS  INTEGER 

1666  000112 

CALL 

GETSM2 

;GET  SAME  SIZE  ARRAY 

1667  000116 

PUSH 

A.ALEN(R3) 

;SAVE  LENGTH  OF  LEFT  ARG 

1668  000122 

011001 

MOV 

aRO,Rl 

; POINT  TO  1ST  ELEMENT 

1669  000124 

011403 

MOV 

aR4,R3 

;POINT  TO  1ST  ELEMENT  OF  RIGHT 

1670  000126 

016404 

000004 

MOV 

A.ALEN(R4),R4 

;GET  #  OF  ELEMENTS 

1671  000132 

001424 

BEQ 

7$ 

; NOTHING  THERE 

1672 

1673 

;PR0CESS  NEXT  ARG  IN  RIGHT  ARRAY 

1674 

1675  000134 

4$: 

CALL 

aRARGCV 

;FETCH  RIGHT  ARG 

1676  000140 

013702 

003164' 

MOV 

LARGPT.R2 

;POINT  TO  1ST  ELEMENT  IN  LEFT  ARG 

16//  000144 

011600 

MOV 

(SP), RO 

;GET  COUNT  FOR  INNNER  LOOP 

1678  000146 

001407 

BEQ 

6$ 

;NOTHING  THERE,  EVIDENTLY 

1679 

• 
• 

1680 

;  INNER 

LOOP  - 

DO  COMPARES 

1681 

• 

m 

1682  000150 

5$: 

CALL 

aLARGCV 

;GET  LEFT  ARG 

1683  000154 

CALL 

aCOMPTR 

; COMPARE  WITH  RIGHT  ARG 

1684  000160 

001402 

BEQ 

6$ 

\U   EQUAL,  STOP  LOOP 

1685  000162 

SOB 

R0,5$ 

;LOOP  FOR  EACH  ELEMENT 

1686 

• 

9 

1687 

;MARK  A 

HIT  IN 

THE  RESULT  ARRAY 
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1688 

1689  000166  161600 

1690  000170  0O5A00 

1691  000172  063700  000030' 

1692  000176  010021 

1693  000200 

1694  00020A  005726 

1695  000206 
1696 

1697  000210     104417 
1699  000212 


TT 


6$: 

SUB 

(SP), RO 

•THE  NEGATIVE  OF  POSITION 

NEG 

RO 

•NOW,  JH^  POSUIQH  IN   THE  ARRAY 

ADD 

ORIGIN, RO 
R0,(R1)* 

;PLUS  THE  ORIGIN 

MOV 

; STORE  THE  RESULT 

SOB 

R4,4$ 

;LOOP  FOR  ALL 

7$: 

TST 
RETURN 

(SP)^ 

;POP  ELEMENT 

8$: 

DOMERR 
LIST 

t 

[UNEQUAL  TYPES 
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1701  000212 

1709  000212 

1710 

1711 

1712 

1713 

1714 

1715  000212 

1789  000212 


DOPINS 


1  COM, 124 
LIST 


DOPINS 


C0MP,60,T.DIM 
LIST 
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MIXED  FUNCTION 

INDEX  OF 

1791  000212 

DOPINS 

1EXPJ30 

1792 
1793 
1794  000212 

.S8TTL 

MIXED  FUNCTION 

1 

•IRST  CO-ORDINATE  EXPANSION 

CALL 

GETREG 

( 

;LOAD  SOME  REGISTERS 

1795  000216 

012702 

000001 

MOV 

*1,R2 

i 

;USE  DIM  1 

1796  000222 

CALL 

FIXDIM 

( 

;SET  UP  DIM  POINTER 

1797  000226 

000137 

000236' 

JMP 

EXPND1 

1 

;D0  EXPANSION 

1799  000232 

LIST 

1800 

1801 

1802 

1803 

' 

1804 

1805  000232 

DOPINS 

EXPD,62 

'  T.DIM 

1806 
1807 
1808  000232 

.S8TTL 

MIXED  FUNCTION 

EXPANSION 

CALL 

DFXDIM 

',SET   UP  DIMENSION  POINTER 

1809  000236 

013701 

003170' 

EXPND1 : 

MOV 

LARGTY.RI 

1 

;GET  LEFT  ARG  TYPE 

1810  000242 

001001 

BNE 

1$ 

( 

;YES 

1811  000244 

104417 

DOWERR 

1 

;N0,  ERROR 

1812  000246 

016137 

OOOOOOG  003176' 

1$: 

MOV 

BLARGC(RI) 

,LARGCV  ;LEFT  ARG  FETCH 

1813  000254 

126327 

000002 

000001 

CMPB 

A.DIMS(R3) 

,M^ 

;1S   LEFT  SCALAR  OR  VECTOR? 

1814  000262 

003401 

BLE 

2$ 

1 

;YES 

1815  000264 

104411 

RANERR 

1 

;N0,  ERROR 

1816  000266 

2$: 

CALL 

NBRTRU 

1 

;GET  THE  M  OF   I'S  IN  LEFT 

1817  000272 

020177 

005122' 

CMP 

Rl,aCOMPTR 

1 

;IS  IT  THE  SAME  AS  THE  DIM  SIZE 

ON  RIGHT? 

1818  000276 

001404 

BEQ 

3$ 

( 

;YES!  GOOD 

1819  000300 

105764 

000002 

TST8 

A.DIMS(R4) 

I 

;1S   THE  RIGHT  SIDE  A  SCALAR? 

1820  000304 

001406 

BEQ 

12$ 

1 

;YES... 

1821  00030e 

104412 

LENERR 

; LENGTH  ERROR  OF  TOO  MANY  OR  TOO 

FEW  1'S 

1822  000310 

020163 

000004 

3$: 

CMP 

RUA.ALEN(R3) 

;ALL  ^'S? 

1823  000314 

001002 

BNE 

12$ 

i 

;N0,  DO  SOME  EXPANSIONS 

1824  000316 

000137 

OOOOOOG 

JMP 

SAME 

4 

;LONG  JUMP  TO  'SAME' 

1825  000322 

016301 

000004 

12$: 

MOV 

A.ALEN(R3). 

,R^     . 

;GET  NEW  DIM  LENGTH 

1826  000326 

116446 

000002 

MOVB 

A.DIMS(R4), 

.-(SP). 

;SAVE  DIM  COUNT 

1827  000332 

112746 

000040 

M0V8 

#CHRSPA,-(SP) 

; STORE  A  SPACE  FOR  NULL 

1828  000336 

005/37 

oo-'l;:* 

TST 

RARGTY 

;1S   IT  NUMERIC? 

1829  000342 

001401 

BEQ 

10$ 

;N0 

1830  000344 

005016 

CLR 

(SP) 

;YES,  SAY  NUMERIC 

1831  000346 

10$: 

CALL 

RESBLK 

; CREATE  THE  RESULT  BLOCK 

1832  000352 

005764 

000004 

TST 

A.ALEN(R4) 

; Anything  there? 

1833  000356 

1834 

1835 

1836 

1837  000360 

001447 

BEQ 

11$ 

;No,  finished 

;D0  THE 

ACTUAL 

EXPAND 

105766 

000002 

TST8 

2(SP) 

( 

;RI6HT  ARG  A  SCALAR? 

1838  000364 

001007 

BNE 

30$ 

t 

;N0... 

1839  000366 

013766 

005134' 

000002 

MOV 

SKPSIZ,2(SP)    : 

;YES,  SO  SET  IT 

1840  000374 

112764 

000001 

000002 

MOVB 

#1.A.DIMS(R4) 

;RESULT  IS  A  VECTOR 

1841  000402 

000402 

BR 

3ii 

;AND  SKIP  AROUND 

1842  000404 

005066 

000002 

30$: 

CLR 

2(SP) 

;N0  FIXUP  WANTED 

1843  000410 

013704 

003206' 

31$: 

MOV 

RARGPT,R4 

;POINT  TO  THE  RIGHT  ARG'S  DATA 

1844  000414 

013702 

003164' 

4$: 

MOV 

LARGPT,R2 

; POINT  TO  THE  LEFT  ARG'S  DATA 

1845  000420 

013703 

003166' 

MOV 

LARGLN,R3 

;GET  THE  LEN  OF  THE  LEFT  ARG 

1846  000424 

013701 

005134' 

5$: 

MOV 

SKPSIZ,R1 

:GET  'SIZE  OF  GROUP' 

1847  000430 

CALL 

iLARGCV 

;CHECK  LEFT  ELEMENT 

1848  000434 

105737 

003200' 

TSTB 

LARGVA 

:IS  IT  ZERO? 
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ITT 


18A9  0OOA40 

001406 

BEQ 

8$ 

;YES 

1850  0OO4A2 

112420 

6$: 

MOVB 

(R4)+,(R0)+ 

;C0PY  DATA 

1851  000444 

SOB 

R1,6$ 

;ALL  OF  IN   THE  GROUP,  PLEASE! 

1852  000450 

166604 

000002 

SUB 

2(SP),R4 

; CHEAT  FOR  SCALAR 

1853  000454 

000403 

BR 

9$ 

:SEE  If   MORE  IN   LEFT 

1854 

1855  000456 

111620 

8$: 

MOVB 

(SP),(R0)+ 

; EXPAND  WITH  FILLER 

1856  000460 

SOB 

R1,8$ 

;FILL  IN  WHOLE  GROUP! 

1857 

1858  000464 

9$: 

SOB 

R3,5$ 

;MORE  IN  LEFT? 

1859  000470 

005337 

005126' 

DEC 

COMCNT 

;DONE  WITH  /^LL  GROUPS 

1860  000474 

001347 

BNE 

4$ 

;N0,  30  DO  VOME  MORE 

1861  000476 

022626 

11$: 

CMP 

(SP)+,(SP)+ 

.-CLEAN  UP  SUCK 

1862  000500 

RETURN 

;YES,  FINALLY!!  (FINIS) 

1864  000502 

LIST 

APL002    MACRO  Ml  113     08-FEB-80  09:16     PAGE  56 

N  r 
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1866  000502 

DOPINS 

DROP, 

104 

1867 

i 

.S8TTL 

MIXED 

FUNCTION                     I 

)ROP 

1868 

1869  000502 

CALL 

TAKCHK 

; CHECK  ON  ARGS 

1870  000506 

010304 

MOV 

R3,R4 

;COPY  LEFT  ARRAY 

1871  000510 

CALL 

SAME 

;WELL,  DO  IT! 

1872  000514 

014504 

MOV 

-(SI),R4 

;SAVE  POINTER 

1873  000516 

014503 

MOV 

-(SI),R3 

;SAVE  BITS 

1874  000520 

014502 

MOV 

-(SI),R2 

;SAVE  RETURN 

1875  000522 

020465 

M777t 

CMP 

R4,SI.VAL(SI)        . 

;SAME  AS  OLD? 

1876  000526 

001002 

BNE 

10$ 

;N0,  ALL'S  OK 

18//  000530 

005065 

\7777k 

CLR 

SI.BIT(SI) 

;DON'T  REALLY  OELETE   IT.. 

1878  000534 

d, 

10$: 

CALL 

KILL 

;D0  AWAY  WITH  ORIGINAL  LEFT 

1879  000540 

010225 

MOV 

R2,(SI)* 

; STACK  RETURN 

1880  000542 

010325 

MOV 

R3,(SI)<- 

; STACK  BITS 

1881  000544 

1882 

1883  000546 

010425 

MOV 

R4,(SI)^ 

;  STACK  POINTER 

010437 

003162' 

MOV 

R4,LARGBL 

;NEW  LEFT  ARG  POINTER 

1884  000552 

011404 

MOV 

(R4),R4 

;POINT  TO  FIRST  ELEMENT 

1885  000554 

010437 

003164' 

MOV 

R4,LARGPT 

;SAVE  ^m%^  ELEMENT  POINTER 

1886  000560 

013703 

003204 • 

MOV 

RARG8L,R3 

;GET  POINTER  TO  RIGHT  ARG  BLOCK 

1887  000564 

062703 

000006 

ADD 

#A.DIM1,R3 

;BUMP  POINTER  TO  DIMS 

1888  000570 

1889 

1890 

013702 

003166' 

MOV 

LARGLN,R2 

;GET  LENGTH  OF  LEFT 

■CONVERT    'DROP'    TO   'TAKE' 

1891 

1892  000574 

012300 

' 

1$. 

MOV 

(R3)^,R0 

;GET  RIGHT 

1893  000576 

005714 

TST 

(R4) 

:GET  LEFT  ARG  VALUE 

1394  000600 

002402 

BLT 

2$ 

;NEGATIVE  LEFT  ARG 

1895  000602 

161400 

SIFI 

(R4),R0 

IPOSITIVE,   SUBTRACT 

1896  000604 

000401 

BR 

3$ 

;G0... 

1897  000606 

061400 

?$: 

ADD 

(R4),R0 

:NEGATIVE,  ADD 

1898  000610 

002001 

5$: 

BGE 

4$ 

;N0 

1899  000612 

005000 

CLR 

RO 

;CLEAR  DIFF 

1900  000614 

005714 

4$: 

TST 

(R4) 

;CHECK  SIGN  OF   LEFT 

1901  000616 

003401 

BLE 

5$ 

;YESI 

1902  000620 

005400 

NEG 

RO 

;NEGATE  DIFF 

1903  000622 

010024 

( 

)$: 

MOV 

R0,(R4)+ 

;SAVE  AS  NEW  ARG  FOR   'TAKE' 

1904  000624 

SOB 

R2,l$ 

;BE  SURE   TO  DO  WHOLE  LEFT  ARG 

1905  000630 

000137 

000640' 

JMP 

TAKEIT 

;D0  THE   TAKING 

1907  000634 

LIST 

1908 

1909 

1910 

1911  000634 

DOPINS 

TAKE, 

114 

1912 

SflTTL 

MIXED 

FUNCTION                     1 

FAKE 

1913 

1914  000634 

CALL 

TAKCHK 

•CHECK  ON  VALIDITY  OF   ARGS 

1915 
1916 
1917 

BR 

TAKEIT 

;FALL   THROUGH  TO   'TAKEIT' 

'^^ 

1918 

••TAKEI 

T'    CREATES  PARAMETER  FRAMES  FOR,   AND   INITIATES    'TAKER', 

1919 

; WHICH 

DOES  THE  ACTUAL  DATA  MOVING.      THE   FRAMES  CREATED  BY    'TAKEIT' 

1920 

;ARE  USED  TO 

DECIDE  WHAT  AND  WHERE   TO  COPY,   AND  WHEN  TO  SKIP  FOR 

1921 

;EACH  DIM.     ONE  FRAME   IS  CREATED 

FOR  EACH  DIM  OF    THE   RESULT,   PLUS 

1922 

;ONE  EXTRA  FRAME  FOR  SIGNALLING  ' 

FHE  END  ON  THE   RECURSION  CHAIN 

1923 

;AND   THE  LAST 

DIM  HAS  BEEN  REACHED.      THE   FRAMES  ARE: 
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TAKE 

192A 

1925 

**i^*******i^***«i^« 

1926 

♦     RESULT  SKIP     ♦ 

#  OF  BYTES   TO  SKIP  IN  THE  RESULT                                                           | 

1927 

*^*;  **♦♦♦♦»♦♦■♦♦♦•♦ 

1928 

*     SOURCE  SKIP     ♦ 

/ 

r  OF  BYTES  TO  SKIP  IN  THE  SOURCE 

1929 

**«*«-*«**«**i^*««« 

1930 

* 

GROUPS           ♦ 

/ 

r  OF   TINES  TO  RECURSE  ON  LOWER  FRAME 

1931 

V**«****4^**«««*** 

1932 

1933 

'If 

THE 

SKIPS 

;  Ai?E  NEGATIVE 

,   THEY 

ARE  TO  BE  DONE  BEFORE  THE  COPYING. 

193A 

•If 

THEY  ARE 

POSITIVE,  DO  1 

rHEM  AFTERWORDS.     ON  THE  LAST  FRAME   (END-OF-                                             | 

1935 

;LIST  FRAME) 

THE  NUMBER  OF 

TIMES 

IT   IS  TO  BE  RECURSED.   IS  THE  NUMBER 

1936 

•OF 

ELEMENTS 

THAT  ARE  TO  BE  COPIED.      (IE,   TH:  DATA  ELEMENTS  ARE  THE                                                    1 

1937 

;TREE  LEAVES 

AND   'TAXEIT*    ] 

[S  THE 

GUY  WHC  PLANTS   THE  ROOTS) 

1938 

;  — 

1939 

19A0 

1941   0006A0 

1 

FAKEIT: 

CALL 

GETREG 

;GET  SOME  REGISTERS  LOADED 

1942  000644 

016301 

000004 

MOV 

A.ALEN(R3) 

.R1 

;LEN  OF   LEFT   (#  OF  DIMS  IN  RIGHT) 

1943  000650 

PUSH 

R1 

;SAVE  M  OF  DIMS 

1944  000652 

005201 

INC 

R1 

;INC  TO  ADD  1   EXTRA  FRAME 

1945  000654 

MUL 

#6,R1 

;MAKE  LEN  OF  FRAME  AREA 

1946  000670 

010100 

nOV 

R1,R0 

;COPY  LEN 

1947  000672 

CALL 

GET COR 

rGET  CORE  FOR  FRAMES 

1948  000676 

010037 

005066* 

MOV 

RO,TKFRA« 

;SAVE  POINTER  TO  FRAMES  BLOCK 

1949  000702 

060100 

ADD 

R1,R0 

;POINT  TO  END  OF   FRAMES  BLOCK 

1950  000704 

016302 

000004 

MOV 

A.ALEN(R3) 

,R2    ; 

;GET  LEN  OF  LEFT   (0  OF   DIMS  OF   RIGHT) 

1951   000710 

005302 

DEC 

R2 

;ONE  LESS  FOR  CORRECTNESS  OF  POINTERS 

1952  000712 

01 1 303 

MOV 

(R3),R3 

;POINT  TO  RIGHT  DATA 

1953  000714 

062704 

000006 

ADD 

#A.DI«1,R4 

;POINT  TO  LEFT  DIMS 

i954  000720 

006302 

ASL 

R2 

;MULTIPLY  BY  2   (WORDS) 

1955  000722 

060204 

ADD 

R2,R4 

;POINT  TO  LAST  DIM 

1956  000724 

060203 

ADD 

R2,R3 

;POINT   TO  LAST  LEFT  ARG 

1957  000726 

010337 

005070' 

MOV 

R3,TKLEFT 

;SAVE  POINTER  TO  LEFT  ARGS 

1958  000732 

010437 

005072' 

MOV 

R4,TKDI«S 

;SAVE  POINTER  TO  RIGHT  DIMS 

1959  000736 

012701 

000001 

MOV 

4f1,R1 

; INITIALIZE  SOURCE  SKIP  PRODUCT   TO  1 

1960  000742 

010103 

MOV 

R1,R3 

; INITIALIZE  RESULT  SKIP  TO  1    TOO 

1961   000744 

005040 

CLR 

-(RO) 

;ZERO  LAST  FRAME 

1962  000746 

005040 

CLR 

-(RO) 

; SKIPS   TOO! 

1963  000750 

005040 

CLR 

-(RO) 

;BOTH  OF    'EM 

1964 

1965 

CREATE 

FRAMES 

1966 

( 

1967  000752 

017704 

005070*                   ^ 

1: 

MOV 

aTKLEFT,R4 

;GET  f  FROM  LEFT 

1968  000756 

005040 

CLR 

-(RO) 

;ZERO  M  TO  TAKE 

1969  000760 

005040 

CLR 

-(RO) 

;ASSl/1E  NO  SOURCE  SKIPS 

1970  000762 

005040 

CLR 

-(RO) 

;AND  NO  RESULT  SKIPS 

1971   000764 

010402 

MOV 

R4,R2 

;COPY  ARG 

1972  000766 

1973  000770 

100OO1 

BPL 

n 

■NEGATIVE? 

005402 

N6G 

•YES.  MAKE  POSITIVE 

1974  000772 

4 

5S: 

PUSH 

<R1,R3> 

•SAVE   CURRENT  SKIP  PRODUCTS 

1975  000776 

167702 

005072* 

SUB 

iTKDI«S,R2 

;SUBTRACT  OFF   RIGHT  DIM 

1976  001002 

013703 

003212* 

MOV 

RARGTY,R3 

;GET  RIGHT  ARG  TYPE 

1977  001006 

ASH 

SIZTA8(R3) 

,R2 

;MULTIPLY  BY  PRECISION 
; RE  STORE  R3 

1978  001022 

011603 

MOV 

iSP, R3 

1979  001024 

005702 

TST 

;IS  THIS  A  NEGATIVE   SKIP? 

1980  001026 

100011 

BPL 

;N0 

APL( 
MIXf 


TT 
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TAKE 

1981 

1982 

•LOAD 

SOURCE  SKIP 

1983 

1984  001030 

005402 

NEC 

R2 

;MAKE  ?^%U\Ml 

1985  001032 

MUL 

R2,R1 

;MULTIPLy  BY  NUMBER  OF  ELEMENTS  TO  SKIP 

1986  00104A 

010160 

000002 

MOV 

RK2(R0) 

;SAVE  AS  SKIP  FOR  FRAME 

1987  001050 

000406 

BR 

loi 

1988 

1989 

•LOAD 

RESULT  SKIP 

1990 

m 

1991  001052 

J$: 

MUL 

R2,R3 

;ULTIPLY  BY  NUMBER  OF   ELEMENTS  TO  SKIP 

1992  001064 

010510 

MOV 

R3,(R0) 

;SAVE  AS  #  OF  BYTES  TO  SKIP  \fi  RESULT 

1993 

1994  001066 

005704 

10$: 

TST 

R4 

;SKIP  BEFORE  COPY? 

1995  001070 

100004 

BPL 

4$ 

;N0,  AFTER 

1996  001072 

005404 

NEG 

R4 

;MAKE  LEFT  AR6  POSITIVE 

1997  001074 

005410 

NEG 

(RO) 

;NEGATE  SKIPS 

1998  001076 

005460 

000002 

NEG 

2(R0) 

;ALL  TUO  OF  EM 

1999  001102 

4$: 

POP 

<R3,R1> 

;RESTORE  SKiP  PRODUCTS 

2000  001106 

MUL 

R4,R3 

;MULTIPLY  BY  RESULT  SKIP  PRODUCT 

2001  001120 

013702 

005072* 

MOV 

TKDIMS,R2 

jGRAB  CURRENT  DIM  POINTER 

2002  001124 

MUL 

(R2), R1 

;MULTIPLY  FOR  NEW  SOURCE  SKIP  PRODUCT 

2003  001136 

021204 

CMP 

(R2), R4 

;IS  DIM  LESS  THEN  LEFT  ARG? 

2004  001140 

103001 

BHIS 

6$ 

;N0 

2005  001142 

011204 

MOV 

(R2),R4 

',\^%l  DIM  FOR  NUWBER  TO  RECURSE 

2006  001144 

162737 

000002     005072' 

6$: 

Sin 

#2,TKDIMS 

;SAVE  NEW  DIM  POINTER 

2007  001152 

010460 

000004 

MOV 

R4,4(R0) 

;LOAD  #  TO  RECURSE   (*  OF  SIB-GROUPS) 

2008  001156 

162737 

000002     005070' 

SUB 

K^2,TKLEFT 

;MOVE   TO  NEXT  LEFT  # 

2009  001164 

005316 

DEC 

(<%?) 

;DONE  WITH  LEFT  ARG 

2010  001166 

003271 

BGT 

1$ 

;N0 

2011 

2012 

•CREATE  RESULT 

BLOCK 

2013 

2014  001170 

013704 

003204 • 

XX3: 

MOV 

RARGBL,R4 

;POINT   TO  LEFT  ARG  DATA 

2015  001174 

010301 

MOV 

R3,R1 

;COPY  RESULT  LEN 

2016 

2017  001176 

013700 

003212' 

MOV 

RARGTY,RO 

;GET  RIGHT  ARG  TYPE 

2018  001202 

ASH 

SIZTAB(R0),R3 

;MULTIPLY  BE  PRECISION 

2019  001216 

116400 

000002 

MOVB 

A.DIMS(R4),R0 

;GET  n  OF  DIMS 

2020  001222 

CONINC 

RO 

; CHEAT  FOR  SCALAR 

2021  001226 

006300 

ASL 

RO 

TIMES  2 

2022  001230 

062700 

000006 

ADD 

#A.DIM1,R0 

;OVERHEAD  FOR  OTHER  STUFF 

2023  001234 

PUSH 

RO 

;SAVE  SIZE  FOR  LATER 

2024  001236 

060300 

ADD 

R3.R0 

;PREP  FOR  GET 

2025  001240 

CALL 

GETFRA 

;Get  result,  SI   frame  for  it 

2026  001244 

062620 

ADD 

(SP)*, (RO)* 

;ADD  OFFSET  TO  DATA 

2027  001246 

005724 

TST 

(R4)* 

;POINT  TO  BITS 

2028  001250 

032714 

003000 

BIT 

#A.^JUM♦400,(R4)   , 

; NUMERIC? 

2029  001254 

001003 

BNE 

8^ 

:Yes 

2030  001256 

042765 

002000     1 771H. 

BIC 

#T.NUM,SI.BIT(Sl! 

>;Say  so  on  the  SI 
;#  OF  DIMS 

2031  001264 

112420 

8$: 

MOVB 

(R4)*,(R0)* 

2032  001266 

2033  0012/0 

0('1002 

BNE 

11$ 

;NOT  A  SCALAR 

105260 

1 77717 

INCB 

-KRO) 

;N0  5CALAR5  ALLOWED 

2034  001274 

2035  001300 

112710 
1 53720 

000200 

11$: 

MOVB 

4fA.ASB,(R0) 

;ASSlf€  LITERAL 

003212' 

BIS8 

RARGTY/RO)* 

;SET  RESULT   TYPE  BITS 

2036  001304 

010^^0 

MCV 

RK'ROS 

;LOAD  LENGTH  CF   ARRAY 

2037  00130^) 

013704. 

003162' 

i>10V 

LA6gBL,R4 

;POINT   TO  LEFT  BLOCK 

APL 
MIX 


D~T 
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TAKE 

2038  001312 

016402 

000006 

MOV 

A.DIM1(R4) 

,R2   . 

;6ET  LEN  OF  LEFT 

2039  001316 

011404 

MOV 

(R4),R4 

; POINT  TO  Dm  FA 

2O40 

20A1  001320 

9$: 

PUSH 

(R4)  + 

;6ET  n   FROM  LEFT 

2042  001322 

002001 

BGE 

10$ 

;WANT  ABS  VALUE 

2043  001324 

005416 

NEC 

asp 

;S0,  NOW  IT'S  POSITIVE 

2044  001326 

10$: 

POP 

(R0)  + 

'Jl)k   IT  AS  A  DIM 

2045  001330 

SOB 

R2,9$ 

;SEF  IF  MORE 

2046 

2047  001334 

016500 

1 1177 t 

MOV 

SI.VAL(SI) 

,R0 

'Cet  pointer  to  resuL*"  block 
;Is  tne  result  a  null  array? 

2048  001340 

005760 

000004 

TST 

A.ALEN(RO) 

2049  001344 

001002 

BNE 

12$ 

;No 

2050  001346 

005726 

TST 

^%?)^ 

;Yes,  Clean  up  the  stack 

2051  001350 

000432 

BA 

XX2 

;And  get  out  of  here  fast 

2052  001352 

011000 

12$: 

MOV 

(RO),RO 

;Now  point  to  the  result  data 

2053  001354 

010002 

MOV 

R0,R2 

;COPY  POINTER 

2054  001356 

012703 

000040 

MOV 

/rCHRSPA,R3 

;ASSUME  FILLING  WITH  SAPCES  FOR  ZEROING 

2055  001362 

005737 

003212' 

TST 

RARGTY 

; NUMERIC? 

2056  001366 

001411 

BEQ 

TAKEOl 

;N0 

2057  001370 

013703 

003212* 

MOV 

RARGTY, R3 

;GET  RESULT  TYPE 

2058  001374 

ASH 

SIZTAB(R3) 

,Ri    : 

[MULTIPLY  BY  PRECISION 

2059  C01410 

005003 

CLR 

R3 

;FILL  WITH  ZEROS 

2060 

2061  0'  i412 

110322 

TAKEOl : 

M0V8 

R3,(R2)+ 

;'ZERO'  ARRAY 

2062  0v;1414 

SOB 

R1, TAKEOl 

; WHOLE  THING 

2063 

2064  001420 

005216 

INC 

(<%?) 

; REPEAT  ONCE  (CREATE  ROOT  SP  FRAME) 

2065  001422 

PUSH 

<TKFRA«> 

: POINTER  TO  FIRST  FRAME 

2066  001426 

013704 

003206' 

MOV 

RARGPT,R4 

;POINT  TO  RIGHT  DATA 

2067  001432 

CALL 

TAKER 

;CALL  DATA  MOVER 

2068  001436 

013700 

005066' 

XX2: 

MOV 

TKFRAM^RC 

;POINT  TO  PARAMETER  FRAMES 

2069  001442 

CALL 

RETCOR 

;GET  RID  OF  IT 

2070  001446 

RETURN 

■AND  WE'RE  ALL  DONEII.'II! 

2071 

2072 

;•♦■ 

2073 

;'TAKCHK'  CHECKS  THE  VALIDITY  OF 

THE  AR6S  FOR  'TAKE'  AND  'DROP' 

2074 

;- 

2075 

2076  001450 

TAKCHK: 

CALL 

GETREG 

;GER  SOME  REGISTER  VALUES 

2077  001454 

116302 

000002 

MOVB 

A.DIMS(R3) 

,R2    ; 

; VECTOR  OR  SCALAR? 

2078  001460 

005302 

DEC 

R2 

•.•SCALAR  OR  VECTOR? 

2079  001462 

003023 

BGT 

3$ 

-NO,  RANK  ERROR 

2080  001464 

116402 

000002 

MOVB 

A.DIMS(R4) 

,R2    ; 

•RIGHT  SIDE  #  OF  DIMS 

2081  001470 

CONINC 

R2 

•ADJUST  FOR  SCALAR 

2082  001474 

020263 

000004 

CMP 

R2,A.ALEN(R3) 

•LEFT  SAME  LEN  AS  DIMS  ON  RIGHT? 

2083  001500 

001015 

BNE 

4$ 

;N0! 

2084  001502 

010502 

MOV 

SI,R2 

•POINT  VO  LEFT  ARG 

2085  001504 

012701 

000004 

MOV 

#. INTEGER,! 

^1     ; 

;WE  WANT  TO  BE  INTEGER 

2086  001510 

CALL 

CONVERT 

•CONVERT  TO  INTEGER 

2087  001514 

016503 

1 7777 t 

MOV 

SI.VAL(SI) 

,R3    ; 

•POINT  TO  ARG 

2088  001520 

010337 

003162' 

MOV 

R3,LARGBL 

•SAVE  POINTER 

2089  001 524 

011337 

003164' 

MOV 

aR3,LARGPT 

•AND  POINTEr  TO  DATA 

2090  001530 

RETURN 

•ALL  OK!  SO  RETURN 

2091 

2092  001532 

104411 

3$: 

RANERR 

•RANK  ERROR 

2093  001534 

104412 

4$: 

LENERR 

•LENGTH  ERROR 

2094 

API 

MI) 


TT 
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TAKE 

2095 

2096 

;TKFRAM 

=  OPTMPO 

^POINTER  TO  FRAME  BLOCK  FOR  'TAKEIT' 

2097 

;TKLEFT 

=  0PTMP1 

. 

; POINTER  TO  NEXT  LEFT  ELEf^NT   FOR 'TAKEIT' 

2098 

;TKDIMS 

=  0PTMP2 

^POINTER  TO  NEXT  DIM  FOR  'TAKEIT' 

2099 

2100 

; • TAKER 

•  RECURSES  TO  DO  THE  ACTUAL  TAKING  FOR  'TAKE'  AND  'DROP'  OP'S 

2101 

;USIN6 

THE  FRAMES  CREATED  BY  'TAKEIT'  AND  CREATING  SP  FRAMES  AS  IT 

2102 

;RECURSES.  THE 

SP  FRAMES  CONSIST  OF;                                             1 

2103 

2104 

COUNT  FOR  THIS  LEVEL  (GOES  TO  ZERO)                                        1 

2105 

POINTER 

TO  'TAKEIT'  FRAME  TO  USE 

2106 

RETURN  POINTER 

2107 

2108 

2109  001536 

013703 

005072' 

TAKER; 

MOV 

TKDIMS,R3 

;GET  ff   OF  DIMS 

2110  001 5A2 

005713 

TST 

(R3) 

;HOW  MANY  DIMS? 

2111  001544 

001447 

BEQ 

TAKER2 

;NONE,  FINISHED  W/0  STARTING 

2112  001546 

016603 

000002 

TAKER1 ; 

MOV 

2(SP),R3 

;GET  DIM  FRAME  POINTER 

2113  001552 

012302 

MOV 

(R3)*,R2 

^RESULT  SKIP  BEFORE  COPY? 

2114  001554 

100001 

BPL 

1$ 

;N0 

2115  001556 

160200 

SUB 

R2,R0 
(R3)+,R2 

; SUBTRACT  NEGATIVE  NUMBER  FOR  SKIP 

2116  001560 

012302 

1$: 

MOV 

; SOURCE  SKIP  BEFORE  COPY? 

2117  001562 

100001 

BPL 

2$ 

;N0 

2118  001564 

160204 

SUB 

R2-R4 

;SKIP  SOURCE 

2119  001566 

005713 

2$: 

TST 

(R3) 

;END  OF  FRAMES? 

2120  001570 

001016 

BNE 

6$ 

;N0 

2121 

2122 

;END-OF 

-FRAMES 

DO  ACTUAL  COPYING                                              1 

2123 

2124  001572 

016601 

000004 

MOV 

4(SP),R1 

;GET  ELEMENTS  TO  COPY 

2125  001576 

013702 

003212' 

MOV 

RAR6TY,R2 

;GET  ARG  TYPE 

2126  001602 

ASH 

SIZTAB(R2),R1   . 

; CONVERT  TO  BYTE  COUNT 

2127 

2128  001616 

112420 

3$: 

MOVB 

(R4)*,(R0)^ 

;COPY  CHR 

2129  001620 

SOB 

RK3$ 

;D0  ALL  THE  CHRS  WANTED 

2130  001624 

000417 

BR 

TAKER2 

; FINISHED 

2131 

2132 

;  RE  CURE 

TO  NEXT 

LOWER  LEVEL 

2133 

2134  001626 

6$: 

PUSH 

<(R3)^,R3> 

; CREATE  FRAME 

2135  001632 

CALL 

TAKER1 

;RECURSES!  FOILED  AGAIN! 

2136  001636 

016603 

000002 

MOV 

2(SP), R3 

;GET  FRAME  POINTER 

2137  001642 

012302 

MOV 

(R3)*,R2 

iRESULT  SKIP  AFTER  COPY? 

2138  001644 

100401 

BMI 

7$ 

•NO 

2139  001646 

060200 

ADD 

R2,R0 

;SKIP  RESULT 

2140  001650 

012302 

7$; 

MOV 

(R3)*,R2 

•SOURCE  SKIP  AFTER  COPY? 

2141  001652 

100401 

BMI 

8S 

;N0 

2142  001654 

060204 

ADD 

R2,R4 

;SKIP  SOURCE 

2143  001656 

005366 

000004 

8$: 

DEC 

4(SP) 

•DEC  REPEAT  COUNTER  TO  SEE  IF  DONE 

2144  001662 

001331 

BNE 

TAKER1 

;NOT  DONE,  DO  AGAIN 

2145  001664 

TAKER2: 

POP 

R2 

•YES,  GET  RETURN  TO  PREVIOUS  LEVEL 

2146  001666 

022626 

CMP 

(SP)^,(SP)^ 

:CLEAN  ARCS  OFF  STACK 

2147  001670 

000112 

JMP 

(R2) 

•RETURN  UPWARD 

2149  001672 

LIST 

AP 
MI 


"TT 


rr 
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TAKE 

2151  001672 

MOPINS 

1REVJ46 

2160  001672 

LIST 

2161 

2162 

2163 

21 6A 

2165 

2166  001672 

MOPINS 

REVSJAA 

220A  001672 

LIST 

AF 

MJ 


TT 
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2206  001672  DOPINS 

22U  001672 

2215 

2216 

2217 

2218 

2219 

2220  001672  DOPINS 

2328  001672 


TT 


1R0TJ46 
LIST 


R0TJ44,T.DIW 
LIST 


in 
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2330  001672  MOPINS 

2A15  001672 


H"T 


TRAN,126 
LIST 


TT 
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IB 


2A17  001672 
2654  001672 


DOPINS 


TRAN,126 
LIST 


TT 
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2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
266A 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
267A 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 


001672 


PAGE  61 


DOPINS 
.S8TTL 


TT 


001672 
001676 
001702 


013702 
013700 
001001 


003162' 
003170* 


001704  104417 


001706 
001712 
001716 
001720 
001726 
001734 
001736 
001740 
001742 
001746 


001754 
001760 
001764 
002000 
002002 
002006 
002012 
002020 


013703 
013701 
001772 
016137 
016037 
020100 
003401 
010100 
010037 
016037 


016301 
010137 

101741 
116304 
116200 

060400 


000004 
005106* 


000002 
000002 


ENCD,76 

MIXED  FUNCTION 


ENCODE 


RETURNS  REPRESENTATION  OF  RIGHT  AR6  IN  NUMBER  SYSTEM  OF  LEFT  ARG. 
THE  ROUTINE  USES  SO  MANY  POINERS  AND  CONSTANTS  BECAUSE  OF  THE  UGLY  WAY 
ENCODE  EXTENDS  TO  ARRAYS  OF  HIGH  ORDER.  ESSENTIALLY  THE  EVALUATION  HAS 
TO  BE  DONE  BACKWARDS  FROM  BOTTOM  TO  TOP,  AND  THREE  NESTED  LOOPS  ARE 
REQUIRED  TO  PRODUCE  THE  RESULT. 

CONSTANT  ASSIGNMENTS: 


OPTMP  (N) 


CCNT 

RBASE 

0PTMP5 

RINC 

LCOUNT 

RCOUNT 

RCOUNR 

RARGPT 

LARGPT 

0PTMP6 

RESPTR 

UGH! 


(2) 
(3) 

(7) 
(8) 
(9) 
(10) 


USE 

INNER  LOOP  COUNT  iM   OF  ROWS  IN  LEFT  ARG) 

PRIMARY  RESULT  BASE  POINTER 

INNER  LOOP  RESULT  BASE  INCREMENT  (-VOLUME  OF  RIGHT  ARRAY) 

RESULT  POINTER  INCREMENT 

OUTER  LOOP  COUNT  (VOLUME  OF  RIGHT  ARG) 

INNER  LOOP  BASE  COUNT 

INNER  LOOP  BASE  COUNT  RESET 

POINTER  TO  CURRENT  RIGHT  ARG 

PRIMARY  LEFT  ARG  BASE 

CURRENT  LEFT  BASE 

CURRENT  RESULT  BASE 


CHECK  ARGUMENT  CONFORMITY 


1$: 
2$; 


003204 • 
003212* 

OOOOOOG  003220* 
OOOOOOG  003176* 


003144*        22$ 
OOOOOOG  003152* 


MOV 
MOV 
BNE 

DOMERR 

MOV 
MOV 
BEQ 
MOV 
MOV 
CMP 
BLE 
MOV 
MOV 
MOV 


LARGBL,R2 
LARGTY.RO 
2$ 


RARGBL,R3 

RARGTY,R1 

1$ 

FRARGC(RI) 

FLAR6C(R0) 

Rl.RO 

22i 

R1,R0 

RO,RESTYP 

FRESCT(RO) 


POINT  TO  LEFT  ARG 
GET  LEFT  ARG  TYPE 
YES,  flNE 


;BAD  ARGS 


;POINT  TO  RIGHT  ARG 

;GET  RIGHT  ARG  TYPE 

;OOPS 
,RARGCV  ;The  Fetch  Routine 
,LARGCV  ;'The  Other"  Fetch  Routine 

; Which  Type  is  Bigger? 

;The  Left  >  The  Right 

;The  Right  >  The  Left 

;Sav/e  Result  Type 
,RESCVT  .-Result  Conversion  Routine 


CALCULATE  SIZE  OF  RESULT  AND  ALLOCATE  RESULT  BLOCK 


MOV  A.ALEN(R3),R1 

MOV  R1AC0UNT 

MUL  A.ALEN(R2),R1 

BLOS  1$ 

M0V8  A.DIMS(R3),R4 

M0V8  A.DIMS(R2),R0 

PUSH  <R4,R0,R1> 

ADD  R4,R0 


GET  VOLUME  OF  RIGHT  ARG 

SAVE  AS  OUTER  LOOP  COUNT 

TOTAL  VOLUME  OF  RESULT 

TOO  BIG  OR  TOO  SMALL 

#  OF  DIMS  ON  LEFT 

»   OF  DIMS  ON  RIGHT 

RIGHT  DIMS,  LEFT  DIMS,  RESULT  ALEN 

»   OF  DIMS  IN  RESULT 


TT 


APL002  MACRO  M1113  08-FEB-80  09:16  PAGE  61-1 

K  6 

MIXED  FUNCTION 

ENCODE 

2713  002022 

PUSH 

RO 

jSAVE  TO  FILL  IN  HEADER 

2714  002024 

CONINC 

RO 

;;INCR  FOR  SCALAR 

2715  002030 

006300 

ASL 

RO 

; CONVERT  TO  WORD  COUNT 

2716  002032 

062700 

000006 

ADD 

*A.DIM1,R0 

;ADD  OVERHEAD 

2717  002036 

PUSH 

RO 

;SAVE  OFFSET  TO  DATA 

2718  002040 

013704 

003144' 

MOV 

RESTYP,R4 

;Get  Result  Type 

2719  002044 

ASH 

SIZTAB(R4),R1 

^Multiply  Time 

2720  002060 

060100 

ADD 

R1,R0 

; TOTAL  SIZE  OF  RESULT  BLOCK 

2721 

4 

2722 

1 

•FILL  IN  RESULT 

HEADER 

2723 

i 

2724  002062 

CALL 

GETFRA 

;Get  result,  SI  frame  for  it 

2725  002066 

062620 

ADD 

(SP)+, (R0)+ 

;Add  Offset  to  Data 

2726  002070 

112620 

MOVB 

(SP)+, (R0)+ 

;^   OF  DIMS 

2727  002072 

113710 

003144' 

MOVB 

RESTYP,(RO) 

^RESULT  IS  ALWAYS  NUMERIC 

2728  002076 

1 52720 

000200 

BIS8 

#A.ASB,(RO)+ 

;Flaq  as  Array 
;ALEN  OF  RESULT 

2729  002102 

012620 

MOV 

(SP)+, (R0)+ 

2730  002104 

POP 

R4 

;*  OF  DIMS  OF  LEFT  AR6 

2731  002106 

010201 

MOV 

R2,R1 

;COPY  POINTER  TO  LEFT  ARG 

2732  002110 

062701 

000006 

ADD 

/TA.DIMI.RI 

;POINT  TO  FIRST  DIM 

2733  002114 

005704 

TST 

R4 

;1S   LEFT  ARG  A  SCALAR? 

2734  002116 

001403 

BEQ 

10$ 

;;YES,  SO  SKIP  LOOP 

2735 

2736  002120 

012120 

' 

5$:     MOV 

(R1)"»',(R0)  + 

;COPY  LEFT  ARC'S  DIM  LIST 

2737  002122 

SOB 

R4,3$ 

2738 

2739  002126 

014137 

005072 • 

10$:    MOV 

-(R1),CCNT 

;LAST  DIM  ON  LEFT  IS  IMPORTANT  CONSTANT  1 

2740  002132 

POP 

R4 

;»   OF  DIMS  OF  RIGHT  ARG 

2741  002134 

CONINC 

R4 

jCheat  For  Scalar 

2742  002140 

010301 

MOV 

R3,R1 

;POINT  TO  RIGHT  ARG 

2743  002142 

062701 

000006 

ADD 

*A.DIM1,R1 

;POINT  TO  RIGHT  ARG'S  DIM  LIST 

2744 

2745  002146 

012120 

4$:     MOV 

(R1)^,(R0)^ 

;COPY  RIGHT  ARG'S  DIM  LIST 

2746  002150 

SOB 

R4,4$ 

2747 

1 

2748 

t 

•INITIALIZE  POINTERS  AND  COUNTS 

2749 

i 

2750  002154 

016501 

1 77776 

MOV 

SI.VAL(SI),R1 

; POINT  TO  RESULT 

2751  002160 

016100 

000004 

MOV 

A.ALEN(R1),R0   . 

;GET  ITS  LENGTH 

2752  002164 

011101 

MOV 

(R1),R1 

;MAKE  POINTER  TO  RESULT  ABSOLUTE 

2753  002166 

013704 

003144' 

MOV 

RESTYP,R4 

;Get  Result  Type 

2754  002172 

ASH 

SIZTAB(R4),R0   . 

;  Times  Element  Size  (In  Bytes) 

2755  002206 

060001 

ADD 

R0,R1 

; POINT  PAST  END  OF  RESULT 

2756  002210 

2757 

2758  002214 

010137 

005074 ' 

MOV 

RI^RBASE 

;T0  GET  RESULT  BASE  POINTER 

016300 

000004 

MOV 

A.ALEN(R3),R0   . 

;GET  LENGTH  OF  RIGHT  ARG 

2759  002220 

013704 

003212' 

MOV 

RARGTY,R4 

;Get  Right  Arg  Type 
;Offset  for  Last  Element 

2760  002224 

005300 

DEC 

RO 

2761  002226 

ASH 

SIZTAB(R4),R0   . 

;Get  Right  Arg  Length 
;POINT  PAST  END  OF  RIGHT  ARG 

2762  002242 

2763 

2764  002246 

060037 

003206' 

ADD 

R0,RARGPT 

016201 

000004 

M0\/ 

A.ALEN(R2),R1 

■GET  LENGTH  OF  LEFT  ARG 

2765  002252 

005301 

DEC 

R1 

•MINUS  1  TO  POINT  AT  LAST  ELEMENT! 

2766  002254 

013704 

003170' 

MOV 

LARGTY,R4 

;Get  Left  Arg  Type 

2767  002260 

ASH 

SIZTAB(R4),R1   . 

; CONVERT 

2768  002274 

060137 

003164' 

ADD 

R1,LARGPT 

;POINT  PAST  END  OF  LEFT  ARG 

2769 

TT 
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2770  002300 

016201 

000004 

MOV 

A.ALEN(R2),R1 

;6ET  LEFT  ALEN 

2771  00230A 

020162 

000006 

CMP 

R1,A.DIM1(R2)   . 

; VECTOR  OR  SCALAR? 

2772  002310 

001003 

BNE 

6$ 

;NOPE 

2773  002312 

010137 

005072' 

MOV 

RUCCNT 

;YES,  SO  CCNT  IS  LENGTH  OF  VECTOR 

277A  002316 

000411 

BR 

7$ 

; CONTINUE 

2775  002320 

005000 

6$: 

CLR 

RO 

; CLEAR  FOR  DIVIDE 

2776  002322 

DIV 

CCNT,RO 

jDIVIDE  ALEN  BY  LAST  DIM 

2777  002336 

010037 

005072' 

MOV 

RO^CCNT 

;T0  GET  CCNT 

2778 

2779  0023A2 

016201 

000004 

7$: 

MOV 

A.ALEN(R2),R1 

;GET  LENGTH  OF  LEFT  ARG  AGAIN 

2780  002346 

005000 

CLR 

RO 

; CLEAR  FOR  DIVIDE 

2781  002350 

DIV 

CCNT,RO 

jDIVIDE  BY  CCNT 

2782  00236A 

010037 

005112' 

MOV 

RO^RCOUNR 

;T0  GET  COUNT  RESET 

2783  002370 

005400 

NEG 

RO 

'.OFFSETS  NEGATIVE   (MOVE  BACKWARDS) 

2784  002372 

PUSH 

RO 

jSave  M  of  Elements 

2785  002374 

013704 

003170' 

MOV 

LARGTy,R4 

;Get  Left  Arg  Type 

2786  002400 

ASH 

SIZTA8<R4),R0   . 

; CONVERT  FOR  FLOATING  POINT  DATA 

2787  002414 

010037 

003160' 

MOV 

RO.LARGFL 

;T0  GET  LEFT  ARG  INCREMENT 

2788  002420 

POP 

RO 

r Res tore  The  Count 

2789  002422 

MUL 

A.ALEN(R3),R0 

^MULTIPLY  BY  VOLUME  OF  RIGHT  ARG 

2790  002436 

005301 

DEC 

R1 

^OFFSET  FOR  AUTO-INCREMENT 

2791  002440 

013704 

003144' 

MOV 

RESTYP,R4 

;6ET  RESULT  TYPE 

2792  002444 

ASH 

SIZTAB(R4),R1 

;D0  A  SHIFT 

2793  002460 

010137 

005104' 

MOV 

RKRINC 

;T0  GET  RESULT  INCREMENT 

2794  002464 

016300 

000004 

MOV 

A.ALEN(R3),R0   < 

;3ET  RIGHT  ARC'S  VOLUME 

2795  002470 

013704 

0031 44 • 

MOV 

RESTYP,R4 

;6et  The  Result  Type 

2796  002474 

ASH 

SIZTAB(R4),R0 

; CONVERT 

2797  002510 

005400 

NEG 

RO 

;OFFSET  IS  NEGATIVE 

2798  002512 

010037 

005100' 

MOV 

R0,OPTMP5 

;AND  SAVE  AS  BASE  INCREMENT 

2799 

;MAIN  LOOPS  OF 

ENCODE  PROCESS.  1 

•IRST  SET  UP  COMMON  CONSTANTS 

2800 

• 

2801  002516 

DOENCD: 

LDF 

#V1.0,AC0 

;GET  1.0 

2802  002526 

STF 

AC0,AC4 

;Put  It  in  AC4 

2803  002534 

013703 

003206' 

MOV 

RARGPT,R3 

; POINT  TO  RIGHT  ARG 

2804  002540 

005437 

003202' 

NEG 

RARGFL 

;   1s  Back  Two 

2805 

2806 

•RESET 

FOR  NEXT 

RIGHT  ARGUMENT 

2807 

m 

2808  002544 

013700 

003144' 

1$: 

MOV 

RESTYP,RO 

;Get  Result  Type 

2809  002550 

166037 

000054'  005074' 

SUB 

LENTA8(R0),RBASE. 

;BACK  UP  PRIMARY  RESULT  BASE 

2810  002556 

013/37 

003164'  005102' 

MOV 

LARGPT,0PTMP6 

;RESET  LEFT  BASE 

2811  002564 

013737 

005074'  003140' 

MOV 

RBASE,RESPTR 

;RESET  RIGHT  BASE 

2812  002572 

013737 

005112'  005110' 

MOV 

RCOUNR^RCOUNT 

;RESET  RESULT  BASE  COUNTER 

2813  002600 

CALL 

aRARGCV 

;Fetch  Right  Arg 

2814  002604 

STF 

AC2,AC5 

•SAVE  THE  ARG 

2815 

2816 

•RESET 

FOR  NEXT 

LEFT  GROUP 

2817 

m 

2818  002612 

H: 

LDF 

AC5,AC2 

•GET  NEW  RIGHT  VALUE 

2819  002620 

013702 

005102' 

MOV 

0PTMP6,R2 

•LEFT  ARG  POINTER 

2820  002624 

013701 

003140' 

MOV 

RESPTR.R1 

;RESULT  POINTER 

2821  002630 

2S22 

2823 

013700 

005072' 

MOV 

CCNT,RO 

•COMBINE  COUNT 

•ENCODE 

CURRENT 

ARGUMENT  WITH  RESPECT  TO  CURRENT  LEFT  GROUP                            1 

2824 

m 

2825  002634 

i$: 

CALL 

aLARGCV 

;Get  The  Next  Left  Arg 
•RETURN  REMAINDER  OF  ARG 

2826  002640 

STF 

AC:.,ACO 

M~S" 
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2827 
2828 
2829 
2830 
2831 
2832 
2833 
283A 
2835 
2836 
2837 
283? 
2839 
28A0 
2841 
28A2 
2843 
284A 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2856 


002646 
002654 
002660 
002662 
002670 


002672 
002676 
002704 
002710 
002712 
002720 
002724 
002726 
002732 
002734 

002736 
002744 
002750 
002756 
002762 

002764 
002770 
002772 
002774 


001004 
000413 


TSTF 

CFCC 

BNE 

CLRF 

BR 


AC1 

4$ 

AC2 

5$ 


GET  NEXT  REPRESENTATION 


4S: 


001403 


104402 
063701 
005300 
001337 

063737 
013700 
166037 
005337 
003313 

005337 
003265 


5$; 


005104* 


005100*  003140' 
003170' 

000054'  005102' 
005110' 


005106' 


CALL 

SUBF 

CFCC 

BEO 

DIVF 

CALL 

SYSERR 

ADD 

DEC 

BNE 

ADD 
MOV 
SUB 
DEC 
B6T 

DEC 
BGT 

RETURN 
LIST 


D$$RES 
AC0,AC2 

5$ 

AC1,AC2 

aRESCVT 

RINCRI 

RO 

3$ 


; Check  For  Zero 

; WHICH  IS  A  SPECIAL  CASE 

;AND  ZAP  NUMBER 

; WHICH  WOULD  NORMALLY  BE  TRUNCATED 


R  =  A  !  B 
B  =  B  -  R 
If"b=0  then  USE  NEXT  RIGHT  ARG 

B  =  B  X  A 
Sav/e  Result 
***N0  NO  NO*** 

POINT  TO  NEXT  SLOT  IN  RESULT 
SUBTRACT  1 
AND  PROCESS  REST  OF  LEFT  GROUP 


0PTMP5,RESPTR 

LARGTY.RO 

LENTAB(R0),0PTMP6 

RCOUNT 

2$ 

LCOUNT 
1$ 


INCREMENT  RESULT  BASE 
Get  Left  Arg  Type 

;M0VE  LEFT  BASE  BACK  1  POSITION 
COUNT  THIS  PASS 
MORE  LEFT  GROUPS  TO  PROCESS 

MOVE  TO  NEXT  RIGHT  ARG 
IF   THERE  ARE  ANY 


TTT 
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2858  002774 

I 

)OPINS 

DECD,64 

2859 

.S8TTL 

MIXED  FUNCTION         I 

)ECODE 

2860 

2861 

l-f-f 

2862 

;  RESULT 

IS  RIGHT  ARG  EVALUATED  IN  NUMBER  SYSTEM  OF  LEFT  ARG.                           1 

2863 

; PARSE 

FRAMES  ARE  PLACED  ON  THE  ! 

51  STACK  AND  THE  LEFT  ARG 

2864 

;IS  CONVERTED  TO  'UEIGHT  VECTORS' 

•  SO  THAT  THE  INNER  PRODUCT 

2865 

; ROUTINE  CAN  BE  USED  TO  PRODUCE  " 

THE   RESULT. 

2866 

2867 

•MAKE  SURE  ARGUMENTS  ARE  NUMERIC 

2868 

J  — 

2869  002774 

005737 

003170' 

TST     LARGTY 

;ls   Left  Arz   Nuneric? 

2870  003000 

001001 

BNE     2$ 

;YES 

2871 

2872  003002 

104417 

J 

1$: 

DOMERR 

;BAD  ^AGS 

28/i 

2874  003004 

005737 

003212'        2$: 

TST     RARGTY 

;Poi'\t   to  Right  Arg 

2875  003010 

001 774 

BEQ     1$ 

;N0 

2876 

;•♦• 

2877 

;  CREATE 

PARSE   FRAMES  ON  THE  SI  STACK  TO  FOOL  THE  INNER                                1 

2878 

;PRODUCT  ROUTINE  WHO  IS  GOING  TO 

DO  MOST  OF  THE  WORK. 

2879 

j- 

2880  003012 

SIFRAM  RARGBL,#T.NUM   , 

:Riqht  Arq  (But  not  a  Vail) 

2881  003026 

SIFRAM  *OP.MUL,#T.OPFN+T.S0P    "                                          1 

2882 

4 

jMultiply  Operation  (A+.X«) 

2883  003042 

SIFRAM  *OP.PLU,#T.OPFN+T.SOP                                               1 

2884 

t 

; Addition  Operator 

2885 

;■♦■ 

2886 

;GET  NEW  ARRAY  TO  HOLD  WEIGHTS  FOR  INNER  PRODUCT.   (A  NEW  PARSE                         1 

2887 

; FRAME 

IS  PLACED  ON  THE  SI  STACK 

m 

2888 

;- 

2889  003056 

013700 

003162' 

MOV     LARGBL.RO 

; POINT  TO  LEFT  ARG 

2890  003062 

116002 

000002 

MOVB    A.DIMS(R0),R2 

;GET  NUMBER  OF  DIMS 

2891  003066 

CONINC  R2 

; CONVERT  DIMS  FOR  SCALAR 

2892  003072 

006302 

ASL     R2 

;  CONVERT  TO  WORDS 

2893  003074 

062702 

000006 

ADD     /lfA.DIM1,R2 

;ADD  HEADER  SIZE 

2894  003100 

060002 

ADD     R0,R2 

;T0  POINT  PAST  LAST  DIM 

2895  003102 

022742 

000001 

CMP     /)^1,-(R2) 

;1S   LAST  DIM  1?  (SPECIAL  CASE) 

2896  003106 

001070 

BNE     3$ 

;NOPE 

2897 

;  + 

2898 

;SET  UP 

EXPAv^^ED  ARG  ARRAY 

2899 

;- 

2900  003110 

005037 

003160' 

CLR     LARGFL 

; INCREMENT  IS  ZERO 

2901  003114 

013702 

003204 • 

MOV     RARGBL,R2 

;POINT  TO  RIGHT  ARG 

2902  003120 

016003 

000004 

MOV     A.ALEN(R0),R3   . 

;GET  SIZE  OF  LEFT  ARG 

2903  003124 

016246 

000006 

MOV     A.DIM1(R2),-(SP)< 

;PUSH  FISRT  DIM  OF  RIGHT  ARG 

2904  003130 

MUL     aSP,R3 

;AND  INCREASE  SIZE  OF  RESULT 

2905  003142 

103717 

BCS     1$ 

;T00  BIG 

2906  003144 

PUSH    R3 

;SAVE  SIZE 

2907  003146 

ASH     PRECSN,R3 

;CONVERT  TO  FLOATING  DATA  SIZE 

2908  003162 

102707 

BVS     1$ 

;T00  BIG 

2909  003164 

116002 

000002 

Move    A.DIMS(R0),R2   . 

;GET  NUMBER  OF  DIMS  IN  LEFT  ARG 

2910  003170 

PUSH    R2 

;SAVE  M   OF  DIMS 

2911  003172 

CONINC  R2 

; CONVERT  FOR  SCALAR 

2912  003176 

006302 

ASL     R2 

; CONVERT  TO  WORDS 

2913  003200 

062702 

000006 

ADD     #A.DIM1,R2 

;ADD  HEADER  OFFSET 

2914  003204 

PUSH    R2 

;SAVE  HEADER  SIZE 
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2915  003206 

010200 

MOV 

R2,R0 

;COPY  HEADER  SIZE 

2916  003210 

060300 

ADD 

R3,R0 

rADD  DATA  LENGTH 

2917  003212 

CALL 

GETFRA 

;Get  result,  %\   frame  for  it 

2918  003216 

062620 

ADD 

(SP)^,(RO)^- 

; HEADER  SIZE 

2919  003220 

POP 

R2 

\H  OF  DIMS 

2920  003222 

110220 

MOVB 

R2,(R0)> 

;SAME  #  OF  DIMS 

2921  003224 

CONINC 

^^2          c 

:ADJUST  FOR  SCALAR 

2922  003230 

112720 

000206 

MOVB 

#A. ASB^. FLOAT, (R0)+  .-WEIGHT  IS  NUMERIC                               1 

2923  003234 

012620 

MOV 

(SP)*, (RO)^ 

;ALEN 

2924  003236 

013701 

003162* 

MOV 

LARGBL.RI 

rPOINT  BACK  TO  LEFT  ARG 

2925  003242 

062701 

000006 

ADD 

#A.DIM1,R1 

;POINT  TO  FIRST  DIM 

2926 

2927  003246 

012120 

5$: 

MOV 

(R1)^.(R0)> 

;COPY  DIM  LIST 

2928  003250 

SOB 

R2,5$ 

;ONCE  PER  DIM 

2929  003254 

012660 

1 1777 t 

MOV 

(SP)*. -2(R0) 

;BUT  LAST  DIM  GOT  BIGGER  FOR  CONFORMITY 

2930  003260 

010001 

MOV 

R0,R1 

;DATA  POINTER 

2931  003262 

016500 

1 7777 t 

MOV 

SI.VALCSD.RO   . 

;ARRAY  POINTER 

2932  003266 

000411 

BR 

DECD1 

;AND  CREATE  WEIGHTS 

2933 

;-f 

2934 

;6ET 

WEIGHT  ARRAY  OF  SAME  SHAPE  AS  LEFT  ARG                                         1 

2935 

m 

2936  003270 

013/37 

003174'  003160' 

5$: 

MOV 

LARGLE,LARGFL   . 

;GET  THE  LEFT  ARG  LENGTH 

2937  003276 

005437 

003160' 

NE6 

LARGFL 

;MAKE  IT  A  DECREMENT 

2938  003302 

012701 

000006 

MOV 

#. FLOAT, R1 

;RESULT  IS  FLOAT 

2939  003306 

CALL 

GETSM2 

;GET  SAME  SHAPED  EMPTY  ARRAY 

2940 

2941  003312 

116002 

000002 

DECD1 

:  MOVB 

A.DIMS<R0),R2   . 

;GET  NUMBER  OF  DIMS  IN  LEFT  ARG 

2942  003316 

CONINC 

R2 

;FIXUP  SCALAR 

2943  003322 

006302 

ASL 

R2 

; CONVERT  TO  WORDS 

2944  003324 

060002 

ADD 

R0,R2 

;POINT  PAST  LAST  DIM 

2945  003326 

062702 

000006 

ADD 

#A.DIM1,R2 

rMOVE  POINTER  PAST  HEADER  TO  DIM  LIST 

2946  003332 

014246 

MOV 

-(R2),-(SP) 

;LAST  DIM  GOES  ON  STACK 

2947  003334 

005002 

CLR 

R2 

; CLEAR  FOR  DIVIDE 

2948  003336 

016003 

000004 

MOV 

A.ALEN(R0),R3 

;  VOLUME  OF  ARRAY 

2949  003342 

001477 

BEO 

1$ 

; EMPTY  ARRAYS  NOT  LEGAL 

2950  003344 

DJV 

iSP,R2 

;NlieER  OF  ROWS 

2951  003356 

PUSH 

R2 

;SAVE  ROW  COUNT 

2952  003360 

016002 

000004 

MOV 

A.ALEN(R0),R2   . 

;GET  VOLUME  AGAIN 

2953  003364 

ASH 

PRECSN,R2 

; CONVERT  FOR  FLOATING  POINT  DATA 

2954  003400 

102460 

BVS 

IS 

;T00  BIG 

2955  003402 

060201 

ADD 

R2,R1 

;POINT  PAST  END  OF  RESULT 

2956  003404 

013703 

003162' 

MOV 

LARGBL,R3 

;POINT  TO  LEFT  ARG 

2957  003410 

016302 

000004 

MOV 

A.ALEN(R3),R2 

;GET  ITS  LENGTH 

2958  003414 

005302 

DEC 

R2 

;MINUS  1  SO  WE  POINT  TO  END 

2959  003416 

ASH 

LARGSF,R2 

;MULTIPLY  BY  ELEMENT  SIZE 

2960  0034]  ;2 

102443 

BVS 

1$ 

;T00  BIG 

2961  003434 

063702 

003164' 

ADD 

LARGPT,R2 

;AND  POINT  TO  LAST  ELEMENT  ON  LEFT 

2962  003440 

POP 

R4 

;#  OF  ROWS 

2963  003442 

013700 

003170' 

MOV 

LARGTY,RO      , 

Get  Left  Arg  Type 
;Size  For  Decrement 

2964  003446 

016037 

000054'  005070' 

MOV 

LENTAfl(R0),OPTMP^ 

2965  003454 

016037 

OOOOOOG  003176' 

MOV 

FLARGC(RO),LARGC\ 

/  .-Fetch  RcXitine 

2966  003A62 

011600 

MOV 

(SP), RO 

;Get  the  Minor  Loop  Count 

2967 

;♦ 

2968 

;SET 

UP  WEIGHTS 

2969 

f 

2970  00T464 

10$: 

LDF 

#*F1.0,AC0 

;WEIGHTS  START  WITH  1 

2971  0U3474 

000405 

BR 

13$ 

;AND  LEFTMOST  ARG  IS  IGNORED 

AP«. 
MIX 


C9 


Am 
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C  9 


API 
MI) 


2972 

2973  003A76 

12$: 

CALL 

iLARGCV 

2974  003502 

MULF 

AC1,AC0 

2975  003510 

13$: 

STF 

AC0,-(R1) 

2976  003516 

SOB 

R0/2$ 

2977  003522 

163702  005070' 

SUB 

0PTMP1 .R2 

2978  003526 

011600 

MOV 

(SP) -RO 

2979  003530 

SOB 

R4j6$ 

2980  00353A 

005726 

TST 

iSP)* 

2981 

;  + 

2982 

;D0 

INNER  rpODUCT  TO  OBTA 

2983 

•- 

2984  003536 

tALLR 

D$INNR 

2985 

2986  003542 

104417 

1$: 

DOMERR 

2988  003544 

LIST 

GET  LEFT  Ara 

Multiply   " 

FILL  IN  RESULT  (BACKWARDS) 

PROCESS  ENTIRE  ROW 

Back  Up  1  Element 

RESET  ROW  LENGTH  COUNTER 

AND  PROCESS  NEXT  ROW 

POP  ROW  LENGTH 


;T00  BIGi 


D9 


r 
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AP 

mi: 


2990  0035A4 

3001  00354A 

3002 

3003 

3004  003544 

3219  003544 


MOP INS 


MOP INS 


GDWNJ36,T.DIM 
LIST 


GDUPJ40,T.DIM 
LIST 


■E~y 


mMm^r\^     fc«<  ^  ^  ^  f\a      rrr\     o/\     f\r\  .  A  ^  r^ArT      I.  J 


AC 
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3221  0035AA  MOPINS 

3316  0035AA 


E9 


AF 
Ml 


MMDJ22 
LIST 


T~T 


r 
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F^ 


A 
M 


3318  0035AA 


DOPINS     DMDJ22 


T^ 


r 


2  MACRO  Ki113  08-FEB-80  09:16 
FUNCTION         DECODE 

A   00354A 


PAGE  66 


TT- 


/ 

f* 


LIST 


ITT" 


r 
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H  4 

MIXED  FUNCTION 

DECODE 

3866  003544 

DOPINS 

MEM, 70 

3867 

.S8TTL 

MIXED  1 

"UNCTION         1 

»1EMBERSHIP 

3868 

3869  003544 

CALL 

GETREG 

:GET  SOME  REGISTERS  AND  BITS 

3870  003550 

016437 

000004 

005074 • 

MOV 

A.ALEN(R4),0PTMP3  .-right  ARG  SIZE                                   1 

3871  003556 

042700 

1 7777^ 

BIC 

/r*C<A.NUM>,RO 

.-CLEAR  OUT  GARBAGE 

3872  003562 

010002 

MOV 

R0.R2 

.-ASSUME  LEFT  TYPE 

3873  003564 

001006 

BNE 

2$ 

;IT  IS  NUMERIC 

3874  003566 

042701 

1 7777^ 

BIC 

#*C<A.NUM>,R1 

.-CLEAR  OUT  GARBAGE 

3875  003572 

001411 

BEQ 

3$ 

.-TYPES  MATCH 

3876  003574 

005037 

005074 • 

1$: 

CLR 

0PTMP3 

.-COUNT  IS  ZERO.  'CAUSE  TYPES  DON'T  MATCH 

3877  003600 

000423 

BR 

4$ 

.-AND  GO 

3878 

3879  003602 

042701 

1 7777^ 

2$: 

BIC 

#*C<A.NUM>,R1 

.-CLEAR  GARBAGE  BITS 

3880  003606 

001772 

BEQ 

1$ 

.-NOT  SAME.  ERROR 

^H^   003610 

020201 

CMP 

R2,R1 

.-WHICH  TYPE  BIGGER? 

388?  003612 

002001 

BGE 

3$ 

.-EVIDENTLY.  THE  1ST 

3883  003614 

010102 

MOV 

R1,R2 

.-NO.  IT'S  THE   MD 

3884  003616 

016237 

OOOOOOG 

005122' 

3$: 

MOV 

C0MCT(R2),C0MPTR 

.-COMPARE  ROUTINE 

3885  003624 

006302 

ASL 

R2 

.-TIMES  2 

3886  003626 

006302 

ASL 

R2 

;  "   4 

3887  003630 

060200 

ADD 

R2.R0 

.-LEFT  ARG  FETCH  ROUTINE 

3888  003632 

016037 

OOOOOOG 

003176' 

MOV 

LARGCT(RO),LARGCV  ;S0  HERE  IT  IS                                    1 

3889  003640 

060201 

ADD 

R2,R1 

.-RIGHT  ARG  FETCH  ROUTINE 

3890  003642 

016137 

OOOOOOG  003220' 

MOV 

RARGCT(R1),RARGCV  ;S0.  HERE  IT  IS                                   1 

3891  003650 

010300 

4$: 

MOV 

R3,R0 

.-COPY  POINTER  TO  LEFT  ARG 

3892  003652 

012701 

000002 

MOV 

#. BOOLEAN, R1 

.-RESULT  TYPE  IS  BOOLEAN 

3893  003656 

CALL 

GETSM2 

.-GET  SAME  SIZE  ARRAY 

3894  003662 

011001 

MOV 

aR0,R1 

.-POINT  TO  FIRST  ELEMENT  OF  RESULT 

3895  003664 

011302 

MOV 

aR3,R2 

.-POINT  TO  FIRST  ELEMENT  OF  LEFT  ARG 

3896  003666 

016004 

000004 

MOV 

A.ALEN(R0),R4 

.-GET  NUMBER  OF  ELEMENTS  IN  RESULT 

3897  003672 

001424 

BEQ 

9$ 

.-NOTHING  THERE 

3898 

3899 

[•PROCESS  NEXT  ARC  IN  LEFT  ARRAY 

3900 

# 

3901  003674 

013700 

005074 • 

5$: 

MCV 

0PTMP3,R0 

.-GET  COUNT  FOR  INNER  LOOP 

3902  003700 

001416 

BEQ 

8$ 

.-NOTHING  THERE.  EVIDENTLY 

3903  003702 

CALL 

aLARGCV 

.-FETCH  LEFT  ARG 

3904  003706 

013703 

003206* 

MOV 

RARGPT,R3 

.-POINT  TO  FIRST  ELEMENT  IN  RIGHT  ARG 

3905 

3906 

;  INNER 

LOOP  - 

DO  COMPARES 

3907 

3908  003712 

6$: 

CALL 

aRARGCV 

.-GET  RIGHT  ARG 

3909  003716 

CALL 

aCOMPTR 

.-COMPARE  WITH  LEFT  ARG 

3910  003722 

001403 

BEQ 

7$ 

;U   EQUAL.  STOP  LOOP 

3911  003724 

SOB 

R0,6$ 

;LOOP  FOR  EACH  ELEMENT 

3912  003730 

000402 

BR 

8$ 

;NOT  FOUND,  PUT  A  ZERO  IN  THE  RESULT 

3913 

3914 

•MARK  A 

HIT  IN 

THE  RESULT  ARRAY 

3915 

m 

3916  003732 

012700 

000001 

>%: 

MOV 

#1,R0 

.•FOUND.  PUT  A  ONE  INTO  THE  RESULT 

3917  003736 

110021 

8$: 

M0V8 

R0,(R1)* 

.•STORE  THE  RESULT 

3918  003740 

SOB 

R4,5$ 

;LOOP  FOR  ALL 

3919  003744 

9$: 

RETURN 

3921  003746 

LIST 

I     9 


f 


I  9 
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3923  003746  MOPINS  NUB J  06 

3986  003746  LIST 

3987 

3988 

3989 

3990 

3991 

3992  0037A6  DOPINS  UNONJ06 

4022  003746  LIST 

4023 

4024 

4025 

4026 

4027 

4028  003746  DOPINS  INTR,66 

4042  003746  LIST 

4043 

4044 

4045 

4046 

4047 

4048  003746  DOPINS  SDIF,50 

4161  003746  LIST 


7"T 
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4163  003746  DOPINS     SCON, 234 

4179  003746  LIST 

4180 

4181 

4182  003746  DOPINS  C0NTJ12 

4200  003746  LIST 

4201 

4202 

4203  003746  DOPINS  PSUB,236 

4209  003746  LIST 

4210 

4211 

4212  003746  DOPINS  SUBS, 116 

4288  003746  LIST 


I iTT 
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MIXED  FUNCTION  MEMBERSHIP 

4290  0037A6  MOPINS 

4336  003746 


TTT 


EXE, 70 
LIST 


1 


ITT 
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MIXED  FUNCTION  MEMBERSHIP 

4338  003746  MOPINS 

4411   003746 


lT 


ENCD,76 
LIST 


1 


r 


TTT 


»H»    ^K^*\  >a«  »»>»^N     u^  ^  4  7 


r\a     p  r't 


QA     Aft.  1  d. 


r%hrc     ■7T 
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4A13  0037A6 

4423  003746 

4424 

4425 

4426 

4427 

4428 

4429  003746 


PAGE  72 


MOPINS 


TTT 


FMTJ60 
LIST 


DOPINS  FMTJ60 


n 


TTT 


N9 
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A953  003746  LIST 


8  10 

APi.002  MACRO  Ml  113  08-FEB-80  09:16 

PAGE  74 

MIXED  FUNCTION 

MEMBERSHIP 

4955  003746 

MOPINS 

I8M,132 

,,,MONIBM 

4958  003746 

LIST 

4959 

4960 

4961  003746 

DOPINS 

I8MJ32 

4962 

.S8TTL 

MIXED  FUNCTION 

I  BEAM 

4963 

4964  003746 

012701 

000004 

MOV 

/r. INTEGER, R1 

;Co'"vert  left  arg  to  integer  (if  sea 

lar) 

4965  003752 

CALL 

GETSCA 

;Gei  a  scalar,  convert 

4966  003756 

017003 

000000 

MOV 

a(R0).R3 

;Get  the  value 

4967  003762 

162703 

000030 

SUB 

#I8MHIH^-1,R3 

;T00  SMALL? 

4968  003766 

062703 

000004 

ADD 

*IBMHIH-IBML0W^1 

,R3;0R  TOO  BIG? 

4969  003772 

103017 

BCC 

2$ 

l^f^S 

4970  003774 

010502 

MOV 

SI,R2 

;Point  to  the  SI 

4971  003776 

062702 

M77tl, 

ADD 

#SI.LEN*2,R2 

;Back  up  by  two  elements 

4972  004002 

012701 

000004 

MOV 

#. INTEGER, R1 

; Convert  to  integer 

4973  004006 

CALL 

CONVER 

; Convert  to  integer 

4974  004012 

011000 

MOV 

(RO),RO 

;Point  to  self 

4975  004014 

006303 

ASL 

R3 

:SHin   FOR  WORD  TABLE 

4976  004016 

060307 

ADD 

R3,PC 

; Branch  to  routine 

4977 

4978  004020 

000405 

BR 

IBMARB 

;AR80UT  FOR  NED  THANHOUSER  OF  TEK 

4979  004022 

000434 

BR 

IBMPEK 

;PEEK  AT  CORE 

4980  004024 

000466 

BR 

IBMPOK 

;POKE  CORE 

4981  004026 

000423 

BR 

IBMLOC 

;SET  A  CORE  LOCATION 

4982 

4983  004030 

104417 

1$: 

DOMERR 

.•DOMAIN  ERROR 

4984  004032 

104432 

2$: 

NYIERR 

;NOT  YET  IMPLEMENTED 

4985 

4986 

000024 

I8«L0W= 

^D20 

; LOWEST  I  BEAM  ARG 

4987 

000027 

iaMHIH= 

*D23 

.-HIGHEST  I  BEAM  ARG  ALLOWED 

4988 

4989 

;^ 

4990 

;  (I  Beam  sing I 

e  character  output 

4991 

•  mm 

0 

4992  004034 

016504 

177762 

I8MAR8: 

MOV 

<2*SI  .LEN»SI  .VAL  (SI)  ,R4 

4993 

.•POINT  TO  RIGHT  ARG 

4994  004040 

016403 

000004 

MOV 

A.ALEN(R4),R3 

.-Get  count  to  transfer 

4995  004044 

011402 

MOV 

(R4),R2 

.•COPY  POINTER  TO  FIRST  ELEMENT 

4996  004046 

012200 

1$: 

MOV 

(R2)*,R0 

.-GET  NEXT  ARG 

4997  004050 

042700 

177400 

BIC 

SUPPER, RO 

.•MASK  TO  8  BITS 

4998  004054 

CALL 

TTOUT 

.•PRINT  CHR 

4999  004060 

SOB 

R3J$ 

;LOOP  IF  ANOTHER  CHARACTER 

5000  004064 

042737 

100000  004 76< 

/ 

BIC 

#F.PRNT, FLAGS 

;DON'T  PRINT  RESULT 

5001  004072 

000137 

OOOOOOG 

JMP 

SAME 

.•RETURN  THE  SAME  ARRAY  GIVEN 

5002 

5003 

5004 

;♦ 

5005 

;  (I  Be^)  Set 

core  location 

5006 

f 

5007  004076 

CVOOO 

IBMLOC ; 

MOV 

(RO),RO 

;6et  core  address 

5008  004100 

042700 

000001 

BIC 

#1,R0 

;MAKE  SURE  IT'S  EVEN 

5009  004104 

010037 

005120' 

MOV 

R0,CORPTR 

;SAVE  AS  THE  CORE  POINTER 

5010  004110 

000137 

OOOOOOG 

JMP 

EMPTY 

.•EMPTY  RESULT 

5011 

5012 

5013 

;♦ 

APLI 
MIXI 


rriT 


Acx  fv\o     MArpo  mm    na«pcn«ftn  nO'i^     PAr,p   7^-1 
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5014 
5015 
5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 
5038 
5039 
5040 
5041 
5042 
5043 
5044 
5046 


PAGE  74-1 


;  (I  Be^)  Core  Peek 


TW 


APL 
MIX 


004114 
004116 
004120 
004124 
004126 
004130 
004132 
004136 
004142 
004146 
004152 
004154 
004156 
004160 
004164 
004166 
004172 
004176 


011002 
002430 
020227 
101025 
010200 
006300 
062700 

062720 
012720 
010220 
010220 
001407 
013701 
012120 

010137 


IBMPEK 


020004 


000010 

000010 
102001 


005120' 
005120' 


004200  104417 


1$: 


3$: 

2$: 


MOV 

BLT 

CMP 

BHI 

MOV 

ASL 

ADD 

CALL 

ADD 

MOV 

MOV 

MOV 

BEQ 

MOV 

MOV 

SOB 

MOV 

RETURN 

DOMERR 


(R0),R2 

2$ 

R2,#8196. 

2$ 

R2,R0 

RO 

#A.DIM1+2,R0 

GETFRA 

#A.DIMU2,(R0)* 


Get  ff  of  Locations  to  peek 

Must  be  positive 

MAXIMUM  OF  8K  PEEK 

TOO  BIG  IS  TOO  BAD 

COPY  SIZE 

Count  in  bytes 

ADD  IN  HEADER  SIZE 

Get  result,  SI   frame  for  it 

LOAD  OFFSET 


#<A.ASB+.INTEGER>*400+1,(R0)+   ;LOAD  BITS  /  RANK 


R2,(R0)^' 
R2,(R0)+ 
3$ 

C0RPTR,R1 
(R1)^,(R0)+ 
R2,1$ 
RUCORPTR 


LOAD  SIZE 
FIRT  DIM  SAME  AS  SIZE 
DONE  IF  NONE  TO  PEEK  AT 
GET  CURRENT  CORE  POINTER 
Copy,  integer  form 
FILL  UHOLE  ARRAY 
UPDATE  CORE  POINTER 
FINISi 


.•DOMAIN  ERROR 


004202 
004206 
004210 
004214 
004220 
004224 


013701 
012021 

010137 
000137 


005120' 


005120' 
OOOOOOG 


(I  Bea^)  Poke  Core 


I8MP0K: 
1$: 


MOV 
MOV 
SOB 
MOV 
JMP 
LIST 


C0RPTR,R1 

(R0)*,(R1)^ 

R3,1$ 

R1,C0RPTR 

EMPTY 


GET  CORE  POINTER 
Move  it  to  core 
SEE  IF  MORE 
SAVE  CORE  POINTER 
EMPTY  RESULT 


itew  rv\0       tmnron    Ml  111       rtO.C  CD^flA    f^Q.^X.       DAnC     7^ 


TW 
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MIXED  FUNCTION 

I  BEAM 

5048  004224 

MOPINS 

QUAD,74,T.NIL*T.SP0P 

5075  00422A 

LIST 

5076 

5077 

5078 

5079 

5080 

5081  0O422A 

DOPINS 

QUAD,74,T.NIL^-T.SP0P 

5097  00422A 

LIST 

5098 

5099 

5100 

5101 

5102 

5103  004224 

MOPINS 

Q0ADJ42/i.NIL>T.SP0P 

5135  004224 

LIST 

5136 

5137 

5138 

5139 

5140 

5141  004224 

DOPINS 

QQADJ42,T.NIL^T.SP0P 

5152  004224 

LIST 

5153 

5154 

5155 

5156 

5157 

5158  00422A 

MOPINS 

DQAD,134,T.NIL+T.SP0P 

5192  004224 

LIST 

5193 

5194 

5195 

5196  004224 

DOPINS 

DQADJ34,T.NIL*T.SP0P,,D$QQAD 

5 ''99  004224 

LIST 

API 

mi: 


Tier 
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AP 
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MIXED  FUNCTION        I  BEAM 

5201  004224 

MOPINS 

BXAVJ62,T.NIL 

5219  004224 

LIST 

5220 

5221 

5222 

5223 

5224 

5225  004224 

MOPINS 

BXCTJ64,T.NIL+T.SP0P 

5234  004224 

LIST 

5235 

5236 

5237  004224 

DOPINS 

BXCTJ64,T.NIL^T.SP0P 

5272  004224 

LIST 

5273 

5274 

5275 

5276 

52// 

5278  004224 

MOPINS 

BXI0J66,T.NIL+T.SP0P 

5287  004224 

LIST 

5288 

5289 

5290  004224 

DOPINS 

BXI0,166,T.NIL+T.SP0P 

5302  004224 

LIST 

5303 

5304 

5305 

5306 

5307  004224 

MOPINS 

BXLC,212,T.NIL 

5340  004224 

LIST 

5341 

5342 

5343 

5344 

5345 

5346 

5347  004224 

MOPINS 

BXPPJ70,T.NIL+T.SPOP 

5356  004224 

LIST 

5357 

5358 

5359  004224 

DOPINS 

BXPPJ70,T.NIL^T.SPOP 

5381  004224 

LIST 

5382 

5383 

5384 

5385 

5386 

5387 

5388  004224 

MOPINS 

BXPWJ72,T.NIL^-T.SP0P 

5397  004224 

LIST 

5398 

5399 

5400  004224 

DOPINS 

BXPUJ72,T.NIL^T.SPGP 

5417  004224 

LIST 

5418 

5419 

5420 

AF 
MI 


API  rv\o     MArpn  M111 7     rto^cco.an  nQ«iA     PAr:c   7A-1 


Mir 


U 
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TW 


MIXED  FUNCTION 

5A21 

5A22 

5A23  OOA22A 

5A32  OOA224 

5A33 

5A3A 

5A35  OOA224 

5A47  OOA22A 

5AA8 

5AA9 

5A50 

5A51 

5A52 

5A53  OOA22A 

5562  00422A 

5563 

556A 

5565 

5566 

5567 

5568 

5569  OOA22A 

5592  OOA22A 


I  BEAM 


A 
M 


MOPINS  BXRL,174,T.NIL+T.SP0P 
LIST 


DOPINS  BXRL,174,T.NIL+T.SP0P 
LIST 


MOPINS  BXTS,200,T.NIL 
LIST 


MOPINS     BXWAJ76,T.NIL 
LIST 


"rnr 


L 
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TTT 


^ 
W 


559A  OOA224 
5716  00422A 


MOPINS     BXCR,206 
LIST 


API  nAD     MAron  Ml  11 7     nft-cPR..Rn  00- 1 A     PAr;P   7fi 


irnr 


[ 
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5718  00A22A  MOPINS 

5775  00A22A 


ITW 


BXEX,202 
LIST 


TRT 


I 


API  nnp    NArpn  Min"^    nft-PFR-ftO  09.-1  f>    pagf  79 


rw 

APL002  MACRO  M1113  08-FEB-80  09:16  PAGE  79 
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5777  00A22A  MOPINS  BXFX,210 

5879  00422A  LIST 


rrc" 

API  nno     MAP  on  mii  i  ^     nft^p  pr^RO  HQ  .- 1  ^     pahF  80 


TW 
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5881  0OA22A  MOPINS  BXNC,20A 

5950  00^»22A  LIST 


TRT 

API  nn?     MACRO  Ml m     Q8-F EB-80  09: 16     PAGE   81 


TW 


ri7 
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5952  004224 

5963  00422A 

5964 

S96S 

5966  004224 

6104  004224 


MOPINS  BXNL,214 
LIST 


DOPINS  BXNL,214 
LIST 


1 


API  fy>p     MAron  M111^     OR^fff^-RO  OQ:^f,     PAGF  8? 
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6106  00422A  DOPINS 

6330  00422A 

6331 

6332 

6333 

6334 

6335 

6336  00A22A  DOPINS 

6485  004224 


mr 


F6ETJ50,T.DIM 
LIST 


FPUTJ52,T.DIM 
LIST 


1 


irnr 


API  no?     MACRO  Ml  in     08-fEB-80  09:16     PAGE  83 


APL002  MACRO  Mil 13  08-FEB-80  09:16  PAGE  83 
MIXED  FUNCTION         I  BEAM 

6487  00422 A  DOPINS 

6714  004224 


WW 


FPNTJ54,T.DIM 
LIST 


1 


API  no?     mrpn  Mim     n«-FFR-RO  09:16     PAGt   8^ 


Trnr 
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WW 


MIXED  FUNCTION 

6716  OOA22A 

6723  OOA22A 

672A 

6725 

6726  004224 

6732  004224 

6733 

6734 

6735  004224 

6741  004224 

6742 

6743 

6744  004224 

7044  004224 


I  BEAM 


MOPINS 


MOP INS 


MOPINS 


MOPINS 


1SCNJ30 
LIST 


SCAN, 62, T. DIM 
LIST 


1RDTJ24 
LIST 


RDCT,60,T.DIM 
LIST 
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TTT 


7046  004224 
7193  004224 


MOPINS 


6ETIDN,0 
LIST 


APLC 
SYME 

MONl 
DYDl 
BOPl 
MQNE 

DYDE 
COM! 
CHRl 
VTBL 
ASCI 
GVRl 
TRNl 
MNTE 
MNTF 
CODE 
PATC 
S$FS 
DEFJ 
DEF1 
DEF1 
ERRC 

VIRl 
DYN/ 
ELAF 
APLC 
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7195  00422A  MOPINS 

7A04  00422A 


CTT 


**F 


SATAN, 0 
LIST 


A^ 
A 

AA 

AA 

AA 

AA 

AA 

AA 

AAA 

AAA 

AA 

AA 

AA 

AA 


LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLL 

LLL 


TTT 
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"FTT 


TAE 


7406  00422A 
7A76  0OA22A 


MOP I MS 


0UTRJ56 
LIST 
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TTT 


API 
TAI 


7A78 
750A 
7505 
7506 
7507 
7508 
7509 
7510 
756A 
7565 
7566 
7567 
7568 
7569 
7570 
7612 


OOA224 
OOA22A 


MOPINS  DOUTER,0 
LIST 


0OA22A 
0O422A 


MOPINS  PRDSET,0 
LIST 


OOA224 
004224 


MOPINS  INSPACO 
LIST 


TTT 
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nr 


AF 


761 A  OOA224 


DOPINS  INNR,156 


TTT 
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7%0  OOA22A 


PAGE  90 


TTf 


Al 
A) 


LIST 


ITTT 
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Tnr 


7962  0(K22A 


MOPJNS     SUBR,0 


TTT 
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8725  00422A  LIST 


JTT 
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8727  0OA22A  MOPINS     RAND.O 

8771   0OA22A  LIST 


TTT 
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rrr 


1 


000001 


.END 


1 


nr 
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SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRFRO=  000135 

CTRMAX 

0001 72R 

025 

DSTAKE 

00063AR6 

020  D.TAKE= 

000002 

AC1   = 

X000001 

CHRLaR=  000073 

C.ALOC= 

000162 

D$$RES= 

***••*  GX 

D.TRAN= 

OOOOOA 

AC2   = 

X000002 

CHRLPR=  000072 

C.BLOK= 

00006A 

i)$1  EXP 

00021 2RG 

020  D.UNON= 

000006 

AC3   = 

X000003 

CHRMNS=  000137 

C.BLSZ= 

0001 AO 

D.AND  = 

000000 

D.$MAX= 

000000 

ACA   = 

XOOOOOA 

CHRMUL=  000075 

C.BUFF= 

177760 

D.BXCT= 

000007 

D.$MIN=  000000 

ACS   = 

XOOOOOS 

CHRNEG=  000100 

C.BUFL= 

177762 

D.BXIO= 

000007 

D.$MUL= 

000000 

ALLINT 

00327AR 

025 

CHRPDL=  000271 

C.CCNT= 

177766 

D.BXNL= 

000007 

D.$PLU= 

000000 

ARYRET 

003276R 

025 

CHRPLU=  000055 

C.CPTR= 

17776A 

D.BXPP= 

000007 

D.$RES= 

000000 

ASCQUO=  0O00A2 

CHRPWR=  000120 

C.CZ  = 

001000 

D.BXPW=  000007 

D.$SUB=  000000 

A.ALEN=  OOOOOA 

CHRQST=  000121 

C.DIG  = 

OOOOAO 

D.BXRL= 

000007 

D.1C0M=  000001 

A.ARG  = 

OOOOAO 

CHRQUO=  000113 

C.FASW= 

020000 

D.CIRC= 

000001 

D.1EXP= 

000002 

A.ASB  = 

000200 

CHRRBR=  0O00A7 

C.FLEN=  000010 

D.COMB=  000001 

D.1R0T= 

000003 

A.BITS= 

000003 

CHRRPR=  0000A2 

C.FLSH= 

OOAOOO 

D.COMP= 

000001 

EDICHR 

005063R 

025 

A.CON  = 

000020 

CHRSEM=  00007A 

C.FRC  = 

000001 

D.CONT= 

000006 

EDICNT 

00506AR 

025 

A.DIMS= 

000002 

CHRSMO=  000112 

C.IDEN=  000010 

D.CTLM=  000000 

EDIFLG 

005062R 

025 

A.DIM1  = 

000006 

CHRSPA=  OOOOAO 

C.NAME= 

000102 

D.DEAL= 

000003 

EDIT  = 

000003 

A.NUM  = 

000006 

CHRUPA=  000131 

C.NOBF= 

OOOAOO 

D.DECD= 

000002 

EIS   = 

000000 

A.PTR  = 

000000 

CHR.BS=  000010 

C.NUM  = 

000020 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

A.TMP  = 

000010 

CHR.CC=  000003 

COP  = 

OOOOOA 

D.DMD  = 

000010 

EMPTY  = 

******  GX 

BADD1R= 

10AA63 

CHR.CR=  000015 

C.OPN  = 

010000 

D.DQAD= 

-[77777 

ENDCOR 

OOOOOAR 

025 

BADERR= 

10AA37 

CHR.CZ=  000032 

C.RDLN= 

177776 

D.DR0P= 

000002 

EOF   = 

10AA75 

BLARGC= 

*«*•**  QX 

CHR.GT=  0000A6 

C.REWT= 

002000 

D.ENCD= 

000002 

ERRMAX= 

000166 

BLZBUB 

0051 16R 

025 

CHR.LF=  000012 

C.RND  = 

000010 

D.EQ  = 

000000 

E\mlS^ 

00A//2R 

025 

BRSELF 

0050A6R 

025 

CHR.LT=  0O00A3 

C.S8IT= 

177756 

D.EXPD= 

000002 

ERRPTR 

00A770R 

025 

CCNT 

005072R 

025 

CHR.SI=  000017 

C.SPFX= 

000100 

D.FGET= 

000005 

ERRO 

00A77AR 

025 

CHANEX 

003060R 

025 

CHR.SL=  000057 

C.SP6L= 

000200 

D.FMT  = 

OOOOOA 

EXEBUF 

00505AR 

025 

CHANOO 

000256R 

025 

CHR.SO=  000016 

C.SPLX= 

000001 

D.FPNT= 

000005 

EXPND1 

000236R 

020 

CHAN01 

000330R 

025 

CHR.TB=  000011 

C.SPRS= 

000002 

D.FPUT= 

000005 

E$CT 

005056R 

025 

CHAN02 

00051 2R 

025 

CHR.UL=  000106 

C.SRC  = 

17777A 

D.GE  = 

000000 

E$PT 

005060R 

025 

CHAN03 

00067AR 

025 

CHR..A=  0001 A1 

C.SRCP= 

00002A 

D.GT  = 

000000 

FA.APD= 

000100 

CHANOA 

001056R 

025 

CHR..E=  0001 AS 

C.TT  = 

OOOOOA 

D.IBM  = 

000002 

FA.CRE= 

000010 

CHANGS 

0012AOR 

025 

CHR..S=  000163 

C.WIDC= 

177770 

D.IND  = 

000002 

FA.DLK= 

001000 

CHAN06 

0O1A22R 

025 

CHR..T=  00016A 

C.WIDR= 

1 77772 

D.INNR= 

000013 

FA.E^B= 

100000 

CHAN07 

00160AR 

025 

CHR..U=  000165 

DEBUG  = 

000000 

D.INTR= 

000006 

FA.EXC= 

002000 

CHANa^ 

001766R 

025 

CHR..Z=  000172 

DECD1 

00331 2R 

020  D.LE  = 

000000 

FA.EXT= 

OOOOOA 

CHANC? 

0021 50R 

025 

CHR..0=  000060 

DEFERR= 

10AA05 

D.L06  = 

000001 

FA.NSP= 

000100 

CHAN10 

002332R 

025 

CHR..1=  000061 

DEVIL 

0051 1AR 

025 

D.LT  = 

000000 

FA.NSR= 

000200 

CHAN^I 

00251 AR 

025 

CH.AND=  000001 

DEVNTF= 

10AA70 

D.MAX  = 

000000 

FA.POS= 

010000 

CfVWl2 

002676R 

025 

CMDBUF  003250R 

025 

DFXDIM= 

******  GX 

D.MEM  = 

000002 

FA.RD  = 

000001 

CHAN13 

000022R 

023  CMDMAX=  000010 

DIGITS 

000006R 

025  D.MIN  = 

000000 

FA.RWD= 

OOAOOO 

CHAN1A 

00020AR 

023 

CNTSIZ  005130R 

025 

DIMAX  = 

000020 

D.MUL  = 

000000 

FA.SEQ= 

OAOOOO 

CHNUHN= 

10AA71 

COMBIN  005076R 

025 

DIMBLK 

0031 12R 

025 

D.NE  = 

000000 

FA.SHR= 

OOOOAO 

CHRAND= 

000051 

COMCNT  005126R 

025 

DIMPTR 

0031 1AR 

025 

D.NN  = 

000000 

FA.TMP= 

000020 

CHR8EL= 

000007 

COMCT  =  »***♦*  6X 

DIMTYP 

0031 16R 

025 

D.NR  = 

000000 

FA.WCK= 

020000 

CHHBKR= 

000133 

C0MERR=  10AA25 

DIRFUL= 

10AA66 

D.OR  = 

000000 

FA.WRT= 

000002 

CHRBOL= 

000200 

COMPTR  0051 22R 

025 

DOENCD 

00251 6R 

020  D.PLUS= 

000000 

FD.BLK= 

000010 

CHRBOX= 

00011 A 

COMRTN  0031 56R 

025 

DOMERR= 

10AA17 

D.PS(fi=  000006 

FD.CCL= 

000002 

CHRCMA= 

00005A 

COMSKP  0051 2AR 

025 

DPTERR= 

10AA16 

D.PWR  = 

000001 

FD.COM=  020000 

CHRCa= 

000076 

C0NVER=  *♦*♦*♦  GX 

DYDCNT 

00322AR 

025 

D.QQAD= 

000000 

FD.CR  = 

000002 

CHRDEL= 

000107 

CORPTR  0051 20R 

025 

DSDECD 

00277ARG 

020  D.QUAD= 

000000 

FD.DIR= 

000010 

CHRDIV= 

000053 

CS.ASS=  000200 

DSDROP 

000502RG 

020  D.RES  = 

000000 

FD.FTN=  000001 

CHRDLR= 

000176 

CS.B00=  000010 

DSENCD 

001672RG 

020  D.RHO  = 

000000 

FD.F11= 

OAOOOO 

CHRDLT= 

000110 

CS.FLO=  000020 

DSEXPD 

000232RG 

020  D.ROT  = 

000003 

FD.INS= 

000010 

CHRDOT= 

000056 

CS.IDN=  OOOOAO 

D$IBM 

0037A6RG 

020  D.SCON= 

000006 

FD.ISP= 

002000 

CHREP   = 

000105 

CS.ONE=  000100 

D$IND 

OOOOOORG 

020  D.SDIF= 

000006 

FD.MNT= 

100000 

CHRERR= 

10AA31 

CTEPS   0001 52R 

025 

D$INNR= 

**•••♦  GX 

D.SUB  = 

000000 

FD.OSP= 

OOAOOO 

CHRFIL= 

000177 

CTMAX   00021 2R 

025 

D$«EM 

0035AARG 

020  D.SUBS= 

000006 

FD.PLC= 

OOOOOA 

mTT 
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FD.PRN=  OOOOOA 

F.BKDS= 

000020 

F.R3  = 

000016 

LARGCV 

0031 76R 

025  M.CEI  =  177777 

FD.PSE=  010000 

F.BKEF= 

000050 

F.R4  = 

000020 

LARGFL 

0031 60R 

025  M.CHR  =  000202 

FD.RAH=  000001 

F.BKP1= 

000051 

F . SEQN= 

000100 

LARGLE 

0031 74R 

025  M.CMT  =  000206 

FD.RAN=  'XXXWZ 

F.BICST= 

000024 

F . SPDV= 

000072 

LARGLN 

0031 66R 

025  M.DOUT=  000006 

FD.REC=  UOOOOI 

F.BKVB= 

000064 

F.SPUN=  000074 

LAR6PT 

0031 64R 

025  M.DQAD=  000006 

FD.RVI1=  000001 

F.BR  = 

000020 

F.STBK= 

000036 

LARGSF 

0031 72R 

025  M.ENCD=  000004 

FD.SDI=  000020 

F.CHR  = 

000075 

F.STK  = 

000022 

LARGTY 

0031 70R 

025  M.EXE  =  000000 

FD.SQD=  000040 

F.CNTG= 

000034 

F.ST0P= 

000004 

LARGVA 

003200R 

025  M.EXP  =  000001 

FD.TTY=  OOOOOA 

F.CODE^ 

000010 

F.STP  = 

000001 

LBINC 

005100R 

025  M.FACT=  000001 

FD.UBH=  000002 

F.DFNB= 

000046 

F . SUSP= 

000002 

LBUFF 

00331 6R 

025  M.FIL  =  000177 

FF.CHR=  000005 

F.DSPT= 

000044 

F.TRC  = 

000002 

LBUFLN= 

000621 

M.FLR  =  177777 

FF.NV  =  000003 

F.DVNM=  000134 

F.UNIT= 

000136 

LCOUNT 

0051 06R 

025  M.FMT  =  000004 

FF.POE=  000002 

F.EFBK= 

000010 

F.URBD= 

000020 

LENERR= 

104412 

M.GDUP=  000003 

FF.RWD=  000001 

F.EFN  = 

000050 

F.VAL  = 

1 77776 

LENTAB 

000054R 

025  M.GDWN=  000003 

FF.RWF=  000006 

F.END  = 

002000 

F.VBN  = 

000064 

LEXPTR 

0031 OOR 

025  M.GETI=  000006 

FF.SPC=  OOOOOA 

F.EnF«=  000032 

F . VBSZ= 

000060 

LFTOP 

005066R 

025  M.I8M  =  000003 

r-'^ADR  00501 2R 

025 

F.ERR  = 

000052 

GETC0R= 

**«r**«  GX 

LINC 

0051 02R 

025  M.IDN  =  000000 

.«<ET   005040R 

025 

F.FACC= 

000043 

GETFRA= 

••***•  GX 

LINE 

00501 6R 

025  M.INSP=  000006 

rILNTF=  104467 

F.FFBY= 

000014 

6ETRE6= 

•**♦•*  GX 

LININC 

005026R 

025  M.I0TA=  000000 

FIS   =  000000 

F.FLAG=- 

C 00002 

GETSCA= 

***i^*«  GX 

LISIZE= 

000020 

M.LIT  =  000205 

FISCaN=  046000 

F.FLB  = 

000100 

GETSM2= 

♦*••♦•  GX 

LI  TOP 

005072R 

025  M.LN  =   000001 

FIXDIM=  ♦*♦**♦  GX 

F.FNAM=  000110 

GNOME 

0031 02R 

025 

LNLNG  = 

104541 

M.MMD  =  000010 

FIXPTR  003074R 

025 

F.F^B  = 

000102 

HASHC 

0051 36R 

025 

LOCLCT 

005036R 

025  M.NEG  =  000000 

FLAGS   004764R 

025 

F.FNDF= 

000010 

HASHTB 

005140R 

025 

LOWCOR 

000002R 

025  M.NOT  =  000000 

FLARGC=  ♦♦*♦♦♦  GX 

F.FTYP= 

000116 

HSHMSK= 

177601 

LSTERP 

004766R 

025  M.NUB  =  000006 

FLCBUF  003250R 

025 

F.FUN  = 

000010 

HSHS12= 

000200 

LWIDTH 

000070R 

025  M.NUM  =  000204 

FLINE   00501 4R 

025 

F.FVER= 

000120 

lASH     = 

*4rt***  GX 

L.BITS= 

000003 

M.0UTR=  000012 

FLOEXP  003270R 

025 

F.HEAD= 

000006 

IBMAR6 

004034R 

020  L.CNT  = 

000002 

M.PITM=  000000 

FLONEG  003272R 

025 

F.HIBK= 

000004 

IBMHIH= 

000027 

L.PRNT= 

000001 

M.PRDS=  000006 

FLSWTB  000222R 

025 

F.IRI.  = 

000020 

IBMLOC 

004076R 

020  L.PTR  = 

000000 

M.QQAD=  000000 

FLTLEN=  000010 

F.LINE= 

000012 

IBMLOW= 

C00024 

L.PTR1= 

000004 

M.QUAD=  000000 

FNINSl  005044R 

025 

F.LOC  = 

000004 

IBMPEK 

0041 14R 

020  L.SUBS= 

000002 

M.RAND=  000012 

FORIGN  000032R 

025 

F.LSTC= 

000004 

IBMPOK 

004202R 

020  MACHIN=  000106 

M.RAVL=  000000 

FO.APD=  000106 

F.LUN  = 

000042 

I  CHAN 

005050R 

025  MAXCHN=  000014 

M.RCIP=  000000 

FO.MFV=  000002 

F.MBCT= 

000054 

IDIV  = 

*•**•*  GX 

MONB'^ 

0031 20R 

025  M.RDCT=  000011 

FO.RD  --:  000001 

F.MBC1  = 

000055 

ILFNAM= 

104464 

MONCVT 

0031 32R 

025  M.REVS=  000003 

FO.UPD=  000006 

F.MBF6= 

000056 

ILLCHN= 

104540 

MONLEN 

0031 30R 

025  M.ROLL=  000000 

FO.URT=  000016 

F.MON  = 

000002 

ILLSW  = 

104565 

MONPTR 

0031 22R 

025  M.SATA=  000001 

FPWriDE  000042R 

025 

F.NIL  = 

000001 

IMUL  = 

******  GX 

MONSFT 

0031 26R 

025  M.SCAN=  000011 

FPP   =  000000 

F.NRBD= 

000024 

INDERR= 

104410 

MONTYP 

0031 24R 

025  M.SHAP=  000000 

FPPLEN=  000004 

F.NREC= 

000030 

INNTMP 

003250R 

025  MONVAL 

0031 34R 

025  M.SIGN=  000000 

FRAR6C=  ♦♦♦♦♦♦  GX 

F.OPN  = 

000010 

INNTM2 

00501 6R 

025  M.ABS  = 

000000 

M.SinR=  000001 

FREBLK  007400R 

025 

F.0VBS=: 

000030 

INPTR 

000064R 

025  M.80L  = 

000200 

M.SYM  =  000203 

FRESCT=  ♦♦♦♦*♦  GX 

F.PREV= 

000000 

INSNAM= 

104462 

M.BXAV= 

000007 

M.SYN  =  000201 

FUZZ    0001 42R 

025 

F.PRNT= 

100000 

lOERR  = 

104477 

M.BXCR= 

000007 

M.TRAN=  000012 

FXPTR1  003076R 

025 

F.PR0T= 

010000 

I.CNT  = 

177776 

M.BXCT= 

000007 

M.$ABS=  000000 

F$EVAL=  000100 

F.RACC= 

000016 

I. DIM  = 

177772 

M.BXEX= 

000007 

M.$CEI=  000000 

F$EVI  =  000200 

F.RATT= 

000001 

I.LEN  = 

000012 

M.8XFX= 

000007 

M.$FLR=  000000 

F$EXEC=  000400 

F.RCM1=  000034 

I.OERR= 

000062 

M.8XI0=  000007 

M.$IDN=  000000 

F$FUNC=  001000 

F.RCTL= 

000017 

I. OLD  = 

1 77770 

M.BXLC= 

000003 

M.$NEG=  000000 

F.ACTL=  000076 

F.READ= 

004000 

I.PTR  = 

1 7777^ 

M.BXNC= 

000007 

M.$SIG=  000000 

F.ALOC=  000040 

F.REDF= 

000040 

l.STR  = 

177766 

M.8XNL= 

000007 

M.1RDT=  000011 

F.aBFS=  000062 

F.RES  = 

000040 

KILL  = 

******  GX 

M.BXPP= 

000007 

M.1REV=  000003 

F.B08  =  000070 

F.RET  = 

1 77772 

LABERR= 

104406 

M.BXPW= 

000007 

M.1SCN=  000011 

F.BGBC=  000057 

f.RSlZ= 

000002 

LABLPT 

005042R 

025 

M.8XRL= 

000007 

NAMBUF  003240R    025 

F.BITS=  177774 

F.RTYP= 

000000 

LARGBL 

0031 62R 

025 

M.8XTS= 

000007 

NBRTRU=  ******  GX 

F.BKDN=  000026 

F.R2  = 

000014 

LAR6CT= 

******  GX 

M.BXWA= 

000007 

NB.DEV=  000200 
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NB.DIR=  000100 

N.PPN  = 

000024 

RESTYP 

0031 44R 

025 

SYMTP 

006272R 

025 

T.DIM  = 

000100 

W>.NAM=  OOOOOA 

N.STAT= 

000020 

RESULT 

0031 36R 

025 

SYMWRN= 

000054 

T.FUN  = 

010000 

Nj.SD1=  OOOAOO 

N.UNIT= 

000034 

RESVAL 

0031 54R 

025 

SYNERR= 

104407 

T.LIST= 

000400 

NB.SD2=  001000 

0BUFLN=  001000 

RETC0R= 

******  GX 

SYSER  = 

******  GX 

T.LIT  = 

000020 

^B.s^fi=  ooooAO 

OCHAN 

OO5052R 

025 

KINC 

0051 04R 

025 

SYSERR= 

104402 

T.MON  = 

000010 

NB.STP=  000020 

OMODE 

000402R 

023  RLTBAS 

005066R 

025 

SYSTAT 

OOOOOOR 

024 

T.NIL  = 

000004 

fe.svR=  000010 

OPTMPO 

005066R 

025 

ROTINC 

005070R 

025 

SY.aAD= 

000001 

T.NUM  = 

002000 

fe.TYP=  000002 

0PTMP1 

005070R 

025 

ROUND 

00001 OR 

025 

SY.BRK= 

100000 

T.OPFN= 

000001 

l«.VER=  000001 

0PTMP2 

005072R 

025 

ROVER 

00331 2R 

025 

SY.BS  = 

000010 

T.OTHR= 

040000 

ND.DEV=  000200 

0PTMP3 

005074R 

025 

RSTS  = 

000000 

SY.CLR= 

000040 

T.SOP  = 

000002 

ND.EXT=  000002 

0PTMP4 

005076R 

025 

RSX   = 

0001 1 5 

SY.ERP= 

000020 

T.SPOP= 

000040 

ND.NA«=  000004 

0PTMP5 

0051 OOR 

025 

RTOP 

005070R 

025 

SY.N0U=  000100 

T.TMP  = 

000200 

ND.PPN=  000100 

0PTMP6 

0051 02R 

025 

RT11  = 

000000 

SY.OPN= 

000002 

T.VAL  = 

100000 

ND.$EX=  000000 

0PTMP7 

0051 04R 

025 

R.8ITS= 

000003 

SY.PMT= 

001000 

T.VAR  = 

001000 

ND.$E$=  000020 

0PTMP8 

0051 06R 

025 

R.FIX  = 

000001 

SY.SRT= 

000400 

UPPER  = 

177400 

ND.$ff1=  000000 

0PTMP9 

00511  OR 

025 

R.LCT  = 

000002 

SY.SVC= 

000004 

UTNAME 

000344R 

023 

ND.$N$=  OOOOAO 

OPTM10 

0051 12R 

025 

R.LN  = 

000002 

SY.SVL= 

000200 

VALERR= 

104413 

ND.$PN=  OOHOO 

0PTM14 

005026R 

025 

R.LNUM=  000010 

S.AB  = 

1 77776 

VARBLE 

007400R 

025 

NEGSGN  005063R 

025 

OP.MUL= 

******  GX 

R.NEXT= 

000006 

S.ASB  = 

100000 

VARBLS 

OOOOOOR 

025 

NINPT1  003302R 

025  OP.PLU= 

******  QX 

R.OFF  = 

000000 

S.8FHD= 

000020 

VERNUM 

OOOOOOR 

025 

NINPT2  003300R 

025  ORIGIN 

000030R 

025 

R.PREV= 

000004 

S.8ITS= 

000002 

VRSION=  000002 

NINSTK  003304R 

025  OUTPTR 

000066R 

025 

R.PTR  = 

000000 

S,CHR1= 

000003 

WIDTH 

000072R 

025 

NINTMP  00331 OR 

025  OVROPR= 

000002 

R.SEQ  = 

000003 

S.FATT= 

000016 

WROUND 

000020R 

025 

NINTYP  003306R 

025 

PATCH 

007344R 

025 

R.VAR  = 

000002 

S.FDB  = 

000140 

WSDATE 

0001 36R 

025 

NOTAVL=  104472 

PRECSN 

000052R 

025 

R6 

X000006 

S.FIfl  = 

040000 

WSFULL= 

104403 

NOTOPN=  104473 

RANDAC 

0C3064R 

023 

R7 

X000007 

S.FNAM=  000006 

USNAME 

000074R 

025 

NPRT1   004762R 

025  RANDY 

003062R 

025 

SAME  = 

******  GX 

S.FNB  = 

000036 

WSTIME 

0001 32R 

025 

NULL    007364R 

025  RANERR= 

104411 

SI 

X000005 

S.FNBW=  000017 

XX2 

001436R 

020 

NUWCHN=  000020 

RARGBL 

005204R 

025 

SIDAMN= 

104433 

S.FNTY= 

000004 

XX3 

001170R 

020 

NUMDFL  003230R 

025  RARGCT= 

******  Gx 

SIFRAM 

00331 4R 

025 

S.FTYP= 

000002 

$CFCC  = 

******  GX 

NUWEFL  003233R 

025  RARGCV 

003220R 

025 

SISTAK 

006350R 

025 

S.LEN  = 

000002 

$CLRF  = 

******  GX 

NUMESN  003236R 

025 

RARGFL 

003202R 

025 

SI  TOP 

006346R 

025 

S.LINK= 

1 7777^ 

$DIVF  = 

******  GX 

NUMFL6  003230R 

025  RARGLE 

00321 6R 

025 

SITP 

0071 44R 

025 

S.NFEN=  000020 

$FIS  = 

******  G 

NUMLEN  000062R 

025  RARGLN 

00321  OR 

025 

SIUARN=  000200 

S.TYPE= 

140000 

$FPP  = 

******  G 

NLfWEG  003232R 

025 

RARGPT 

003206R 

025 

SIZTAB 

000044R 

025 

S.VAL  = 

000000 

$FPPLN= 

******  G 

NUWQFL  003234R 

025  RARGSF 

00321 4R 

025 

SI.BIT= 

177774 

TAKCHK 

001450R 

020  $LDF  = 

******  GX 

WJMRIG  003231 R 

025  RARGTY 

00321 2R 

025 

SI.LEN= 

177772 

TAKE IT 

000640R 

020  $MACHN= 

******  G 

NJIUID  003226R 

025  RARGVA 

003222R 

025 

SI.RET= 

177772 

TAKER 

001 536R 

020  SMULF  = 

******  GX 

NUMZFL  003235R 

025  RBASE 

005074R 

025 

SI.VAL= 

177776 

TAKER1 

001546R 

020  SRSTS  = 

******  G 

NYIERR=  104432 

RCOUNR 

0051 12R 

025 

SKPSI2 

0051 34R 

025 

TArER2 

001664R 

020  $RSX  = 

******  G 

N.BLS2=  000036 

RCOUNT 

00511  OR 

025 

SPHOLD 

000004R 

024 

TAKE01 

001412R 

020  SRTll  = 

******  G 

N.DESC=  000020 

REDCNT 

005070R 

025 

SPINIT 

000002R 

024 

TKDIMS 

005072R 

025  $STF  = 

******  GX 

N.DEV  =  000032 

REDIGN 

005066R 

025 

STKINC= 

000774 

TKFRAM 

005066R 

025  $SUBF  = 

******  GX 

N.DEVN=  000034 

REDOFF 

005072R 

025 

STOP  = 

104420 

TKLEFT 

005070R 

025 

$TSTF  = 

******  GX 

N.DID  =  000024 

REENTR 

003060R 

025 

SIBCNT 

0031 04R 

025 

TMODE 

000403R 

023 

.BOOLE= 

000002 

N.D\/^«=  000032 

REGTYP= 

000002 

SIRDCT 

0031 06R 

025 

TMPTAG= 

000166 

.CHARA= 

000000 

N.EXT  =  000014 

RES8IT 

003U2R 

025 

SIRPTR 

00311  OR 

025 

TTOUT  = 

******  GX 

.DEF.  = 

000002 

N.FID  =  000000 

RES8LK= 

******  GX 

SYMB1 

005344R 

025 

TTYBUF 

00^140R 

025 

.FLOAT= 

000006 

N.FNAM=  000006 

RESCVT 

0031 52R 

025 

SYMF 

005340R 

025 

TTYLEN= 

000622 

.FSRCB= 

******  G 

N.FTYP=  000014 

RESERR= 

104440 

SYMPT1 

005346R 

025 

TURKEY= 

1 04436 

.INTEG= 

000004 

N.FVER=  000016 

RESLEN 

0031 50R 

025 

SYMTAB 

005352R 

025 

TYPE  = 

000166 

.MOLUN 

000404R 

023 

N.NAME=  000006 

RESPTR 

0031 40R 

025 

SYMTBF= 

104404 

T.BOL  = 

020000 

...GBL= 

000000 

N.NEXT=  000022 

RESSFT 

0031 46R 

025 

SYMTOP 

005350R 

025 

T.CCN  = 

004000 

...TPC= 

000020 

.  ABS.  000000 

000 

000000 

001 

TABLES  000000 

002 

bM 
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TABLE 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

nONBTB 

000000 

006 

DYDBTB 

000000 

007 

COMTB 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

■ 

MNTRTL 

000000 

017 

CODE 

004224 

020 

PATCH 

000000 

021 

S$FSR1 

000000 

022 

DEFSO 

000406 

023 

DEF$1 

000006 

024 

DEF$2 

007400 

025 

ERRORS 

DETECTED 

:  0 

VIRTUAL 

MEMORY 

USED:  13875  WORDS  (  55  PAGES) 

DYNAMIC 

MEMORY: 

15534  WORDS  (  59  PAGES) 

ELAPSED 

TIME: 

00:06:17 

APL002, 

DM1 : C305 

,301:APL002/-SP=APLRX1 ,APLDEF ,APL002,APLOP,END 

aplc 

DEFI 
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TIT 


.TITLE  APL003 
. I DENT  \V02.03\ 

;THIS  IS  USED  WHEN  ASSEME  ING  APLOP  TO  OEflNE   A  NEW  OVERLAY  SEGMENT 
;CONTAINING  OPERATOR  ROUiiNES.  IN  THE  COMMON  DEFINITION  FILE, 
;'0VROPR'  IS  DEFINED  AS  ZERO.  IF  IT  IS  DEFINED  AS  ONE  BEFORE  APLOP 
;1S   ASSEMBLED,  ONLY  THE  CODE  DESIGNATED  FOR  THE  OPERATOR  OVERLAY  IS 
.•ASSEMBLED.  THEREFORE,  THE  COMMAND  TO  ASSEMBLE  APL003  IS: 

;      APL003  <  ...,APL003, APLOP 


000003 


OVROPR=  3 


;OVERLAY  SPECIFIED  OPERATORS 


TT7 
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DEFINITIONS     ERRORS 

5 

:  FUNCTIONAL  DESCRIPTION: 

8 

;       THIS  MODULE  CONTAINS  THE  CODE  FOR  MOST  APL  OPERATORS  WHICH 

9 

;      HAVE  BEEN  IMPLEMENTED  SO  FAR.  TWO  MACROS  ARE  USED  TO  OEflNE 

10 

',               OPERATOR  ROUTINES.   'DOPINS'  OEflNES   A  DYADIC  OPERATOR,  AND 

11 

;       'MOPINS*  DEFINES  A  MONADIC  OPERATOR.  THE  ARGUMENTS  TO  THE 

12 

;               MACROS  ARE  THE  NAME  OF  THE  OPERATOR  ROUTINE  AND  THE  OPERATOR 

13 

;      Nl/BER  FOR  THE  OPERATOR  (WHICH  CAN  BE  FOUND  BY  LOOKING  IN 

14 

;                'VTABM.  FOR  DYADIC  SCALAR  OPS,  THE  LEFT  ARG  IS  IN  AC1,  THE 

15 

;      RIGHT  ARG  IS  IN  AC2,  AND  THE  RESULT  IS  RETURNED  IN  ACO.  FOR 

16 

;               MONADIC  SCALAR  OPS,  THE  ARGUMENT  IS  IN   AC1,  AND  THE  RESULT 

17 

;       IS  RETURNED  IN  ACO.  SCALAR  OPS  MUST  LEAVE  THEIR  ARGUMENTS 

18 

;       INTACT! 

19 

;  — 

24 

27 

124 

125 

•THESE  MACROS  ARE  FOR  OVERLAY  CODE.   THEY  ARE  USED  THE  SAME  AS 

126 

;RESIDENT  MACROS.   THE  DIFFERENCE  COMES  IN  THE  WAY  THEY  WORK.   THE 

127 

;'PRMRES'  MACRO,  FORCES  ALL  CODE  BETWEEN  IT  AND  THE  NEXT  MFTFVLIST* 

^28 

;T0  NOT  BE  ASSEMBLED.   THE  'MOPINS*  AND  'DOPINS'  DON'T  PUT  ANYTHING  IN 

129 

;ANY  TABLES.  OTHER  THAN  THAT  THEY  WORK  BASICLY  THE  SAME  AS  THE  RESIDENT 

130 

; MACROS. 

131 

132 

.MACRO  DOPINS  NAME,NUM,BITS,BOZO,NOTME 

133 

.Ilf         NDF  D.'NAME,  .ERROR  ;D.'NAME  IS  NOT  DEFINED  BY  OVROP! 

134 

.If   EQ  OVROPR-D.'NAME 

135 

.PSECT  CODE 

136                            DS'fyiAME::                                                                      1 

137 

.ENDM 

138 

139 

.MACRO  MOPINS  NAME,NUM,BITS,BOZO,NOTME 

140 

AlF         NDF  M.'NAME,  .ERROR  ;M.'NAME  IS  NOT  DEFINED  BY  OVROP! 

141 

,lf   EQ  OVROPR-M.'NAME 

142 

.PSECT  CODE 

143 

.If   NE  NUM 

144                            MS'NAME::                                                                      1 

145 

.ENDC 

146 

.ENDM 

147 

148 

.MACRO  LIST 

149 

.ENDC 

150 

.ENDM 

151 

152 

.MACRO  PRMRES 

153 

Af   EQ  1 

154 

.ENDM 

155 

159 

;•••♦*•**♦♦•  ASSEMBLING  THE  FILE!!!!! 

160  007400                     PRWRES                                                                      1 

199  007400 

LIST 

TTT 
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201  007400 

DOPINS 

PLUS,2,T.S0P,.INTEGERKS.IDN+CS.ASS 

208  007400 

LIST 

209 

210  007400 

DOPINS 

$PLU,-2 

224  007400 

LIST 

225 

226  007400 

DOPINS 

SUB,4,T.S0P,.INTEGER+CS.IDN 

233  007400 

LIST 

234 

235  007400 

DOPINS 

$SUB,-4 

249  007400 

LIST 

250 

251 

252  007400 

DOPINS 

MUL,6,T.S0P,.INTEGER+CS.B00L+CS.IDN+CS.0NE+CS.ASS 

264  007400 

LIST 

265 

266 

267  007400 

DOPINS 

$MUL,-6 

284  007400 

LIST 

285 

286  007400 

DOPINS 

DIVJO,T.SOP,.FLOAT^CS.BOOL-^CS.IDN+CS.ONE 

323  007400 

LIST 

324 

325 

326  007400 

DOPINS 

PWR,20,T.SOP,.FLOAT+CS.BOOL-^CS.IDN-^CS.ONE 

392  007400 

LIST 

393 

394 

395  007400 

DOPINS 

L0G,54,T.S0P,.FL0AT+C'S.BG0L 

417  007400 

LIST 

418 

419 

420  007400 

DOPINS 

CIRC, 52, T. SOP,. FLOAT 

4//  007400 

LIST 

478 

479 

480  007400 

DOPINS 

MIN,14,T.S0P,.INTEGERKS.800L+CS.ASS 

490  007400 

LIST 

491 

492  007400 

DOPINS 

$MIN,-14 

516  007400 

LIST 

517 

518 

519  007400 

DOPINS 

MAX,16,T.S0P,.INTEGER+CS.800L^-CS.ASS 

529  007400 

LIST 

530 

531  007400 

DOPINS 

$MAX,-16 

555  007400 

LIST 

556 

557 

558  007400 

DOPINS 

RES,12,"^.S0P,.INTEGER^-CS.B00L^CS.IDN 

589  007400 

LIST 

590 

591 

592  007400 

DOPINS 

%RES,''\2 

616  007400 

LIST 

617 

m 
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619  007400 

639  007400 


PAGE  47-1 


DOPINS 


TU 


COMB, 22,7. SOP,. FLOAT^CS.BOOL^CS.IDN-^CS. ONE 
LIST 


1 


TT7 
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6A1  0O7A00 

DOPINS 

AND,42,T.SOP,.BOOLEAN+CS.IDN+CS.ONE+CS.ASS 

652  OO7A00 

LIST 

653 

65A 

655  OO7A00 

DOPINS 

OR,40,T.SOP,.BOOLEANKS.IDN-»-CS.ASS 

662  007400 

LIST 

663 

664 

665  007400 

DOPINS 

NN, 46, T. SOP,. BOOLE AN 

676  007400 

LIST 

677 

678  007400 

DOPINS 

NR, 44, T. SOP,. BOOLEAN 

687  007400 

LIST 

688 

689 

690  007400 

DOPINS 

LT,24,T.LIT-^T.SOP,.CHARACTER+CS.IDN 

700  007400 

LIST 

701 

702  007400 

DOPINS 

LE,26,T.LIT'»-T.S0P,.CHARACTER+CS.IDN+CS.0NE 

712  007400 

LIST 

713 

714 

715  007400 

DOPINS 

EQ,30,T.LIT+T.SOP,.CHARACTER+CS.IDNKS.ONE 

733  007400 

LIST 

734 

735  007400 

DOPINS 

GE,36,T.LIT+T.S0P,.CHARACTER+CS.IDN^CS.0NE 

745  007400 

LIST 

746 

747 

748  007400 

DOPINS 

GT,32,T.LIT+T.S0P,.CHARACTER+CS.IDN 

758  007400 

LIST 

759 

760 

761  007400 

DOPINS 

NE,34,T.LIT+T.S0P,.CHARACTER+CS.IDN 

780  007400 

LIST 

781 
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783  007A00 

MOPINS 

FLRJ4,T.S0P,.INTEGER+CS.B00L+CS.FL0AT,M$IDN 

786  007400 

LIST 

787 

788  007A00 

MOPINS 

CEIJ6,T.S0P,.INTEGER+CS.B00L+CS.FL0AT,M$IDN 

791  007400 

LIST 

792 

793  007400 

MOPINS 

IDN,2,T.S0P,.INTEGER+CS.B00L 

799  007400 

LIST 

800 

801 

802  007400 

MOPINS 

$IDN,-2 

808  007400 

LIST 

809 

810 

811  007400 

MOPINS 

$FLR,-14 

855  007400 

LIST 

856 

857 

858  007400 

MOPINS 

$CEI,-16 

868  007400 

LIST 

869 

870 

871  007400 

MOPINS 

NEG,4,T. SOP, .INTEGER 

878  007400 

LIST 

879 

880  007400 

MOPINS 

$NEG,-4 

887  007400 

LIST 

8U 

889 

890  007400 

MOPINS 

SIGN, 6, T. SOP,. INTEGER+CS.BOOL+CS. FLOAT 

901  007400 

LIST 

902 

903  007400 

MOPINS 

$SIG,-6 

914  007400 

LIST 

915 

916 

917  007400 

MOPINS 

RCIP,10,T.SOP,.FLOAT^CS.B0OL 

928  007400 

LIST 

929 

930  007400 

MOPINS 

EXP, 20, T. SOP,. FLOAT 

939  007400 

LIST 

940 

941 

942  007400 

MOPINS 

LN,54,T.SOP,.FLOATKS.BOOL 

949  007400 

LIST 

950 

951 

952  007400 

MuPINS 

PITM, 52, T. SOP, .FLOAT 

959  007400 

LIST 

960 

961  007400 

PRMRES 

966  007400 

LIST 

967 

968 

969  007400 

MOPINS 

ABS,12,T.S0P,.INTEGER^-CS.000L 

977  007400 

LIST 

978 

APL003  MACRO 
DEFINITIONS 

979  007A00 

992  007400 

993 

994 

995  007400 
1002  007400 
1003 
1004 

1005  007400 
1031  007400 
1032 
1033 

1034  007400 
1057  007400 
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MOPINS  SABS, -12 
LIST 


MOPINS  FACT, 22, T. SOP,. FLOAT+CS.BOOL 
LIST 


MOPINS  NOT, 50 
LIST 


mth-ins  roll,  100 

LIST 


APL( 
MIXE 


TIT 
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1059  007400 

DOPINS 

DEAL J  00 

1060 

.S8TTL 

MIXED  FUNCTION         I 

)EAL 

1061 

1062  000000 

013702 

003162* 

MOV 

LAR63L,R2 

;Pointer  to  Left  Arg 

1063  GOOOOA 

022762 

000001  000004 

CMP 

^1,A.ALEN(R2)   . 

;Is  It  a  Scalar? 

106A  000012 

001052 

BNE 

IS 

;Nope,  RANK  ERROR 

1065  000014 

013700 

003170' 

MOV 

LARGTY^RO 

;Get  Left  Arg  Type 
; Wrong,  DOMAIN  ERROR 
;Point  to  Self 

1066  000020 

001450 

BEQ 

2$ 

1067  000022 

011202 

MOV 

(R2),R2 

1068  000024 

CALL 

aiLARGC(RO) 

;Fetch  Length  (integer) 

1069  000030 

013700 

003200' 

MOV 

LARGVA,RO 

;Get  The  Length 

;I I legal,  DOMAIN  ERROR 

1070  000034 

002442 

BLT 

2$ 

1071  000036 

013703 

003204' 

MOV 

RARGBL,R3 

; Right  Arg  Data 

1072  000042 

005037 

003202' 

CLR 

RARGFL 

; Clear  the  increment  flag 

1073  000046 

022763 

000001  000004 

CMP 

*1,A.ALEN(R3) 

;Must  be  a  Scalar 

1074  000054 

001031 

BNE 

1S 

;Nope,  RANK  ERROR 

1075  000056 

013701 

003212' 

MOV 

RARGTY^RI 

;Get  Right  Arg  Type 
; Wrong,  DOMAIN  ERROR 

1076  000062 

001427 

BEQ 

2$ 

1077  000064 

011303 

MOV 

(R3),R3 

;Point  to  data 

1078  000066 

CALL 

aFRARGC(RI) 

;Fetch  Right  Arg 

1079  000072 

020127 

000004 

CMP 

R1,*.  INTEGER 

; Verify  it  is  Integer 

1080  000076 

001553 

BEQ 

7$ 

;It  is,  check  for  Special 

1081  000100 

002421 

BLT 

3$ 

:No,  But  is  Boolean 

1082  000102 

STF 

AC2,AC0 

;Copy  Value 

1083  000110 

CFCC 

;ls   it  Positive? 

1084  000114 

003412 

BLE 

2$              ; 

;No,  DOMAIN  ERROR 

1085  000116 

CALL 

F.TO.I 

; Convert  (if  possible) 

1086  000122 

000410 

BR 

3$ 

:Not  so.  Cannot  use  Special  Case 

1087 

1088  000124 

013737 

003154'  003222' 

MOV 

RESVAL,RARGVA   , 

;It  did,  use 

1089  000132 

012701 

000004 

MOV 

/if.  INTEGER, R1 

;  Integer  Value 

1090  000136 
1091 

000535 

BR 

8$ 

;Try  Special  Case 

1092  000140 

104411 

1$: 

RANERR 

;RANK  ERROR 

1093  000142 

104417 

2$: 

DOMERR 

; DOMAIN  ERROR 

1094  000144 

010137 

003144'        3$; 

MOV 

R1,RESTYP      ; 

; Result  Type 
;Get  Length 

1095  000150 

013700 

003200' 

MOV 

LARGVA,RO 

1096  000154 

LDCIF 

R0,AC1 

;Get  Floating  Form 

1097  000162 

CMPF 

AC1 ,AC2 

; Which  is  longer 

1098  000170 

CFCC 

*^ 

1099  000174 

003362 

BGT 

2$ 

; DOMAIN  ERROR 

1100  000176 

010002 

MOV 

R0,R2 

;SAVE  LENGTH 

1101  000200 

ASH 

SIZTAB(R1),R0   . 

; CONVERT  TO  BYTES 

1102  000214 

062700 

000010 

ADD 

*A.DIMU2,R0 

;ADD  IN  OVERHEAD 

1103  000220 

CALL 

GETFRA 

■Get  result,  SI  frame  for  it 

1104  000224 

062720 

000010 

ADD 

/(fA.DIMV2,(R0)+  . 

;ADD  IN  OFFSET 

1105  000230 

112720 

000001 

MOVE 

M^ARO)* 

;1  DIMENSION 

1106  000234 

110110 

MOVB 

R1,(R0) 

:SET  THE  TYPE 

1107  000236 

152720 

000200 

BIS6 

*A.ASB,(R0)4- 

;  AND  THE  FLAG 

1108  000242 

010220 

MOV 

R2,(R0)+ 

•SET  THE  ALEN 

1109  000244 

010220 

MOV 

R2-(R0)+ 

•AND  THE  1ST  DIM 

1110  000246 

001002 

BNE 

13i 

•The  real  target  is  too  far  away 

1111  000250 

000137 

000654' 

JMP 

12$ 

•Nothing  there.  Finished 
r  ;RESULT  STORE  ROUTINE 

1112  000254 

016137 

0000006  003152'  13$: 

MOV 

F.USCT(R1),RESCV1 

1113  000262 

STF 

AC2,AC3 

;COPY  FP  ARG  OVER 

1114  000270 

016137 

OOOOOOG  005122' 

MOV 

EC0MCT(R1),C0MPTf 

?  .-COMPARE  ROUTINE  POINTER 

1115  000276 

016137 

000054'  003160' 

MOV 

LENTAB(R1),LARGFl 

.  ;LEFT  ARG  INCRt>ENT 

APL 
MIX 
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DEAL 

1116  000304 

MUL 

/)f5.,Rl          ;LOOK  AL0N6  DIA60NAL 

1117  000320 

016137 

0000006  003176' 

MOV 

LARGCT(R1),LAR6CV  ;LEFT  FETCH 

1118  000326 

016137 

0000006  003220' 

MOV 

RAR6CT(R1),RAR6CV  ;RIGHT  FETCH 

1119  000334 

010037 

003140' 

MOV 

RO,RESPTR 

;SAVE  RESULT  POINTER 

1120  000340 

010001 

MOV 

R0,R1 

[RESULT  POINTER  IN  Rl 

1121  000342 

010204 

MOV 

R2-R4 

;GET  LOOP  COUNT 

1122  000344 

4$: 

STF 

AC5,AC0 

;GET  ARG 

1123  000352 

CALL 

.RAND 

;GET  RANDOM  VALUE 

1124  000356 

010103 

MOV 

R1,R3 

;SAVE  CURRENT  RESULT  POINTER 

1125  000360 

CALL 

aRESCVT 

; STORE  RESULT 

1126  000364 

104402 

SYSERR 

;THE  SHIP  NA  CANNA  TAKE  MUCH  MORE.  ( 

:aptain 

1127  000366 

013702 

003140' 

MOV 

RESPTR,R2      ! 

POINT  TO  BEGINNING 

1128  000372 

CALL 

aRAROCV 

; FETCH  CURRENT  RESULT  VALUE 

1129  000376 

020203 

5$: 

CMP 

R2,R3 

; STILL  IN  RANGE? 

1130  000400 

001407 

BEQ 

6$ 

;NOi  NOT  THE  WHIP!  ANYTHING  BUT  THE 

WHIP! 

1131  000402 

CALL 

aLAR6CV 

; FETCH  PREyiOUS   RESULTS 

1132  000406 

CALL 

aCOMPTR 

; COMPARE  'EM 

1133  000412 

001371 

BNE 

5$ 

;LOOP 

1134  000414 

010301 

MOV 

R3,R1 

■RESTORE  RESULT  POINTER 

1135  000416 

000752 

BR 

4$ 

;AND  TRY  AGAIN 

1136  000420 

6$: 

SOB 

R4,4$ 

;LOOP  FOR  ONE  AND  ALL 

1137  000424 

1138 

1139  000426 

RETURN 

;fimSHBO 

7$: 

CALL 

aiRAR6C(R1)     .-FETCH  RIGHT  ARG 

1140  000432 

013700 

003222'        8$: 

MOV 

RARGVA,RO 

;GET  THE  LARGEST  VAL 

1141  000436 

013702 

003200' 

MOV 

LARGVA.R2 

;GET  THE  LEN6TH 

1142  000442 

020200 

CMP 

R2.R0 

;RI6HT  SHOULD  B"^  BIGGER 

1143  000444 

003236 

B6T 

2$ 

;WRONGI  GIVE  UP  1  OW.  AVOID  THE  RUSH 

1144  000446 

010003 

MOV 

R0,R3 

•XOPy   LARGEST  VAL 

1145  000450 

006203 

ASR 

R3 

iDIVIDE  BY  2 

1146  000452 

006203 

ASR 

R3 

••    ••  4 

1147  000454 

006203 

ASR 

R3 

•   "   "8 

1148  000456 

0202C3 

CMP 

R2,R3 

;1S   IT  BIG6ER? 

1149  000460 

002631 

BLT 

3$ 

;N0.  USE  NORMAL  METHODS 

1150  000462 

010003 

MOV 

R0.R3 

;5AVE  COUNT 

1151  000464 

006300 

ASL 

RO 

; (WORDS) 

1152  000466 

062700 

000010 

ADD 

*A.DIMU2,R0 

;  PLUS  OVERHEAD 

1153  000472 

CALL 

6ETC01 

[ATTEMPT  CALL 

1154  000476 

000622 

BR 

3$ 

[FAILED.  TRY  W/  NORMAL  ROUTINE 

1155  000500 

SIFRAM 

[Build  an  SI  frame 

1156  000512 

010010 

MOV 

RO.(RO)        ! 

[POINT  TO  SELF 

1157  000514 

062720 

0000^ J 

ADD 

/lfA.DIM1+2,(R0)+  . 

[POINT  TO  DATA 

1158  000520 

012720 

102.01 

MOV 

/if<A.ASB+.INTEGER>*400+1.(R0)+  :BITS/1  DIM 

1159  000524 

010220 

MOV 

R2.(R0)+ 

[ALEN 

1160  000526 

010220 

MOV 

R2,(R0)+ 

[1ST  DIM 

1161  000530 

001447 

BEQ 

iii 

[NOTHING.  FINISHED 

1162  000532 

010004 

MOV 

R0,R4 

[COPY  RESULT  POINTER 

1163  000534 

PUSH 

R3 

[SAVE  WORK  COUNT 

1164  000536 

013701 

0000' 0' 

MOV 

ORIGIN. R1 

[GET  ORIGIN  (0  OR  1) 

1165  000542 

010120 

9$: 

MOV 

R1.(R0)+ 

[PLACE  A  NUMBER 

1166  000544 

005201 

INC 

Rl 

[INCREMENT  COUNT 

1167  000546 

SOB 

R3.9$ 

[LOOP  FOR  WORK  DATA 

1168  000552 

011602 

MOV 

(SP). R2 

[GET  THE  WORK  COUNT 

1169  000554 

010403 

MOV 

R4.R3 

[POINT  TO  RESULT/SOURCE 

1170  000556 

005001 

10$: 

CLR 

R1 

[DIVIDE  IS  FUNNY 

1171  000560 

013700 

003062' 

MOV 

RANDY-RO 

[RANDOM  VALUE 

1172  000564 

042700 

100000 

BIC 

/J^l  00060.  RO 

[CLEAR  HIGH  BIT 

API 
MI] 


nr 
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1173 
117A 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
118A 
1185 
1187 


000570 
000602 
000616 
000620 
000622 
000624 
000626 
000630 
000636 
000642 
000646 
000650 
000654 
000656 


006300 
a60400 
01 1 301 
011023 
010110 


005726 


PAGE  50-2 

MUL 

asp, RO 

ASHC 

*1,R0 

ASL 

RO 

ADD 

R4,R0 

MOV 

(R3),R1 

MOV 

(R0),(R3)+ 

MOV 

RK(RO) 

LDCIF 

RUACO 

CALL 

.RAND 

SOB 

R2J0$ 

TST 

(SP)* 

11$: 

CALL 

CARVE 

12$: 

RETURN 

AP 
Ml 


LIST 


DOUBLE  PRECISION  MULTIPLY 

GET  INTEGER  RANDOM  NUMBER 

WORD  OFFSET 

POINT  TO  RANDOM  ELEMENT 

GET  THE  CURRENT  ELEMENT 

COPY  OTHER  VALUE 

FINISH   EXCHANGE 

GET  VALUE 

RANDOM  NUMBER 

LOOP  FOR  EACH  ELEMENT 

SKIP  GARBAGE 

CLEAN  IT  UP 

FINISHED 
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1189  000656 

1211  000656 

1212 

1213 

121A 

1215 

1216 

1217  000656 

1313  000656 


PAGE  51 


MOPINS     SHAPJ02 
LIST 


FIT 


A) 
M] 


DOPINS 


RHO,102 
LIST 
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1315  000656  MOPINS 

1325  000656 

1326 

1327 

1328 

1329 

1330 

1331  000656  DOPINS 

1596  000656 


TIT 


A 
M 


RAVL,'^6 
LIST 


CTLM,56,T.DIM 
LIST 


TTTT 
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1598  000656 

1632  000656 

1633 

163A 

1635 

1636 

1637 

1638  000656 

1699  000656 


PAGE  53 


MOPINS  IOTA, 72 
LIST 


TTT 


DOPINS     IND,72 
LIST 


TIT 
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1701   000656  DOPINS     1C0MJ2A 

1709  000656  LIST 

1710 

1711 

1712 

1713 

17H 

1715  000656  DOPINS     COMP,60,T.DIM 

1789  000656  LIST 


TTT 


JIT 

APL003     MACRO  Ml 113    08-FEB-80  09:22     PAGE  55 
MIXED  FUNCTION  DEAL 


JIT 

APL003  MACRO  M1113  08-FEB-80  09:22  PAGE  55 
MIXED  FUNCTION         DEAL 

1791  000656  DOPJNS  1  EXP  J  30 

1799  000656  LIST 

1800 

1801 

1802 

1803 

1804 

1805  000656  DOPINS  EXPD,62,T.DIM 

1864  000656  LIST 


rrr 
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1866  000656  DOPINS  DROP J  04 

1907  000656  LIST 

1908 

1909 

1910 

1911  000656  DOPINS  TAKE,  IK 

21A9  000656  LIST 


TTT 
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2151  000656 

MOPINS 

1REV, 

146 

2152 

4 

.S8TTL 

MIXED 

FUNCTION                     1 

"IRST  CO-ORDINATE  REVERSE 

2153 

21 54  000656 

013704 

003120' 

MOV 

M0NBL<,R4 

; POINT  TO  ARG 

2155  000662 

116401 

000003 

Move 

A.BITS(R4),R1        . 

;GET  ARRAY'S  BITS 

2156  000666 

012702 

000001 

MOV 

#1,R2 

;USE  FIRST  CO-ORDINATE 

2157  000672 

CALL 

FIXDIM 

;GET  DIM  POINTER 

2158  000676 

000137 

000706' 

JMP 

REVRS1 

;D0  REVERSAL 

2160  000702 

LIST 

2161 

2162 

2163 

21 6A 

2165 

2166  000702 

MOPJNS 

REVS, 

144,T.DIM 

2167 

< 

.S8TTL 

MIXED 

FUNCTION                     REVERSAL                                                                                                              1 

2168 

2169 

'++ 

2170 

•    FUNCTIONAL 

DESCf^IPTION: 

2171 

REVERSE  IS  VERY  SIMPLE!  AS  SIMPLE  AS   'ABC.     JUST  REMEMBER  THERE                                          1 

2172 

ARE   • 

A'   GROUPS  OF    'B'    TO  BE  REVERSED.     THE  GROUPS  OF    'B'  ARE  REVERSED 

2173 

IN  A  BUT  THE    'C   ELEMENTS  IN  EVERY   'B'   KEEP  THE  SAME  ORDER.      'A'    IS                                     I 

2174 

THE  PRODUCTS  OF  ALL  DIMS 

PRECEDING  THE  REVERSAL  DIM  AND   'C    IS  THE 

2175 

PRODUCT  OF  ALL  DIMS  FOLLOWING  THE  REVERSAL  DIM.      'B'    IS  THE   SIZE  OF                                     I 

2176 

THE  REVERSAL  DIM. 

2177 

;~ 

2178 

2179  000702 

CALL 

MFXDIM 

;GET  DIM  TO  USE 

2180  000706 

017701 

005122'                   REVRS1: 

MOV 

aCOMPTR^RI 

;KEEP  SAME  SIZE  ALONG  DIM 

2181  000712 

CALL 

RESBLK 

; CREATE  RESULT  BLOCK 

2182  000716 

017703 

005122' 

MOV 

aC0MPTR,R3 

:GET  'B' 

2183  000722 

005764 

000004 

TST 

A.ALEN(R4) 

;Anything  there? 
[DONE   IF  NO  LEN 

2184  000726 

001431 

BEQ 

5$ 

2185  000730 

013702 

003122' 

MOV 

M0NPTR,R2 

;  POINT  TO  START  OF   SOURCE  DATA 

2186  000734 

063702 

005130' 

ADD 

CNTSIZ,R2 

;POINT  TO  SECOND   'A'   GROUP 

2187  000740 

163702 

005134' 

SUB 

SKPSIZ,R2 

;BUT  MOVE  DOWN  TO  LAST   'B'    IN  FIRST    'A' 

2188 

2189 

•   DO  REVERSAL 

WITH  SET  UP  PARAMETERS                                                                                                                      1 

2190 

j 

> 

2''91  000744 

010201 

] 
I 

H: 

MOV 

R2,R1 

;POINT  TO  LAST   'B'    IN   'A'   OF   SOURCE 

2192  000746 

017703 

005122' 

MOV 

aC0MPTR,R3 

;GET  ft  OF    'B'S 

2193  000752 

013704 

005134' 

5$: 

MOV 

SKPSIZ,R4 

;AND  SIZE  OF    'B'    IN  BYTES 

2194  000756 

112120 

i 

'*%' 

MOVB 

(R1)+,(R0)+ 

;COPY  DATA 

2195  000760 

SOB 

R4,4$ 

;COPY  ALL  OF   THE    'B' 

2196  000764 

163701 

005134' 

SUB 

SKPSIZ,R1 

:BACK  UP  1    'B'    IN  SOURCE 

2197  000//0 

163701 

005134' 

SUB 

SKPSIZ,R1 

:THEN  ONE  MORE   'B' 

2198  000//4 

SOB 

R3,3$ 

;D0  ALL    'B'S   IN  THIS   'A' 

2199  001000 

063702 

005130' 

ADD 

CNTSIZ,R2 

;MOV  SOURCE  POINTER  TO  NEXT  A 

2200  001004 

005337 

005126' 

DEC 

COMCNT 

;MORE   'A'S 

2201  001010 

001355 

BNE 

2$ 

;YES 

2202  001012 

1 

>$: 

RETURN                                      ; 

; GRAND  FINALLE 

2204  001014 

LIST 

TTTT 
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2206 

2207 

2208 

2209 

2210 

2211 

2212 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

222A 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 


001014 


001014 
001020 
001024 
001030 
001034 


PAGE  58 


DOPINS 
.SBTTL 


TTT 


1R0TJ46 
MIXED  FUNCTION 


012702  000001 
000137  001040' 


CALL 

MOV 

CALL 

JMP 

LIST 


GETREG 
#1,R2 
FIXDIM 
ROT ATI 


FIRST  CO-ORDINATE  ROTATE 


LOAD  SOME  REGISTERS 
USE  DIM  1 

SET  UP  DIM  POINTERS 
ROTATE  ITi 


001034 


001034 
001040 
001044 
001050 
001054 
001060 
001064 
001066 
001070 
001076 
001102 
001106 

001110 
001114 
001120 
001124 
001126 
001130 
001132 
001134 
001136 
001140 
001144 
001146 
001154 
001156 
001160 
001164 
001170 
001174 
001176 
001200 
001202 
001204 
001206 
001212 


017701  005122' 

010037  003136' 

013700  003162' 
013702  003170' 
001001 

104417 

016237  OOOOOOG  003220' 

005037  00320;.' 

105760  000002 

001444 

116002  000002 

013701  003204' 
116103  000002 
005303 
002403 
001403 
020203 

001411 

104411 

020227  000001 

001374 

026027  000004  000001 

001370 

000420 

062700  000006 

062701  000006 
020137  005122' 
001001 

005721 
022021 
001401 
104412 

013737  003160'  003202' 


DOPINS 

ROT  J  44 

,T.DIM 

.SBTTL 

MIXED  FUNCTION         R( 

.•ROTATE 

,  LIKE  REVERSAL,  IS  AS  FAS 

CALL 

DFXDIM 

R0TAT1 : 

MOV 

aC0MPTR,R1      ;) 

CALL 

RESBLK 

MOV 

RO, RESULT 

MOV 

LARGBL,R0 

MOV 

LARGTY,R2 

BNE 

5$ 

DOMERR 

;l 

5$: 

MOV 

IRARGC(R2),RARGCV 

CLR 

RAR6FL 

TSTB 

A.DIMS(RO) 

6EQ 

4$ 

MOVB 

A.DIMS(R0),R2   ; 

MOV 

RARGBL,R1 

MOVB 

A.DIMS(R1),R3   ; 

DEC 

R3 

BLT 

1$ 

BEQ 

13$ 

CMP 

R2,R3 

BEQ 

2$ 

1$: 

RANERR 

13$: 

CMP 

R2,#1 

BNE 

1$ 

CMP 

A.ALEN(R0\*1 

BNE 

1$ 

BR 

4$ 

2$: 

ADD 

*A.DIM1,R0 

ADD 

^A.DIMI.RI 

3$: 

CMP 

RUCOMPTR 

BNE 

9$ 

TST 

(R1)  + 

9$: 

CMP 

(R0)'^,(R1)  + 

BEQ 

6$ 

LENERR 

6$: 

SOB 

R2,3$ 

MOV 

LARGFL,RARGFL 

OO^220    005777  005122' 


4$: 


TST 


aCOMPTR 


ROTATE 


AS  'ABC 

GET  THE  DIM 
NO  CHANGE  IN  SIZE 
CREATE  RESULT  BLOCK 
SAVE  POINTER 
POINT  TO  LEFT  ARG 
GET  THE  LEFT  ARG  TYPE 
YES,  IT'S  NUMERIC 
NO,  DOMAIN  ERROR 

;Used  to  fetch  the  Left  argument 
ASSUME  SCALAR 
LEFT  A  SCALAR? 
YES 

GET  #  OF  DIMS  IN  LEFT 

POINT  TO  RIGHT  ARG 

GET  M   OF  RIGHT  DIMS 

DON'T  COUNT  ONE 

ERROR!  TOO  FEW  DIMS! 

Right  argtinent  is  a  vector,  check  special  case 

SAME  NUMBER  OF  DIMS  (ADJUSTED) 

YES 

RANK  ERROR 

Is  Left  argument  a  vector? 

No 

Is  Left  argument  a  singleton  vector? 

No 

Yes,  Then  skip  Length  check 

POINT  TO  LEFT  DIMS 

POINT  TO  RIGHT  DIMS 

IS  THIS  THE  DIM  TO  ROTATE  ALONG? 

NO 

SKIP  TO  NEXT  DIM  OF  RIGHT 

SAME  SIZE  DIMS? 

YES 

LENGTH  ERROR 

COMPARE  REST  OR  DIMS 

LEFT  ARG  INC 

ANY  ELEMENTS  ALONG  DIM? 
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226A 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

r30<^ 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 


001224 
001226 


001234 
001242 
001246 


001254 
001260 
001264 
001270 
001274 
001300 
001304 
001310 
001312 
001314 
001330 
001332 

001336 
001340 
001342 
001344 

001350 
001354 
001362 
001366 


001370 
001376 
001404 
001410 
001412 


003472 
017737 


013737 
013700 
013737 


013704 
01 3703 


005122'  003200* 


BLE 
MOV 


TTTT 


12$  ;YES,  ALREADY  DONE 

aCOMPTRXARGVA  ;FLOAT  DIM  SIZE  CB') 


DO  ROTATION  ALREADY!  QUIT  STALLING  AND  SETTING  UPi  COM'ONI 


003136*  005066*  H:  MOV 

003206*  MOV 

005124*  005072'        MOV 


RESULT, RLTBAS 

RARGPT.RO 

COMSKP,CCNT 


SET  UP  RESULT  BASE 
POINT  TO  RIGHT  ARG 
SET  UP  FOR  COUNT  OF  'C* 


fix   UP  FOR  *B*  ELEMENTS  *C*  APART 


005066* 
003164' 


k$: 


010337  003164' 


013701 
017702 
160102 
010103 

060003 


010102 
001403 
010003 


063700 
063737 
005337 
001332 


063737 
063737 
005337 
001311 


003154' 
005122' 


005132' 

005132'  005066' 
005072 ' 


10$: 
11$: 


MOV  RLTBAS,R4 

MOV  LARGPT,R3 

CALL  aRARGCV 

MOV  R3,LARGPT 

CALL  D$RES 

MOV  RESVAL^RI 

MOV  SIC0MPTR,R2 

SUB  R1  ,R2 

MOV  R1,R3 

MUL  SKPSIZ,R3 

ADD  R0,R3 

CALL  MOVROT 

MOV  R1,R2 

BEQ  10$ 

MOV  R0,R3 

CALL  MOVROT 

ADD  ELESIZ,RO 

ADD  ELESIZ^RLTBAS 

DEC  CCNT 

BNE  8$ 


005130'  003136' 
005130'  003206' 
005126' 


JUMP  TO  NEXT  'A' 


12$ 


ADD 
ADD 
DEC 
BNE 
RETURN 


CNTSIZ, RESULT 

CNTSIZ,RARGPT 

COMCNT 

7$ 


POINTER  TO  CURRENT  RESULT  BASE 

POINT  TO  LEFT  ARG 

ARG  FETCH 

SAVE  POINTER  TO  LEFT  ARG 

GET  THE  RESIDUE  (MOD  THE  CRITTER) 

AND  FIX  IT 

GET  SIZE  ALONG  DIM 

MAKE  IT  "M   TO  LEFT" 

GET  •#  TO  RIGHT' 

MAKE  OFFSET  TO  '*  TO  LEFT' 

MAKE  ABSOLUTE 

ROTATAE  THE  DATA 

COPY  *»   TO  RIGHT' 

IF   NONE  TO  MOVE,  DON'T  MOVE  NONE 

COPY  SOURCE  BASE 

ROTATE  THE  DATA 

BUMP  SOURCE  BASE  TO  NEXT  ELEMENT 
BUMP  RESULT  BASE  TO  NEXT  ELEMENT 
ANYMORE  WITHIN  THE  'B' 
YES 


NEXT  RESULT  'A' 
NEXT  SOURCE  'A' 
ANY  MORE  'A'S? 
YES 

all  done 


; 'MOVROT'  IS  USED  TO  MOVE  THE  DATA.   IT  MOVES  R2  ELEMENTS  STARTING  AT 
;R3  TO  R4,  INCREMENTING  BY  'SKPSIZ' 


001414 

001416 
001422 

001426 
001430 
001434 
001440 
001444 
001450 


MOVROT:  PUSH 


013700 
112324 


063703 
063704 


005132' 


1$: 


2$: 


005134' 
005134' 


PUSH 
MOV 

MOVB 

SOB 

POP 

ADD 

ADD 

SOB 


RO 

<R3,R4> 
ELESIZ,RO 

(R3)^,(R4)^ 

R0,2$ 

<R4,R3> 

SKPSIZ,R3 

SKPSIZ,R4 

R2J$ 


;SAVE  RO 

;SAVE  REGISTERS 
;GET  SIZE  OF  ELEMENT 

;MOVE  CHAR 
;LOOP  FOR  ELEMNT 
.-RESTORE  THE  REGISTERS 
;NEXT  SOURCE  ELEMENT 
;NEXT  RESULT  ELEMENT 
;D0  ALL  OF  'EM  WANTED 


APL003     MACRO  M1113     08-FEB-80  09:22     PAGE  58-2 
MIXED  FUNCTION  ROTATE 


BlA- 


APL( 
MIXI 


2321  001  ;5A 

2322  001 A56 
2323 

2324 
2325 
2326 
2328  001460 


POP 
RETURN 


RO 


;RI  TBAS=  OPTMPO 
;ROTINC=  0PTMP1 
;CCNT=   0PTMP2 
LIST 


; RESTORE  RO 
;ALL  DONE 

•RESULT  BASE 

•ROTATION'S  INC  FOR  INDEX  OF  LEFT  ARG 

.•COUNT  OF  'C  GROUPS 


rrr 
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2330  001A60  MOPINS 

2415  00U60 


C  U 


APL 
MIX 


TRANJ26 
LIST 


APL003    MACRO  Mil  13     08-FEB-80  09:22     PAGE  60 
MIXED  FUNCTION  ROTATE 


D  14 


API 
MI) 
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D  U 


API 
MI3 


2417  001460 
215  ^  001 A60 


DOPINS 


TRANJ26 
LIST 


Tv: 
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AP 
MI 
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2656  001460 
2856  001^60 


PAGE  61 


DOPINS  ENCD,76 
LIST 


TW 


AF 
MI 
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F  U 


AF 
M 
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2858  OOH60  DOPINS 

2988  001460 


M7 


Al 
M] 


DECD,64 
LIST 


GlT 
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A 

M 
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2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 


001460 
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MOPINS     GDWNJ36,T.DIM 
.S8TTL     MIXED  FUNCTION 


TT7 


A 
M 


001460 
001466 
001472 


001472 


012737    177776    005102' 
000137    001500' 


GRADE  DOWN 


•CALLS  SORT  ROUTINE  TO  RETURN  INDICES  OF  THE  ARGUMENT  SORTED 
;  INTO  DECENDING  ORDER. 


MOV 
JMP 
LIST 


*-2,0PTMP6 
SORT 


;SET  THE  GRADE  DOWN  FLAG 
;AND  CALL  THE  SORTER 


MOPINS 
.S8TTL 


GDUPJ40,T.DIM 
MIXED  FUNCTION 


GRADE  UP 


GRADE  UP/DOUN  ARE  IMPLEMENTED  USING  A  LINKED  TWO-WAY  MERGE  SORT  WHICH 
PRODUCES  A  SORTED  CHAIN  OF  INDICES.   THIS  CHAIN  IS  THEN  TRANSFORMED  INTO 
A  PERMUTATION  VECTOR,  WHICH  IS  THEN  INVERTED  TO  OBTAIN  THE  DESIRED  RESULT. 
THE  ALGORITHM  RUNS  IN  0(LOG  N)  TIME  AND  REQUIRES  2*L0G  N  TEMRJRARY  SPACE. 
THIS  TEMPORARY  SPACE  IS  ALLOCATED  ON  THE  SP  STACK.  THE  MAXIMUM  NEEDED, 
100  OCTAL  BYTES,  IS  ALWAYS  RESERVED.  THE  ALGORITHM  IS  DUE  TO  L.  J.  WOODRUM, 
IBM  SYSTEM  JOURNAL,  8(1969)  189-203.  SEE  ALSO  D.  K.  KNUTH,  THE  ART  OF 
COMPUTER  PROGRAMMING  VOL  3,  SORTING  AND  SEARCHING,  159-170,  AND  R.  HART, 
CREATIVE  COMPUTING,  JAN/FE8  1978,  96-101  FOR  POSSIBLE  IMPROVEMENTS. 

REWRITTEN:    MAR  27,  1978    BY:  PETER  HAYNES 


REGISTER  ASSIGNMENTS: 

PTMP1  = 

PTMP2  = 

0PTMP3  = 

0PTMP4  = 

0PTMP5  = 

0PTMP6  = 

0PTMP7  = 

0PTMP8  = 

0PTMP9  = 


DIMENSION  TO  SORT  ALONG,  DEFAULT  =  1 

STRIDE  =  0PTMP3*0PTMP4 

SECOND  DIMENSION,  IF  VECTOR  THEN  EQUALS  1 

SIZE  IN  BYTES  OF  ONE  ELEMENT 

THE  NEGATION  OF  THE  ORIGIN 

GRADE  UP/DOWN  FLAG,  USED  AS  AN  OFFSET  BY  THE  GDCMP  RTN 

GRADE  UP:  2,  GRADE  DOWN:  -2 
LENGTHS  STACK  POINTER 
HEADERS  STACK  POINTER 
NEX,  THE  NEXT  ELEMENT  OF  THE  PERM  VECTOR  TO  MERGE 


001472 
001500 
001504 
001510 
001514 
001516 
001522 
001526 
001534 
001540 
001542 
001544 
001546 
001554 


012737 
005037 
013703 
005763 
001473 
116304 

012737 
020427 
003401 
104411 
002403 
016337 
016337 


000002  005102' 
005070'        SORT 
003120' 
000004 

000002 

000001  005074 ' 
000002 


1$: 
000010  005074' 
000006  005070'  2$: 


MOV  M2,0PlfP6 

CLR  0PTMP1 

MOV  M0NBLK,R3 

TST  A.ALEN(R3) 

BEQ  3$ 

MOVB  A.DIMS(R3),R4 

CONINC  R4 

MOV  /n,0PTMP3 

CMP  R^M 

BLE  1$ 

RANERR 

BLT  2$  .  , 

MOV  A.DIMU2(R3),0PTMP3 

MOV  A.DIM1(R3),0PTMP1 


SET  THE  GRADE  UP  FLAG 

ASSUME  NULL  ARGUMENT 

POINT  TO  ARGUMENT  BLOCK 

NULL  ARGUMENT? 

YES,  RETURN  THE  NULL  VECTOR 

GET  RANK  OF  THE  ARGUMENT 

CONVERT  SCALAR  TO  VECTOR 

DEFAULT  FOR  2ND  DIMENSION  OF  VECTOR 

TOO  MANY  DIMENSIONS? 

NO,  OK 

YES,  RANK  ERROR 

VECTOR,  NO  SECOND  DIEMENSION 

; SECOND  DIMENSION 

;FIRST  DIMENSION 


APL003     MACRO  Ml 113    08-FEB-80  09:22     PAGE  63-1 
MIXED  FUNCTION  GRADE  UP 


¥17 
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MIXED  FUNCTION 

GRADE  UP 

3048  001562 

013702 

003124' 

MOV 

M0NTYP,R2 

.-GET  ARGUMENT  TYPE 

3049  001566 

016201 

000054* 

MOV 

LENTAB(R2),R1 

.-OFFSET  FOR  SECOND  DIMENSION 

3050  001572 

016237 

OOOOOOG  003156* 

MOV 

EC0MCT(R2),C0MRTN               .-POINTER  TO  COMPARE  ROUTINE                                                    1 

3051   001600 

006302 

ASL 

R2 

.-TIMES  2 

3052  001602 

006302 

ASL 

R2 

.-TIMES  4 

3053  001604 

063702 

003124' 

ADD 

M0NTYP,R2 

.-TIMES  5 

305A  001610 

016237 

OOOOOOG  003176' 

MOV 

LARGCT(R2),LARGCV               ;P0INTER  TO  LEFT  FETCH  ROUTINE 

3055  001616 

016237 

OOOOOOG  003220' 

MOV 

RARGCT(R2),RARGCV               .-POINTER  TO  RIGHT  FETCH  ROUTINE 

3056  001624 

010137 

005076' 

MOV 

R1,0P1MP4 

.-ELEMENT  SIZE.   STRIDE  FOR  FIRST  DIMENSION 

3057  001630 

MUL 

0PTMP3.R1 

.-CALCULATE  STRIDE 

3058  001644 

010137 

005072' 

MOV 

R1,0PTMP2 

;SAVE  IT 

3059  001650 

CALL 

MONDIM 

.•DIMENSIONAL  OPERATOR 

3060  001654 

020204 

CMP 

R2,R4 

;SAME  AS  LAST  DIMENSION? 

3061   001656 

001412 

BEQ 

3$ 

;YES.  NO  PROBLEM 

3062  001660 

012700 

005072' 

MOV 

/(fOPTMP2,R0 

.-POINT  TO  FIRST  DIMENSION  DATA 

3063  001664 

012701 

005076' 

MOV 

4fOPTMP4.R1 

.-POINT  TO  SECOND  DIMENSION  DATA 

3064  001670 

011002 

MOV 

(R0).R2 

.-EXCHANGE  INCREMENTS 

3065  001672 

011110 

MOV 

(Rl).(RO) 

3066  001674 

010211 

MOV 

R2,(R1) 

3067  001676 

014002 

MOV 

-(R0).R2 

.-EXCHANGE  DIMENSION  SIZES 

3068  001700 

014110 

MOV 

-(R1),(R0) 

3069  001702 

010211 

MOV 

R2.(R1) 

3070  001704 

013700 

005070' 

3$: 

MOV 

0PTMP1.R0 

.-GET  SORT  DIMENSION 

3071   001710 

006300 

ASL 

RO 

.-COMPUTE  RESULT  SIZE   IN  WORDS 

3072  001712 

062700 

000010 

ADD 

*A. DIMU2.ro 

.-ADD  IN  OVERHEAD 

3073  001716 

CALL 

GETFRA 

.-Get  result.  SI  fra.'ne  for  it 

3074  001722 

010037 

0000006 

MOV 

RO^RESBLK 

.-SAVE  POINTER  TO  RESULT 

3075  001726 

062720 

000010 

ADD 

^10.(R0)+ 

.-SET  POINTER  TO  DATA 

3076  001732 

112720 

000001 

Move 

*1.(R0)+ 

.-RESULT  IS  VECTOR 

3077  001736 

112720 

000204 

MOVB 

^A.ASB^-.  INTEGER. 

(R0)+       .-VALUE  IS  NUMERIC 

3078  001742 

013702 

005070' 

MOV 

0PTMP1 .R2 

.-SORT  DIMENSION   (LOOP  COUNT) 

3079  001746 

010220 

MOV 

R2.(R0)+ 

.-ALEN 

3080  001750 

010220 

MOV 

R2.(R0)"»- 

.-DIMENSION  1 

3081  001752 

010037 

003140' 

MOV 

RO.RESPTR 

.-SAVE  POINTER  TO  RESULT  DATA 

3082  001756 

026327 

000004 

000001 

CMP 

A.ALEN(R3)./)f1 

.-TEST  FOR  TRIVAL  CASES 

3083  001764 

003004 

BGT 

5$ 

.-NON-TRIVAL 

3084  001766 

002402 

BLT 

4$ 

.-RESULT  IS  NULL  VECTOR.  QUIT  NOW 

3085  001770 

0137r 

000030' 

MOV 

ORIGIN. (RO) 

.-RESULT  IS  ORIGIN 

3086  001774 

4$: 

RETURN 

.-AND  RETURN 

3087 

3088  001776 

012737 

000001 

005100' 

5$: 

MOV 

#1.0PTMP5 

.-COMPLEMENT  THE  ORIGIN 

3089  002004 

163737 

000030' 

005100' 

SUB 

0RIGIN.0PTMP5 

.-NOTORG  =  1-ORIGIN 

3090  002012 

013737 

005076' 

003160' 

MOV 

0PTMP4.LARGFL 

.-GET  INCREMENTS  FOR  COMPARSION  ROUTINE 

3091  002020 

013/37 

005076' 

003202' 

MOV 

0PTMP4.RARGFL 

3092  002026 

005746 

TST 

'(SP) 

.-RESERVE  SPACE  FOR  THE  TEMP  STACKS 

3093  002030 

010600 

MOV 

SP.RO 

LPTR=1 

3094  002032 

010037 

005104' 

MOV 

R0.0PTMP7 

.-SAVE  LPTR  FOR  LATER  COMPARISON 

3095  002036 

162706 

000100 

SUB 

*100.SP 

.-SKIP  OVER  THE  STACK  AREA 

3096  002042 

010637 

005106' 

MOV 

SP.0PTMP8 

HPTR=0 

3097  002046 

005726 

TST 

(SP)^ 

.-GET  SP  RIGHT 

3098  002050 

013710 

005070' 

MOV 

0PTMP1 , (RO) 

LSTK(1)=N 

3099  002054 

013/37 

003140' 

005110' 

MOV 

RESPTR,0PTMP9 

NEX=1 

3100  002062 

011001 

6$: 

MOV 

(RO).RI 

.-20           T=LSTK(LPTR) 

3101  002064 

002002 

BGE 

7$ 

IF   T<0  THEN 

3102  002066 

005301 

DEC 

Rl 

T=T-1 

3103  002070 

005401 

NE6 

Rl 

ABS(T) 

3104  002072 

006201 

7$: 

ASR 

Rl 

T=.5*ABS(T) 
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3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

31 2A 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

3161 


002074 
002076 
002102 
002104 
002112 
002120 
002126 
002134 
002136 
002140 

002142 
002146 
002154 
002160 
002164 
002166 
002170 
002174 
002176 
002202 
002204 
002210 
002212 
002214 
002216 
002220 
002222 
002224 
002226 
002230 
002232 
002234 
002236 
002240 
002242 
002244 

002246 
002252 
002254 

002260 
002264 
002266 
002270 
002272 
002274 
002276 


010140 
020127 
001367 
062737 
013777 
013777 
062737 
005720 
005410 
002750 

017703 
162737 
017701 

000404 
000403 
010377 
000410 
010177 
000414 

000410 
000407 
010312 
010302 
011203 
020203 
001367 
010112 
000406 
010112 
010102 
011201 
020201 
001360 
010312 

020037 
103730 
017700 

013701 
005002 
005302 
011003 
010210 
010300 


000001 

000002  005106* 

005110'  005106' 

005110'  005110' 

000002  005110' 


8$: 


005106' 

000002  005106' 

005106' 


005106' 
005106' 


9$: 

10$: 

11$: 


12$; 
13$; 


005104' 
005106' 
005070' 


14$; 


15$; 


TIT" 


MOV  R1..-(R0) 

CMP  Rl  ,M^ 

BNE  6$ 

ADD  U2,0PmPB 

MOV  0PTMP9.a0PTMP8 

MOV  OPTMP9,aOPTMP9 

ADD  *2.0PTMP9 

TST  (RO)^ 

NEG  (RO) 

BLT  6$ 

MOV  aOPTMP8,R3 

SUB  4f2,OPTMP8 

MOV  aOPTMP8,R1 

CALL  GDCMP 

BR  9$ 

BR  9$ 

MOV  R3,aOPTMP8 

BR  11$ 

MOV  Rl,aOPTMP8 

BR  13$ 

CALL  GDCMP 

BR  12$ 

BR  12$ 

MOV  R3,(R2) 

MOV  R3-R2 

MOV  (R2). R3 

CMP  R2,R3 

BNE  10$ 

MOV  R1,(R2) 

BR  14$ 

MOV  R1,(R2) 

MOV  R1,R2 
MOV     (R2),R1 

CMP  R2,R1 

BNE  10$ 

MOV  R3,(R2) 

CMP  R0,OPTMP7 

BLO  8$ 

MOV  a0PTMP8,R0 

MOV  0PTMP1 ,R1 

CLR  R2 

DEC  R2 
MOV     (R0),R3 

MOV  R2,(R0) 

MOV  R3,R0 

SOB  R1J5$ 


30 


LPTR=LPTR^-1 ,  LSTK(LPTR)=T 
IF  T  .NE.  1  THEN 
60  TO  20 
HPTR=HPTR-«-1 
HSTK(HPTR)=NEX 
P(NEX)=NEX 
NEX=NEX'H 
LPTR=LPTR-1 

LSTK(LPTR)=-LSTK(LPTR) 
IF  LSTKCLPTRXO  THEN  GO  TO  20 
HSTK(HPTR)  =  HSTK(HPTR)  M2  HSTK(HPTR-l) 


GET  J 
POP  HSTK 
GET  I 


< 

>  5 

10 

20 
< 

> 

30 


IF  A(I)<A(J)  THEN  GO  TO  10 


M2=J 

GO  TO  30 

M2=I 

GO  TO  50 

IF  A(I)<A(J)  THEN  60  TO  40 


P(T)=J 

T=J 

J=P(T) 

IF  T  .NE.  J  THEN 

GO  TO  20 
P(T)=I 
EXIT 
P(T)=I 
T=I 

I=P(T) 
IF  T  .NE.  I  THEN 

GO  TO  20 
P(T)=J 

IF  LPTR>1  THEN 

60  TO  30 
I=HSTK(HPTR) 


DO  40  K=l ,   N 
TRACE  THE  CHAIN  AND  REPLACE  WITH  INDICES 
-K 

T=P(I) 
P(I)=-K 
I=T 


40 
50 


;NOW  INVERT  THE  PERMUTATION  VECTOR  AND  CORRECT  THE  ORIGIN,  ALL  PREVIOUS 
;  OPERATIONS  WERE  IN  0RI6IN  ONE. 


002302 
002306 


013700 
010001 


005070' 


MOV    0PTMP1,R0 
16$:    MOV     R0,R1 


DO  30  I=N,   1,   -1 
L=I 
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> 

MIXED  FUNCTION 

GRADE  UP 

3162  002310 

163701 

005100' 

SUB 

0PTMP5,R1 

> 

1 

L=I-NOTORG     (ORIGIN  CORRECTION) 

3163  00231A 

010004 

MOV 

R0,R4 

• 

J=P(I) 

3164  002316 

005304 

DEC 

R4 

3165  002320 

006304 

ASL 

R4 

3166  002322 

063704 

003140' 

ADD 

RESPTR.R4 

3167  002326 

011402 

MOV 

(R4),R2 

3168  002330 

002015 

BGE 

18$ 

IF   J   .GE  0  THEN  GO  TO  30 

3169  002332 

005402 

17$: 

NEG 

R2 

;20 

J=-J 

3170  00233A 

010204 

MOV 

R2,R4 

K=P(J) 

3171  002336 

005304 

DEC 

R4 

3172  002340 

006304 

ASL 

R4 

3173  002342 

063704 

003140' 

ADD 

RESPTR,R4 

3174  002346 

011403 

MOV 

(R4),rS 

3175  002350 

010114 

MOV 

R1,(R4) 

P(J)=L 

3176  002352 

010201 

MOV 

R2,R1 

L=J 

3177  002354 

163701 

005100' 

SUB 

0PTMP5,R1 

L=J-NOTORG     (ORIGIN  CORRECTION) 

3178  002360 

010302 

MOV 

R3-R2 

J=K 

3179  002362 

002763 

BLT 

17i 

IF   J<0  THEN  GO  TO  20 

3180  002364 

18$: 

SOB 

R0J6$ 

■30 

CONTINUE 

3181 

3182 

;  + 

3183 

;D0NE, 

NOW  CLEAN  UP  AND  RETURN 

3184 

;- 

3185  002370 

062706 

000100 

ADD 

MWO,SP 

; TRASH  THE   SORT  STACKS                                                                                   1 

3186  002374 

.^ETURN 

3187 

3188 

;-♦■ 

3189 

;    COMPARE  ROUTINE  FOR  SORT 

3190 

;- 

3191 

3192  002376 

062716 

000002 

6DCMP: 

ADD 

U2ASP) 

; EQUAL  RETURN  ASSUMED                                                                                  I 

3193  002402 

PUSH 

<R1,R2,R3,R4>       . 

;SAVE 

SOME  REGISTERS 

3194  002412 

163701 

003140' 

SUB 

RESPTR,R1 

; CALCULATE  POINTER 

3195  002416 

006201 

ASR 

R1 

;INTO  A  FROM 

3196  002420 

MUL 

0PTMP2,R1 

; POINTER  I 

3197  002434 

063701 

003122' 

ADD 

M0NPTR,R1 

;=«0NPTR+STRIDE*(RESPTR-I)/2 

3198  002440 

010102 

MOV 

R1,R2 

;MOVE 

OFFSET  TO  CORRECT  REG 

3199  002442 

163703 

003140' 

SUB 

RESPTR,R3 

;  CALCULATE  POINTER 

3200  002446 

006203 

ASR 

R3 

;INTO  A  FROM 

3201  002450 

MUL 

0PTMP2,R3 

;POINTER  J 

3202  002464 

063703 

003122' 

ADD 

M0NPTR,R3 

; =MONPTR+STRIDE  * (RESPTR-J ) /2 

3203  002470 

013704 

005074 ' 

MOV 

0PTMP3,R4 

; NUMBER  OF   ITEMS  TO  SCAN 

3204  002474 

1$: 

CALL 

aLARGCV 

•GET 

LEFT  ARGUMENT 

3205  002500 

CALL 

aRARGCV 

:GET 

RIGHT  ARGUMENT 

3206  002504 

CALL 

aCOMRTN 

•COMPARE  THEM                                                                                                1 

3207  002510 

002410 

BLT 

3$ 

•< 

3208  002512 

003013 

BGT 

4$ 

•> 

3209  002514 

SOB 

R4J$ 

•=,   KEEP  LOOKING                                                                                             1 

3210  002520 

2$: 

POP 

<R4,R3,R2,R1>       . 

•ALL 

EQUAL  RETURN 

3211  002530 

RETURN 

3212 

3213  002532 

163766 

005102'  000010 

3$: 

SUB 

0PTMP6J0(SP)       . 

•LESS 

THAN  RETURN 

3214  002540 

000767 

BR 

2$ 

3215 

3216  002542 

063766 

005102'  000010 

4$: 

ADD 

0PTMP6J0(SP) 

•GREATER  THAN  RETURN                                                                                     1 

3217  002550 

000763 

BR 

2$ 

3219  002552 

LIST 
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3221  002552 
3316  002552 


MOPINS 


MMDJ22 
LIST 
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3318  002552  DOPINS  DMDJ22 
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386A  002552  LIST 


NU 
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3^  >6  002552  DOPINS  MEM, 70 

3v21  002552  LIST 


¥17" 
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3923 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
A022 
A023 
A024 
4025 
4026 
4027 
4028 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4161 


002552 
002552 


PAGE  68 


MOPINS  NUB, 106 
LIST 


B15 


APLC 
SYS1 


002552 
002552 


DOPINS  UNONJ06 
LIST 


002552 
002552 


DOPINS  INTR,66 
LIST 


002552 
002552 


DOPINS  SDIF,50 
LIST 
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TIT 


APL 
SYS 


APL003  MACRO  Mil  13  08-FEB-80  09:22  PAGE  69 
MIXED  FUNCTION         GRADE  UP 


TIT 


APL 
SYS 


4163 
4179 
4180 
4181 
4182 
4200 
4201 
4202 
4203 
4209 
4210 
4211 
4212 
4288 


002552 
002552 


002552 
002552 


002552 
002552 


002552 
002552 


DOPINS  SCON, 234 
LIST 


DOPINS  C0NT,112 
LIST 


DOPINS  PSUB,236 
LIST 


DOPINS  SUBS  J 16 
LIST 


TIT 
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4290  002552  MOPINS 

4336  002552 


TIT 


API 
SYJ 


EXE, 70 
LIST 
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TIT 


SY 
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4338  002552  MOPINS 

4A11  002552 


nr 


i\p 

SY 


ENCD,76 
LIST 


TIT 
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Af 
S) 


APL003  MACRO  Ml 113  08-FEB-80  09:22 
MIXED  FUNCTION         GRADE  UP 

4A13  002552 

4A23  002552 

4A2A 

4A25 

4A26 

4A27 

AA28 

AA29  002552 


PAGE  12 

MOPINS  FMTJ60 
LIST 


riT 


A) 
S^ 


DOPINS  FMTJ60 


APL003  MACRO  Ml  113  08-FEB-80  09:22  PAGE  73 
MIXED  FUNCTION         GRADE  UP 


GTT 


A 
S 
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A953  002552 


TTT 


A 
S 


LIST 


IHT 
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4955  002552 

4956 

4958  002552 

4959 

4960 

4%1  002552 

5046  002552 

MOPINS 
.S8TTL 

DOPINS 

I8MJ32,,,M0NIBM 
MIXED  FUNCTION 
LIST 

I8MJ32 
LIST 

MONADIC  I  BEAM 


TTT 
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K  I  t  I    •  ▼ 


r»r\<-\r\ 


I   15 

APL003     MACRO  M1113 

08-FEB-80  09:22     PAGE  75 

MIXED  FUNCTION 

MONADIC   I  BEAM 

5048  002552 

MOPINS 

QUAD,74,T.NIL+T.SPOP 

5075  002552 

LIST 

5076 

5077 

5078 

5079 

5080 

5081   002552 

DOPINS 

QUAD,74,T.NIL+T.SPOP 

5097  002552 

LIST 

5098 

5099 

5100 

5101 

5102 

5103  002552 

MOPINS 

QQADJ42,T.NIL+T.SPOP 

5135  002552 

LIST 

5136 

5137 

5138 

5139 

5140 

5141   002552 

DOPINS 

QQADJ42,T.NIL^-T.SPOP 

5152  002552 

LIST 

5153 

5154 

5155 

5156 

5157 

5158  002552 

MOPINS 

DQADJ34,T.NIL+T.SPOP 

5192  002552 

LIST 

5193 

5194 

5195 

5196  002552 

DOPINS 

DQADJ34,T.NIL+T.SPOP,,D$QC!AD 

5199  002552 

LIST 

TIT 
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I  BEAM 

5201  002552 

MOPINS 

BXAV, 

162, T. NIL 

5219  002552 

LIST 

5220 

5221 

5222 

5223 

5224 

5225  002552 

MOPINS 

BXCT, 

164,T.NIL+T.SP0P 

5234  002552 

LIST 

5235 

5236 

5237  002552 

DOPINS 

BXCT, 

164,T.NIL^-T.SP0P 

5272  002552 

LIST 

5273 

5274 

5275 

5276 

5277 

5278  002552 

MOPINS 

BXIO, 

166,T.NIL+T.SP0P 

5287  002552 

LIST 

5288 

5289 

^  5290  002552 

DOPINS 

BXIO, 

166,T.NIL+T.SP0P 

5302  002552 

LIST 

5303 

5304 

5305 

5306 

5307  002552 

MOPINS 

BXLC, 

212, T. NIL 

5308 

..SRTTL 

SYSTEM  VARIABLE        LINE  COUNTER 

5309 

5310  002552 

013703 

003314* 

MOV 

SIFRAM,R3 

;Point  to  current  frame 

5311  002556 

013763 

004764' 

000002 

MOV 

FLAGS, F.FLAG(R3) 

;Sa\/e  current  flags  (Just  in 

case) 

5312  002564 

005002 

CLR 

R2 

.-Clear  count  of  F-Frames 

5313  002566 

032763 

001000 

000002 

1$; 

BIT 

*F$FUNC,F.FLAG(R3) 

;IS  THIS  AN  F-FRAME? 

5314  002574 

001401 

BEQ 

2$ 

;No,  don't  count  it 

5315  002576 

005202 

INC 

R2 

; Increment  count  of  F-Frames 

5316  002600 

011303 

2$: 

MOV 

aR3,R3 

.•POINT  TO  NEXT  FRAME 

5317  002602 

001371 

BNE 

1$ 

:lf   THERE  IS  ONE 

5318  002604 

010200 

MOV 

R2,R0 

;Copy  count 

5319  002606 

006300 

ASL 

RO 

;(in  words) 

5320  002610 

062700 

000010 

ADD 

*A.DIMU2,R0 

.-Add  in  overhead 

5321  002614 

CALL 

GETFRA 

.Build  result  frame 

5322  002620 

062720 

000010 

ADD 

XfA.DIMU2,(R0)  + 

.•Point  to  data 

5323  002624 

012720 

102001 

MOV 

*<A.ASB+.INTEGER>*400+1. 

, (R0)+  .-Integer  vector 

5324  002630 

010220 

MOV 

R2,(R0)+ 

.•A.ALEN 

5325  002632 

010220 

MOV 

R2,(R0)^' 

;A.DIM1 

5326  002634 

001417 

BEQ 

7$ 

;No  suspended  functions 

5327 

5328  002636 

013703 

003314' 

MOV 

SIFRAM,R3 

; POINT  TO  CURRENT  FRAME 

5329  002642 

032763 

001000 

000002 

4$: 

BIT 

*F$FUNC,F.FLAG(R3) 

;IS  THIS  AN  F-FRAME? 

5330  002650 

001003 

BNE 

6$ 

;YES! 

5331  002652 

011303 

5$: 

MOV 

aR3,R3 

.•POINT  TO  NEXT  FRAME 

5332  002654 

001372 

BNE 

4$ 

:lf^   THERE  IS  ONE 

5333  002656 

104402 

SYSERR 

.-Cannot  happen! 

5334 

5335  002660 

016301 

000012 

6$: 

MOV 

F.LINE(R3),R1 

.•POINT  TO  CURRENT  LINE 

mr 
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SYSTEM  VARIABLE 

LINE  COUNTER 

5336  00266A 

016120 

00001 0 

MOV           R.LNUM(R1),(R0)+ 

;6ET  LINE  NUMBER 

5337  002670 

SOB           R2,5$ 

;AND  CONTINUE  If  RESULT  NOT  FULL 

5338  002674 

7S: 

RETURN 

;ELSE  WE'RE  DONE 

5340  002676 

LIST 

5341 

5342 

5343 

5344 

5345 

5346 

5347  002676 

MOPINS 

BXPP,170,T.NIL+T.SPOP 

5356  002676 

LIST 

5357 

5358 

5359  002676 

DOPINS 

BXPPJ70,T.NIL+T.SP0P 

5381  002676 

LIST 

5382 

5383 

5384 

5385 

5386 

5387 

5388  002676 

MOPINS 

BXPWJ72,T.NIL+T.SP0P 

5397  002676 

LIST 

5398 

5399 

5400  002676 

DOPINS 

BXPWj72,T.NIL-»-T.SP0P 

5417  002676 

LIST 

5418 

5419 

5420 

5421 

5422 

5423  002676 

MOPINS 

BXRLJ74,T.NIL+T.SP0P 

5432  002676 

LIST 

5433 

5434 

5435  002676 

DOPINS 

BXRLJ74,T.NIL^-T.SP0P 

5A47  002676 

LIST 

5448 

5449 

5450 

5451 

5452 

, 

5453  002676 

MOPINS 

BXTS,200,T.NIL 

5562  002676 

LIST 

5563 

5564 

5565 

5566 

5567 

5568 

5569  002676 

MOPINS 

BXWAJ76,T.NIL 

5592  002676 

LIST 

TIT 
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LIT 
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559A  002676  MOPINS  BXCR,206 

5716  002676  LIST 


MTT 
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5718  002676  MOPINS  BXEX,202 

5775  002676  LIST 


nTT 
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5777  002676  MOPINS  BXFX,210 

5879  002676  LIST 
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5881  002676  MOPINS  3XNC,204 

5950  002676  LIST 


rrs" 
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5952  002676  MOPINS  BXNL, 2U 

5963  002676  LIST 

596A 

5965 

5966  002676  DOPINS  BXNL, 2K 

610A  0O^'j76  list 
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6106  002676  DOPI'.o  F6ET  J50,T.DIM 

6330  002676  LIST 

6331 

6332 

6333 

633A 

6335 

6336  002676  DOPINS  FPUT  J52,T.DIM 

6A85  002676  LIST 


riF 
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fVPl.OOS    MACRO  Ml  113     08-FEB-80  09:22     PAGE  83 
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6487  002676  DOPINS     FPNTJ54,T.DIM 

67H  002676  LIST 


riF 
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6716  002676  MOPINS  1SCNJ30 

6723  002676  LIST 

6724 

6725 

6726  002676  MOPINS  SCAN, 62, T. DIM 

6732  002676  LIST 

6733 

673A 

6735  002676  MOPINS  1RDT,12A 

6741  002676  LIST 

6742 

6743 

6744  002676  MOPINS  RDCT,60,T.DIM 

7044  002676  LIST 


TT? 
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7046  002676  MOPINS  GETIDN,0 

7193  002676  LIST 


fn?r 
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7195  002676  MOPINS     SATAN, 0 

7A04  002676  LIST 


nr 
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7LCV.  nnp<g>7<<. MOPINS     OUTR .  1 56 
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7406  002676  MOPINS  0UTRJ56 

7476  002676  LIST 
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7L7R   nOP<t.7A MOPINS   POUTER  -  0 


APL003  MACRO  Ml 113  08-FEB-80  09:22  PAGE  88 
SYSTEM  VARIABLE        LINE  COUNTER 

7A78  002676  MOPINS  DOUTER,0 

7504  002676  LIST 

7505 

7506 

7507 

7508 

7509 

7510  002676  MOPINS  PRDSET,0 

756A  002676  l;:t 

7565 

7566 

7567 

7568 

7569 

7570  002676  MOPINS  INSPACO 

7612  002676  LIST 
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761A  002676  DOPINS  INNR,156 
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7960  002676  LIST 
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7962  002676  MOPINS     SUBR,0 
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7%2  002676  MOPINS     SUBR,0 
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8727  002676 

MOPINS 

RAND,0 

8771  002676 

LIST 
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000001 


.END 


TT 
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E  1 

SYI>«OL 

TABLE 

ACQ   = 

XOOOOOO 

CHRFR0= 

000135 

C.8L0K= 

000064 

[>.com= 

000001 

D.1R0T= 

000003 

AC1   = 

X000001 

CHRLBR= 

000073 

C.BLSZ= 

000140 

D.C0MP= 

000001 

EC0MCT= 

•••**•  GX 

AC2   = 

X000002 

CHRLPR= 

0000/2 

C.BUFF= 

1 77760 

D.CONT= 

000006 

EDICHR 

005063R 

025 

AC3   = 

X000003 

CNRMNS= 

000137 

C.8UFL= 

1 77762 

D.CTLM= 

000000 

EDICNT 

005064R 

025 

AC4   = 

XOOOOOA 

CHRMUL= 

000075 

C.CCNT= 

1 77766 

D.DEAL= 

000003 

EDIFLG 

005062R 

025 

ACS   = 

X000005 

CHRNEG= 

000100 

C . CPTR= 

1 77764 

D.DECD= 

000002 

EDIT  = 

000003 

ALLINT 

003274R 

025 

CHRPDL= 

000271 

C.CZ  = 

001000 

D.DIV  = 

000000 

EIS   = 

000000 

ARYRET 

003276R 

025 

CHRPLU=  000055 

C.DIG  = 

000040 

D.DMD  = 

000010 

ELESIZ 

0051 32R 

025 

ASCQUO=  0000A2 

CHRPWR= 

000120 

C.FASW= 

020000 

D.DQAD= 

1 77777 

ENDCOR 

000004R 

025 

A.ALEN=  000004 

CHRQST= 

000121 

C.FLEN= 

000010 

D.DROP= 

000002 

EOF   = 

104475 

A.ARG  = 

000040 

CHRQUO= 

000113 

C.FLSH= 

004000 

D.ENCD= 

000002 

ERRMAX= 

000166 

A-ASB  = 

000200 

CHRRBR= 

000047 

C.FRC  = 

000001 

D.EQ  = 

000000 

ERRNUM 

004772R 

025 

A.BITS= 

000003 

CHRRPR= 

000042 

C.IDEN= 

000010 

D.EXPD= 

000002 

ERRPTR 

004770R 

025 

A. CON  = 

000020 

CHRSEM=  000074 

C.NAWE= 

000102 

D.FGET= 

000005 

ERRO 

004774R 

025 

A.DIMS= 

000002 

CHRSf10= 

000112 

C.N0BF= 

000400 

D.FMT  = 

000004 

EXEBUF 

005054R 

025 

A.Dim  = 

000006 

CHRSPA= 

000040 

C.NUM  = 

000020 

D.FPNT= 

000005 

E$CT 

005056R 

025 

A. MUM  = 

000006 

CHRUPA= 

000131 

COP  = 

000004 

D.FPUT= 

000005 

E$PT 

005060R 

025 

A.PTR  = 

000000 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.6E  = 

000000 

FA.APD= 

000100 

A. IMP  = 

000010 

CHR.CC= 

000003 

C.RDLN= 

1 77776 

D.GT  = 

000000 

FA.CRE= 

000010 

BADDIR= 

104463 

CHR.CR= 

000015 

C.REWT= 

002000 

D.IBM  = 

000002 

FA.DLK= 

001000 

BADERR= 

104437 

CHR.CZ= 

000032 

C.RND  = 

000010 

D.IND  = 

000002 

FA.E^B= 

loceco 

BLZBUB 

0051 16R 

025 

CHR.GT^ 

000046 

C.SBIT= 

1 77756 

D.INNR= 

000013 

FA.EXC= 

002000 

BRSELF 

005046R 

025 

CHR.LF=- 

000012 

C.SPFX= 

000100 

D.INTR= 

000006 

FA.EXT= 

000004 

CARVE  = 

******  GX 

CHR.LT= 

000043 

C . SPGL= 

000200 

D.LE  = 

000000 

FA.NSP= 

000100 

CCNT 

005072R 

025 

CHn.SI= 

00001 7 

C . SPLX= 

000001 

D.LOG  = 

000001 

FA.NSR= 

000200 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C.SPRS= 

000002 

D.LT  = 

000000 

FA.POS= 

010000 

CHANOO 

000256R 

025 

CHR.S0= 

000016 

C.SRC  = 

1 7777^ 

D.MAX  = 

000000 

FA.RD  = 

000001 

CHAN01 

000330R 

025 

CHR.TB= 

000011 

C.SRCP= 

000024 

D.MEM  = 

000002 

FA.RWD= 

004000 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.TT  = 

000004 

D.MIN  = 

000000 

FA.SEQ= 

040000 

CHAN03 

000674R 

025 

LMK ■ • A~ 

000141 

C.WIDC= 

1 77770 

D.MUL  = 

000000 

FA.SHR= 

000040 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.WIDR= 

1 77772 

D.NE  = 

000000 

FA.TMP= 

000020 

CHAN05 

001240R 

025 

CHR..S= 

000163 

DEBUG  = 

000000 

D.NN  = 

000000 

FA.WCK= 

020000 

CHAN06 

001422R 

025 

CHR..T=: 

000164 

DEFERR= 

104405 

D.NR  = 

000000 

FA.WRT= 

000002 

CHAN07 

001604R 

025 

CHR..U=  000165 

DEVIL 

0051 14P 

025 

D.OR  = 

000000 

FD.BLK= 

000010 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEVAITF= 

104470 

D.PLUS= 

000000 

FD.CCL= 

000002 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DFXDIW= 

♦*•*•♦  6X 

D.PSLfi= 

000006 

FD.COM= 

020000 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIGITS 

000006R 

025 

D.PWR  = 

000001 

FD.CR  = 

000002 

CHAN11 

00251 4R 

025 

CH.ANO= 

000001 

DIMAX  = 

000020 

D.QQAD= 

000000 

FD.DIR= 

000010 

CHAN12 

002676R 

025 

CMDBUF 

003250R 

025  oimiK 

0031 12R 

025 

D.QUAD= 

000000 

FD.FTN= 

000001 

CHAN13 

000022R 

023 

CMD«AX= 

000010 

DIMPTR 

0031 14R 

025 

D.RES  = 

000000 

FD.F11= 

040000 

CKANU 

000204R 

023 

CNTSIZ 

005130R 

025  DIWTYP 

0031 16R 

025 

D.RHO  = 

000000 

FD.INS= 

000010 

CHNUPN= 

104471 

COTBIN 

005076R 

025  DIRFUL= 

104466 

D.ROT  = 

000003 

FD.ISP= 

002000 

CHRAM)= 

000051 

COWCNT 

005126R 

025  DO«ERR= 

104417 

D.SCON= 

000006 

FD.MNT= 

100000 

CHRBEL= 

000007 

CO«ERR= 

104425 

DPTERR= 

104416 

D.SDIF= 

000006 

FD.OSP= 

004000 

CHHBKR— 

000133 

COWPTR 

005122R 

025  DYDCNT 

003224R 

025 

D.SUB  = 

000000 

FD.PLC= 

000004 

CHRfini_= 

000200 

COMRTN 

0031 56R 

025  DSDEAL 

OOOOOORG 

020  D.SIBS= 

000006 

FD.PRN=  000004 

CHNBOX= 

000114 

COnSKP 

005124R 

025  DSRES  = 

*♦*♦♦*  GX 

D.TAKE- 

000002 

FD.PSE= 

010000 

CHRC«A= 

000054 

CORPTR 

005120R 

025  DSROT 

001034RG 

020  D.TRAN= 

000004 

FD.RAH= 

000001 

CHRC0L= 

000076 

CS.ASS= 

000200 

DSIROT 

OO^OKRG 

020  D.UN0N= 

000006 

FD.RAN=  000002 

CHRDEL= 

000107 

CS.800= 

000010 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.REC= 

000001 

CHRDIV= 

000053 

CS.FLO= 

000020 

D.BXCT= 

000007 

D.$MIN= 

000000 

FD.RUM=  000001 

CHRDLR= 

000176 

CS.IDN= 

000040 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SDI= 

000020 

CHRDLT= 

000110 

CS.ONE= 

000100 

D.BXNL^ 

000007 

D.$PLU= 

000000 

FD.SQD= 

000040 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025  D.8XPP= 

000007 

D.$RES= 

000000 

FD.TTY= 

000004 

CHREP  = 

000105 

CTIiAX 

00021 2R 

025  D.BXPW= 

000007 

D . $SUB= 

000000 

FD.UBH= 

000002 

CHRERR= 

104431 

CTRMAX 

0001 72R 

025  D.8XRL= 

000007 

D.1C0M= 

000001 

FF.CHR= 

000005 

CHRFIL= 

000177 

C.ALOC= 

000162 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.NV  = 

000003 
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SYMBOL  " 

rABLE 

FF.POE= 

000002 

■.EFN  = 

000050 

F.URBD= 

000020 

LININC 

005026R 

025  M.FIL  =  000177 

FF.RWD= 

000001 

'.END  = 

002000 

F.VAL  = 

177776 

LISIZE= 

000020 

M.FLR  =  \77777 

FF.RWF= 

000006 

•.EaBB= 

000032 

F.V8N  = 

000064 

LI  TOP 

005072R 

025  M.FMT  =  000004 

FF.SPC= 

000004 

'.ERR  = 

000052 

F.V8SZ= 

000060 

LNLNG  = 

104541 

M.GDUP=  000003 

F  He  ADR 

00501 2R 

025  1 

■.FACC= 

000043 

GDCMP 

002376R 

020  LOCLCT 

005036R 

025  M.GDWN=  000003 

FHRET 

005040R 

025  1 

■.FFBY= 

000014 

6ETC01= 

******  GX 

LOWCOR 

000002R 

025  M.GETI=  000006 

FILNTF= 

10AA67 

■.FLAG= 

000002 

GETFRA= 

******  GX 

i.%^^K? 

004766R 

025  M.I8M  =  000003 

FIS   = 

000000 

•.FLB  = 

000100 

GETREG= 

******  GX 

LWIDTH 

000070R 

025  M.IDN  =  000000 

FISCON= 

046000 

■.FNAM=  000110 

GNOME 

0031 02R 

025  L.BITS= 

000003 

M.INSP=  000006 

FIXDIM= 

♦♦*•••  GX 

■.F^e  = 

000102 

HASHC 

0051 36R 

025  L.CNT  = 

000002 

M.IOTA=  000000 

FIXPTR 

003074R 

025  1 

■.FNDF= 

000010 

HASHTB 

005140R 

025  L.PRNT= 

000001 

M.LIT  =  000205 

FLAGS 

004764R 

025  f 

■.FTYP= 

000116 

HSHMSK= 

1 77601 

L.PTR  = 

000000 

M.LN  =  000001 

FLCBUF 

003250R 

025  f 

■.FUN  = 

000010 

HSHSIZ= 

000200 

L.PTR1= 

000004 

M.MMD  =  000010 

FLINE 

00501 4R 

025  f 

■.FVER= 

000120 

lASH  = 

******  GX 

L.SUBS= 

000002 

M.NEG  =  000000 

FLOEXP 

003270R 

025  f 

■.HEAD= 

000006 

lASHC  = 

******  GX 

MACHIN= 

000106 

M.NOT  =  000000 

fLONEQ 

003272R 

025  f 

■.HIBK= 

000004 

I  CHAN 

005050R 

025  MAXCHN= 

000014 

M.NUB  =  000006 

FLSUTB 

000222R 

025  1 

-.LBL  = 

000020 

ILARGC= 

******  GX 

MFXDIM= 

******  GX 

M.NUM  =  000204 
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PAGE  A4 


.TITLE  APLOOA 
.IDENT  \V02.03\ 


TT 


;THIS  IS  USED  WHEN  ASSEHBLING  APLOP  TO  DEFINE  A  NEW  OVERLAY  SEGMENT 
;COrJTAINING  OPERATOR  ROUTINES.  IN  THE  COMMON  DEFINITION  FILE, 
;'OVRCPR'  IS  DEFINED  AS  ZERO.   IF  IT  IS  DEFINED  AS  ONE  BEFORE  APLOP 
;IS  ASSEMBLED,  ONLY  THE  CODE  DESIGNATED  FOR  THE  OPERATOR  OVERLAY  IS 
.•ASSEMBLED.  THEREFORE,  THE  COMMAND  TO  ASSEMBLE  APL004  IS: 


APL004  <  APL004, APLOP 


0VR0PR=  4 


.•OVERLAY  SPECIFIED  OPERATORS 


C  2 
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5 

6 

;++ 

7 

;  FUNCTIONAL  DESCRIPTION:                                                         1 

8 

THIS  MODULE  CONTAINS  THE  CODE  FOR  MOST  APL  OPERATORS  WHICH 

9 

HAVE  BEEN  IMPLEMENTED  SO  FAR.  TWO  MACROS  ARE  USED  TO  DEFINE 

10 

OPERATOR  ROUTINES.   'DOPINS*  DEFINES  A  DYADIC  OPERATOR.  AND 

11 

•MGPINS*  DEFINES  A  MONADIC  OPERATOR.  THE  ARGUMENTS  TO  THE 

12 

MACROS  ARE  THE  NAME  OF  THE  OPERATOR  ROUTINE  AND  THE  OPERATOR 

15 

NUMBER  FOR  THE  OPERATOR  (WHICH  CAN  BE  FOUND  BY  LOOKING  IN 

14 

•VTAB').   FOR  DYADIC  SCALAR  OPS.  THE  LEFT  ARG  IS  IN  AC1 .  THE 

15 

nlQHT   ARG  IS  IN  AC2,  AND  THE  RESULT  IS  RETURNED  IN  ACO.   FOR 

16 

MONADIC  SCALAR  OPS.  THE  ARGUMENT  IS  IN  AC1.  AND  THE  RESULT 

17 

IS  RETURNED  IN  ACO.  SCALAR  OPS  MUST  LEAVE  THEIR  ARGUMENTS 

18 

INTACT] 

19 

]•-- 

24 

27 

124 

125 

; THESE 

MACROS  ARE  FOR  OVERLAY  CODE.   THEY  ARE  USED  THE  SAME  AS 

126 

.•RESIDENT  MACROS.   THE  DIFFERENCE  COMES  IN  THE  WAY  THEY  WORK.   THE 

127 

;'PRMRES'  MACRO,  FORCES  ALL  CODE  BETWEEN  IT  AND  THE  NEXT  MFTFVLIST' 

128 

;T0  NOT 

BE  ASSEMBLED.   THE  'MOPINS'  AND  'DOPINS*  DON'T  PUT  ANYTHING  IN 

129 

.ANY  TABLES.  OTHER  THAN  THAT  THEY  WORK  BASICLY  THE  SAME  AS  THE  RESIDENT                 I 

130 

.•MACROS 

• 

131 

132 

.MACRO 

DOPINS  NAME.NUM.BITS.BOZO.NOTME 

133 

AlF 

NDF  D.'NAME.  .ERROR  ;D.'NAME  IS  NOT  DEFINED  BY  OVROPl 

134 

Af   EQ 

OVROPR-D.'NAM>: 

135 

.PSECT  CODE 

136 

DS'NAME 

•  • 

•  • 

137 

.ENDM 

138 

139 

.MACRO 

MOPINS  NAME.NUM.BITS.BOZO.NOTME 

140 

AlF 

NDF  M.'NAME.  .ERROR  ;M.'NAME  IS  NOT  DEFINED  BY  OVROPl 

141 

AF   EQ 

OVROPR-M. 'NAME 

142 

.PSECT  CODE 

143 

AF   NE  NUM 

144 

MS'NAME 

•  • 

•  • 

145 

.ENDC                                                                      I 

1A6 

.ENDM 

147 

148 

.MACRO 

LIST 

149 

.ENDC 

150 

.ENDM 

151 

152 

.MACRO 

PRMRES 

153 

AF   EQ  1 

154 

•  ENDM 

155 

159 

;****«#v****  ASSEMBLING  THE  Fi_El!!I! 

160  007400 

PRMRES 

(99  007400 

LIST 

TTT 
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201   OO7A00 

DOPINS 

PLUS,2,T.S0P,.INTEGER+CS.IDN+CS.ASS 

208  007AOO 

LIST 

209 

210  007AOO 

DOPINS 

SPLU,-2 

224  007400 

LIST 

225 

226  007400 

DOPINS 

SUB,4,T.S0P,.INTEGER^-CS.IDN 

233  007400 

LIST 

234 

235  007400 

DOPINS 

$SUB,-4 

249  007400 

LIST 

250 

251 

252  007400 

DOPINS 

MUL,6,T.SOP,.IMTEGER^CS.800L^-CS.IDN+CS.ONE^-CS.ASS 

264  007400 

LIST 

265 

266 

267  007400 

DOPINS 

$MUL,-6 

284  007400 

LIST 

285 

286  007400 

DOPINS 

DIVJO,T.SOP,.FLOAT^-CS.BOOL^CS.IDN+CS.ONE 

323  007400 

LIST 

324 

325 

326  007400 

DOPINS 

PWR,20,T.SOP,.FLOAT+CS.BOOL+CS.IDN*CS.ONE 

392  007400 

LIST 

393 

394 

395  007400 

DOPINS 

L06,54,T.SOP,.FLOAT^-CS.BOOL 

417  007400 

LIST 

418 

419 

420  007400 

DOPINS 

CIRC, 52, T. SOP,. FLOAT 

477  007400 

LIST 

478 

479 

480  007400 

DOPINS 

MIN,14,T.S0P,.INTEGER+CS.800L^-CS.ASS 

490  007400 

LIST 

491 

492  007400 

DOPINS 

$MIN,-14 

516  007400 

LIST 

517 

518 

519  007400 

DOPINS 

MAX,16,T.S0P,.INTEGERKS.800L^CS.ASS 

529  007400 

LIST 

530 

531  007400 

DOPINS 

$MAX,-16 

555  007400 

LIST 

556 

557 

558  007400 

DOPINS 

RES,12,T.S0P,.INTEGER+CS.B00L*CS.IDN 

589  007^00 

LIST 

590 

591 

592  007^00 

DOPINS 

$RES,-12 

616  007400 

LIST 

617 

T~T 
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T7 


618 

619  007400 

639  007400 


DOPINS 


C0inB,22,T.S0P,.FL0AH-CS.B00L>CS.IDN^-CS.0NE 
LIST 


7~y 


F  5 
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6A1  007400 

DOPINS 

AND, 42,7. SOP,. BOOLEAN+CS.IDN+CS.ONE+CS. ASS 

652  007A00 

LIST 

653 

65A 

655  007400 

DOPINS 

OR,40,T.SOP,.BOOLEAN+CS.IDN+CS.ASS 

662  007400 

LIST 

663 

664 

665  007400 

DOPINS 

NN, 46, T. SOP,. BOOLE AN 

676  007400 

LIST 

677 

678  007400 

DOPINS 

NR, 44, T. SOP,. BOOLE AN 

687  007400 

LIST 

688 

689 

690  007400 

DOPINS 

LT,24,T.LIT+T.SOP,.CHARACTER+CS.IDN 

/'OO  007400 

LIST 

701 

702  007400 

DOPINS 

LE,26,T.LIT^T.SOP,.CHARACTER+CS.IDN+CS.ONE 

712  007400 

LIST 

713 

714 

715  007400 

DOPINS 

EQ,30,T.LIT^-T.SOP,.CHARACTER+CS.I^N+CS.ONE 

733  007400 

LIST 

734 

735  007400 

DOPINS 

GE,36,r.LIT'»-T.S0P,.CHARACTER+CS.IDN+CS.0NE 

745  007400 

LIST 

746 

747 

748  007400 

DOPINS 

GT,32,T.LIT'^T.S0P,.CHARACTER'^CS.IDN 

758  007400 

LIST 

759 

760 

761  007400 

DOPINS 

NE,34,T.LIT^-T.S0P,.CHARACTER^CS.IDN 

780  007400 

LIST 

781 

TT 
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783  007400 

MOPINS 

FLRJ4,T.S0P,.INTEGERKS.800L+CS.FL0AT,M$IDN 

786  0L7400 

LIST 

787 

788  007400 

MOPINS 

CEIJ6,T.S0P,.INTEGERKS.800L+CS.FL0AT,M$IDN 

791  007400 

LIST 

792 

793  007400 

MOPINS 

IDN,2,T.S0P,.INTEGER^CS.800L 

799  007400 

LIST 

800 

801 

802  007400 

MOPINS 

$IDN,-2 

808  007400 

LIST 

809 

810 

811  007400 

MOPINS 

$FLR,-14 

855  007400 

LIST 

856 

857 

858  007400 

MOPINS 

$CEI,-16 

868  007400 

LIST 

869 

870 

871  007400 

MOPINS 

NEG,4,T.S0P,. INTEGER 

878  007400 

LIST 

879 

880  007400 

MOPINS 

$NEG,-4 

887  007400 

LIST 

888 

889 

890  007400 

MOPirJS 

SIGN, 6, T. SOP,.  INTEGER+CS.BOOL^-CS. FLOAT 

901  007400 

LIST 

902 

903  007400 

MOPINS 

$SIG,-6 

914  007400 

LIST 

915 

916 

917  007400 

MOPINS 

RCIPJ0,T.SOP,.FLOAT^CS.BOOL 

928  007400 

LIST 

929 

930  007400 

MOPINS 

EXP, 20, T. SOP,. FLOAT 

939  007400 

LIST 

940 

941 

942  007400 

MOPINS 

LN,54,T.SOP,.FLOAT+CS.BOOL 

949  007400 

LIST 

950 

951 

952  007400 

MOPINS 

PITM, 52, T. SOP, .FLOAT 

959  007400 

LIST 

960 

961  007400 

PRMRES 

966  007400 

LIST 

967 

968 

969  007U00 

MOPINS 

ABS,12,T.S0P,.1NTEGERKS.800L 

977  007400 

LIST 

978 

A 

n 


ITT 
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H  2 


Al 

M] 


979  007400 

992  007400 

993 

994 

995  007400 
1002  007400 
1003 
1004 

1005  007400 
1031  007400 
1032 
1033 

1034  007400 
1057  007400 


MOPINS  SABS, -12 
LIST 


MOPINS  FACT, 22, T. SOP,. FLOAT+CS. BOOL 
LIST 


MOPINS  NOT, 50 
LIST 


MOPINS  ROLL, 100 
LIST 


T~T 


r 
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I  2 


AF 
MI 


1059  007400 
1187  007400 


DOPINS 


DEAL, 100 
LIST 


TJ 


n 


r 
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1189  007;00 

MOP INS 

SHAPJ02 

1211  007400 

LIST 

1212 

1213 

12H 

1215 

1216 

1217  007A00 

DOPINS 

RHOJ02 

1313  007A00 

LIST 

J    2 


AP 
Ml 


7~T 


r" 


APLOOA     MACRO 
DEFINITIONS 

1315  007400 

1325  007400 

1326 

1327 

1328 

1329 

1330 

1331  007400 

1596  007400 
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MOP INS 


K     2 


API 

mi; 


RAVL,56 
LIST 


DOPINS 


CTLM,56,T.DIM 
LIST 


AQi  nru 


MAr^Tk     Ml  1-17 


AO_rcn_OA    An .  Tz. 


OA/T       CT 


FT 


r 
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1598  007A00 

1632  007400 

1633 

1634 

1635 

1636 

1637 

1638  007400 

1699  007400 
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MOP INS 


DOPINS 


L     2 


AR 

MI) 


IOTA, 72 
LIST 


1ND,72 
LIST 


ACu  n'k.         MArbrk    mi  i  1  7 


no_rrB_OA    nn.'id^ 


ntkre     C/ 


ITT 


n 


M    2 
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1701   007400 

DOPINS 

1C0MJ24 

1709  007400 

LIST 

1710 

1711 

171? 

1713 

17U 

1715  007400 

DOPINS 

COMP,60, 

1789  007400 

LIST 

API 
MD 


ADi  rw.      MAron  mi  11 7     na.ccD.fin  na.oi.     DAr.c    cc: 


U2 


A  at 
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1791 

007400 

1799  007A00 

1800 

1801 

1802 

1803 

1804 

1805 

007A00 

186A 

007A00 
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DOPINS 


N     2 


APL 
MDC 


1EXPJ30 
LIST 


DOPINS 


EXPD,62,T.DIM 
LIST 
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BT 


1866  007400 

1907  007400 

1908 

1909 

1910 

1911  007400 

2149  007400 


DOPINS 


DOPINS 


DROP J  04 
LIST 


TAKE, 114 
LIST 


T~J 
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2151   007400 

MOPINS 

1REVJ46 

2160  007400 

LIST 

2161 

2162 

2163 

2164 

2165 

2166  007400 

MOPINS 

REVSJ44 

2204  007400 

LIST 

FT 
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2206  007400 

DOPINS 

1R0T,146 

2214  007400 

LIST 

2215 

2216 

2217 

2218 

2219 

2220  007400 

DOPINS 

R0TJ44, 

2328  007400 

LIST 

1 — T 
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2330  007400 
2A15  007400 


Ml 11 3  08-FEB-80  09:26 
ERRORS 


PAGE  59 


MOP INS 


TT 


IRAN J  26 
LIST 
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2417 
241 8 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 


007400 


PAGE  60 


DOPINS 
S8TTL 


T~T 


IRAN J  26 
MIXED  FUNCTION 


DYADIC  TRANSPOSE 


YES  FOLKS,  THIS  IS  THE  MAGIC  DYADIC  TRANSPOSE   RPUTINE.  IN   THE  SPECIAL 
CASE  IT  IS  THE  "INVERSE  PERMUTATION  OPERATOR",  ^HILE  IN  THE  GENERAL 
CASE  IT  PULLS  DIAGONAL  PLANES  (WHATEVER  THEY  MA\  BE)  OUT  OF  ARRAYS. 
ANYONE  WHO  UNDERSTANDS  HOW  AND  WHY  THIS  ROUTINE  WORKS,  WELL  ENaiGH  TO 
EXPLAIN  IT  TO  SOMEONE  ELSE  SHOULD  IMMEDIATELY  CONTACT  OMSI  COMPUTING 
AT  THE  ADDRESS  ON  THE  FRONT  PAGE  AND  APPLY  FOR  A  JOB  AS  A  SYSTEMS 
PROGRAMMER 


VARIABLE  ASSIGNMENTS: 


OPTMPO  - 

1  - 

2  - 

3  - 

4  - 

5  - 

6  - 

7  - 

GOOD  LUCK! 


POINTER  TO  START  OF  STRIDE  LIST  ON  SP  STACK 

END  OF  STRIDE  LIST  /  START  OF  ARC  LIST 

END  OF  ARG  LIST  /  START  OF  RESULT  DIM/STRIDE  LIST 

LITERAL/NUMERIC  FLAG 

RIGHT  ARG  DIM  COUNT  (=  LENGTH  OF  LEFT  ARG) 

OFFSET  FROM  ARG  LIST  TO  STRIDE  LIST  (=  2*0PTMP4) 

RIGHT  ARG  DIM  LIST  POINTER 

RESULT  DIM  COUNT 


000000 
000004 
000010 

000012 

000014 
000020 
000024 
000030 


CHECK  ARGUMENT  CONFORMITY 


032700 
001001 

104417 

116402 

026302 
001401 


000006 


000002 
000004 


1$: 


CALL 

BIT 

BNE 

DOMERR 


GETREG 

/rA.NUM,RO 

2$ 


MOVB  A.DIMS(R4),P2 

CONINC  R2 

CMP  A.ALEN(R3),R2 

BEO  4$ 


OBTAIN  POINTERS  TO  ARGS 
LEFT  ARG  NUMERIC? 
YES 


;8AD  ARGS 

GET  RANK  OF  RIGHT  ARG 

.•CHEAT  FOR  SCALAR 

SAME  AS  LENGTH  OF  LEFT  ARG? 

YUP 


000032  104411 


000034 
000042 


000044 
000050 
000052 
000056 
000060 
000064 
000066 
000072 
000076 


122763 
002773 


010637 
010200 
010237 
006300 
062704 
060004 
012701 
013700 
016037 


3$: 

000001  00000?  4$: 


RANERR 

CMPB 
BLT 


;OOPS 


*1,A.DIMS(R3) 
3$ 


;LEFT 
;MUSr 


ARG 
BE! 


A  VECTOR  OR  SCALAR? 


005066' 

005076* 

000006 

000001 
003212' 
0000^^'   005074' 


CREATE  STRIDE  LIST  FOR  RIGHT  ARG 


MOV  SP, OPTMPO 

MOV  R2,R0 

MOV  R2,0PTMP4 

ASL  RO 

ADD  #A.DIM1,R4 

ADD  R0,R4 

MOV  /ri,Rl 

MOV  RARGTY,RO 
MOV 


POINT  TO  START  OF  STRIDE  LIST  ON  SP  STACK 

COPY  DIM  COUNT  FOR  RIGHT  ARG 

THIS  IS  A  USEFUL  NUMBER 

CONVERT  TO  WORD  COUNT 

POINT  TO  START  OF  RIGHT  ARC'S  DIM  LIST 

POINT  PAST  END  OF  LIST 

INITIAL  STRIDE 

Get  type  of  Right  Arg 


SIZTAB(RO),OPTMPi  ;Get  the  shift  size  of  arg 


TT 
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TT 


2/.  74 
2^  ,'5 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 


000104  000405 


000106 
000120 
000122 
000124 


010103 
010346 


6$: 
7$: 


BR 

MUL 
MOV 
MOV 
SOB 


7$ 

-(R4),R1 
R1,R3 
R3,-(SP) 
R2,6$ 


;AND  START  UP  STRIDE  CALCULATOR 


ADD  NEXT  STRIDE  FACTOR 
COPY  CURRENT  STRIDE 
PUSH  STRIDE  FOR  THIS  DIM 
LOOP  ONCE  PER  DIM 


000130 
000134 
000140 
000142 
000146 
000162 
000166 
000174 
000200 

000204 
000210 
000214 
000216 


010637 
01 3702 
010203 
013701 

063702 
016137 
005437 
063702 


003676 


005070' 
005076' 

003170' 

003164' 

0000006  003176' 
003160' 
003160' 


CONVERT  LEFT  ARG  TO  INTEGERS  AND  PLACE  ON  SP  STACK  IN 
REVERSE  ORDER. 


8$: 


MOV  SP,0PTMP1 

MOV  0PTMP4,R2 

MOV  R2,R3 

MOV  LARGTY,R1 

ASH  SIZTAB(RI) 

ADD  LARGPT,R2 

MOV  ILARGC(RI) 

NEG  LARGFL 

ADD  LARGFL, R2 

CALL  aLARGCV 

PUSH  LARGVA 

BLE  1$ 

SOB  R3,8$ 


END  OF  STRIDE  LIST/START  OF  ARG  LIST 
GET  LENGTH  OF  LEFT  ARG 
COPY  COUNT 

,Get  type  of  Left  Arg 
,R2   ; CONVERT  TO  NUMERIC  COUNT 

POINT  PAST  END  OF  LEFT  ARG'S  VALUES 
,LARGCV  ; Convert  Left  to  Integer 
;We're  Decrementing 
; While  we're  at  it,  adjust  pointer 


GET  NEXT  ARG 

Push  onto  SP  Stack 

DO  ELEMENTARY  BOUNDS  CHECKING 

ONCE  PER  ARG 


000222 
000226 
000232 
000236 

000240 
000242 
000244 

000246 
000250 
000252 
000254 
000256 
000262 
000264 
000266 
000270 

000272 
000274 
000276 
000300 


010637 
013703 
012701 
005000 

010604 
005046 
010302 

022401 
001002 
005216 
005200 

005726 
001402 
005201 
000763 

020003 
001246 
005301 
003644 


005072' 
005076' 
000001 


MAKE  SURE  LEFT  ARG  IS  A  "DENSE  INTEGER  LIST* 
THE  RANK  OF  THE  RESULT 


AND  CALCULATE 


9$: 


10$: 


11$: 


12$: 


MOV 

SP,0PTMP2 

MOV 

0PTMP4,R3 

MOV 

M^,H^ 

CLR 

RO 

MOV 

SP,R4 

CLR 

-(SP) 

MOV 

R3,R2 

CMP 

(R4)+,R1 

BNE 

11$ 

INC 

asp 

INC 

RO 

SOB 

R2J0$ 

TST 

(SP)  + 

BEQ 

12$ 

INC 

R1 

BR 

9$ 

CMP 

R0,R3 

BNE 

1$ 

DEC 

R1 

BLE 

1$ 

END  OF  ARG  LIST/START  OF 
GET  LENGTH  OF  ARG  LIST 
MAX  DIM  IS  INITIALLY  1 
NO  HITS  YET 

POINT  TO  END  OF  ARG  LIST 
CLEAR  HIT  .lAG 
RESET  COUNT 


HIT? 

NOPE 

YES,  MARK  A  HIT  ON  THIS  PASS 

ADD  TO  TOTAL  HITS  FOUND 

LOOP  ONCE  PER  ARG 

ANY  HITS  ON  THIS  PASS? 

NO,  ALL  DONE 

YES,  LOOK  FOR  NEXT  DIM 

AND  MAKE  ANOTHER  PASS 

FIND  ENOUGH  HITS? 

NO,  NOT  DENSE  INTEGER  LIST 

CORRECT  THE  COUNT  OF  DIFFERENT 

WHAT??? 


RESULT  DIM/STRIDES 


ARGS 


NOW  WE  KNOW  HOW  MANY  DIMENSIONS  IN  THE  RESULT.   IT  IS  STILL 
NECESSARY  TO  CALCULATE  THE  RESULT'S  SHAPE  BEFORE  WE  CAN 
ALLOCATE  AN  ARRAY  BLOCK  FOR  IT.  WHILE  CALCULATING  THE  SIZE 
OF    THE  RESULT,  WE  CAN  /LSD  CALCULATE  THE  STRIDES  NEEDED  BY 


irr 
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2531 

1 

;'NXTIND'  WHICH  ACTUALLY  PERFORMS  THE  TRANSPOSITION.                                 1 

2532 

1 

• 
t 

2533  000302 

010137 

005104*        [ 

)TRAN1 

:  MOV 

R1,0PTMP7 

;SAVE  M   OF  DIMS  IN   RESULT 

2534  000306 

013700 

005076' 

MOV 

0PTMP4,R0 

;GET  LENGTH  OF  ARG  LIST 

2535  000312 

005300 

DEC 

RO 

jMINUS  FUDGE  FACTOR  FOR  AUTO-INCREMENT 

2536  000314 

006300 

ASL 

RO 

;T0  GET  OFFSET  FROM  ARG  LIST  TO  STRIDE  LIST 

2537  000316 

010037 

005100' 

MOV 

R0,OPTMP5 

;USED  TO  ACCUMULATE  STRIDES  FOR  'NXTIND' 

2538  000322 

013700 

003204' 

MOV 

RARGBL,RO 

; POINT  TO  RIGHT  ARG 

2539  000326 

062700 

000006 

ADD 

»A.01M^M 

;POINT  TO  DIM  LIST 

2540  000332 

2541 

2542  000336 

010037 

005102' 

MOV 

R0,0PTMP6 

;AND  SAVE  PTR  TO  RIGHT  ARC'S  DIM  LIST 

013704 

005072' 

!$: 

MOV 

0PTMP2,R4 

jPOINT  TO  END  OF  ARG  LIST 

2543  000342 

013703 

005102' 

MOV 

0PTMP6,R3 

jPOINT  TO  RIGHT  ARG'S  DIM  LIST 

2544  000346 

013702 

005076' 

MOV 

0PTMP4,R2 

; COUNT  OF  ARGS 

2545  000352 

012700 

001000 

MOV 

/ff1000,R0 

; FORCE  FIRST  ARG  TO  BECOME  NEW  MINIMUM 

2546  000356 

2547 

2548  000360 

005046 

CLR 

'(SP) 

; CLEAR  SPOT  FOR  RESULT'S  STRIDE 

022401 

< 

?$: 

CMP 

(R4)-»',R1 

;ARG  MATCH  CURRENT  DIM? 

2549  000362 

001010 

BNE 

3$ 

;NOPE 

2550  000364 

063704 

005100' 

ADD 

0PTMP5,R4 

;POINT  INTO  STRIDE  LIST 

2551  000370 

061416 

ADD 

aR4,asp 

^ACCUMULATE  STRIDE  FOR  THIS  DIM 

2552  000372 

163704 

005100' 

SUB 

OPTMP5,R4 

; RESTORE  POINTER 

2553  000376 

021300 

CMP 

aR3,R0 

;1S   THIS  DIM  SMALLER  THAN  CURRENT  DIM? 

2554  000400 

002001 

BGE 

3$ 

rNO,  KEEP  CURRENT  VALUE  FOR  MIN 

2555  000402 

01 1 300 

MOV 

aR3,R0 

jELSE  GET  NEW  CANDIDATE  FOR  MINIMUM  DIM 

2556  000404 

005723 

5$: 

TST 

(R3)  + 

jBUMP  POINTER  TO  NEXT  DIM 

2557  000406 

SOB 

R2,2$ 

;LOOP  ONCE  PER  ARG  TO  FIND  MIN  FOR  THIS  DIM 

2558  000412 

010046 

MOV 

R0,-(SP) 

jWHICH  BECOMES  LENGTH  OF  DIM  IN  RESULT 

2559  000414 

2560 

2561 

SOB 

R1JS 

;AND  CYCLE  FOR  NEXT  DIMENSION 

•MOVE 

RESULT'S 

DIM/STRIDE  LIST  UP  TO  CLEAR  MOST  OF  THE                                1 

2562 

;JUNK 

FROM  THE 

SP  STACK. 

2563 

2564  000420 

013704 

005066' 

MOV 

0PTMP0,R4 

;POINT  TO  START  OF  STRIDE  LIST 

2565  000424 

013703 

005072' 

MOV 

0PTMP2,R3 

;POINT  TO  START  OF  DIM/STRIDE  LIST 

2566  000430 

013702 

005104' 

MOV 

0PTMP7,R2 

;GET  COUNT  OF  DIMS  IN  DIM/STRIDE  LIST 

2567  000434 

2568 

2569  000440 

012701 

000001 

MOV 

#1,R1 

;MULTIPLIfATIVE  IDENTITY 

014344 

i 

;$: 

MOV 

-(R3),-(R4) 

;COPY  STRIDE 

2570  000442 

014300 

MOV 

-(R3),R0 

;GET  DIM 

2571  000444 

010044 

MOV 

R0,-(R4) 

;COPY  DIM 

2572  000446 

MUL 

R0,R1 

•ACCUMULATE  TOTAL  SIZE  OF  RESULT 

2573  000460 

2574 

2575  000464 

2576 

2577 

SOB 

R2,4$ 

;ONCE  PER  RESULT  DIM 

010406 

MOV 

R4,SP 

•WIPE  OUT  REST  OF  STACK 

•CALCULATE  SIZE 

OF  RESULT,  ALLOC/ 

UE  ARRAY  BLOCK  FOR  IT,  AND 

2578 

;FILL 

IN  ITS  HEADER 

2579 

( 

2580  000466 

PUSH 

R1 

•SAVE  ALEN  OF  RESULT 

2581  000470 

ASH 

0PTMP3,R1 

•INCREASE  SIZE  IF  NUMERIC 

2582  000504 

013700 

005104' 

MOV 

OPTMP7,R0 

;GET  ff   OF  DIMS  IN  RESULT 

2583  000510 

PUSH 

RO 

•SAVE  IT 

2584  000512 

006300 

ASL 

RO 

•CONVERT  TO  WORD  COUNT 

2585  000514 

062700 

000006 

ADD 

4fA.DIM1,R0 

•TO  GET  HEADER  SIZE 

2586  000520 

PUSH 

RO 

•HEADER  SIZE  BECOMES  OFFSET  TO  DATA 

2587  000522 

060100 

ADD 

R1,R0 

•TOTAL  SIZE  OF  RESULT  BLOCK  NEEDED 

A 
M 


r^ 
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2588  00052A 

CALL 

GETFRA 

;Get  result,  SI  frame  for  it 

2589  000530 

062620 

ADD 

(SP)  +  ,(RO)^- 

;Add  in  Offset  to  Data 

2590  000532 

012601 

MOV 

(SP)+.R1 

;GET  DIM  COUNT 

2591  00053A 

110120 

MOVB 

R1,(R0)'^ 

;SAVE  n   OF  DIMS 

2592  000536 

113710 

003212' 

MOVB 

RARGTY,(RO) 

;Set  the  Type 

2593  000542 

001003 

BNE 

5^ 

fYUP 

2594  00054A 

042765 

002000  1 71771^ 

BIC 

4fT.NUM,SI.BIT(Si; 

);NOPE,  f\%   BAD  ASSUMPTIONS 

2595 

2596  000552 

1 52720 

000200 

5S: 

BIS8 

#A.ASB,(RO)+ 

; Indicate  Array 

2597  000556 

012620 

MOV 

(SP)  +  ,(RO)^- 

;FILL  IN  ALEN 

2598  000560 

010604 

MOV 

SP,R4 

;COPY  POINTER  TO  END  OF  DIM/STRIDE  LIST 

2599 

2600  000562 

012420 

6$: 

MOV 

(R4)+,(R0)+ 

jCOPY  DIM 

2601  000564 

005724 

TST 

(R4)* 

;SKIP  OVER  STRIDE 

2602  000566 

SOB 

R1,6$ 

;ONCE  PER  DIM  IN  RESULT 

2603 

2604  000572 

010037 

003136' 

MOV 

RO, RESULT 

;SAVE  POINTER  TO  RESULT'S  DATA 

2605  000576 

010037 

003300' 

MOV 

R0,NINPT2 

;SAVE  POINTER  PAST  DIM  LIST  FOR  'NXTIND' 

2606  000602 

005037 

003302' 

CLR 

NINPT1 

;THIS  IS  NOT  REGULAR  SLBSCRIPTING! ! 

2607  000606 

013737 

003212'  003306' 

MOV 

RARGTY.NINTYP 

;MARK  AS  NUMERIC  OR  LITERAL  DATA 

2608  000614 

010637 

003304 ' 

MOV 

SP,NINSTK 

;SAVE  ?1R   TO  START  OF  INDEX  FRAMES 

2609 

2610 

•PLACE 

LIST  OF 

INDEX  FRAMES  ON  SP  STACK  FOR  'NXTIND'  ROUTINE.                           1 

2611 

2612  000620 

010604 

DOTRAN: 

MOV 

SP,R4 

;COPY  POINTER  TO  END  OF  DIM  LIST 

2613  000622 

013702 

005104' 

MOV 

0PTMP7,R2 

;GET  COUNT  OF  DIMS  IN  RESULT 

2614 

2615  000626 

005046 

7$: 

CLR 

-(SP) 

; COUNT 

2616  000630 

005046 

CLR 

-(SP) 

;ARRAY  POINTER 

2617  000632 

012446 

MOV 

(R4)+,-(SP) 

;LENGTH  OF  THIS  DIMENSION 

2618  000634 

005046 

CLR 

-(.%?) 

;OLD  VALUE  FLAG 

2619  000636 

012446 

MOV 

(R4)^,-(SP) 

ISTRIDE  FOR  THIS  DIM 

2620  000640 

SOB 

R2,7$ 

;ONCE  PER  DIM 

2621 

2622 

•INITIALIZE  'NXTIND' 

2623 

2624  000644 

012703 

000001 

MOV 

#1,R3 

;START  AT  LOWEST  LEVEL 

2625  000650 

010604 

MOV 

SP,R4 

;COPY  SP  POINTER 

2626  000652 

062704 

000012 

ADD 

#I.LEN,R4 

•POINT  TO  REF  POINT  OF  DEEPEST  FRAME 

2627  000656 

013702 

003206' 

MOV 

RARGPT,R2 

;POINT  TO  FIRST  ARRAY  VALUE  IN  ARC 

2628  000662 

CALL 

NXTIND 

•INITIALIZE  EVERYTHING 

2629  000666 

102401 

BVS 

8$ 

•INITIALIZATION  SUCCESSFUL 

2630  000670 

2631 

2632  000672 

104402 

SYSERR 

1 

•GADS! 

013746 

003136' 

8$: 

MOV 

RESULT, -(SP) 

•SAVE  POINTER  TO  RESULT 

2633  000676 

012700 

000001 

MOV 

n^M 

•BYTE  COUNT  OF  DATA  LENGTH 

2634  000702 

ASH 

0PTMP3,R0 

•CONVERT  IF  NUMERIC 

2635  000716 

010037 

005074 ' 

MOV 

R0,OPTMP3 

■AND  SAVE  BYTE  COUNT  LENGTH  OF  DATA 

2636  000722 

2637 

2638 

013703 

005104' 

MOV 

OPTMP7,R3 

•GET  COUNT  OF  DIMS 

•FINALLY  DO  THE 

TRANSPOSITION! 

2639 

J 

2640  000726 

H: 

CALL 

NXTIND 

•GET  NEXT  POINTER 

2641  000732 

102412 

BVS 

11$ 

•ALL  DONE 

2642  000734 

POP 

RO 

RESTORE  RESULT  POINTER 

2643  000736 

013701 

005074' 

MOV 

0PTMP3,R1 

•LENGTH  OF  DATA  TO  TRANSFER 

2644 

TT 


r 
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J     3 


Af 

M] 


2645  000742     112220 

2646  000744 

2647  000750     165702     005074* 

2648  000754 

2649  000756  000763 
2650 

2651  000760  013706  005066' 

2652  000764 
2654  000766 


10$; 


MOVB    (R2)+,(R0)^ 

soe  R1J0$ 

SUB    0PTMP3,R2 

PUSH    RO 

BR     9$ 


11$: 


MOV 

RETURN 

LIST 


OPTMPO,SP 


;COPY  DATA 

.-RESTORE  POINTER  PROVIDED  BY  NXTIND 
;SAVE  RESULT  POINTER 
;AND  MOVE  NEXT  VALUE 

;WIPE  OUT  ALL  THE  BROUHAHA  ON  THE  STACK 
;AND  RETURN  TO  CALLER 


ITT 


r 
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TT 


AF 
MI 


2656  000766 
2856  000766 


DOPINS 


ENCD,76 
LIST 


I     Af^t 


^  «^^%         &A  4     4 


^NA      ^^m^      t^^s      ^\^\      «\^ 


«^  A  ^«»  ^     «> 


rr 


r: 
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ITT 


AP 
Ml 


2858  000766 
2988  000766 


DOPINS 


DECD,64 
LIST 


i  r\*     ^S^  J  ^M  A   ^  I 


TTT 


r: 
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M     3 


API 
Ml] 


2990  000766 

3001  000766 

3002 

3003 

300A  000766 

3219  000766 


MOPINS     6DWNJ36,T.DIM 
LIST 


MOPINS     GDUPJ40,T.DIM 
LIST 


ADI    /VW 


MArOTk     Ml  lit 


AO_ri:n_OA    Afi .  "ix 


t^Arc    1,J. 


TTT 


1  ArM 
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TTT 


API 
MI) 


3221   000766 
3316  000766 


MOP INS 


MMDJ22 
LIST 
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B  4 


3318  000766 


DOPINS  DMD J  22 
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386A  000766 


C     4 


LIST 


T — r 
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D     A 


3866  000766 
3921   000766 


DOPINS 


MEM, 70 
LIST 


T-T 
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E  4 


3923 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
A022 
4023 
402A 
4025 
4026 
4027 
4028 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4161 


000766 
000766 


MOPINS  NUB,  106 
LIST 


000766 
000766 


DOPINS  UN0N,106 
LIST 


000766 
000766 


DOPINS  INTR,66 
LIST 


000766 
000766 


DOPINS  SDIF,50 
LIST 
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F  A 


A163 
A179 
A180 
A181 
A182 
A200 
A201 
4202 
4203 
4209 
4210 
4211 
4212 
4288 


000766 
000766 


000766 
000766 


000766 
000766 


000766 
000766 


DOPINS  SCON, 234 
LIST 


DOPINS  C0NT,112 
LIST 


DOPINS  PSUB,236 
LIST 


DOPINS  SUBS, 116 
LIST 


T-T 


APLOOA  MACRO  Ml  113  08-FEB-80  09:26  PAGE  70 
MIXED  FUNCTION         DYADIC  TRANSPOSE 


G  4 


^ 


4290  000766 
4336  000766 


MOP INS 


EXE, 70 
LIST 


ITT 
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TRANSPOSE 

4338  000766 

MOPINS 

ENCD,76                                                                 1 

4339 

.S8TTL 

MIXED  f 

•UNCTION         MONADIC  ENCODE  (QUOTE) 

4340 

4341 

4342 

Ire TURNS  character  value  of  argument.   If  ARGUMENT  IS  NUMERIC,  IT  IS                    1 

4343 

; CONVERTED  TO  J 

[TS  CHARACTER  REPRESENTATION.   IF  THE   ARGUMENT  IS  A 

4344 

;STRINC 

i,  IT  IS 

ASSUMED  TO  BE  THE  NAME  OF  AN  IDENTIFIER.  IF  THE 

4345 

;IDENTIFJER  IS 

A  FUNCTION,  THE  RESULT  IS  THE  LISTING  OF  THE  FUNCTION, 

4346 

;ELSE  THE  CHARACTER  VALUE  OF  THE  IDENTIFIER  IS  RETURNED  AS  ABOVE.                       1 

4347 

4348 

4349  000766 

PUSH 

<CHANEX,CHANEX+C.8UFF,0CHAN,CHANEX+C.CCNT,CHANEX+C.CPTR,R4> 

4350 

( 

;SAVE  OUTPUT  POINTERS 

4351  001014 

105037 

000403' 

CLRB 

TMODE 

; FORCE  APL  MODE 

4352  001020 

005037 

003274 • 

CLR 

ALLINT 

; NORMAL  PACKING 

4353  001024 

CALL 

SETBIG 

■.SE""   UP  OUTPUT  BUFFER 

4354  001030 

013700 

003120' 

MOV 

MONBLK,RO      , 

:P0:  J  TO  ARG 

4355  001034 

132760 

000006 

000003 

BITS 

#A.NUM,A.BITS(RO),N'^  :.RIC? 

4356  001042 

001436 

BEQ 

3$            ;NC.-'fc 

4357 

4358  001044 

011604 

^ 

1$: 

MOV 

(SP),R4       ;Restore  the  operator  nimber 

4359  001046 

4360 

4361  001052 

CALL 

APRNT1         ; CONVERT  NUMERIC  ARG  TO  CHARACTERS 

113737 

000402 ' 

000403'  ; 

?$: 

MOVB 

OMODE, TMODE     ;RESTOnE  TTY  MODE 

4362  001060 

016501 

1 77776 

MOV 

SI.VAL(SI),R1 

;P0INT  TO  RESULT 

4363  001064 

011100 

MOV 

aR1,R0 

;P0INT  TO  RESULT  DATA 

4364  001066 

013702 

003044 • 

MOV 

CHANEXK.CPTR,R2< 

jPOINT  PAST  END  OF  DATA  IN  BUFFER 

4365  C0W72 

160002 

SUB 

R0,R2 

: CALCULATE  LENGTH  OF  BUFFER 

4366  001074 

010261 

000004 

MOV 

R2,A.ALEN(R1) 

;REAL  ALEN 

4367  001100 

010261 

000006 

MOV 

R2,A.DIM1(R1) 

;REAL  DIMl 

4368  001104 

CALL 

CARVE 

:KILL  UNUSED  PORTION  OF  RESULT 

4369  001110 

POP 

<R4,CHANEX^-C.CPTR,CHANEX^C.CCNT,0CHAN,CHANEX+C.BUFF,CHANEX> 

4370 

; RESTORE  OUTPUT  POINTERS 

4371  001136 

RETURN 

4372 

1 

4373 

1 

•CHECK 

FOR  SYMBOL  IN  LITERAL  ARG                                                   1 

4374 

1 

[ 

4375  0011 40 

016003 

000004 

J 

5$: 

MOV 

A.ALEN(R0),R3   . 

;GET  LENGTH  OF  ARG 

4376  001144 

001742 

BEQ 

2$ 

;OOPS! 

4377  001146 

011004 

MOV 

aR0,R4 

; POINT  TO  DATA 

4378  001150 

112402 

MOVB 

(R4)^-,R2 

;GET  FIRST  CHAR 

4379  001152 

005303 

DEC 

R3 

;COUNT  IT 

4380  001154 

042702 

1 77400 

BIC 

#UPPER,R2 

:KILL  GARBAGE 

4381  001160 

132762 

000010 

OOOOOOG 

BITB 

4fC.IDEN,CHRTAB(R^);  IDENTIFIER? 

4382  001166 

001014 

BNE 

S$           ;YES 

4383 

4384  001170 

i 

*$: 

POP 

<R4,CHANEX^C.CPTR,CHANEX+C.CCNT,0CHAN,CHANEX*C.BUFF,CHANEX> 

4385 

;RESTORE  OUTPUT  POINTERS 

4386  001216 

104417 

i 

^$: 

DOMERR 

;N0T  IDENTIFIER 

4387 

4388  001220 

1 

>$: 

CALL 

SYMBOL 

•LOOK  UP  IDENTIFIER 

4389  001224 

005703 

TST 

R3 

■END  OF  ARG? 

4390  001226 

002403 

BLT 

6$ 

•YES 

4391  001230 

122702 

000015 

CMP6 

^CHR.CR.R2 

■CR? 

4392  001234 

001355 

BNE 

4$ 

•NOPE 

4393  001236 

011000 

( 

b$: 

MOV 

aR0,R0 

•GET  SYMBOL'S  VALUE 

4394  001240 

001704 

BEQ 

2% 

•JUST  A  NULL  I 

A 

M 


I     4 
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A395  001 2A2 

005760 

000002 

TST 

A396  001 2A6 

002676 

BLT 

A397  001250 

032760 

040000 

000002 

BIT 

4398  001256 

001744 

BEQ 

4399  001260 

1 32760 

000004 

000003 

BITB 

4400  001266 

001340 

BNE 

4401  001270 

010037 

005012' 

MOV 

4402  001274 

010001 

MOV 

4403  001276 

1 1 3746 

003052' 

MOVB 

4404  001302 

105037 

003052' 

CLRB 

4405  001306 

105037 

003050' 

CLRB 

4406  001312 

CALL 

4407  001316 

1 1 2637 

003052' 

MOVB 

4408  001322 

113737 

003052' 

003050' 

MOVB 

4409  001330 

000650 

BR 

4411  001332 

LIST 

I  4 


A.DIMS(RO)      ;CHECK  SOURCE 

1$  : IT  IS  AN  ARRAY,  RETURN  CHAR  VALUE 

*S.FLB,A.DIMS(RO)  :1S  11   A  FUNCTION? 

4$  ;No,  DOMAIN  ERROR 

#F.LOC,R.BITS(R0)  ;It  is  a  function.  Is  it  Locked? 

4$  ;Yes,  Then  don't  quote  it.  Domain  error 

R0,FHEADR      ;SAVE  POINTER  TO  FN  HEADER 

R0,R1  ;COPY  HEADER  POINTER 

CHANEX+C.WIDR,-(SP);SAVE  OLD  WIDTH 

CHANEX+C.WIDR   ; CLEAR  WIDTH  RESET 

CHANEX+C.WIDC   ;AND  CURRENT  WIDTH 

FNLIST         ;LIST  THE  FUNCTION 

(SP)  +  , C.WIDRKHANEX;RESTORE  WIDTH 

CHANEX+C.WIDR^CHANEX-J-C.WIDC-RESET  CURRENT  WIDTH 

2$  ;AND  RETURN 


A 

M 


TT 
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J  A 


A) 

M] 


4A13 
4414 
4415 
4416 
4417 
4418 
44'' 9 
4420 
4421 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4<t64 
4465 
4466 
4467 
4468 
4469 
4470 


001332 


001332     132737 

001340    001004 

001342     013704 

001346 

001352 

001356 

001362 


000006  003124' 
003120' 


001362 


MOP INS 
.S8TTL 


FMTJ60 

MIXED  FUNCTION 


1$: 


BITS 

BNE 

MOV 

CALLR 

CALL 

CALLR 

LIST 


4fA.NUM,M0NTYP 

1$ 

M0NBLK,R4 

SAME 

MSENCD 

CMPRSS 


MONADK  FORMAT 


Is  the  argument  character  type? 
No,  then  we  have  to  work  a  little 
Yes,  Just  copy  the  argument 

and  return 
Call  Quote  to  convert  the  arg  to  chars 
Now  delete  the  <CR><LF>  pairs  and  return 


DOPINS 
.S8TTL 


FMTJ60 

MIXED  FUNCTION 


DYADIC  FORMAT 


•f-f 
FUNCTIONAL  DESCRIPTION: 

Dyadic  Thorn  or  Format 

Format  converts  a  numeric  array  into  a  character  array  of  the  same 
shape.  The  dimensions  of  the  result  are  the  same  as  the  numeric  array, 
except  the  last  which  in  general  will  be  Larger  since  a  number  is 
represented  by  a  vector  of  characters.   "^e  right  argument  is  the  array 
to  be  formatted,  and  the  left  argcinent  controls  the  formatting.  The 
left  argument  ma)f  be  an  integer  scalar  or  singleton  vector,  a  pair  of 
integers,  or  an  integer  vector  of  length  2n,  where  n  is  the  last  dimension 
of  the  right  argument.  If  the  left  argtment  is  a  single  integer  then 
this  integer  is  the  precision  for  the  entire  formatted  array.  If  the 
left  argument  is  a  pair  of  integers  then  they  are  the  width  and  precision 
respp-'twely,  for  the  entire  formatted  array.  And  if  the  left  argtinent  is 
a  2i  vector  then  each  pair  is  the  width  and  precision  which  controls  the 
fc  matting  of  the  cooresponding  colimn  of  the  right  argunent. 

The  widtFi  specifies  the  width  of  the  colLmns  of  the  formatted  array.  If 
the  width  is  omitted  or  zero  then  the  width  used  for  the  entire  array  or 
cooresponding  column  is  the  minimnn  plus  one  required  to  represent  each 
nunber  in  the  array  or  column.  I.e.  the  minimun  required  leaving  one  space 
between  each  column.  The  precision  may  be  either  positive  or  negative. 
If  it  is  negative  then  scientific  notation  is  used  and  the  precision  gives 
the  number  of  digits  to  be  used  in  the  fractional  part.  If  the  precision 
is  positive  then  normal  decimal  notation  is  used  and  the  precision  gives 
the  number  of  digits  to  be  used  to  the  right  of  the  decimal  point. 

If  the  width  is  not  sufficient  for  the  precision  specified  then  a  DOMAIN 
error  results.  If  a  precision  greater  than  the  machine  precision  is 
specified  then  the  missing  significant  digits  are  indicated  by  zeros  for 
integers  and  by  underscores  for  floating  point  ntmbers.  Ntmbers  ^r^ 
rounded  to  the  specified  precision. 


Written  by:  Peter  Haynes 
Use  of  varibles: 


Date:  May  1978 


OP  TMPC 
OPTMP; 
0PTMP2 


Pointer  to  format 
^  jmber  of  columns 


vector 

in  the  right  argtment 


-  L  }ngtri  of   a  rpsult  row  in  bytes 


K    4 


r 


000006  003170' 
000006  003212' 
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4A71 
AA72 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 

4494  001362  132737 

4495  001370  001404 

4496  001372  132737 

4497  001400  001001 

4498  001402  104417 

4499  001404  013703 

4500  001410  122763 

4501  001416  103001 

4502  001420  104411 

4503  001422  005737 

4504  001426  001774 

4505  001430  013703 

4506  001434  001771 

4507  001436  013704 

4508  001442  116400 

4509  001446 

4510  001452  006300 

4511  001454  060400 

4512  001456  062700 

4513  001462  011000 

4514  001464  010037 

4515  001470  010001 

4516  001472 

4517  001506  010137 

4518  001512  005002 

4519  001514 

4520  001526  010237 

4521  001532  013701 

4522  001536  016137 

4523  001544  013701 

4524  001550  016137 

4525  001556  006300 

4526  001560  013702 

4527  001564  022702 


0PTMP3 
0PTMP4 
0PTMP5 
0PTMP6 
0PTMP7 
0PTMP8 
aPTMP9 
OPTM10 
RESULT 

ACO 
AC1 
AC2 
AC3 


000002 


003162' 
000001 


003166' 

003210' 

003204 ' 
000002 

000004 
005070' 

003202' 


005074 ' 
003212' 

OOOOOOG  003220' 
003170' 
OOOOOOG  003176' 

003166' 
000001 


1$; 
2$; 


3$; 
4$: 


Subroutines: 

SCANCL 

NORM 

SCI 

FILL 

LOG 

BITS 

BEQ 

BITS 

BNE 

DOMERR 

MOV 

CMPB 

BHIS 

RANERR 

TST 

BEQ 

MOV 

BEQ 

MOV 

M0V8 

CONINC 

ASL 

ADD 

ADD 

MOV 

MOV 

MOV 

ASH 

MOV 

CLR 

DIV 

MOV 

MOV 

MOV 

MOV 

MOV 

ASL 

MOV 

CMP 


K    4 


Number  of  rows  in  the  result 

Exponent  for  Scientific  notation 

Sign  flag  for  the  right  argument 

Conversion  routine  to  use,  NORM  or  SCI 

Result  increment  constant 

Scratch  location 

Pad  character,  zero  or  underscore 

Maximum  number  of  digits  of  precision  for  RTS 

Used  to  hold  negative  sign  character  for  current  terminal 

Scratch 

Fill  routine  conversion  constant,  10.0 

Right  argument  to  be  converted 

Scratch 


Used  to  find  the  minimtn  width  to  represent  a  column 
Converts  numbers  to  normal  notation 
Converts  numbers  to  scientific  notation 
Fills  in  the  result  field  with  characters 
Computes  logrithms  base  10 


AF 
MI 


*A.NUM,LARGTY 
1$ 

*A.NUM,RARGTY 
2$ 


Left  argument  a  character? 

Yes,  Domain  error 

Right  argument  a  character? 

No,  so  OK 

DOMAIN  ERROR 

Get  the  left  argument  pointer 

Left  argunent  a  vector  or  scalar? 

Yes 

No,  RANK  ERROR 

Left  argument  a  null  vector? 

Yes,  so  error 

Right  argtwent  a  null  array? 

Yes,  so  error 

Get  the  right  arqunent  pointer 

Get  the  number  of  dimensions  in  right  argument 

Fudge  for  scalars 

Make  it  into  word  offset 

Add  in  reference  pointer 

Overhead  too 

Get  the  last  dimension 

Save  it 

Copy  it 

Get  the  right  argtrjent  row  length  in  bytes 

Save  it 

Divide  setup 

Divide  by  the  ntinber  of  colunns 

Save  the  number  of  rows 

,Get  the  right  argLFjent  type 

FRARGC(R1),RARGCV     ;3etup  argtment   fetch  routine,   to  float 
LARGTY,R1  ;Get   left  argcirient  size 

ILARGC(R1),LARGCV     ;Setup  left  arg  fetch  routine,   to  integer 


LARGBL,R3 

/('1,A.DIMS(R3) 

4$ 

LARGLN 
3$ 

RARGLN,R3 
3$ 

RARG8L,R4 

A.DIMS(R4),R0 

RO 

RO 

R4,R0 

#A.ALEN,RO 

(RO),RO 

R0,0PTMP1 

R0,R1 

RARGSF,R1 

R1,RARGFL 

R2 

R0,R2 

R2,0PT«P3 

RARGTY,R1 


RO 

LARGLN, R2 
0^,R2 


;Double  number  ofcolumns  for  words 
;Get  left  argument  length 
;Is  it  one? 


r 


rr 


r 
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L  4 


AP 
Ml 


A528 
A529 
A530 
AS31 
4532 
4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584 


001570 
001572 
001576 
001600 
001602 
001604 
001606 
001612 
001616 
001630 
001632 
001636 
001642 
001646 
001652 
001656 
001662 
001664 
001674 
001702 


001406 
022702 
001403 
020002 
001401 
104412 
062700 


005720 
012720 
010037 
01 3701 
013702 
01 3703 
005037 
005004 

022737 
001407 


000002 


000004 


100000 

005066' 

005070' 

003164' 

003206' 

005072 ' 


000001  003166' 


5$ 


BEQ 

5$ 

CMP 

*2,R2 

BEQ 

5$ 

CMP 

R0,R2 

BEQ 

5$ 

LENERR 

ADD 

*4,R0 

CALL 

GETCOR 

SIFRAM 

TST 

(R0)  + 

MOV 

/ifS.ASB,(RO)^- 

MOV 

RO.OPTMPO 

MOV 

0PTMP1 ,R1 

MOV 

LARGPT,R2 

MOV 

RARGPT,R3 

CLR 

0PTMP2 

CLR 

R4 

LDF 

/(f^F10.0,AC1 

CMP 

/ri,LARGLN 

BEQ 

7$ 

Yes,  ok 

Is  It  two? 

Yes,  ok 

No,  Is  it  =  two  times  the  number  of  columns? 

Yes  ok 

No /length  error 

Add  in  overhead 

Get  space  for  the  format  vector 

Build  an  SI  frame 

Move  up  one 

Make  it  an  array  block 

Save  pointer  to  format  vector 

Get  the  number  of  columns 

Get  pointer  to  left  argument 

Get  pointer  to  right  argument 

For  length  of  row  in  result 

Assume  there  is  no  width 

Setup  the  scaling  factor 

Just  the  precision? 

Yes 


Find  the  number  of  bytes  in  the  result  row,  i.e.  the  size  of  the  last 


^\m 


001704 
001710 
001714 
001720 
00172? 
001726 
001734 
001736 
001744 
001746 
001750 
001752 
001756 
001762 
001764 
001770 
001774 
001776 
002000 
002002 
002010 
002012 

002014 
002020 
002034 
002036 
002040 
002044 
002050 
002054 
002060 


013704 
022704 
103630 

023727 
003222 
023727 
002616 

001002 

060437 
110420 
113720 
063703 

005301 
001405 
022737 
002735 
000755 


003200 ' 
000377 


003200'  000177 
003200'  177601 


6$: 


7$: 


005072' 

003200' 
003216' 


000002  003166' 


8$: 


9$ 


013700     005072' 


103001 
104403 
010137 
0.2700 
013702 
116203 
010304 


005104' 
000006 
003204 • 
000002 


10$ 


11$: 


CALL 

aLARGCV 

MOV 

LARGVA,R4 

CMP 

#255., R4 

BLO 

1$ 

CALL 

aLARGCV 

CMP 

LARGVA,*1 27. 

BGT 

1$ 

CMP 

LARGVA,#-127. 

BLT 

1$ 

PUSH 

R4 

BNE 

9$ 

CALL 

SCANCL 

ADD 

R4,OPTMP2 

MOVB 

R4,(R0)+ 

MOVB 

LARGVA,(RO)+ 

ADD 

RARGLE,R3 

POP 

R4 

DEC 

Rl 

BEQ 

10$ 

CMP 

/l^2,LARGLN 

BLT 

6$ 

BR 

8$ 

MOV 

OPTMP2,R0 

MUL 

OPTMP3,R0 

BCC 

11$ 

WSFULL 

MOV 

R1,0PT«P7 

MOV 

#A.DI«1,R0 

MOV 

RARGBL.R2 

Move 

A.DIMS(R2),R3 

MOV 

R3,R4 

Get  the  width 

Save  it  in  a  register 

Is  the  width  reasonable? 

No,  DOMAIN  Error 

Get  the  precision 

Is  the  precision  reasonable? 

No,  DOMAIN  Error 

Very  reasonable? 

No,  DOMAIN  Error 

Save  the  width  argument 

Is  the  width  =  0  ? 

Yes,  Have  to  compute  width,  Blaah!!!! 

Accumulate  the  row  width 

Store  width  in  low  byte  of  vector 

Pack  in  the  precision 

Point  to  next  right  argument  coltinn 

Restore  the  widtn  argument 

Count  the  column 

Last  column? 

No,  Only  one  pair? 

No,   Loop  on  next   coLcfnn 

Yes,  Use  it  again 

Get  the  row  length 

Times  the  number  of  rows 

Too  big? 

Yes,  so  WORKSPACE  is  FULL 

Save  the  result  increment  constant 

Get  the  overhead 

Get  pointer  to  right  argcment  block 

Get  the  number  of  dimensions 

Copy  it 


\  ^M  0s£\S 


ft«A  ^9^0^       ft«4  4  4 


n  4 


r: 
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M  A 


API 

mi: 


4585 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593 
4594 
4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
4605 
4606 
4607 
4608 
4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4628 
4629 
4630 
4631 
4632 
4633 
4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 


002062 
002066 
002070 
002072 
002074 
002076 
C02102 
0C?114 
00^116 
002120 
002122 
002124 
002132 
002134 
002140 

002144 
002146 
002152 
002154 
002156 
002162 
002164 
002170 
002174 
002200 
002214 
002220 
002226 
002234 
002240 
002242 
002250 
002256 
002262 
002266 
002272 
002276 
002300 
002306 
002310 
002316 
002324 
002326 


006303 
060300 
010003 
060100 


010010 
060320 
1 1 0420 
001006 
122777 
001402 
105260 
1 1 2720 

010120 
022704 
002006 
005304 
062702 
01 2220 

013720 
01 3703 

160337 
1 1 2737 
112737 
105737 
001406 
112737 
112737 
013703 
116304 
142704 
122704 
001403 
112737 
011303 
012737 
022737 
002003 
062737 


000001  005066' 

1 11777 
000200 


000001 


12$: 


000006 


005072 • 
005074 • 

003216' 

000100  003136' 
000106  005110' 
000402' 

000137  003136' 
000133  005110' 
003204 ' 
000003 
177771 
000006 

000060  005110' 

000006  005112' 
000004  000062 ' 

000012  005112' 


15$: 


CONINC 

ASL 

ADD 

MOV 

ADD 

CALL 

SIFRAM 

MOV 

ADD 

M0V8 

BNE 

CMPB 

BEQ 

INCB 

M0V8 

MOV 

CMP 

BGE 

DEC 

ADD 

MOV 

SOB 

MOV 

MOV 

MUL 

SUB 

M0V8 

MOVB 

TSTB 

BEQ 

MOVB 

MOVB 

MOV 

MOVB 

BICB 

CMPB 

BEQ 

MOVB 

MOV 

MOV 

CMP 

BGE 

ADD 


CoLunn  Loop 


13$: 
14$: 


16$: 


002334 
002342 
002346 
002350 
002352 
002354 
002356 
002364 
002370 


012737 
013704 
005001 
152401 
112402 
002003 
012737 
010437 
013704 


002706'  005102' 
005066' 


17$: 


003746'  005102' 
005066 ' 
005074 • 


18$: 


MOV 

MOV 

CLR 

6ISB 

MOVB 

BGE 

MOV 

MOV 

MOV 


R3 

R3 

R3,R0 

R0,R3 

R1,R0 

GETCOR 

,#T.VAL 

RO,(RO) 

R3,(R0)^- 

R4,(R0)+ 

12$ 

*1,aOPTMP0 

12i 

-KRO) 


Cheat  for  a  scalar  right  argument 

Make  it  words 

Add  it  in 

Copy  the  data  offset 

Add  in  data  space  required 

Get  space  for  result 

Build  an  %\   frame 

Fill  in  array  block  header 

Pointer  to  data 

Dimensions 

Is  the  Right  argtment  a  scalar? 

Yes,  Is  the  Width  one? 

Yes,  really  is  a  Scalar! 

Make  result  a  vector 
*<A.ASB^'.CHARACTER>,(RO)"^ 


R1,(R0)> 

*1,R4 

14$ 

R4 

#A.DIM1,R2 

(R2)+-(R0)+ 

R4,13$ 

OPTMP2,(R0)^ 

0PTMP3,R3 

RARGFL,R3 

R3,RARGLE 

#CHRNEG, RESULT 

#CHR.UL,0PTMP9 

OMODE 

15$ 

#CHRMNS, RESULT 

#CHRBKR,0PTMP9 

RARGBL,R3 

A.BITS(R3),R4 

#*C<A.NUM>,R4 

#. FLOAT, R4 

16$ 

#CHR..0,OPTMP9 

(R3),R3 

#6,OPTM10 

#4.NUMLEN 

17i 

#10.,OPTM10 


W0RM,0PTMP6 

OPTMP0,R4 

Rl 

(R4)^,R1 

(R4)>,R2 

18$ 

#SCI,0PTMP6 

»4,0PTMP0 

OPTMP3,R4 


Mark  it  as  an  array  block 

Total  length,  ALEN 

Is  the  right  argument  a  scalar  or  vector? 

Yes,  Skip  copying  dimensions 

Count  of  dimensions  minus  one 

Point  to  right  argument  dimensions 

Copy  all  but  last  dimension 

Done  yet? 

Number  of  columns 
Get  the  number  of  rows 
Multiply  by  size  of  right  argument  row 
Right  argtment  increment  constant 
Assune  terminal  is  APL  type 
For  underscore  too 
Is  it  really? 
Yes 

No,  Fake  negative  sign  for  TTY  terminal 
Underscore  too 
Point  to  right  argument 
Get  the  bits 
Mask  out  garbage 

Is  the  argtinent  floating  point  type? 
Yes,  so  pad  character  is  correct 
No,  use  zero  as  pad  for  integers 
Get  pointer  to  right  argument  data 
Compute  maximLD  precision  for  this  RTC 
Is  it  single  precision? 
Yes 
No,  it  must  be  double  precision  then 


;AsSLfne  normal  format 

;Get  pointer  to  format  vector 

;Get  the  width 

;Get  the  precision 

;Is  the  precision  negative? 

;Yes.  Use  scientific  notation 

;Save  pointer  to  Format  vector 

;Get  the  ncmber  of  rows  to  process 


Aru  r\f\t 


%Aik  r't\^\     ka4  4  19 


rkO     r  rr\     ar\     i\r\  .  -\a 


-»'\^ 


N    4 


c 
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N  4 


API 
Ml) 


A6A2 
46A3 
4644 
4645 
4646 
4647 

4648  002374  19$; 

4649  002400  005037  005100' 

4650  002404 

4651  002412 

4652  002416  100005 

4653  002420  005237  005100' 

4654  002424 

4655  002432  20$ 

4656  002436  063700  005072' 

4657  002442  160100 

4658  002444 
4659 

4660  002450  063703  003216' 

4661  002454  060100 

4662  002456  163700  005104' 

4663  002462  005337  005070' 

4664  002466  003322 
4665 
4666 
4667 
4668 
4669 
4670 

4671  002470 

4672  002476 

4673  002502 

4674  002510 
4675 
4676 
4677 
4678 

4679  002512  SCANCL 

4680  002522  013701  005074' 

4681  002526  005037  005100' 

4682  002532  012704  000001 

4683  002536  013702  003200' 

4684  002542  002450 

4685  002544  001401 

4686  002546  005204 

4687  002550  060204  1$: 
4688 

4689  002552  2$: 

4690  002556  005000 

4691  002560 

4692  002566 

4693  002572  100004 

4694  002574  005200 

4695  002576 

4696  002604  005702  3$: 

4697  002606  100410 

4698  002610 


Row  loop 


CALL 

aRARGCV 

CLR 

0PTMP5 

TSTF 

AC2 

CFCC 

BPL 

20$ 

INC 

0PTMP5 

NEGF 

AC2 

CALL 

a0PTMP6 

ADD 

0PTMP2,R0 

SUB 

R1,R0 

SOB 

R4J9$ 

ADD 

RARGLE,R3 

ADD 

R1,R0 

SUB 

0PTMP7,R0 

DEC 

0PTMP1 

BGT 

17$ 

;6et  the  next  right  argument 

;Assume  the  right  argument  is  positive 

;Is   It? 

;Yes 

;No,  Mark  the  sign  flag 

;And  make  it  posit iv/e 

; Format  it 

;Point  to  next  row  of  the  result 

;To  the  beginning 

;Any  more  rows? 

;No,  Point  to  next  column  of  right  argument 
.-Point  to  next  coltmn  of  the  result 
;8ack  to  first  row 
; Count  this  column 
;Last  column? 


Now  Kill  the  Temporary  vector 


PUSH  <-(SI),-(SI),-(SI)>  ;Save  the  Result  SI  frame 

CALL  KILL  .-Delete  the  temporary  vector 

POP  <(SI)^.(SI)>,(SI)^>  .-Restore  the  Result  SI  frame 

RETURN  ;Yes.  We're  done  at  last 

This  routine  returns  the  maximun  width  for  the  current  colimn  in  R4 


.-Save  some  registers 

;Get  the  number  of  rows 

; Clear  temporary 

.-Set  width  to  1.  the  minimum 

.-Get  the  precision 

.-Precision  is  negative.  Scientific  notation 

.-Precicision  is  zero 

.-For  the  decimal  point 

.-Precision  is  positive,  width=width^precision 

;Get  the  right  argtinent 

.-Assume  the  argument  is  positive 

.lb  it? 

;Yes 

;No,  Add  in  a  space  for  the  sign 

.-And  make  the  argument  positive  for  the  Log 

;Is  the  precision  positive? 

;No,  this  is  easy 

;Yes,  LOGS  Blaah  ! I 


PUSH 

<R0,R1,R2,R3> 

MOV 

0PTMP3,R1 

CLR 

0PTMP5 

MOV 

#1.R4 

MOV 

LARGVA.R2 

BLT 

7$ 

CFO 

1$ 

INC 

R4 

ADD 

R2,R4 

CALL 

aRARGCV 

CLR 

RO 

TSTF 

AC2 

CFCC 

BPL 

3$ 

INC 

RO 

NEGF 

AC2 

TST 

R2 

BMI 

5$ 

CALL 

LOG 
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"FT 


4699 
4700 
4701 
470^ 

I  '■■ 
-  .  w  ^ 

4704 
4705 
4706 
4707 
4708 
4709 
4710 
4711 
4712 
4713 
4714 
4715 
4716 
4717 
4718 


002614 
002620 
C02622 
002626 
C02630 
002634 
002656 
002642 

002646 
002652 
002662 


002664 
002666 
002672 
002676 
002700 
002702 


005737 
100402 
063700 
005200 
020037 
003402 
010037 


005076' 
005076' 
005100' 
005100' 


063704     005100' 


160204 
062704 
022702 
001725 
005204 
000723 


000004 
1 77777 


TST 

0PTMP4 

BMI 

4$ 

ADD 

OPTMP4,R0 

4$: 

INC 

RO 

5$: 

CMP 

RO,C  MP5 

BLE 

6$ 

MOV 

R0,OPTMP5 

6$: 

S08 

R1,2$ 

ADD 

0PTMP5,R4 

POP 

<R3,R2,R1,R0> 

RETURN 

7$: 

SUB 

R2,R4 

ADD 

#4,R4 

CMP 

/i^-1,R2 

BEO 

2$ 

INC 

R4 

BR 

2$ 

;Is  log  negative? 

;Yes,  so  skip  adding  it  in 

;Add  in  the  log 

;And  a  fudge 

;Get  Max  or  width  and 

; Temporary  is  larger 

; Width  is  larger.  Make  it  new 

;All  the  rows  checked  yet? 


temporary 

Temporary 


;Yes,  width=width"«-temporary 
; Res tore  the  registers 
;Done  at  lasti ! 


;Width=width'»-ABS (precis ion).  Scientific 

;Width=width-»-4,  for  exponent 

;Is  precision  equal  to  mimus  one 

;Yes 

;No,  For  the  decimal  point 

;Go  to  check  column  for  sign 


form 
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C  5 


4720 

A721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

476/' 

4768 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 


This  routine  converts  the  number  in  AC2  into  normal  decimal  notation 


002704 
002~  ^ 
002  . 
002716 
002722 
002730 
002736 
002746 
002752 
002754 
002756 
002760 
002762 
002764 

002766 
002770 
002774 
003000 
003004 
003010 
003012 
003016 
003022 
003024 
003026 
003030 
003032 

003034 
003036 
003042 
003044 
003046 
003052 
003054 
003056 
003062 
003066 
003070 
003074 
003076 
003104 
003106 
003110 
003114 

003'i16 
003122 
003126 
003 1 3C 
00313? 
003136 


104417 
023727 
001010 


000062'  000004 


FMTDOM: 
NORM: 


1$: 


005702 
001405 
100003 
005202 
005402 
001401 

005301 


013704  005076" 


2$; 
3$; 


005204 

010237 
060402 
005704 
003002 
005301 
000401 

160401 
163701 
002720 
003003 
005737 
001314 
005046 
112703 

010016 
005737 
001403 
1 1 3760 
005704 
003003 
112720 
000431 

012703 
023704 
002406 
010401 


005106' 


005106' 

005100' 

000040 

005100' 
003136'  M7777 

000060 


]77777 
005112' 


4$: 
5$: 


6$ 


7$; 


8S: 


160437  005112' 


DOMERR 

CMP 

BNE 

SETD 

LDCFD 

LDCFD 

PUSH 

PUSH 

TST 

BEQ 

BPL 

INC 

NEC 

BEQ 

DEC 

PUSH 

CALL 

MOV 

POP 

INC 

CALL 

MOV 

ADD 

TST 

B6T 

DEC 

BR 

SUB 

SUB 

BLT 

BGT 

TST 

BNE 

CLR 

MOVB 

CALL 

MOV 

TST 

BEQ 

MOVB 

TST 

BGT 

MOVB 

BR 

MOV 

CMP 

BLT 

MOV 

CALL 

SUB 


NUMLEN,#4 
1$ 

AC2,AC2 

AC1,AC1 

<R1,R2,R3,R4> 

OPTM10 

R2 


m 


R1 

0PTMP4 

LOG 

0PTMP4,R4 

0PTMP4 

R4 

FMTRND 

R2,0PTMP8 

R4,R2 

R4 

4$ 

R1 

5$ 

R4,R1 

0PTMP8,R1 

FMTDOM 

6$ 

0PTMP5 

FMTDOM 

-(SP) 

/(fCHRSPA,R3 

FILL 

RO,(SP) 

0PTMP5 

7$ 

RESULT, -KRO) 

R4 

8$ 

/«^CHR..O  (RO)* 

11$ 

OPTM10,R4 

9$ 

R4,R1 

FILL 

R4,0PT«10 


Domain  error 

What  is  the  current  precision? 

Double,  lanore  the  Force 

Force  douBle  precision  mode 

Convert  the  Right  argument  to  double  precision 

Convert  the  scaling  factor 

Save  some  registers 

Save  the  maximtm  precision  too 

What  is  the  precision? 

Precision  equal  zero? 

Are  we  doing  scientific  notation? 

Yes,  Adjust  the  precision 

Make  it  positive,  P  =  -(P-^1)  =  (-P)-1 

Is  the  new  precision  zero? 

No,  Width  =  Width  -  1,  Account  for  the  point 

Save  previous  log  value  for  SCI  routine 

Get  log  of  rignt  argtinent 

T2  =  log  (right  argument) 

Restore  previous  log  value 

Fudge  the  log  to  be  size  of  integer  part 

Round  the  argument 

Copy  Precision 

T1  =  T2  •♦•  Precision,  Digits  in  entire  number 

Is  there 

Yes 

No,  Width  = 


an  integer  part,  (T2>0)  ? 

Width  -  1 ,  Account  for  leading  0 


;Width  -  12,   Account  for  integer  part 
.•Number  of  blanks  =  Width  -  t2  -  Precision 
."Number  of  blanks  needed  <  0,  Domain  error 
;At  least  one  blank  needed.  Width  Ok 
;Zero  blanks  needed.  Is  the  sign  minus? 
;Yes,  Width  too  small.  Domain  error 
.•Setup  the  zero  flag 
;Fill  in  leading  blanks 

.-Save  sign  location,  i.e.  zero  flag 

;Is  the  argtinent  negative? 

;No 

;Yes,  Put  in  a  minus  sign 

;Is  there  an  integer  part,  (T2>0)  ? 

;Yes 

;No,  Fill   in  the  leading  zero 

;And  go  to  do  the  fraction  part 

.•Prepare  to  fill    in  the  integer  part 

.•Requested  precision  >  .i»achine  precision? 

;Yes 

;No-  use  T2  number  of  digits  in  integer  part 

.-Fill  in  inteqei  part 

.'Account  for  digits  used  so  tar  of  max  precision 
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DT 


t^777 
^7?S 
4779 
A780 
4781 
4782 
4783 
4784 
4785 
4^86 
4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
4811 
4812 
4813 
4814 
4815 
4816 
4817 
4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 
4829 
4830 
4831 
4832 
4833 


003142 

003144 
003150 
003154 
003160 
003162 
003166 
003172 

003176 
003200 
003204 
003206 
003212 
003214 
003216 
003220 
003222 
003226 
003230 
003234 
003240 

003244 
003250 
003254 
003256 
003262 
003266 
003270 
003274 
003300 

003302 
003304 
003306 

003312 
003314 
003316 
003320 
003324 
003326 
003332 
003336 
003346 
003354 
003356 
003362 
003370 


000415 

01 3701 

113703 
010401 
163701 
005037 


160402 
005737 
001442 
112720 
005704 
003013 
010401 
005401 
023701 
002002 
013701 
112703 


012703 
023702 
002012 
013701 

010201 
163701 
113703 
000402 

010201 
002402 


001406 
005301 
123711 
001002 
112711 


023727 
001005 


005112' 

005110' 

005112' 
005112' 

005106' 
000056 


005106' 

005106' 
000060 


1 77777 
005112' 

005112' 


005112' 
005110' 


9$: 


10$: 
11$: 


12$: 


13$: 


14$; 
15$; 
16$; 


003136' 
000040 

000062'  000004 


17$, 


18$: 


BR 

MOV 

CALL 

MOVB 

MOV 

SUB 

CLR 

CALL 

SUB 

TST 

BEQ 

MOVB 

TST 

BGT 

MOV 

NEC 

CMP 

BGE 

MOV 

MOVB 

CALL 

MOV 

CMP 

BGE 

MOV 

CALL 

MOV 

SUB 

MOVB 

BR 

MOV 
BLT 
CALL 

POP 

BEQ 

DEC 

CMP8 

BNE 

MOVB 

POP 

POP 

CMP 

BNE 

SE  TF 

LDCDF 

RETURN 


10$ 

OPTM10,R1 

FILL 

0PTMP9,R3 

R4,R1 

OPTM10,R1 

OPTM10 

FILL 

R4,R2 

0PTMP8 

16$ 

/(^CHRD0T,(R0)^- 

R4 

13$ 

R4,R1 

R1 

0PTMP8,R1 

12$ 

0PTMP8,R1 

/lfCHR..0,R3 

FILL 

#-1,R3 

OPTM10,R2 

14$ 

OPTM10,R1 

FILL 

R2,R1 

OPTM10,R1 

0PTMP9,R3 

15$ 

R2,R1 

16$ 

FILL 

R1 

17$ 

R1 

RESULT, (R1) 

17$ 

/lfCHRSPA,(R1) 

OPTM10 

<R4,R3,R2,R1> 

NUMLEN,#4 

18$ 

AC1,AC1 


;Use  all  the  significant  digits 

;Fill  in  some  or  the  integer  part 

;Get  the  pad  character 

;Pad  the  rest 

;With  T2  -  DIGITS  characters 

;So  will  pad  after  decimal  point  too 

;Fill  in  the  rest  of  the  integer  part 

Count  the  chars  used  so  far,  T1  =  T1  -  T2 

Is  there  a  fractional  part,  (P>0)  ? 

No,  So  skip  filling  in  fractional  part 

Yes,  Put  in  a  decimal  point 

Are  there  any  significant  zeros,  (T2<=0)  ? 

No 

Yes,  Get  how  many 

Make  it  positive 

Is  requested  precision  <  significant  zeros? 

Yes 

No,  Use  requested  precision  number  of  zeros 

Make  zero  the  fill  character 

And  fill  in  the  zeros 

.•Prepare  to  fill  in  fractional  part 

;Is  requested  precision  >  machine  precision? 

;No 

;Yes,  Fill  in  what  we  can 

;Fill  in  remaining  part  of  fraction 

;Now  we  have  to  pad  the  rest  of  the  field 

;With  T1  -  DIGITS  characters 

;Get  the  pad  character 

;And  go  do  it 

Fill  in  entire  fractional  part 

If  there  is  any? 

Yes,  Fill  in  the  rest  of  the  field 


Get  the  zero  flag 

Only  zeros  printed? 

Yes,  Point  to  sign 

Is  there  a  minus  sign  there? 

No,  Don't  do  anything  then 

Yes,  Change  minus  zero  to  plain  zero 

Restore  ine   maximtm  precision 

Restore  the  registers 

Are  ye  a  single  precision  system? 

No 

^^z,   R'i^tore  floating  point  precision  mode 

iu  .*T.*ii;  the  scaling  factor  too 


This  routine  fills  in  the  r«»'-u 
RO  -  Pointer  within  resu' 
R1  -  Number  of  '"haracters 
R3  -  Pad  character 


.  with  characters 
.0  copy 
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4834 

4835  003372 

005701 

I 

■ILL: 

TST 

R1 

; Count  of  characters  zero? 

4836  003374 

001407 

BEQ 

3$ 

;Yes,  then  just  return 

4837  003376 

100001 

BPL 

1$ 

; Count  positive? 

4838  003400 

104402 

SYSERR 

:No,  SYSTEM  Error 

4839  003402 

005703 

4 

1$: 

TST 

R3           ', 

;Is  this  a  fill  character? 

4840  003404 

100404 

BMI 

4$ 

;No,  so  use  right  argument  for  source 
;Yes,  use  it  for  fill 

4841  003406 

110320 

* 

t 

1%: 

MOVB 

R3,(R0)^- 

4842  003410 

SOB 

RU2$ 

; Count  it,  done  yet? 

4843  003414 

m 

5$: 

RETURN 

;Yes,  so  guit 

4844 

4845  003416 

4$: 

MODF 

AC1,AC2 

;Multiply  by  10 

4846  003424 

STCFI 

AC3,R3 

;  and  get  integer  part 

4847  003432 

001402 

BEQ 

5$ 

;Is  it  zero? 

4848  003434 

005066 

000002 

CLR 

2(SP) 

;No,  Clear  the  zero  flag 

4849  003440 

062703 

000060        ! 

)$: 

ADD 

#CHR..0,R3 

; Convert  to  a  character 

4850  003444 

110320 

MOVB 

R3,(R0)+ 

;Put  it  into  the  result  field 

4851  003446 

SOB 

R1,4$ 

;Done  yet? 

4852  003452 

000760 

BR 

3$ 

;Yes 

4853 

4854 

4855 

4 

;-♦■ 

4856 

i 

;   This 

routine 

computes  the  round  constant  for  each  argument  and  then 

4857 

i 

;  rounds  it. 

A  correction  is  made  in  case  the  magnitude  of  the  number 

4858 

, 

;  is  increased 

• 

4859 

) 

;«> 

4860 

4861  003454 

010203 

f 

■MTRND: 

MOV 

R2,R3 

;Copy  the  precision 

4862  003456 

005704 

TST 

R4 

;Is  the  log  of  the  argument  >  0? 

4863  003460 

003401 

BLE 

1$ 

;No 

4864  003462 

060403 

ADD 

R4,R3 

;Yes,  Add  it  to  the  precision 

4865  003464 

020337 

005112' 

1$: 

CMP 

R3,OPTM10 

;Is  the  result  >  max  digits? 

4866  003470 

003402 

BLE 

2$ 

;No 

4867  003472 

013703 

005112' 

MOV 

0PTM10,R3 

;Yes,  Use  the  max  digits 

4868  003476 

< 

?$: 

LDF 

#'^F0.5,AC0 

;Get  the  initial  rounding  constant 

4869  003506 

005703 

TST 

R3 

;Is  the  count  zero? 

4870  003510 

001405 

BEQ 

4$ 

•Yes,  No  adjustment  needed 

4871  003512 

5$: 

DIVF 

ACI.ACO 

: Reduce  rounding  constant  by  10 

4872  003520 

SOB 

R3J$ 

•Real  quick 

4873  003524 

4$: 

ADDF 

AC0,AC2 

•Round  the  agrument 

4874  003532 

CMPF 

/(f^F1.0,AC2 

•Did  the  magnitude  increase? 

4875  003542 

CFCC 

^^ 

4876  003546 

003004 

BGT 

5$ 

•No 

4877  003550 

DIVF 

AC1,AC2 

•Rescale  the  argument 

4878  003556 

005204 

INC 

R4 

•Fixup  the  log  value  too 

4879  003560 

1 

>$: 

RETURN 

4880 

;-f 

4881 

;   This 

routine 

computes  the  Log 

base  10  of  the  ntmber  in  AC2,  putting  the 

4882 

;  resu 

It  in  0PTMP4,  and  Leaving 

the  ncmber  in  the  form:  O.xxxxxxx 

4883 

;  AC2 

is  assuned  to  be  positive. 

AC1  contains  the  constant  10.0, 

4884 

;  and  AC3  is  used  to  hold  the  reduction  constant.  0.1  or  10.0                        1 

4885 

•  — 

4886 

4887  003562 

I 

.OG: 

PUSH 

<R0,R1,R2> 

Save  some  registers 

4888  003570 

005001 

CLR 

R1 

The  base  10  exponent  will  go  here 

4889  003572 

TSTF 

AC2 

■Is  the  right  argument  positive? 

4890  003600 

CFCC 
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4891  003604 

001452 

BEO 

6$ 

;It  IS  zero,  we're  all  done! 

4892  003606 

LDF 

*"F1.0,AC3 
AC1,AC3 

;Get  a  floating  one 

4893  003616 

DIVF 

;Make  it  0.1,  the  reduction  const  for  a  plus  exp 

4894  003624 

012702 

000001 

MOV 

M1,R2 
AC2,R0 

;Get  the  increment  for  a  plus  exponent 

4895  003630 

STEXP 

;6et  the  exponent  sign 

4896  003636 

100004 

BPL 

1S 

;Is  it  positive? 

4897  003640 

LDF 

AC1,AC3 

;6et  the  reduction  constant  for  a  minus  exponent 

4898  003646 

005402 

NEG 

R2 

;Get  the  increment  for  a  minus  exponent,  -1 

4899 

4900  003650 

1$: 

CMPF 

#^F1.0,AC2 

; Compare  the  argument  with  1.0 

4901  003660 

005700 

TST 

RO 

;Is  the  exponent  minus? 

4902  003662 

100404 

BMI 

2$ 

;Yes 

4903  003664 

CFCC 

;Plus  exponent.  Is  the  argument  .GE.  1.0? 

4904  003670 

003404 

BLE 

3S 

;Yes,  so  go  reduce  it 

4905  003672 

000410 

BR 

4$ 

;No,  So  we  are  done 

4906  003674 

2$: 

CFCC 

;Minus  exponent.  Is  the  argument  <  1.0? 

4907  003700 

003405 

BLE 

4$ 

;No,  So  we  are  done 

4908  003702 

3$: 

MULF 

AC3,AC2 

;Reduce  the  argument  by  ten 

4909  003710 

060201 

ADD 

R2,R1 

; Count  this  digit 

4910  003712 

4911 

4912  003714 

000756 

BR 

IS 

;Loop  until  we  get  to  the  range  (1.0,  0.13 

005700 

4$: 

TST 

RO 

;Was  the  exponent  negative? 

4913  003716 

1 00004 

BPL 

5$ 

;Yes 

4914  003720 

DIVF 

AC1,AC2 

; Correction  for  negative  exponents 

4915  003726 

000401 

BR 

6$ 

•*            ■ 

4916  003/iO 

005301 

5$: 

DEC 

R1 

; Correct ion  plus  exponents 

4917  003732 

010137 

005076' 

6$: 

MOV 

R1,0PTMP4 

;Save  the  Log 

4918  003736 

POP 

<R2, R1,R0> 

[Restore  the  registers  for  NORM 

4919  003744 

RETURN 

4920 

;  + 

4921 

;  Th- 

is  routine 

formats  a  nu^..er 

into  Scientific  notation.  It  uses  NORM 

4922 

;  to 

format  the  fractional  part 

and  then  fills  in  the  'E'  part. 

4923 

•• 

4924 

4925  003746 

SCI; 

CALL 

LOG 

[Reduce  the  right  arg  to  O.xxxxEyy  form 

4926  003752 

PUSH 

<R1,R2,R3> 

;Save  some  registers 

; Width  =  Width  -  4,  Account  for  the  exponent 

4927  003760 

162701 

000004 

SUB 

#4,R1 

4928  003764 

MULF 

AC1,AC2 

;Put  right  argument  in  x.xxxEyy  form 

;Use  NORM  to  convert  rest  of  right  argtment 

4929  003772 

CALL 

NORM 

4930  003776 

112720 

000145 

M0V8 

#CHR..E,(RO)^   . 

;Fill  in  the  character  'E' 

4931  004002 

005002 

CLR 

R2 

•For  division 

4932  004004 

005001 

CLR 

R1 

•Sign  flag 

4933  004006 

013703 

005076' 

MOV 

0PTMP4,R3 

;Get  the  exponent 

4934  004012 

100004 

BPL 

1$ 

Is  it  negative? 
•Yes,  Fill  in  a  minus  sign 

4935  004014 

113720 

003136' 

M0V8 

RESULT, (R0)+ 

4936  004020 

005201 

INC 

R1 

'Set  the  sign  flag 

•Make  the  exponent  positive 

4937  004022 

005403 

NEG 

R3 

4938  004024 

1$: 

DIV 

*10.,R2 

•Divide  by  ten 

4939  004040 

001403 

BEO 

2$ 

•Is  it  less  than  1101  ? 

4940  004042 

062702 

000060 

ADD 

0Cm.,O,H2 

•No.  Make  the  tens  digit  a  character 

4941  004046 

110220 

MOVB 

R2,(R0)+ 

•Fill  it  into  the  result 

4942  004050 

062703 

000060 

2$: 

ADD 

*CHR..0,R3 

•Make  the  units  digits  into  a  character 

4943  004054 

110320 

MOVB 

R3,(R0)^ 

•Fill  it  into  the  result 

4944  004056 

005702 

TST 

R2 

•Was  there  a  tens  digit? 

4945  004060 

001002 

BNE 

3$ 

•Yes 

4946  004062 

112720 

000040 

MOVB 

^CHRSPA,(RO)+ 

•No,  Fill  in  a  blank 

4947  004066 

005701 

3$: 

TST 

R1 

•Was  the  exponent  negative? 

■fi"X 
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G  5 


A9A8  0OA070  001002 

49A9  004072  1 1 2720  OOOOAO 

A950  004076 

4951  004104 

4953  004106 


4$: 


BNE 

4$ 

;Yes 

Move 

/ifCHRSPA,(RO)* 

;Pad  out  the  rest  with 

POP 

<R3,R2,R1> 

.-Restore  the  reaisters 

RETURN 

:AU  done 

LIST 

a  blank 
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4955  004106 

4958  004106 

4959 

4960 

4961  004106 

5046  004106 


MOPINS  I8M,132,,,M0NIBM 
LIST 


DOPINS  IBM, 132 
LIST 


1 — r 


J  5 
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DYADIC  FORMAT 

50A8  004106 

MOPINS 

QUAD,74,T.NIL+T.SP0P 

5075  004106 

LIST 

5076 

5077 

5078 

5079 

5080 

5081  004106 

DOPINS 

QUAD,74,T.NIL+T.SP0P 

5097  004106 

LIST 

5098 

5099 

5100 

5101 

5102 

5103  004106 

MOPINS 

QQADJ42,T.NIL+T.SPOP 

5135  004106 

LIST 

5136 

5137 

5138 

5139 

5140 

5141  004106 

DOPINS 

QQAD,142,T.NIL*T.SPOP 

5152  004106 

LIST 

5153 

5154 

5155 

5156 

5157 

5158  004106 

MOPINS 

DQADJ34,T.NIL*T.SPOP 

5192  004106 

LIST 

5193 

5194 

5195 

5196  004106 

DOPINS 

DQADJ34,T.NIL  +  T.SPOP,,D$Q0AD 

5199  004106 

LIST 

1— T 


J  5 
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MIXED  FUNCTION 

DYADIC  FORMAT 

5201  00A106 

MCPINS 

BXAVJ62,T.NIL 

5219  004106 

LIST 

5220 

5221 

5222 

5223 

522A 

5225  00A106 

MOPINS 

BXCT,164,T.NIH-T.SPOP 

523A  00A106 

LIST 

5235 

5236 

5237  00A106 

DOPINS 

BXCTJ64,T.NIL^-T.SPOP 

5272  004106 

LIST 

5273 

5274 

5275 

5276 

5277 

5278  004106 

MOPINS 

BXI0J66,T.NIL+T.SP0P 

5287  004106 

LIST 

5288 

5289 

5290  004106 

DOPINS 

BXI0J66,T.NIL+T.SPQP 

5302  004106 

LIST 

5303 

5304 

5305 

5306 

5307  004106 

MOPINS 

BXLC,212,T.NIL 

5340  004106 

LIST 

5341 

5342 

5343 

5344 

5345 

5346 

5347  004106 

MOPINS 

BXPPJ70,T.NIL^-T.SPOP 

5356  004106 

LIST 

5357 

5358 

5359  004106 

DOPINS 

BXPPJ70,T.NIL'^T.SPOP 

5381  004106 

LIST 

5382 

5383 

5384 

5385 

5386 

5387 

5388  004106 

MOPINS 

BXPWJ72,T.NIL  +  T.SP0P 

5397  004106 

LIST 

5398 

5399 

5400  004106 

DOPINS 

BXPWJ72,T.NIL  +  T.SP0P 

5417  004106 

LIST 

5418 

5419 

5420 

^ 


TT 
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5^21 

5A22 

5423  00A106 

MOP INS 

BXRLJ74,T.NIL+T.SP0P 

5432  004106 

LIST 

5433 

5434 

5435  004106 

DOPINS 

BXRLJ74,T.NIL+T.SP0P 

5447  004106 

LIST 

5448 

5449 

5450 

5451 

5452 

5453  004106 

MOPINS 

BXTS,200,T.NIL 

5562  004106 

LIST 

5563 

5564 

5565 

5566 

5567 

5568 

5569  004106 

MOP INS 

BXWAJ76,T.NIL 

5592  004106 

LIST 

A 

M 


TT 
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A 
M 


559A 
5716 


OCA  106 
00A106 


MOP INS 


BXCR,206 
LIST 


TTT 


r 


APLOOA  MACRO  Ml  113 
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5718  004106 
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08-FEB-80  09:26  PAGE  78 
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MOP INS 


M     5 


Al 

m: 


BXEX,202 
LIST 


TTT 


r 
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TTT 


AF 
MI 


5777 
5879 


004106 
00A106 


MOP INS 


BXFX,210 
LIST 
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B  6 


5881  OCA  106 
5950  0OA106 


MOP INS 


BXNC,204 
LIST 
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MIXED  FUNCTION         DYADIC  FORMAT 


TT 


5952  OCA 106 
5963  00A106 
5%A 
5%5 

5%6  00A106 
6104  004106 


MOPINS 


DOPINS 


BXNL,  2U 
LIST 


BXNL,  2U 
LIST 


APLOOA 
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-80 
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26 

MIXED  FUNCTION 

DYADIC 

FORMAT 

6106 

00A106 

6330  00^106 

6331 

6332 

6333 

633A 

6335 

6336 

00A106 

6A85 

00A106 

D  6 

PAGE  82 


DOPINS  FGET,150,T.DIM 
LIST 


DOPINS  FPUT,J52,T.DIM 
LIST 


APLOCK  MACRO  M1113 
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67H 


004106 
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DOPINS 


TT 


FPNTJ54,T.DIM 
LIST 
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6716  00A106 

MOPINS 

1SCNJ30 

6723  OCA 106 

LIST 

672A 

6725 

6726  00A106 

MOP INS 

SCAN, 62, T. DIM 

6732  004106 

LIST 

6733 

673A 

6735  0OA106 

MOPINS 

1RDTJ24 

67A1  00/ '06 

LIST 

6742 

6743 

6744  004106 

MOPINS 

RDCT,60,T.DIM 

7044  004106 

LIST 

G  6 
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70A6  OOA106  MOPINS  GET^DN^O 

7193  00A106  LIST 
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H  6 


7195 
7A0A 


00A106 
OCA  106 


MOP INS 


SATAN, 0 
LIST 


1 — r 
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7406  00A106 
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MOP INS 


7~5" 


0UTRJ56 
LIST 


TT 
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XT 


7A78 
750A 
7505 
7506 
7507 
7508 
7509 
7510 
756A 
7565 
7566 
7567 
7568 
7569 
7570 
7612 


00A106 
004106 


MOPINS  D0UTER,0 
LIST 


00A106 
00A106 


MOPINS  PRDSET,0 
LIST 


00A106 
OCA 106 


MOPINS  INSPACO 
LIST 
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761A  00A106 


DOPINS  INNR,156 


TT 
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7960  0OA106 


90 


TT 


A 


LIST 


ITT 


APLOOA  MACRO  Mil  13  08-FEB-80  09:26  PAGE  91 
MIXED  FUNCTION         DYADIC  FORMAT 


WT 


A 
D 


7%2  OCA  106 


MOP INS    sueR,o 


rrz— : 


NT 


r 
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8725  OCA 106 


08-FEB-8C 
DYADIC 


09 :  26 
FORMAT 


PAGE  92 


'N^ 


Al 
D( 


LIST 


TT 
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8727  0OA106  MOPINS  RAND,0 

8771  0OA106  LIST 
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1 


000001 


.END 
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SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRFIL= 

000177 

CTMAX 

00021 2R 

025 

D.8XRL= 

000007 

D.1C0M= 

000001 

AC1   = 

X000001 

CHRFRO= 

000135 

CTRMAX 

0001 72R 

025 

D.CIRC= 

000001 

D.l EXP= 

000002 

AC2   = 

X000002 

CHRLBR= 

000073 

C.AL0C= 

000162 

D.COMB= 

000001 

D.1R0T= 

000003 

AC3   = 

X000003 

CHRLPR= 

000072 

C.8L0K= 

000064 

D.COMP= 

000001 

EDICHR 

005063R 

025 

ACA   = 

X000004 

CHR«NS= 

000137 

C.8LSZ= 

000140 

D.CONT= 

000006 

EDICNT 

005064R 

025 

ACS   = 

X000005 

CHRf1UL= 

000075 

C.BUFF= 

177760 

D.CTLW=  000000 

EDIFLG 

005062R 

025 

ALLINT 

003274R 

025 

CHRNEG= 

000100 

C.BUFL= 

177762 

D.DEAL= 

000003 

EDIT  = 

000003 

APRNT1= 

******  GX 

CHRPDL= 

000271 

C.CCNT= 

177766 

D.DECD= 

000002 

EIS   = 

000000 

ARYRET 

003276R 

025 

CHRPLU=  000055 

C.CPTR= 

177764 

D.DIV  = 

000000 

ELESI2 

0051 32R 

025 

ASCQUO=  000042 

CHRPWR= 

000120 

C.CZ  = 

001000 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

A.ALEN=  000004 

CHRQST= 

000121 

C.DIG  = 

000040 

D.DQADr 

y77777 

EOF   = 

104475 

A.ARG  = 

000040 

CHRQiX)=  000113 

C.FASW= 

020000 

D.DR0P= 

000002 

ERR«AX= 

000166 

A.ASB  = 

000200 

CHRRBR= 

000047 

C.FLEN= 

000010 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

A.B1TS= 

000003 

CHRRPR= 

000042 

C.FLSH= 

004000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

A. CON  = 

000020 

CHRSEM=  000074 

C.FRC  = 

000001 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.DI«S= 

000002 

CHRSW0=  000112 

C.IDEN= 

000010 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

A.DIW1  = 

000006 

CHRSPA= 

000040 

C.NAWE= 

000102 

D.FWT  = 

000004 

ESCT 

005056R 

025 

A.NUH  = 

000006 

CHRTAB= 

***«*i^  GX 

C.N0BF= 

000400 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.PTR  = 

000000 

CHRUPA= 

000131 

C.Nlfl  = 

000020 

D.FPUT= 

000005 

FA.APD= 

000100 

A.TMP  = 

000010 

CHR.BS--- 

000010 

COP  = 

000004 

D.6E  = 

000000 

FA.CRE= 

000010 

BADDIR= 

104<63 

CHR.CC= 

000003 

C.OPN  = 

010000 

D.6T  = 

000000 

FA.DLK= 

001000 

BADERR= 

104437 

CHR.CR= 

000015 

C.RDLN= 

1 77776 

D  law  = 

000002 

FA.ENB= 

100000 

BLZRif) 

005116R 

025 

CHR.CZ= 

000032 

C.RE'JT= 

002000 

D.INP  = 

000002 

FA.EXC= 

002000 

BRSELF 

005046R 

025 

CHR.GT= 

000046 

C.RND  = 

000010 

D.INNR= 

000013 

FA.EXT= 

000004 

CARVE  = 

******  GX 

CHR.LF= 

000012 

C.S8IT= 

177756 

D.JNTR= 

000006 

FA.NSP= 

000100 

CCNT 

005072R 

025 

CHR.LT= 

000043 

C.SPFX= 

000100 

D.LE  = 

000000 

FA.NSR= 

000200 

CHANEX 

003060R 

025 

CHR.SI= 

000017 

C.SPGL= 

000200 

D.LOG  = 

000001 

FA.POS= 

010000 

CHANOO 

000256R 

025 

CHR.SL= 

000057 

C.SPLX= 

000001 

D.LT  = 

000000 

FA.RD  = 

000001 

CHA^01 

000330R 

025 

CHR.SO=  000016 

C . SPRS= 

000002 

D.MAX  = 

000000 

FA.RWD= 

004000 

CHAfJ02 

0005 12R 

025 

CHR.TB= 

000011 

C.SRC  = 

}7777^ 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CHAN03 

000674R 

025 

CHR.UL= 

000106 

C.SRCP= 

000024 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHAN04 

001056R 

025 

CHR..A= 

000141 

C.TT  = 

000004 

D.MUL  = 

000000 

FA.TMP= 

000020 

CKAN05 

001240R 

025 

CHR..E= 

000145 

C.WJDC= 

177770 

D.NE  = 

000000 

FA.WC»C= 

020000 

CHAN06 

001422R 

025 

CHR..S= 

000163 

C.WIDR= 

1 77772 

D.NN  = 

000000 

FA.WRT= 

000002 

CHAN07 

001604R 

025 

CHR..T= 

000164 

DEBUG  =r 

000000 

D.NR  = 

000000 

FD.BLK= 

000010 

CHANGS 

001766R 

025 

CHR..U=  000165 

DEFERR= 

104405 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN09 

0021 50R 

025 

CHR..Z= 

000172 

DEVIL 

0051 14R 

025 

D.PLUS= 

000000 

FD.COH=  020000 

CHAN10 

002332R 

025 

CHR..0= 

000060 

DEVNTF= 

104470 

D.PSUB=  000006 

FD.CR  = 

000002 

CHAN11 

0025 14R 

025 

CHR..1= 

000061 

DIGITS 

000006R 

025 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN12 

002676R 

025 

CH.AND= 

000001 

DIWAX  = 

000020 

D.OQAD:= 

000000 

FD.FTN=  000001 

CKAN13 

000022R 

023 

CMDBIJF 

003250R 

025 

DIMBLK 

0031 12R 

025 

D.OUAD= 

000000 

FD.F11= 

040000 

CHAf^U 

000204R 

023 

C«D«AX= 

000010 

DIUPTR 

0031 14R 

025 

D.RES  = 

000000 

FD.INS= 

000010 

CHNOR«= 

104471 

C«PRSS= 

******  GX 

DIMTYP 

0031 16R 

025 

D.RHO  = 

000000 

FD.ISP= 

002000 

CHRAND= 

000051 

CNTSIZ 

005130R 

025 

DIRFUL= 

104466 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHHBEL= 

000007 

comiN 

005076R 

025 

DOMERR= 

104417 

D.SCON=  000006 

FD.0SP= 

004000 

CHR8KR= 

000133 

COMCNT 

005126R 

025 

DOTRAN 

000620R 

020  D.SDIF= 

000006 

FD.PLC= 

000004 

CHRflOI.= 

000200 

C0«ERR= 

104425 

DPTERR= 

104416 

D.SUB  ^ 

000000 

FD.PRN=  000004 

CHKBOX= 

000114 

COMPTR 

005122R 

025  DTRAN1 

000302R 

020  D.SUES= 

000006 

FD.PSE= 

010000 

CHHCHA= 

000054 

COMRTN 

0031 56R 

025  DYDCNT 

003224R 

025 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRCa^ 

000076 

COhSKP 

005124R 

025  D$F«T 

001362RG 

020  D.TRAN=  000004 

FD.RAN=  000002 

CHRDEL= 

000107 

CORPTR 

005120R 

025 

DSTRAN 

OOOOOORG 

020  D.UN0N=  000006 

FD.REC= 

000001 

CHRDIV= 

000053 

CS.ASS= 

000200 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RWW=  000001 

CHRDLR= 

000176 

CS.800= 

OCOOIO 

D.8XCT= 

000007 

D.$MIN=  000000 

FD.SDI= 

000020 

CHRDLT= 

000110 

CS.FLO= 

C00020 

D.BXIO= 

00000/ 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHR0OT= 

000056 

CS.IDN= 

000040 

D.8XNL= 

000007 

D.5PLU=  000000 

FD.TTY= 

000004 

C^mEP  = 

000105 

CS.ONE= 

000100 

D.8XPP= 

000007 

D.$RES= 

000000 

FD.yBH= 

000002 

CHReRR= 

104431 

CTEPS 

0001 52R 

025 

D.8XPW= 

000007 

D.$SUB= 

000000 

FF.CHR= 

000005 
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FF.NV  =  000003 

•.DSPT= 

000044 

F.TRC  = 

000002 

LINING 

005026R 

025  M.IBM  =  000003 

FF.POE=  000002 

•.DVNM=  000134 

F.UNIT= 

000136 

LISIZE= 

000020 

M.IDN  =  000000 

FF.RgD=  000001 

•.EFBK= 

000010 

F.IIRRD= 

000020 

LITOP 

005072R 

025  I^ANSP=   000006 

FF.RWF=  000006 

'.EFN  = 

000050 

F.VAL  = 

^77776 

LNLNG  = 

104541 

M.I0TA=  000000 

FF.SPC=  000004 

'.END  = 

002000 

F.VBN  = 

000064 

LOCLCT 

005036R 

025  M.LIT  =  000205 

FHEADR  00501 2R 

025  1 

•.EnRB= 

000032 

F.VBSZ= 

000060 

LOG 

003562R 

020  M.LN  =  000001 

FHRET   005040R 

025  \ 

■.ERR  = 

000052 

GETC0R= 

******  GX 

LOWCOR 

000002R 

025  M.MMD  =  000010 

FILL    003372R 

020  1 

•.FACC= 

000043 

GETFRA= 

******  GX 

LSTERP 

004766R 

025  M.NEG  =  000000 

FILNTF=  10A467 

•.FFBY= 

000014 

GETREG= 

******  GX 

LWIDTH 

000070R 

025  M.NOT  =  000000 

FIS   =  000000 

•.FLAG= 

000002 

GNOME 

0031 02R 

025  L.BITS= 

000003 

M.Mfl  =  000006 

FISCC3N=  0A6000 

-.FLB  = 

000100 

HASHC 

0051 36R 

025  L.CNT  = 

000002 

M.NUM  =  000204 

FIXPTR  003074R 

025  1 

■.FNAM=  000110 

HASHTB 

005140R 

025  L.PRNT= 

000001 

M.0UTR=  000012 

FLAGS   004764R 

025  f 

'.Ffe  = 

000102 

HSHMSK= 

177601 

L.PTR  = 

000000 

M. PI TM=  000000 

FLCBUF  003250R 

025  ( 

•.FNDF= 

000010 

HSHSIZ= 

000200 

L.PTR1= 

000004 

M.PRDS=  000006 

FLINE   0050HR 

025  1 

'.FTYP= 

000116 

lASH  = 

******  GX 

L . SUBS= 

000002 

M.QQAD=  000000 

FLOEXP  003270R 

025  \ 

-.FUN  = 

000010 

KHAN 

005050R 

025  MACHIN=  000106 

M.OUAD=  000000 

FLONEG  003272R 

025  ( 

■.FVER= 

000120 

IDIV  = 

******  GX 

MAXCHN=  000014 

M.RAND=  000012 

FLSWTB  000222R 

025  1 

•.HEAD= 

000006 

ILARGC= 

******  GX 

MONBLK 

0031 20R 

025  M.RAVL=  000000 

FLTLEN=  000010 

■.HIBK= 

000004 

ILFNAM= 

104464 

MONCVT 

0031 32R 

025  M.RCIP=  000000 

FMTDOM  002704R 

020  1 

'.LBL  = 

000020 

ILLCHN= 

104540 

MONLEN 

0031 30R 

025  M.RDCT=  000011 

FMTRND  003A54R 

020  1 

'.LINE= 

000012 

ILLSW  = 

104565 

MDNPTR 

0031 22R 

025  M.REVS=  000003 

FNINSI  00504AR 

025  1 

■.LOC  = 

000004 

IMUL  = 

******  GX 

MONSFT 

0031 26R 

025  M.R0LL=  000000 

FNLIST=  ♦♦*♦♦♦  GX 

■.LSTC= 

000004 

INDERR= 

104410 

MONTYP 

0031 24R 

025  M.SATA=  000001 

FORIGN  000032R 

025  1 

'.LUN  = 

000042 

INNTMP 

003250R 

025  MONVAL 

0031 34R 

025  M.SCAN=  000011 

F0.AP0=  000106 

■.MBCT= 

000054 

INNTM2 

00501 6R 

025  MSENCD 

000766RG 

020  M.SHAP=  000000 

F0.MFY=  000002 

'.MBC1  = 

000055 

INPTR 

000064R 

025  M$FMT 

001332RG 

020  M.SIGN=  000000 

FO.RD  =  000001 

'.l«FG= 

000056 

INSNA«= 

104462 

M.ABS  = 

000000 

M.SLBf  ^00001 

F0.UP0=  000006 

'.MON  = 

000002 

lOERR  = 

104477 

M.BOL  = 

000200 

M.SYM    00203 

F0.WRT=  000016 

'.NIL  = 

000001 

I.CNT  = 

1 77776 

M.BXAV= 

000007 

M.SYN   J00201 

FPMOOE  000042R 

025  1 

'.NRBO= 

000024 

I. DIM  = 

1 77772 

M.BXCR= 

000007 

M.TRAN=  000012 

^PP       =  000000 

'.NREC= 

000030 

I.LEN  = 

000012 

M.BXCT= 

000007 

M.$ABS=  000000 

FPF>LEN=  000004 

-.OPN  = 

000010 

I.OERR= 

000062 

M.BXtX= 

000007 

M.$CEI=  000000 

FRARGC=  ♦♦♦♦♦♦  GX 

•.OVBS= 

000030 

I. OLD  = 

1 77770 

M.BXFX= 

000007 

M.$FLR=  000000 

FREBLK  007400R 

025  1 

'.PREV= 

000000 

I.PTR  = 

1 7777^ 

M.BXIO^ 

000007 

M.$IDN=  000000 

FUZZ    0001 42R 

025  1 

-.PRNT= 

100000 

I. SIR  = 

) 77766 

M.BXLC= 

000003 

M.$NEG=  OOOOX 

FXPTR1  003076R 

025  1 

'.PROT= 

010000 

KILL  = 

******  GX 

M.BXNC= 

000007 

M.SSIG=  000000 

F$EVAL=  000100 

'.RACC= 

000016 

LABERR= 

104406 

M.BXNL= 

000007 

M.1RDT=  000011 

F$EVI  =  000200 

'.RATT= 

000001 

LABLPT 

005042R 

025  M.BXPP= 

000007 

M.1REV=  000003 

F$EXEC=  000400 

'.Rcm= 

000034 

LARGBL 

0031 62R 

025  M.BXPW=  000007 

M.1SCN=  000011 

F$FUNC=  001000 

'.RCTL= 

000017 

LAR6CV 

0031 76R 

025  M.BXRL= 

000007 

NA^eUF  003240R 

025 

F.ACTL=  000076 

'.READ= 

004000 

LARGFL 

0031 60R 

025  M.BXTS= 

000007 

NB.DEV=  000200 

F.ALOC=  000040 

'.REOf= 

000040 

LARGLE 

0031 74R 

025  M.BXyA= 

000007 

NB.DIR=  000100 

F.BBFS=  000062 

^RES  = 

000040 

LARGLN 

0031 66R 

025  M.CEI  = 

1 77777 

NB.NAM=  000004 

F.BOB  =  000070 

^RET  = 

1 77772 

LARGPT 

0031 64R 

025  M.CHR  = 

000202 

NB.SD1=  000400 

F.BGBC=  000057 

'.HS1I= 

000002 

LARGSF 

0031 72R 

025  M.CMT  = 

000206 

NB.SD2=  001000 

F.BITS=  177774 

'.RTYP= 

000000 

LARGTY 

0031 70R 

025  M.D0UT= 

000006 

NB.SM1=  000040 

?^.BKDN=  000026 

''.R2     = 

000014 

LARGVA 

003200R 

025  M.DQAD= 

000006 

NB.STPr  000020 

.  .»CDS=  000020 

'.R3  = 

000016 

LBINC 

005100R 

025  M.ENCD= 

000004 

NB.SVR=  000010 

F.BICEF=  000050 

^R4  = 

000020 

LBUFF 

00331 6R 

025  M.EXE  = 

000000 

NB.TYPr  000002 

F.BICP1=  000051 

'.SEQN= 

000100 

LBUFLN= 

000621 

M.EXP  = 

000001 

NB.VER=  000001 

F.BKST=  000024 

f . SPOV= 

000072 

LCC'JNT 

005106R 

025  M.FACT= 

000001 

ND.DEV=  000200 

F.BKVB=  000064 

^SPUN= 

000074 

LENERR= 

104412 

M.FIL  = 

000177 

ND.EXT=  000002 

F.BR  =  000020 

^STBK= 

000036 

LENTAB 

00OO34R 

025  M.FLR  = 

1 77777 

ND.NA«=  000004 

F.CHR  =  000075 

^STK  = 

000022 

LBXPTR 

0031 OOR 

025  M.FMT  = 

000004 

ND.PPN=  000100 

F.CNTG=  000034 

^STOP= 

000004 

LFTOP 

005066R 

025  M.GDUP= 

000003 

ND.SEX=  000000 

F.CODE=  000010 

'.STP  = 

000001 

LINC 

0051O2R 

025  M.GDUN= 

000003 

ND.$E$=  000020 

F.DF^B=  000046 

' . SUSP= 

000002 

LINE 

00501 6R 

025  M.6ETI= 

000006 

ND.SNM=  000000 
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ND.$NS=  OOOOAO 

0PTMP5 

005100R 

025  R.BITS= 

000003 

SY.BAD=  000001 

T.SOP  = 

000002 

ND.$PN=  001400 

0PTIiP6 

005102R 

025  R.FIX  = 

000001 

SY.8RK=  100000 

T.SP0P= 

000040 

NEGSGN  005063R 

025  0PTMP7 

0051 04R 

025  R.LCT  = 

000002 

SY.8S  =  000010 

T.TMP  = 

000200 

NINPT1  003302R 

025  0PTMP8 

005106R 

025  R.LN  = 

000002 

SY.CLR=  000040 

T.VAL  = 

100000 

NINPT2  003300R 

025  0PTMP9 

00511 OR 

025  R.LNUM=  000010 

SY.ERP=  000020 

T.VAR  = 

001000 

NINSTK  00330AR 

025  OPTM10 

0051 12R 

025  R.NEXT= 

000006 

SY.N0U=  000100 

UPPER  = 

177400 

NINTMP  00331  OR 

025  0PTM14 

005026R 

025  R.OFF  = 

000000 

SY.0PN=  000002 

UTNAME 

000344R 

023 

NINTYP  003306R 

025  ORIGIN 

000030R 

025  R.PREV= 

000004 

SY.PMT=  001000 

VALERR= 

104413 

NORM    002706R 

020  OUTPTR 

000066R 

025  R.PTR  = 

000000 

SY.SRT=  000400 

VARBLE 

007400R 

025 

NOTA\/L=  104472 

0VR0PR= 

000004 

R.SEQ  = 

000003 

SY.SVC=  000004 

VARBLS 

OOOOOOR 

025 

NOTOPN=  104473 

PATCH 

007344R 

025  R.VAR  = 

000002 

SY.SVL=  000200 

VERNUh 

OOOOOOR 

025 

NPRT1   004762R 

025  PRECSN 

0O0052R 

025  R6 

X000006 

S.AB  =  177776 

VRSI0N=  000002 

NULL    007364R 

025  RANDAC 

003064R 

025  R7 

X000007 

S.ASB  =  100000 

WIDTH 

000072R 

025 

NLJMCHN=  000020 

RANDY 

003062R 

025 

SAME  = 

******   GX 

S.BFHD=  000020 

UROUND 

000020R 

025 

WJMDFL  003230R 

025  RANERR= 

104411 

SCANCL 

00251 2R 

020 

S.BITS=  000002 

WSDATE 

0001 36R 

025 

NUMEFL  003233R 

025  RARGBL 

003204R 

025 

SCI 

003746R 

020  S.CHR1=  000003 

WSFULL= 

104403 

NUMESN  003236R 

025  RARGCV 

003220R 

025 

SETBIG= 

******   GX 

S.FATT=  000016 

USNAME 

000074R 

025 

NUMFLG  003230R 

025  RARGFL 

003202R 

025 

SI 

X000005 

S.FDB  =  000140 

WSTIME 

0001 32R 

025 

NUMLEN  000062R 

025  RARGLE 

00321 6R 

025 

SIDA«N= 

104433 

S.FLB  =  040000 

$ADDF  = 

**•**•  GX 

NLffCG  003232R 

025  RARGLN 

00321 OR 

025 

SIFRAM 

00331 4R 

025 

S.FNA«=  000006 

$CFCC  = 

******  GX 

NUMQFL  003234R 

025  RARGPT 

003206R 

025 

SISTAK 

006350R 

025 

S.FNB  =  000036 

$CMPF  = 

******  GX 

NUMRIG  003231 R 

025  RARGSF 

00321 4R 

025 

SI  TOP 

006346R 

025 

S.FNBW=  000017 

$DIVF  = 

******  GX 

NLMJID  003226R 

025  RARGTY 

00321 2R 

025 

SITP 

0071 44R 

025 

S.FNTY=  000004 

%flS     = 

******  G 

NUMZFL  003235R 

025  RARGVA 

003222R 

025 

SiyARN= 

000200 

S.FTYP=  000002 

%FPP     = 

******  G 

NXTIND=  ♦♦*♦♦♦  GX 

RBASE 

005074R 

025 

SIZTAB 

000044R 

025 

S.LEN  =  000002 

%fPPLH= 

******  G 

NYIERR=  104432 

RCOUNR 

0051 12R 

025 

SI.BIT= 

\77im 

S.LINK=  177774 

$LDCDF= 

******  GX 

N.BLSZ=  000036 

RCOUNT 

0051 10R 

025 

SI.LEN= 

M7711 

S.NFEN=  000020 

$LDCFD= 

******  GX 

N.DESC=  000020 

REDCNT 

005070R 

025 

SI.RET= 

}77772 

S.TYPE=  140000 

$LDF  = 

******  GX 

N.DEV  =  000032 

REDIGN 

005066R 

025 

SI.VAL= 

U7776 

S.VAL  =  000000 

$MACHN= 

******  G 

N.DEVN=  000034 

REDOFF 

005072R 

025 

SKPSII 

0051 34R 

025 

TKDIMS  005072R 

025  SMODF  = 

******  GX 

N.DID  =  000024 

REENTR 

003060R 

025 

SPHOLD 

000004R 

024 

TKFRAM  005066R 

025  SMULF  = 

******  GX 

N.D\/NH=  000032 

REGTYP= 

000002 

SPINIT 

000002R 

024 

TKLEFT  005070R 

025  $NE6F  = 

******  GX 

N.EXT  =  000014 

RES8IT 

0031 42R 

025 

STKINC= 

000774 

TMODE   000403R 

023  SRSTS  = 

******  G 

N.FID  =  000000 

RESCVT 

0031 52R 

025 

STOP  = 

104420 

TMPTAG=  000166 

$RSX  = 

******  G 

N.FNA«=  000006 

RESERR= 

104440 

SUBCNT 

0031 04R 

025 

TTYBUF  0041 40R 

025  $RT11  = 

******  G 

N.FTYP=  000014 

RESLEN 

0031 50R 

025 

SlfiDCT 

0031 06R 

025 

TTYLEN=  000622 

SSETD  = 

******  GX 

N.FVER=  000016 

RESPTR 

0031 40R 

025 

SUBPTR 

00311  OR 

025 

TURKEY=  104436 

SSETF  = 

******  GX 

N.NA«E=  000006 

RESSFT 

003146R 

025 

SYMB0L= 

******   GX 

TYP"^  =  000166 

$STCFI= 

******  GX 

N.NEXT=  000022 

RESTYP 

0031 44R 

025 

SYMB1 

005344R 

025 

T.B.u  =  020000 

$STEXP= 

******  GX 

N.PPN  =  000024 

RESULT 

0031 36R 

025 

SYMF 

005340R 

025 

T.CON  =  004000 

STSTF  = 

******  GX 

N.STAT=  000020 

RESVAL 

0031 54R 

025 

SYMPT1 

005346R 

025 

T.DIM  =  000100 

.B00LE= 

000002 

N.UNIT=  000034 

RINC 

005104R 

025 

SYMTAB 

005352R 

025 

T.FUN  =  010000 

.CHARA= 

000000 

OBUFLN=  001000 

RLTBAS 

005066R 

025 

SYMTBF= 

104404 

T.LIST=  000400 

.DEF.  = 

000002 

OCHAN   005052R 

025  ROTINC 

005070R 

025 

SYMTOP 

005350R 

025 

T.LIT  =  000020 

.FL0AT= 

000006 

0«ODE   000402R 

023  ROUND 

00001 OR 

025 

SYMTP 

006272R 

025 

T.MON  =  000010 

.FSRCB= 

******  G 

OPTMPO  005066R 

025  ROVER 

00331 2R 

025 

SYMURN=  000054 

T.NIL  =  000004 

.INTEG= 

000004 

0PTMP1  005070R 

025  RSTS  = 

000000 

SYNERR= 

104407 

T.NUM  =  002000 

.MOLUN 

000404R 

023 

0PTMP2  005072R 

025  RSX   = 

000115 

SYSER  = 

******   GX 

T.0PFN=  000001 

...GBL= 

000000 

GPTMP3  005074R 

025  RTOP 

005070R 

025 

SYSERR= 

104402 

T.0THR=  040000 

...TPC= 

000020 

0PTMP4  00i>076R 

025  RT11  = 

000000 

SYSTAT 

OOOOOOR 

024 

.  ABS.  000000 

000 

000000 

001 

TABLES  000000 

002 

MONTB   000000 

003 

DYDTB   000000 

004 

BOPTB   000000 

005 
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MONBTB 

000000 

006 

DYDBTB 

000000 

007 

COMTB 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

OH 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

00A106 

020 

PATCH 

000000 

021 

$$FSR1 

000000 

022 

DEF$0 

000A06 

023 

DEF$1 

000006 

024 

DEF$2 

007A00 

025 
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.TITLE 
.IDENT 


ITT 


A 
D 


APL005 
\V02.03\ 


THIS  IS  USED  WHEN  ASSEMBLING  APLOP  TO  OBFINE   A  NEW  OVERLAY  SEGMENT 
CONTAINING  OPERATOR  ROUTINES.   IN  THE  COMMON  DEFINITION  FILE, 
•OVROPR'  IS  DEFINED  AS  ZERO.   IF  IT  IS  DEFINED  AS  ONE  BEFORE  APLOP 
IS  ASSEMBLED,  ONLY  THE  CODE  DESIGNATED  FOR  THE  OPERATOR  OVERLAY  IS 
ASSEMBLED.   THEREFORE,  THE  COMMAND  TO  ASSEMBLE  APL005  IS: 


APL005  < 


,APL005, APLOP 


000005 


OVROPR^  5 


;OVERLAY  SPECIFIED  OPERATORS 


B  8 
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5 

;  FUNCTIONAL  DESCRIPTION: 

I 

;       THIS  MODULE  CONTAINS  THE  CODE  FOR  MOST  APL  OPERATORS  WHICH 

;      HAVE  BEEN  IMPLEMENTED  SO  FAR.  TWO  MACROS  ARE  USED  TO  DEFINE 

10 

;      OPERATOR  ROUTINES.   'DOPINS*  DEFINES   A  DYADIC  OPERATOR,  AND 

11 

;       'MOPINS'  DEFINES  A  MONADIC  OPERATOR.   THE  ARGUMENTS  TO  THE 

12 

;      MACROS  ARE  THE  NAME  OF  THE  OPERATOR  ROUTINE  AND  THE  OPERATOR 

13 

;      NUMBER  FOR  THE  OPERATOR  (WHICH  CAN  BE  FOUND  BY  LOOKING  IN 

U 

;       'VTAB').  FOR  DYADIC  SCALAR  OPS,  THE  LEFT  ARG  IS  IN  AC1 ,  THE 

15 

;      RIGHT  ARG  IS  IN  AC2,  AND  THE  RESULT  IS  RETURNED  IN  ACO.  FOR 

16 

;       MONADIC  SCALAR  OPS,  THE  ARGUMENT  IS  IN  AC1,  AND  THE  RESULT 

17 

;       IS  RETURNED  IN  ACO.   SCALAR  OPS  MUST  LEAVE  THEIR  ARGUMENTS 

18 

:                INTACT! 

19 

I 

... 

24 

27 

124 

125 

.-THESE  MACROS  ARE  FOR  OVERLAY  CODE.   THEY  ARE  USED  THE  SAME  AS 

126 

.•RESIDENT  MACROS.   THE  DIFFERENCE  COMES  IN  THE  WAY  THEY  WORK.   THE 

127 

.•PRMRES*  MACRO,  FORCES  ALL  CODE  BETWEEN  IT  AND  THE  NEXT  MFTFV'LIST' 

128 

;T0  NOT  BE  ACSEMBLED.   THE  'MOPINS'  AND  'DOPINS'  DON'T  PUT  ANYTHING  IN 

129 

;ANY  TABLES.  OTHER  THAN  THAT  THEY  WORK  BASICLY  THE  SAME  AS  THE  RESIDENT 

130 

.•MACROS. 

131 

132 

.MACRO  DOPINS  NAME. NUM,B ITS, BOZO, NOTME 

133 

Alf          NDF  D.'NAME,  .ERROR  ;D.'NAME  IS  NOT  DEFINED  BY  OVROPl 

134 

.If   EQ  OVROPR-D.'NAME 

135 

,PSECT     CODE 

136 

DS'NAME:: 

137 

.ENDM 

138 

139 

.MACRO  MOPINS  NAME,NUn,BITS,BOZO,NOTME 

140 

,llf          NDF  M.'NAME,  .ERROR  ;M.'NAME  IS  NOT  DEFINED  BY  OVROPi 

141 

.If   EQ  OVROPR-M. 'NAME 

142 

.PSECT  CODE 

143 

.IF  NE  NUM 

144 

MS'NAME:: 

145 

.ENDC 

146 

.ENDM 

147 

148 

.MACRO  LIST 

149 

.ENDC 

150 

.ENDM 

151 

152 

.MACRO  PRMRES 

153 

.IF  EQ  1 

154 

.ENDM 

155 

159 

;******«**«*  ASSEMBLING  THE  FILE!  I  I!! 

160  007400 

PRMRE  S 

199  007400 

LIST 

c  6 
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201 

007400 

DOPINS 

PLUS,2,T.S0P,.INTEGER+CS.IDN+CS.ASS 

208  007400 

LIST 

209 

210 

007400 

DOPINS 

$PLU,-2 

224 

007400 

LIST 

225 

226 

007400 

DOPINS 

SUB,4,T.S0P,.INTEGER*CS.IDN 

233  007400 

LIST 

234 

235 

007400 

DOPINS 

$SUB,-4 

249  007400 

LIST 

250 

251 

252 

007400 

DOPINS 

MUL,6,T.S0P,.INTEGER^CS.B00L+CS.IDN*CS.0NE^CS.ASS 

264 

007400 

LIST 

265 

266 

267 

007400 

DOPINS 

$MUL,-6 

284 

007400 

LIST 

285 

286 

007400 

DOPINS 

DIVJCT.SOP^.FLOAT^CS.BOOL-^CS.IDN-^CS.ONE 

323 

007400 

LIST 

324 

325 

326 

007400 

DOPINS 

PWR,20,T.S0P,.FLOAT^-CS.BOOL^CS.IDN+CS.ONE 

392 

007400 

LIST 

393 

394 

395 

007400 

DOPINS 

LOG,54,T.SOP,.FLOAT^CS.BOOL 

417 

007400 

LIST 

418 

419 

420 

007400 

DOPINS 

CIRC, 52, T. SOP, .FLOAT 

477 

007400 

LIST 

478 

479 

480 

007400 

DOPINS 

MIN,14,T.SOP,.INTEGER*CS.800L+CS.ASS 

490 

007400 

LIST 

491 

492 

007400 

OOPINS 

$WIN,-14 

516 

007400 

LIST 

517 

518 

519 

007400 

DOPINS 

MA)(,16,T.S0P,.INTEGtR>CS.800LKS.ASS 

529 

007400 

LIST 

530 

531 

007400 

DOPINS 

$«AX,-16 

555 

007400 

LIST 

556 

55/ 

558 

007400 

DOPINS 

RES,12,T.S0P,.INTEGERKS.800LKS.IDN 

589 

007400 

LIST 

590 

591 

592 

00^400 

DOPINS 

$RfcS,-12 

616 

007400 

LIST 

617 

D    8 
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618 

619  007A00  DQPJNS  COI«B,22,T.SOP,  .FLOATKS.BOOL^CS.  IDN^CS.ONE 

639  007400  LIST 


E  i 
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6A1  007400 

DOPINS 

AND,42,T.SOP,.BOOLEAN4-CS.IDN"^CS.ONE-^CS.ASS 

652  007400 

LIST 

653 

654 

655  007400 

DOR INS 

OR,40,T.S0P,.BOOLEAN*CS.IDN-^CS.ASS 

662  007400 

LIST 

663 

664 

665  007400 

DOPINS 

NN, 46, T. SOP,. BOOLE AN 

676  007400 

LIST 

677 

678  007400 

DOPINS 

NR, 44, T. SOP,. BOOLEAN 

687  007400 

LIST 

688 

689 

690  007400 

DOPINS 

LT,24,T.LIT+T.SOP,.CHARACTER-»-CS.IDN 

700  007400 

LIST 

701 

702  007400 

DOPINS 

LE,26,T.LIT^T.SOP,.CHARACTER+CS.IDN^CS.ONE 

712  007400 

LIST 

713 

714 

715  007400 

DOPINS 

EQ,30,T.LIT^-T.SOP,.CHARACTER^CS.IDN*CS.ONE 

733  007400 

LIST 

734 

735  007400 

DOPINS 

GE,36,T.LIT^•T.S0P,.CHARACTER'^CS.IDN'^CS.0NE 

745  007400 

LIST 

746 

747 

748  007400 

DOPINS 

GT,32,T.LIT*T.SOP,.CHARACTER-^CS.IDN 

758  007400 

LIST 

759 

760 

761  007400 

DOPINS 

NE,34,T.LIT+T.SOP,.CHARACTER+CS.IDN 

780  007400 

LIST 

781 

F  6 
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783  007400 

MOPINS 

FLR, 14,1. SOP,. INTEGER+CS.800L+CS.FL0AT,M$IDN 

786  007A00 

LIST 

787 

788  007400 

MOPINS 

CEI,16,T.S0P,.INTEGER^-CS.800L>CS.FL0AT,M$IDN 

791  007400 

LIST 

792 

793  007400 

MOPINS 

IDN,2,T.S0P,.INTEGER^-CS.B00L 

799  007400 

LIST 

800 

801 

802  007400 

MOPINS 

$IDN,-2 

808  007400 

LIST 

809 

810 

811  007400 

MOPINS 

$FLR,-14 

855  007400 

LIST 

856 

857 

858  007400 

MOPINS 

$CEI,-16 

868  007400 

LIST 

869 

870 

871  007400 

MOPINS 

NEG,4,T. SOP, .INTEGER 

878  007400 

LIST 

879 

880  007400 

MOPINS 

$NEG,-4 

887  007400 

LIST 

888 

889 

890  007400 

MOPINS 

SIGN, 6, T. SOP,.  INTEGER^-CS.BOOL^-CS. FLOAT 

901  007400 

LIST 

902 

903  007400 

MOPINS 

$SIG,-6 

914  007400 

uTST 

915 

916 

917  007400 

MOPINS 

RCIP,10,T.SOP,.FLOAT^CS.BOOL 

928  007400 

LIST 

929 

930  007400 

MOPINS 

EXP, 20, T. SOP,. FLOAT 

939  007400 

LIST 

940 

941 

942  007400 

MOPINS 

LN,54,T.SOP,.FLOAT^-CS.BOOL 

949  007400 

LIST 

950 

951 

952  007400 

MOPINS 

PITM,52,T. SOP, .FLOAT 

959  007400 

LIST 

960 

961  007400 

PRMRES 

966  007400 

LIST 

967 

968 

969  007400 

MOPINS 

ABS,12,T.S0P,.INTEGERKS.800L 

977  007400 

LIST 

978 
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979  007400 
992  007400 
993 
994 

995  007400 
1002  007400 
1003 
1004 

1005  007400 
1031  007400 
1032 
1033 

1034  007400 
1057  007400 


G  8 


PAGE  49-1 


MOPINS  SABS, -12 
LIST 


MOPINS  FACT, 22, T. SOP,. FLOAT^CS.BOOL 
LIST 


MOPINS  NOT, 50 
LIST 


MOPINS  ROLL, 100 
LIST 
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1059  007400 
1187  007400 
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DOPINS 


TTT 


DEAL  J  00 
LIST 


rr 
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1189  007A00                     MOP INS 

SNAP,  102 

1211  00740C 

LIST 

1212 

1213 

121A 

1215 

1216 

1217  007A00                      DOPINS 

RHOJ02 

1313  007400 

LIST 
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1315  007A00 

MOPINS 

RAVL,56 

1325  007400 

LIST 

1326 

1327 

1328 

1329 

1330 

1331  007400 

DOPINS 

CTLM,56 

15%  007400 

LIST 

7~T 


FT 
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1598  007A00 

MOPINS 

IOTA, 72 

1632  007400 

LIST 

1633 

163A 

1635 

1636 

1637 

1638  007400 

DOPINS 

JND, 72 

1699  007400 

LIST 

T — T 
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1701   007400 

1709  007400 

1710 

1711 

1712 

1713 

1714 

1715  007400 

1789  007400 
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DOPINS 


L  8 


1COMJ24 
LIST 


DOPINS 


COMP,60,T.DIM 
LIST 


"5  T 
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1791   007AOO 

1799  0O7A0O 

1800 

1801 

1802 

1803 

180A 

1805  007A00 

186A  007AOO 
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DOPINS 


M    8 


1EXP,130 
LIST 


DOPINS 


EXPD,62,T.DIM 
LIST 


ir-j' 


N    8 
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1866  007400 

DOPJNS 

DROP, 104 

1907  007A00 

LIST 

1908 

1909 

1910 

1911  007400 

DOPINS 

TAKEJ14 

21 A9  007400 

LIST 

A 

D 


— : FT 
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2151   007AOO  MOPINS     1  REV, 146 

21tO  007400  LIST 

2161 

2162 

2163 

2164 

2165 

2166  007400  MOPINS     REVS, 144 /f. DIM 

2204  007400  LIST 


rr 
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2206  007400  DOPINS     1R0T,K6 

22y(.  00740C'  LIST 

221 5 

2216 

2217 

2218 

2219 

2220  007A00  DOPINS     ROT,UA,T.DIM 

2328  007400  LIST 


D  9 
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2330  007400  MOPINS  IRAN, 126 

2415  007A00  LIST 


rr 

APL005  MACRO  Ml  113  08-FEB-80  09:29  PAGE  60 
DEFINITIONS     ERRORS 

2417  007AOO  DOPINS  IRAN J 26 

2654  007400  LIST 
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2656  007400 
2856  007AOO 
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DOPINS 


F     9 


ENCD,76 
LIST 


rr 
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2858  007400  DOPINS  DECD,64 

2988  007400  LIST 


fnr 
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2990  007400  MOPINS  GDWN, 136,7. DIM 

3001  007400  LIST 

3002 

3003 

3004  007400  MOPINS  GDUP, 140,7. DIM 

3219  007400  LIST 
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3221  007400  MOPINS 

3316  007400 


7"^ 


MMDJ22 
LIST 


APL005     MACRO  Ml  113     08-FEB-80  09:29     PAGE  65 
DEFINITIONS  ERRORS 


7~T 


3318  007400 


DOPINS     DMD J  22 
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386A  007400 


ITJ 


A 
D 


LIST 


T"y 
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L  9 


A 

Dl 


3866  007400 
3921  007400 


DOPINS 


MEM, 70 
LIST 


inr 
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3923 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
A022 
4023 
402A 
4025 
4026 
A027 
4028 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4161 


007400 
007400 


PAGE  68 


MOPINS  NUBJ06 
LIST 


ITT 


Al 
DE 


007400 
007400 


DOPINS     UNONJ06 
LIST 


007400 
007400 


DOPINS     INTR,66 
LIST 


007400 
007400 


DOPINS     SDIF,50 
LIST 


irns- 


TT 
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4163 

007400 

DOPINS 

SCON. 

234 

4179  007400 

LIST 

4180 

4181 

4182 

007400 

DOPINS 

CONT, 

112 

4200 

007400 

LIST 

4201 

4202 

4203 

007400 

DOPINS 

psue. 

236 

4209 

007400 

LIST 

4210 

4211 

4212 

007400 

DOPINS 

sues. 

116 

4288 

007400 

LIST 

AF 
DE 


bHRT 
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4290  007A00  MQPJNS  EXE, 70 

4336  007A00  LIST 


TRT 
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4338  007400  MOPJNS  ENCD,76 

4411  007400  LIST 


D"17 
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4413  007400  MOP  INS  FMTJ60 

4423  007400  LIST 

4424 

4425 

4426 

4427 

4428 

4429  007400  DOPINS  FMTJ60 
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4953  007A00  LIST 
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TW 


DEFINITIONS 

4955  007400 

4958  007400 

4959 

4960 

4961  007400 

5046  007400 


ERRORS 


MOP INS 


DOPINS 


I8MJ32,,,M0NIBM 
LIST 


IBM, 132 
LIST 


G  10 
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5048  007400 

MOPINS 

QUAD,74,T.NIL*T.SP0P 

5075  007400 

LIST 

5076 

5077 

5078 

5079 

5080 

5081  00740C 

DOPINS 

QUAD,74,T.NIL^-T.SP0P 

5097  007400 

LIST 

5098 

5099 

5100 

5101 

5102 

5103  007400 

MOPINS 

QQADJ42,T.NIL^-T.SP0P 

5135  007400 

LIST 

5136 

5137 

5138 

5139 

5140 

5141   007400 

DOPINS 

QQADJ42,T.NIL^-T.SP0P 

5152  007400 

LIST 

5153 

5154 

5155 

5156 

5157 

5158  007400 

MOPINS 

DQADJ34,T.NIL+T.SP0P 

5192  007400 

LIST 

5193 

5194 

5195 

5196  007400 

DOPINS 

DQADJ34,T.NIL+T.SP0P,,D$QQAD 

5199  007400 

LIST 

H  10 
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5201  007400 

MOPINS 

BXAV,16":,T.NIL 

5219  007400 

LIS^ 

5220 

5221 

5222 

5223 

5224 

5225  007400 

MOPINS 

BXCTJ64,T.NIL+T.SP0P 

5234  007400 

LIST 

5235 

5236 

5237  007400 

DOPINS 

BXCTJ64,T.NIH-T.SP0P 

5272  007400 

LIST 

5273 

5274 

5275 

5276 

5277 

5278  007400 

MOPINS 

BXI0,166,T.NIL^-T.SP0P 

5287  007400 

LIST 

5288 

5289 

5290  007400 

DOPINS 

BXI0J66,T.NIL+T.SP0P 

5302  007400 

LIST 

5303 

5304 

5305 

5306 

5307  007400 

MOPINS 

BXLC,212,T.NIL 

5340  007400 

LIST 

5341 

5342 

5343 

5344 

5345 

5346 

5347  007400 

MOPINS 

BXPPJ70,T.NIL^T.SPOP 

5356  007400 

LIST 

5357 

5358 

5359  007400 

DOPINS 

BXPPJ70,T.NIL^-T.SPOP 

5381  007400 

LIST 

5382 

5383 

5384 

5385 

5386 

5387 

5388  007400 

MOPINS 

BXPWJ72,T.NIL^-T.SP0P 

5397  007400 

LIST 

5398 

5399 

5400  007400 

DOPINS 

BXPWJ72,T.NIL  +  T.SP0P 

5417  007400 

LIST 

5418 

5419 

5420 
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I  10 


5A21 

5A22 

5A23  007A00 

5A32  007A00 

5A33 

543A 

5435  007A00 

54A7  007A00 

5A48 

5449 

5450 

5451 

5452 

5453  007400 

5562  007400 

5563 

5564 

5565 

5566 

5567 

5568 

5569  007400 

5592  007400 


MOPINS  BXRLJ74,T.NIL+T.SP0P 
LIST 


DOPINS  BXRLJ74,T.NIL+T.SP0P 
LIST 


MOPINS  BXTS,200,T.NIL 
LIST 


MOPINS  BXWA,176,T.NIL 
LIST 
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5716  007400 
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MOPINS 


J  10 


BXCR,206 
LIST 


t^       4  A 


APL005     MACRO  Ml  113     08-FEB-80  09:29     PAGE  78 
DEFINITIONS  ERRORS 


TTTEr 


A 

M 


5718  007A00 
5775  007A00 


MOPINS  BXEX,202 


LIST 


I  Tn 
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5777  007A00  MOPINS 

5879  007400 


irre" 


A 
M 


BXFX,210 
LIST 


TTTTT 
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iTRr 


Al 

M] 


5881  007400 
5950  007400 


MOP INS 


BXNC,204 
LIST 


irm 
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ITRT 


5952  007400 

5965  007400 

5964 

5%5 

5%6  007400 

6104  007400 


AF 
MI 


MOPINS  BXNL,214 
LIST 


DOPINS  BXNL,214 
LIST 
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DEFINITIONS 

ERRORS 

6106  0O7A00 

[ 

)OPINS 

F6ETJ50,T.DIM 

6107 
6108 
6109 

.S8TTL 

MIXED  FUNCTION         FILE  INPUT 

;-f+ 

6110 

;  READS 

INFORMATION  FROM  A  FILE  OPEN  ON  THE  SPECIFIED  CHANNEL.                                                               1 

6111 

:THE  FORMAT  IS. 

•  CHAN  .IQ  [TYPE]  N 

6112 

; WHERE 

CHAN  IS 

THE  CHANNEL  NUMBER,  .10  IS  THE   FILE  INPUT  OPERATOR, 

.113 

iCTYPEJ 

IS   THE 

FILE  TYPE  (SEE  BRANCH  TABLE  BELOW),  AND  N  IS  THE  NUMBER 

611A 
6115 

;0F  COMPONENTS 

OF  THE  INDICATED  TYPE  TO  READ. 

6116 
6117 

.DSABL 

LSB 

6118  000000 

CALL 

F SETUP 

;SET  UP  FILE  POINTERS 

6119  OOOOOA 

PUSH 

I  CHAN 

pSAVE  CURRENT  INPUT  CHANNEL 

6120  000010 

010237 

005050' 

MOV 

R2,ICHAN 

;AND  MAKE  FILE  THE  CURRENT  INPUT  CHANNEL 

6121  000014 

013701 

003212' 

MOV 

RARGTY,R1 

; RIGHT  ARG  NUMERIC? 

6122  000020 

001003 

BNE 

2$ 

;YES 

6123  000022 

104417 

1$: 

DOMERR 

1 

rBAD  COMPONENT  COUNT 

6124  000024 

104412 

I 

?8$: 

LENERR 

; COMPONENT  COUNT  NOT  A  SINGLETON  ARRAY 

6126  000026 

104565 

0 

i 

?9$: 

ILLSW 

; Wrong  file  format 
; SCALAR? 

6128  000030 

022764 

000001 

000004  ; 

?$: 

CMP 

*1,A.ALEN(R4) 

6129  000036 

001372 

BNE 

28$ 

:N0 

6130  000040 

016137 

OOOOOOG 

O.)3220' 

MOV 

IRARGC(R1),RARGCV  .-FETCH  ROUTINE  FOR  LENGTH  (INTEGER)                    1 

6131  000046 

PUSH 

R3 

;SAVE  FILE  TYPE 

6132  000050 

011403 

MOV 

(R4),R3 

;P01NJ   TO  DATA 

6133  000052 

CALL 

iRARGCV 

;FETCH  ARG 

6134  000056 

013704 

003222* 

MOV 

RARGVA,R4 

;GET  0   OF  ELEMENTS 

6135  000062 

003757 

BLE 

1$ 

:T00  SMALL 

6136  000064 

0A2762 

001000 

1 77756 

BIC 

/(fC.CZ,C.SBIT(R2). 

; DON'T  WRITE  CNTL-Z  3  EOF 

6137  000072 

POP 

R3 

;ASCII  SEQUENTIAL  FILE? 

6138  000074 
6139 

001033 

BNE 

4$ 

;N0 

6140 
6141 
6143  000076 

•ASCII 

SEQUENTIAL  FILE  TYPE.  READ  A  LINE  FROM  THE  FILE. 

032762 

020000 

1 77756 

BIT 

/(fC.FASW,C.SBIT(R2);Was  the  fUe  opened  Formatted  ASCII?                 1 

6144  000104 

001750 

BEO 

29$ 

;No,  Can't  do  this  then 

6146  000106 

052737 

000100 

000000 ' 

BIS 

#SY.NOU,SYSTAT 

•PREVENT  OUTPUT 

6147  000114 

PUSH 

<R2, R3,R4> 

;SAVE  SOME  REGS 

6149  000122 

CALL 

GETFA 

•GET  A  LINE  OF  INPUT 

6155  000126 

CALL 

FIXLIN 

'fix   IT 

6156  000132 

122744 

00001 5 

CMP8 

#CHR.CR,-(R4)   . 

:IS   LAST  CHAR  A  CR? 

6157  000136 

001001 

BNE 

3$              ; 

•NO 

6158  000140 

005301 

DEC 

R1 

■YES,  DON'T  INCLUDE  IT  IN  STRING 

6162  000142 

5$: 

POP 

<R4,R3,R2> 

•RESTORE  REGS 

6163  000150 

042737 

000100 

000000' 

BIC 

#SY.NOU,SYSTAT  . 

•OUTPUT  ALLOWED  AGAIN 

6164  000156 

PUSH 

RO 

•SAVE  POINTER  TO  LINE  BUFFER 

6165  000160 

010104 

MOV 

R1,R4 

■COPY  DATA  LENGTH 

6166  000162 
6167 
6168 
6169 

000404 

BR 

5$ 

Go  get  block  for  result 

•  ALLOCATE  BLOCK  FOR  RESULT 

6170  000164 

i 

t$: 

6172  000164 

032762 

020000 

177756 

BIT 

#C.FASW,C.SBIT(R2);Was  the  file  opened  Formatted  ASCII? 

6173  000172 

001315 

BNE 

29$ 

Yes,  Wrong  file  format 

6175  000174 

010401 

<I|V)> 

I 

5$: 

MOV 

R4,R1 

COPY  DATA  LENGTH  TO  READ 

6176  000176 

016300 

OCJSb:>0' 

MOV 

DATATY(R3),R0   . 

■GET  TYPE  OF  RESULT 

6177  000202 

010037 

003144' 

MOV 

RCRESTYP 

■SAVE  RESULT  TYPE 

>^i 

.» 

C  11 
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MIXED  FUNCTION 

FILE   INPUT 

6178  000206 

ASH 

3I2TAB(R0),R1 

; COMPUTE  SIZE   IN  BYTES 

6179  000222 

012700 

000010 

HisI 

#A.DIMU2,R0 

; HEADER  SIZE 

6180  000226 

PUSH 

RO 

;SAVE  AS  OFFSET 

6181  000230 

060100 

ADD 

R1,R0 

; TOTAL  LENGTH  OF   DATA 

6182  000232 

CALL 

6ETFRA 

;Get  result,  SI   frame  for  it 

6183  000236 

062620 

ADD 

(SP)^,(RO)^- 

;ADD  OFFSET   TO  DATA 

6184  000240 

112720 

000001 

M0V8 

n^^m^ 

;1   DIMENSION 

6185  000244 

113710 

003144* 

MOVB 

RESTYP,(RO) 

;BITS 

6186  000250 

001003 

6NE 

F6ET1 

fWAS  NUMERIC 

6187  000252 

042765 

002000   1  mm 

BIC 

*T.NUM,SI.BIT(SI 

);BAD  GUESS 

6188  000260 

1 52720 

000200 

FGET1: 

BIS8 

#A.ASB,(RO)+ 

;FLAG  ARRAY 

6189  000264 

010420 

MOV 

R4,(R0)^- 

;ALEN 

6190  000266 

010420 

MOV 

R4,(R0)^ 

;DIM1    (VECTOR) 

6191  000270 

060307 

ADD 

R3,PC 

;AND  BRANCH  TO  CORRECT  FILE   TYPE 

6192 

6193 

•BRAf^JCHES   TO 

DIFFERENT   FILE   TYPE 

ROUTINES 

6194 

6195  000272 

000405 

BR 

6$ 

;   0  —  !KSZl\    SEQUENTIAL    (LINE  ORIENTED) 

6196  000274 

000413 

BR 

9$ 

;    1    —  BYTE  VALUES 

6197  000276 

000423 

BR 

11$ 

;   2  —  INTEGER  VALUES 

6198  000300 

000434 

BR 

13$ 

;   3  —  APL   INTERNAL  LITERAL  FORMAT 

6199  000302 

000442 

BR 

15$ 

;   4  —  SINGLE   PRECISION  FLOATING 

6200  000304 

000466 

BR 

17$ 

;   5  —  DOUBLE  PRECISION  FLOATING 

6201 

6202 

6203 

•ASCII 

SEQUENTIAL 

6204 

6205  000306 

6$: 

POP 

R3 

;GET  POINTER   TO  LINE  BUFFER 

6206  000310 

005704 

TST 

R4 

;ANYTHIN6? 

6207  000312 

001403 

BEQ 

8$ 

;NULL  LINE 

6208  000314 

112320 

7$: 

MOVB 

(R3)^,(R0)^ 

;COPY   1   BYTE 

6209  000316 

SOB 

R4,7$ 

;COPY  ENTIRE  LINE 

6210  000322 

000504 

8$: 

BR 

20$ 

;ALL   DONE 

6211 

6212 

•BYTE 

VALUES 

6213 

m 

6214  000324 

010003 

9$: 

MOV 

R0,R3 

•COPY  OUTPUT  POINTER 

6215  000326 

10$: 

CALL 

GETBYT 

•GET  A  BYTE 

6216  000332 

042700 

1 77400 

BIC 

/WJPPER,RO 

•CLEAR  GARBAGE  BITS   U   WY 

6217  000336 

010023 

MOV 

R0,(R3)* 

•STORE  RESULT 

6218  000340 

SOB 

R4J0$ 

•FLOAT  ALL  BYTES 

6219  000344 

000473 

BR 

20$ 

6220 

6221 

•INTEGER  VALUES 

6222 

6223  000346 

010003 

11$: 

MOV 

R0,R3 

•COPY  OUTPUT  POINTER 

6224  000350 

12$: 

CALL 

GETBYT 

•GET  A  BYTE   FROM  THE   FILE 

6225  000354 

110023 

MOVB 

R0,(R3)^- 

•SAVE   IT 

6226  000356 

CALL 

GETBYT 

•GET  ANOTHER  BYTE 

6227  000362 

110025 

MOVB 

R0,(R3)^ 

•STORE   IT 

6228  000364 

SOB 

R4,12$ 

LOOP 

6229  0O0370 

000461 

BR 

20$ 

6230 

6231 

;APL    INTERNAL 

LITERAL 

6232 

6233  0003?2 

010003 

13$: 

MOV 

R0,R3 

COPY  0U"rPUT   POINTER 

6234  0Cc374 

V,$: 

CALL 

GETBYT 

GET   A  BYTE 

D  11 
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6235  000400 

110023 

f   -^ 

R0,(R3)* 

; STORE  IT  IN  RESULT 

6236  000A02 

SOo 

R4,14$ 

; THAT'S  EASY! 

6237  000A06 

000452 

BR 

20$ 

6238 

6239 

•SINGLE 

PRECISION  FLOATING 

6240 

62A1  000410 

15$: 

PUSH 

R4 

;SAVE  COUNT 

6242  000412 

010003 

MOV 

R0,R3 

;COPY  RESULT  POINTER 

6243  000414 

01 2704 

000004 

16$: 

MOV 

*4,R4 

; COUNT  OF  DATA  IN   FILE 

6244  000420 

22%: 

CALL 

GETBYT 

;GET  A  BYTE  OF  DATA 

6245  000424 

110023 

MOVB 

R0,(R3)* 

; STORE  IT 

6246  000426 

SOB 

R4, 22$ 

;LOOP  FOR  DATA 

6247  000432 

013704 

000062' 

MOV 

NUMLEN,R4 

;GET  LENGTH  OF  DATA 

6248  000436 

162704 

000004 

SLR 

*4,R4 

:  MINUS  LENGTH  OF  INPUT 

6249  000442 

001403 

BEQ 

24$ 

[NOTHING  MORE  TO  DO 

6250  000444 

105023 

23$: 

CLRB 

(R3)^- 

; CLEAR  AWAY  LEFT-OVERS 

6251  000446 

SOB 

R4,23$ 

;LOOP  FOR  REMAINING  SPACE 

6252  000452 

005316 

24$: 

DEC 

(SP) 

; DECREMENT  COUNT 

6253  000454 

003357 

BGT 

16$ 

:LOOP  UNTIL  DONE 

6254  000456 

005726 

TST 

(SP)^ 

:POP  COUNT 

6255  000460 

000425 

BR 

20$ 

6256 

6257 

•DOIRLE 

PRECISION  FLOATING 

6258 

6259  000462 

17$: 

PUSH 

R4 

;SAVE  COUNT 

6260  000464 

010003 

MOV 

R0,R3 

;SHlfT   POINTER  TO  DATA 

6261  000466 

013704 

000062 • 

18$: 

MOV 

NUMLEN,R4 

;GET  SIZE   OF  FP  NUMBER 

6262  000472 

25$: 

CALL 

GETBYT 

:6ET  A  BYTE 

6263  000476 

110023 

MOVB 

R0,(R3)> 

; STORE  IT 

6264  000500 

SOB 

R4,25$ 

;LOOP  FOR  ALL  CHARACTERS 

6265  000504 

01 2704 

000010 

MOV 

#8.,R4 

;LENGTH  OF  DATA  TO  FETCH 

6266  000510 

163704 

u00062 • 

SUB 

NUMLEN,R4 

;MINUS  FP  NUMBER  LEN 

6267  000514 

001404 

BEQ 

27% 

;N0THIN6  TO  SAY,  NOTHING  TO  DO 

6268  000516 

26$: 

CALL 

GETBYT 

;GET  BYTE  AND  IGNORE 

6269  000522 

SOB 

R4,26$ 

;LOOP  FOR  UNWANTED  STl'^F 

6270  000526 

005316 

27%: 

DEC 

(SP) 

■DECREMENT  COUNT 

6271  000530 

003356 

BGT 

18$ 

•LOOP  UNTIL  DONE 

6272  000532 

005726 

TST 

(SP)- 

■POP  COUNT 

6273 

6274  000534 

20%: 

POP 

I  CHAN 

•RESTORE  INPUT  CHANNEL 

6275  000540 

6276 

6277 

RETURN 

•AND  RETURN 

;"♦■"•• 

6278 

,  FUNCTIONAL  DESCRIPTION: 

62/9 
6280 
6281 

F SETUP 

SETS  UP  POINTERS  FOR  THE  FILE  OPERATORS.                                | 

;  OUTPUTS: 

6282 

R1 

-  TYPE  FOR  RIGHT 

ARG 

6283 

R2 

-  CHANNEL  BLOCK  POINTER                                             1 

6284 

R3 

-  FILE  TYPE 

6285 

R4 

-  RIGHT  ARG  BLOCK  POINTER                                           1 

6286 

•  .. 

6287 

6288 

000005 

MAXTYP= 

5 

1 

MAX  FILE  TYPE 

6289 

6290  000542 

012701 

000004 

F SETUP: 

MOV 

*. INTEGER, R1 

INTEGER  INTERMEDIATE 

6291  000546 

CALL 

GETSCA 

GET  SCALAR 
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6292 
6293 
629A 
6295 
62% 
6297 
6298 
6299 
6300 
6301 
6302 
6303 
630A 
6305 
6306 
6307 
6308 
6309 
6310 
6311 
6312 
6313 
6314 
6315 
6316 
6317 
6318 
6319 

6320 
6321 

6322 
6323 
632A 
6325 
6326 
6327 
6328 
6330 
6331 
6332 
6333 
633A 
6335 
6336 
6337 
6338 
6339 
6340 
6341 
6342 
6343 
6344 
6345 
6346 
6347 


000552 
000556 
000560 
000564 
000566 
000570 
000574 
000576 
000602 
000604 
000610 
000612 
000614 
000622 
000624 
000626 
000632 
000636 
000640 
000644 
000646 
000652 
000656 
000660 

000000 

000000 
000006 

000014 
000022 

000030 
000032 
000034 
000036 
000040 
000042 
000044 


01 7003 
002415 
022703 
002412 
006303 
016302 
005003 
013703 
001421 
013700 
001001 
104417 
022763 
001373 
011303 

013703 
002765 
022703 
002762 
013704 
013701 
006303 


000000 
000014 

OOOOOOG 
003112* 
003116' 

000001  000004 

003222 ' 

000005 

003204 • 
003212' 


1$; 
2$; 


3$: 


E  11 


MOV  S(R0),R3 

BLT  1$ 

CMP  /(fMAXCHN,R3 

BLT  1$ 

ASL  R3 

MOV  CHANNEL (R3),R2 

CLR  R3 

MOV  DIMBLK,R3 

BEQ  3S 

MOV  DIMTYP,RO 

BNE  2$ 

DOMERR 

CMP  #1,A.ALEN(R3) 

BNE  IS 

MOV  (R3),R3 

CALL  aiRARGC(RO) 

MOV  RARGVA,R3 

BLT  1$ 

CMP  *MAXTYP,R3 

BLT  1$ 

MOV  RARGBL,R4 

MOV  RARGTY,R1 

ASL  R3 

RETURN 


AND  THE  VALUE  IS... 

TOO  SMALL 

STILL  TOO  BIG? 

YES 

Word  offset 

Get  Channel  Pointer 

ASSUME  FILE  TYPE  0 

GET  FILE  TYPE  POINTER 

NO,  JUST  EXIT 

GET  TYPE  OF  DIM  ARG 

NOT  LITERAL 

URONGOi 

SCALAR? 

NOPE 

POINT  TO  DATA 

DO  CONVERSION 

GET  THE  VALUE 

TOO  SMALL 

TOO  BIG? 

YES 

POINT  TO  RIGHT  ARG 

AND  RIGHT  ARG  TYPE 

Times  two  for  lookup 


000001  000001  000002 
000001  000004  000010 

000000  000000  M7777 
000000  1 7777 1     1 7777^^ 

000000 
000004 
000004 
000000 
000006 
000006 


.PSECT  TABLES 
DATALN:  .WORD   1,1,2,1.4,8, 


.•LENGTH  OF  ITEMS  IN  FILE 


DATASH:  .WORD   0,0,-1,0,-2,-3  ;Shift  constant 


DATATY: 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
LIST 


.CHARACTER 

.INTEGER 

.INTEGER 

.CHARACTER 

.FLOAT 

.FLOAT 


0  -  INPUT  LINE 

1  -  1  byte  NUMBER 
2-2   byte  NUMBER 

3  -  APL  CHARACTER 

4  -  SINGLE  PRECISION  FP 

5  -  DOUBLE  PRECISION  FP 


000044 


DOPINi 
.SBTTL 


FPUT,152,T.DIM 
MIXED  FUNCTION 


FILE  OUTPUT 


•f-f 


FUNCTIONAL  DESCRIPTION: 

READS  FILE  SPECIFIED  AND  CONVERTS  INFORMATION  ACCORDING  TO  FILE  TYPE 
FORMAT  SIMILAR  TO  FILE  INPUT  OPERATOR  ABOVE. 


000662 
000666 

myt72 


010237  005052' 


CALL 
PUSH 
MOV 


F SETUP 

OCHAN 

R2,0CHAN 


SET  UP  FILE  POINTERS 

SAVE  CURRENT  OUTPUT  CHANNEL 

SET  NEW  OUTPUT  CHANNEL 
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6348  000676 

010502 

MOV 

SI,R2 

;P0INT  TO  LEFT  ARG'S  FRAME 

63A9  000700 

062702 

1 77764 

ADD 

*2*SI.LEN,R2 

;POINT  TO  TOP  OF  RIGHT  ARG'S  FRAME 

6350  00070A 

005737 

003112' 

TST 

DIMBLK 

;ANY  DIM  ARG? 

6351  000710 

001402 

BEQ 

1$ 

;N0 

6352  000712 

062702 

1 77764 

ADD 

#2*SI.LEN,R2 

;YES,  SKIP  OVER  IT 

6353  000716 

1$: 

PUSH 

<R0,R1,R2,R3>   . 

;SAVE  REGISTERS 

6354  000726 

CALL 

SAME 

;GET  NEW  DATA  IMAGE 

6355  000732 

POP 

<R3,R2,R1,R0>   . 

: RESTORE  DATA 

6356  000742 

026562 

1 1777 t 

1 7777 t 

CMP 

SI.VAL(SI),SI.VAL(R2)  ;SAME  STUFF?                                    I 

6357  000750 

001002 

BNE 

2$ 

;N0,  GO... 

6358  000752 

005062 

1 7777  i. 

CLR 

SI.BITS(R2) 

;YES,  ASSURE  NON-IMMOLATION 

6359  000756 

013702 

005052' 

2$: 

MOV 

0CHAN,R2 

;GET  OUTPUT  CHANNEL  POINTER 

6360  000762 

016300 

000030' 

MOV 

DATATY(R3),R0   . 

;GET  RESULT  TYPE 

6361  000766 

001410 

BEQ 

55            u 

: LITERAL  DATA 

6363  000770 

032762 

020000 

1 77756 

BIT 

/ffC.FASW,C.SBIT(R2);Was  the  fUe  opened  for  Formatted  ASCII?              1 

6364  000//6 

001003 

BNE 

4$ 

;Yes,  Can't  do 

6366  001000 

005701 

TST 

R1 

',\%   RIGHT  ARG  NUMERIC? 

6367  001002 

001004 

BNE 

6$ 

;YES,  TYPES  MATCH! 

6368  001004 

104417 

3$: 

DOMERR 

1 

; Wrong  data  type 

6370  001006 

104565 

4$: 

ILLSW 

1 

; Wrong  fUe  type 

6372 

6373  001010 

005701 

5$: 

TST 

R1 

;IS  RIGHT  ARG  LITERAL  DATA? 

6374  001012 

001374 

BNE 

3$ 

;N0,  WRONG  FILE  TYPE! 

6375 

6376  001014 

006300 

6$: 

ASL 

RO 

; RESULT  TYPE 

6377  001016 

006300 

ASL 

RO 

;  TIMES  4 

6378  001020 

060001 

ADD 

R0,R1 

: INDEX  INTO  LOOKUP 

6379  001022 

016137 

OOOOOOG 

003220' 

MOV 

RARGCT(R1),RARGCV  .-RIGHT  ARG  FETCH                                     | 

6380  001030 

016401 

000004 

MOV 

A.ALEN(R4),R1 

;GET  LENGTH  OF  ARG 

6381  001034 

001534 

BEQ 

14$ 

;NOTHING  TO  DO! 

6382  001036 

PUSH 

R3 

:SAVE  OFFSET 

6383  001040 

011403 

MOV 

(R4),R3 

•POINT  TO  FIRST  VALUE  TO  WRITE 

6384  001042 

6385 

6386 

062607 

ADD 

(SP)^, PC 

•AND  BRANCH  TO  FILE  TYPE  ROUTINE 

/BRANCHES  TO  ROUTINES  TO  HANDLE  DIFFERENT  FILE  TYPES 

6387 

6388  001044 

000405 

BR 

a 

•  0  ~  ASCII  SEQUENTIAL 

6389  001046 

000437 

BR 

•  1  —  BYTE  VALUES 

6390  001050 

000447 

BR 

10$ 

•  2  —  INTEGER  VALUES 

6391  001052 

000462 

BR 

11$ 

•  3  —  APL  INTERNAL  LlTERAi  FORMAT 

6392  001054 

000467 

BR 

12$ 

•  4  —  SINGLE  PRECISION  FlOAT]nKj  POINT 

6393  001056 

6394 

6395 

000503 

BR 

13$ 

•  5  —  DOUBLE  PRECISION  FLOATING  POINT 

6396 

•ASCII 

SEQUENTIAL 

6397 

6398 

6399  001060 

7$: 

6401  001060 

032762 

020000 

1 77756 

BIT 

#C.FASW,C.SBIT(Ri 

?);Was  the  \M^   opened  as  format  tea  ASCII? 

6402  001066 

001747 

BEQ 

4$ 

No.  Can't  write  to  U  then 

6403  001070 

005000 

CLR 

RO 

For  divide 

6404  001072 

016401 

000004 

MOV 

A.ALEN(R4),R1 

•Get  total  array  size 

6405  001076 

116402 

000002 

M0V8 

A.DIMS(R4),R2   , 

Get  ^rr^y   rank 

6406  001102 

CONINC 

R2 

In  cas ;  of  a  scalar 

6407  001106 

006302 

ASL 

R2 

Offset  in  bytes 

6408  001110 

062702 

000004 

ADD 

/lf4,R2 

Offset  to  difnensi'on  list 

6409  001114 

060204 

ADD 

R2,R4 

■Point  to  last  dimension 

G  11 
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6410  001116 

011404 

MOV 

(R4).R4 

;Get  the  Last  dimension 

6411  001120 

DIV 

R4,r6 

;Get  number  of  Lines 

6412  001132 

010401 

8$: 

MOV 

R4,R1 

;Copy  the  Line  Length 

6413  001134 

CALL 

PUTFA 

; Write  out  a  Line 

6414  001140 

SOB 

R0,8$ 

;Do  aLL  the  Lines 

6421  001144 

000470 

BR 

14$ 

;AND  EXIT 

6422 

6423 

•BYTE 

VALUES 

6424 

# 

6425  001146 

9$: 

CALL 

aRARGCV 

;CALL  FETCH 

6426  001152 

013700 

003222' 

MOV 

RAR6VA,R0 

;GET  VALUE 

6427  001156 

CALL 

OCHAR 

; OUTPUT  IT 

6428  001162 

SOB 

R1.9$ 

;ALL  ARGS 

6429  001166 

000457 

BR 

14i 

lEXlT 

6430 

6431 

;•  INTEGER  VALUES 

6432 

6433  001170 

10$: 

CALL 

aRARGCV 

i 

;CALL  fETCH 

6434  001174 

013737 

003222'  005066' 

MOV 

RARGVA,OPTMP0 

;STORE  INTEGER  IN  BUFFER 

6435  001202 

012704 

000002 

MOV 

#2,R4 

;2  BYTES  PER  INTEGER 

6436  001206 

CALL 

PUTCH 

;WRITE  2  BYTES  TO  FILE 

6437  001212 

SOB 

R1J0$ 

;LOOP  FOR  ARRAY 

6438  001216 

000443 

BR 

14$ 

;EX1T 

6439 

6440 

;APL  J 

INTERNAL  LITERAL  FORMAT 

6441 

6442  001220 

112300 

11$: 

MOVB 

(R3)+,R0 

;GET  NEXT  CHAR 

6443  001222 

CALL 

OCHAR 

:OUTPUT  WITH  NO  TRANSLATIONS 

6444  001226 

SOB 

R1J1$ 

; THAT'S  EASY 

6445  001232 

000435 

BR 

14i 

;EXIT 

6446 

6447 

•SINGLE  PRECISION  FLOATING 

POINT 

6448 

6449  001234 

12$: 

CALL 

aRARGCV 

:FETCH  VALUE 

6450  001240 

STF 

AC2,OPTMP0 

; STORE  IN  BUFFER 

6451  001250 

012704 

000004 

MOV 

#4.,R4 

;4  BYTES  PER  SINGLE  PRECISION  NUMBER 

6452  001254 

CALL 

PUTCH 

; OUTPUT  THEM 

6453  001260 

SOB 

R1J2$ 

;LOOP 

6454  001264 

6455 

6456 

6457 

6458  001266 

000420 

BR 

14$ 

•EXIT 

•DOieLE  PRECISION  FLOATING 

POINT 

NUMBER 

13$: 

CALL 

aRARGCV 

■FETCH  ARG 

6459  001272 

005037 

005072' 

CLR 

OPTMPO+4 

•CLEAR  TWO  WORDS, 

6460  001276 

005037 

005074 • 

CLR 

OPTMPO^-6 

•  JUST  IN  CASE 

6461  001302 

STF 

AC2,OPTMP0 

; STORE  NUMBER  IN  BUFFER 

6462  001312 

012704 

000010 

MOV 

4f8.,R4 

;8  BYTES  PER  NUMBER 

6463  001316 

CALL 

PUTCH 

•OUTPUT  THEM 

6464  001322 

SOB 

R1J3$ 

•LOOP 

6465 

6466 

';EX1T 

6467 

6468  001326 

14$: 

POP 

OCHAN 

4 

•RESTORE  OUTPUT  CHANNEL 

6469  001332 

RETURN 

J 

•AND  EXIT 

6470 

6471 

6472 

* 

0 
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6A73 

6A74 

6475 

6A76  001 33A 

6A77  001336  012701  005066* 

6478  001342  112100 

6479  001344 

6480  001350 

6481  001354 

6482  001356 
6483 

6485  001360 


.•SUBROUTINE  TO  MOVE  CHARS  FROM  BYTE  BUFFER  TO  FILE 


PUTCH: 

PUSH 

R1 

;SAVE  R1 

MOV 

/(fOPTMPO.Rl 

;POINT  TO  BYTE  BUFFER 

1$: 

MOVB 

(R1)^-,R0 

:6ET  NEXT  CHAR 

CALL 

OCHAR 

; OUTPUT  IT 

SOB 

R4J$ 

■LOOP 

POP 

R1 

[RESTORE  R1 

RETURN 

LIST 
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6A87 
6488 
6A89 
6490 
6491 
6492 
6493 
6494 
6495 
64% 
6497 
6498 
6499 
6500 
6501 
6502 
6503 
6504 
6505 
6506 
6507 
6508 
6509 
6510 
6511 
6512 
6513 
6515 
6519 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 
6534 
6535 
6536 
6538 
6539 
6540 
6541 
6542 
6543 
6544 
6546 
6547 
6554 
6558 
6559 


001 360 


PAGE  83 


DOPINS 
.SBTTL 


I  11 


FPNTJ54,T.DIM 
MIXED  FUNCTION 


SET  FILE  POINTER 


FUNCTIONAL  DESCRIPTION: 

The  .PT  function  sets  the  file  pointer  on  a  channel.  The  format 
is: 

CHAN  .PT  [TYPE J  PTR 

Where  CHAN  is  the  channel  number;  CTYPE3,  which  is  optional,  is 
the  file  type  (taken  as  0  if  not  present);  and  PTR  is  the  pointer 
setting.  If  PTR  is  non-negative  then  it  is  used  to  set  the  file 
pointer  position  in  units  of  TYPE.  If  PTR  is  negative  then  either 
the  file  lenqth  (TYPE  =0),  or  the  pointer  position  (TYPE  >  0)  is 
returned.  The  length  is  given  in  bytes,  usually  an  even  ntmber  of 
blocks,  and  the  position  is  given  in  units  of  TYPE.  The  units  of 
a  type  zero  (Formatted  ASCII;  file  are  records. 


001360 
001364 
001370 
001372 
001374 
001376 

001400 
001400 
001404 
001406 
001410 
001414 
001422 
001424 
001426 
001432 
001434 
001440 
001444 
001452 
001456 
001466 
001470 
001474 
001502 
001504 
001510 
001514 
001516 


001 520 
001524 
001530 
001536 
001 540 


022702 
001003 
005000 
005001 
000576 


005762 
001001 
104473 
010337 
026427 
001401 
104412 
013700 
011403 


000256' 


000070 


005066' 
000004  000001 


003212' 


1$: 


2$: 


3$: 


013703  005066' 


002142 
016204 
032762 
001004 
016204 
166204 
005703 
001012 


016200 
016201 
032762 
001032 
005004 


000014 

020000  1 77756 

1 777 tl 
1 77766 


4$: 


CALL 

CMP 

BNE 

CLR 

CLR 

BR 


TST 

BNE 

NOTOPN 

MOV 

CMP 

BEQ 

LENERR 

MOV 

MOV 

CALL 

MOV 

LDF 

CFCC 

SUBF 

BGE 

MOV 

BIT 

BNE 

MOV 

SUB 

TST 

BNE 


F SETUP 

#CHAN00,R2 

1$ 

RO 

R1 

FPNT5 


F.BDB(R2) 
2$ 

R3,0PTMP0 

A.ALEN(R4),#1 

3$ 

RARGTY,RO 

(R4),R3 

aFRARGC(RO) 

0PTMP0.R3 

AC2,AC0 

FORIGN,ACO 

FPNT5 

F.FFBY(R2),R4 

*C.FASW,C.SBIT(R2) 

4$ 

C.BUFL(R2),R4 

C.CCNT(R2),R4 

R3 

FPNT1 


;Set  up  file  pointers 

;Is  it  the  terminal? 

;No 

;Yes,  Ignore 

the  request 
;And  return  origin  as  result 


Is  the  Channel  Open? 

Yes 

Channel  not  open 

Save  the  data  type 

Length  =  1  Element 

Yes 

Lenqth  Error 

Right  Arg  Source  Type 

Point  to  right  argcment 

Get  the  conversion 

Restore  Data  Type 

Copy  to  ACO 

Check  the  sign 

Minus  the  origin 

Set  the  pointer  position 

Get  the  first  free  byte  in  the  block 

Is  the  file  type  zero? 

Yes 

Get  buffer  length 

Compute  buffer  pointer  offset 

Is  the  file  type  zero? 

No,  Return  the  currect  pointer  position 


000010 
000012 
021000  177756 


Find  the  file  length 


MOV  C.FLEN(R2),R0  ;Get  length  of  the  file 

MOV  C.FLEN^2(R2),R1  ;Get  both  words  for  RSX 

BIT  #C.CZ!C.FASW,C.SBIT(R2)  ;Still  in  Write-only  mode? 

BNE  ^PH^l  ;Yes 

CLR  R4  ;No,  Start  at  the  beginning 
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6560  001 5A2 

000430 

BR 

FPNT2 

;Go  get  the  difference  between  ends 

6561 

;-»- 

6562 

;  Find 

the  currect  pointer  position 

6563 

•  - 

6564  001 5AA 

FPNT1 : 

6566  001544 

032762 

020000 

177756 

BIT 

#C.FASW,C.SBIT(R2) 

;A  type  zero  file? 

6567  001552 

001405 

BEQ 

IS 

;No 

6568  001554 

016200 

000034 

MOV 

F.RCNM(R2).R0 

;Yes,  Get  the  record  number 

6569  001560 

016201 

000036 

MOV 

F.RCNM+2(R2),R1 

;Low  bits  too 

6570  001564 

000442 

BR 

FPNT3 

;And  go 

6571  001566 

016200 

000064 

1$: 

MOV 

C.BL0)C(R2),R0 

;Get  the  current  block  number 

6572  001572 

016201 

000066 

MOV 

C.BLOK+2(R2),R1 

;Low  order  bits  too 

65//  001576 

066304 

000000' 

ADD 

DATALN(R3),R4 

;Point  to  next  avaliable  element 

6578  001602 

032762 

002000 

1 77756 

BIT 

#C.REWT,C.SBIT(R2) 

:8lock  written  yet? 

6579  001610 

001005 

BNE 

FPNT2 

;No 

6580  001612 

005762 

1 77760 

TST 

C.BUFF(R2) 

;Is  there  a  buffer? 

6581  001616 

001002 

BNE 

FPNT2 

:Yes 

6582  001620 

012704 

000001 

MOV 

/!fl,R4 

;No,  Then  offset  is  at  beginning  of  buffer 

6583 

6584  001624 

FPNT2: 

6586  001624 

162701 

000001 

SUB 

#1,R1 

;RSTS  and  RSX  Files  Start  at  Block  1!!! 

6587  001630 

005600 

SBC 

RO 

: Double  Precision 

6589  001632 

ASHC 

#9.,R0 

; Times  512. 

6590  001646 

060401 

ADD 

R4,R1 

:Add  in  offset  from  beginning  of  buffer 

6591  001650 

005500 

ADC 

RO 

;All  of  it 

6592  001652 

005703 

TST 

R3 

;Is  it  a  type  zero  file? 

6593  001654 

001414 

BEQ 

FPNT4 

:No 

6594  001656 

ASHC 

DATASH(R3),R0 

; Divide  by  the  data  type 

6595  001672 

012703 

000001 

FPNT3: 

MOV 

#1,R3 

^Prepare  to  negate  the  origin 

6596  001676 

163703 

000030' 

SUB 

ORIGIN, R3 

; Negate  the  origin 

6597  001702 

160301 

SUB 

R3,R1 

;Origin  correction 

6598  001704 

005600 

SBC 

RO 

;The  whole  thing 

6599  001706 

FPNT4; 

PUSH 

<R1,R0> 

;Save  Registers 
;Long  Mode 

6600  001712 

SETL 

6601  001716 

LDCLF 

(sp)+,Aco                ; 

; Convert  to  Floating  Point 

6602  001724 

SETI 

; Integer  Mode  again 

;Get  the  size  or  the  result  header 

6603  001730 

012700 

000010 

MOV 

/^A.DIM1+2,R0          ; 

6604  001734 

PUSH 

RO 

Save  it  for  an  offset 

6605  001736 

063700 

000062' 

ADD 

NUMLEN,RO 

Add  in  space  for  result  value 

6606  001742 

CALL 

GETFRA 

Get  result,  SI  frame  for  it 

6607  001746 

062620 

ADD 

(SP)+, (R0)+ 

•Fill  in  array  block  header 

6608  001750 

012720 

103000 

MOV 

#<A.ASB^'.FLOAT>*400,(R0)+:  Type  and  ftank                            1 

6609  001754 

012720 

000001 

MOV 

/fl,(RO)^- 

;   Array  length 

6610  001760 

012720 

000001 

MOV 

*1,(R0)^- 

;   First  dimension 

6611  001764 

STF 

ACO,(RO)+ 

;   Result  value 

Z      001770 

010020 

MOV  ACC 

l,(RO)  + 

6612  001772 

RETURN 

And  exit 

6613 

;f 

6614 

;  Set  1 

^he  file 

pointer  position 

6615 

•  — 

6616  001774 

FPNT5: 

CFCC 

Is  the  new  pointer  negative? 

6617  002000 

100405 

BMI 

1$                     ; 

Yes,  Domain  Error 

6621  002002 

032762 

020000 

1 77756 

BIT 

*C.FASW,C.SBIT(R2) 

File  opened  as  Formatted  ASCII? 
Yes,  Ok 

6622  002010 

001402 

BEQ 

2$ 

6623  002012 

104565 

ILLSW 

•No,  No  random  access  on  ASCII  files 

6625  002014 

104417 

1$: 

DOMERR 

•Yes,  Can't  set  ptr  in  a  seq  file 
•Direct  access.  Don't  write  CNTL-Z 

6626  002016 

042762 

001000 

177756 

2$: 

BIC 

#C.CZ,C.SBIT(R2)       ! 

~ST 
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6628  002024 

PUSH 

C.BLO<+2(R2) 

;Get  low  word  of  Block  number 

6632 

;  + 

6633 

;  Determine  the 

block  number 

663A 

;- 

6635  002030 

LDCIF 

DATALN(R3),AC1 

; Convert  data  type  size  to  floating 

6636  0020A0 

MULF 

AC1,AC0 

; Convert  pointer  value  to  bytes 

6637  0020A6 

SETL 

;Set  to  Long  Integer 

; Convert  to  Long  Integer  form 

6638  002052 

STCFL 

Aco,-(sp)                ; 

6639  002060 

SET] 

;Back  to  short  integer 

6640  002064 

POP 

<R0,R1>              ! 

;Restore  Registers 

6641  002070 

010103 

MOV 

R1,R3 

;Get  low  word 

6642  002072 

042703 

1 77000 

BIG 

#^C<0BUFLN-1>,R3 

;Position  in  buffer 

6643  002076 

ASHC 

lf'9.M 

; Convert  it  to  a  block  count 

6645  002112 

005201 

INC 

R1 

;Bump  by  1  If  RSTS  or  RSX 
;Save  block  number 

6647  002114 

PUSH 

R1 

6648  002116 

166601 

000002 

SUB 

2(SP),R1 

;Minus  the  current  position 

6649  002122 

103416 

BLO 

3$ 

[Behind,  We  must  read  in  a  new  block 

6650  002124 

005762 

1 77760 

TST 

C.BUFF(R2) 

;Is  a  buffer  allocated? 

6651  002130 

001413 

BEQ 

3$ 

;No,  So  we  must  read  from  the  file 

6652  002132 

ASH 

#9.,R1 

; Convert  the  distance  away  to  bytes 

6653  002146 

103404 

BCS 

3$ 

;It  is  more  than  a  block  away 

6654  002150 

060301 

ADD 

R3,R1 

[Add  in  buffer  offset 

6655  002152 

020162 

1 77762 

CMP 

R1,C.BUFL(R2) 

[Are  we  still  in  the  current  block? 

6656  002156 

103457 

BLO 

6$ 

[Yes 

6657 

;  + 

6658 

;  Write 

out  current  buffer  if  necessary. 

and  read  in  a  new  block 

6659 

6660  002160 

032762 

004000 

1 77756 

5$: 

BIT 

#C.FLSH,C.SBIT(R2) 

[Has  any  data  in  the  buffer  changed? 

6661  002166 

001402 

BEQ 

4$ 

[No,  Then  we  don't  have  to  rewrite  the  block 

6662  002170 

CALL 

WRITES 

[Write  out  the  current  buffer 

6663  002174 

016201 

1 77762 

4$: 

MOV 

C.BUFL(R2),R1 

[Get  the  buffer  size 

6664  002200 

062701 

000777 

ADD 

#<0BUFLN-1>,R1 

[This  does  nothing  but 

6665  002204 

042701 

000777 

BIC 

/r<06UFLN-1>,R1 

[  set  R1 

6666  002210 

ASH 

*-9.,R1 

[  to  1 

6667  002224 

011600 

MOV 

(^P),RO 

[Get  the  new  block  pointer 
[Are  we  extending  tne  file? 
■No,  So  the  block  exist 

6669  002226 

020062 

000012 

CMP 

R0,C.FLEN+2(R2) 

66/3  002232 

103420 

BLO 

5$ 

6675  002234 

011662 

000066 

MOV 

(SP),C.BL0K^2(R2) 

•Save  the  block  pointer 

66/9  002240 

052762 

002000 

177756 

BIS 

#C.REWT,C.SBIT(R2) 

•Mark  that  the  new  block  doesn't  exist 

6680  002246 

010301 

MOV 

R3,R1 

Copy  the  buffer  offset 

6681  002250 

005762 

1 77760 

TST 

C.8UFF(R2) 

■Is  there  a  buffer? 

6682  002254 

001020 

BNE 

6$ 

•Yes 

6683  002256 

016200 

1 77762 

MOV 

C.BUFL(R2),R0 

■No,  Get  the  buffer  size 

6684  002262 

CALL 

GET COR 

•Allocate  a  buffer 

6685  002266 

010062 

1 77760 

MOV 

R0,C.BUFF(R2) 

■Set  the  buffer  pointer 

6686  002272 

6687 

6688  002274 

000411 

BR 

6$ 

Skip  reading  a  non-ex istant  block 

5$: 

6690  002274 

011662 

000066 

MOV 

(SP),C.BL0K*2(R2) 

•Save  the  block  to  read 

6694  002300 

CALL 

READB 

•Read  the  bluck  into  the  buffer 

6696  002304 

160162 

000066 

SUB 

R1,F.BKVB^2(R2) 

Back  up  by  the 

6697  002310 

005662 

000064 

SBC 

F.BKVB(R2) 

size  of  the  buffer 

6701  002314 

010301 

MOV 

R3,R1 

Copy  the  offset  into  the  buffer 

6702 

;-f 

6703 

;  Reset 

pointer 

into  buffer 

6704 

•  - 

6705  002316 

016262 

1 77762 

1 77766 

6$: 

MOV 

C.8UFL(R2),C.CCNT(R2)   . 

•Assume  the  buffer  is  full 

11 
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6706 
6707 
6708 
6709 
6710 
6711 
6712 
6714 


002324 
002330 
002334 
002340 
002344 
002346 
002352 
002356 


160162 
066201 
010162 
062706 
010304 
01 3703 
000137 


1 77766 
1 77760 
1 77764 
000004 

005066' 
001 544 • 


SUB 

R1,C.CCNT(R2) 

ADD 

C.BUFF(R2),R1 

MOV 

R1,C.CPTR(R2) 

ADD 

*4,SP 

MOV 

R3,R4 

MOV 

OPTMP0,R3 

JMP 

FPNT1 

LIST 

;Minus  the  space  remaining  in  the  buffer 

; Convert  into  pointer  into  the  buffer 

;And  change  the  file  pointer 

;Pop  junk 

;Copy  the  buffer  offset 

;6et  back  the  data  type 

;And  return  the  new  pointer  position 


Mil 
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6716  002356 

6723  002356 

6724 

6725 

6726  002356 

6732  002356 

6733 

6734 

6735  002356 

6741  002356 

6742 

6743 

6744  002356 

7044  002356 


SET  FILE  POINTER 


MOP INS 


MOP INS 


MOP INS 


MOP INS 


1SCN,130 
LIST 


SCAN, 62, T. DIM 
LIST 


1RDTJ24 
LIST 


RDCT,60,T.DIM 
LIST 


S 

N 

h 
h 
h 
^ 

h 
h 

h 

^ 
^ 

^ 
^ 
^ 

^ 

^ 
^ 
^ 

^ 

^ 
^ 
^ 
^ 
^ 

^ 
^ 
^ 
^ 
^ 
^ 
^ 
c 
c 
c 
c 
c 
c 
c 


T 
D 

e 


ki  11 
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MOP INS 


N  11 


GETIDN,0 
LIST 


A 
S 

D 

CI 
CI 
V 
A 
0' 
Tl 
Ml 
Ml 
CI 
P. 

s 

Dl 

Dl 
Dl 

El 

V 
0 

Ei 

A 
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7195  002356  MOPINS  SATAN, 0 

7A0A  002356  LIST 


TTF 
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7406  002356  MOPINS  OUTR/56 

74^6  002356  LIST 


D  U 
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7A78  002356 

MOP INS 

DOUTER,0 

7504  002356 

LIST 

7505 

7506 

7507 

7508 

7509 

7510  002356 

MOP INS 

PRDSET,0 

7564  002356 

LIST 

7565 

7566 

7567 

7568 

7569 

7570  002356 

MOP INS 

INSPACO 

7612  002356 

LIST 

rrr 
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7962  002356  MOPINS  SUBR,0 


hTTT 
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8725  002356  LIST 
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8771  002356  LIST 
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ACO   = 

XOOOOOO 

CHRFRO= 

000135 

C.BLOK= 

000064 

D.CIRC= 

000001 

D.I EXP= 

000002 

AC1   = 

X000001 

CHRLBR= 

000073 

C.BLSZ= 

000140 

D.C0MB= 

000001 

D.1R0T= 

000003 

AC2   = 

X000002 

CHRLPR= 

000072 

C.BUFF= 

177760 

D.C0MP= 

000001 

IX>K¥S{ 

005063R 

025 

AC3   = 

X000003 

CHRMNS= 

000137 

C.BUFL= 

177762 

D.C0NT= 

000006 

EDICNT 

005064R 

025 

ACA   = 

XOOOOOA 

CHRMUL= 

000075 

C.CCNT= 

1 77766 

D.CTLM= 

000000 

EDIFLG 

005062R 

025 

ACS   = 

X000005 

CHRNEG= 

000100 

C.CPTR= 

1 77764 

D.DEAL= 

000003 

EDIT  = 

000003 

ALL I NT 

00327AR 

025 

CHRPDL= 

000271 

C.CZ  = 

001000 

D.DECD= 

000002 

EIS   = 

000000 

ARYRET 

003276R 

025 

CHRPLU= 

000055 

C.DIG  = 

000040 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

ASCQUO=  0000A2 

CHRPWR= 

000120 

C . FASW= 

020000 

D.DMD  = 

000010 

l^Z^ 

000004R 

025 

A.ALEN=  000004 

CHRQST= 

000121 

C.FLEN= 

000010 

D.DQAD= 

1 77777 

EOF   = 

104475 

A.AR6  = 

000040 

CHRQUO= 

000113 

C.FLSH= 

004000 

D.DROP= 

000002 

ERRMAX= 

000166 

A.AS8  = 

000200 

CHRRBR= 

000047 

C.FRC  = 

000001 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

A.BITS= 

000003 

CHRRPR= 

000042 

C.JDEN= 

000010 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

A. CON  = 

000020 

CHRSEM= 

000074 

C.NAME= 

000102 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.DIMS= 

000002 

CHRSMO= 

000112 

C.NOBF= 

000400 

D.FGET--= 

000005 

EXEBUF 

005054R 

025 

A.DIM1= 

000006 

CHRSPA= 

000040 

C.NUM  = 

000020 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.NUM  = 

000006 

CHRUPA= 

000131 

COP  = 

000004 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.PTR  = 

000000 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.FPUT= 

000005 

FA.APD= 

000100 

A. IMP  = 

000010 

CHR.CC= 

000003 

C.RDLN= 

177776 

D.GE  = 

000000 

FA.CRE= 

000010 

BADDIR= 

104463 

CHR.CR= 

000015 

C.REWT= 

002000 

D.GT  = 

000000 

FA.DLK= 

001 COO 

BADERR= 

104437 

CHR.CZ= 

000032 

C.RND  = 

000010 

D.IBM  = 

000002 

FA.ENB= 

lOOC^O 

BLZBUB 

0051 16R 

025 

CHR.GT= 

000046 

C.S8IT= 

177756 

D.IND  = 

000002 

FA.EXC= 

oo;.'Chjo 

BRSELF 

005046R 

025 

CHR.LF= 

000012 

C.SPFX= 

000100 

D.INNR= 

000013 

FA.EXT= 

CCr>0D4 

CCNT 

005072R 

025 

CHR.LT= 

000043 

C.SPGL= 

000200 

D.INTR= 

000006 

FA.NSP= 

0001^0 

CHAf€X 

003060R 

025 

CHR.SI= 

00001 7 

C . SPLX= 

000001 

D.LE  = 

000000 

FA.NSR= 

000200 

CHANNE= 

••••••  Gx 

CHR.SL= 

000057 

C . SPRS= 

000002 

D.LOG  = 

000001 

FA.POS= 

010000 

CHANOO 

0OO256R 

025 

CHR.SO= 

000016 

C.SRC  = 

177774 

D.LT  = 

000000 

FA.RD  = 

000001 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C.SRCP= 

000024 

D.MAX  = 

000000 

FA.RWD= 

004000 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.TT  = 

000004 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CHAN03 

000674R 

025 

CHR..A= 

000141 

C.WIDC= 

1 7777f^ 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHANOA 

001056R 

025 

CHR..E= 

000145 

C.WIDR= 

1 77772 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHAN05 

001 240R 

025 

CHR..S= 

000163 

DATALN 

OOOOOOR 

002 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN06 

001422R 

025 

CHR..T= 

000164 

DATASH 

00001 4R 

002 

D.NN  = 

000000 

FA.WRT= 

000002 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DATATY 

000030R 

002  D.NR  = 

000000 

FD.BLK= 

000010 

CHAN08 

001766R 

025 

CHR..Z= 

0001 72 

DEBUG  = 

000000 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DEFERR= 

104405 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DEVIL 

005114R 

025 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DEVNTF= 

104470 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN12 

002676R 

025 

CMDBUF 

003250R 

025 

DIGITS 

000006R 

025 

D.QQAD= 

000000 

FD.FTN=  000001 

CHAN13 

000022R 

023 

CMD«AX= 

000010 

DIMAX  = 

000020 

D.QUAD= 

000000 

FD.F11= 

040000 

CHANU 

000204R 

023 

CNTSIZ 

005130R 

025 

DIMBLK 

0031 12R 

025 

D.RES  = 

000000 

FD.INS= 

000010 

CHNOPN= 

104471 

COMBIN 

005076R 

025 

DIMPTR 

0031 14R 

025 

D.RHO  = 

000000 

FD.ISP= 

002000 

CHRAND= 

000051 

COMCNT 

005126R 

025 

DIMTYP 

0031 16R 

025  D.ROT  = 

000003 

FD.MNT= 

100000 

CHRBEL= 

000007 

COMERR= 

104425 

DIRFUL= 

104466 

D.SCON=  000006 

FD.OSP= 

004000 

CHRBICR= 

000133 

CQMPTR 

005122R 

025 

DOMERR= 

104417 

D.SDIF= 

000006 

FD.PLC= 

000004 

CHRBa= 

000200 

COMRTN 

0031 56R 

025 

DPTERR^ 

104416 

D.SUB  = 

000000 

FD.PRN=  000004 

CHR80X= 

000114 

ClISKP 

005124R 

025 

DYDCNT 

003224R 

025 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRCMA= 

000054 

CORPTR 

0051 20R 

025 

DSFGET 

OOOOOORG 

020  D.TAKE= 

000002 

FD.RAH= 

000001 

CHRCa= 

000076 

CS.ASS= 

000200 

DSFPNT 

001360RG 

020  D.TRAN= 

000004 

FD.RAN= 

000002 

CHRDEL= 

000107 

CS.BOO= 

000010 

DSFPUT 

000662RG 

020  D.UN0N= 

000006 

FD.REC= 

000001 

CHRDIV= 

000053 

CS.FLO= 

000020 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RUM=  000001 

CHRDLR= 

000176 

CS.IDN= 

000040 

D.BXCT= 

000007 

D.$MIN= 

000000 

FD.SDI= 

000020 

CHRDLT= 

000110 

CS.ONE= 

000100 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRD0T= 

000056 

CTEPS 

0001 52R 

025 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.TTY= 

000004 

CHREP  = 

000105 

CTMAX 

00021 2R 

025 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.WBH= 

000002 

CHRERR= 

104431 

CTRMAX 

0001 72R 

025 

D.8XPW= 

000007 

D.$SUB= 

000000 

FF.CHR= 

000005 

CHRFIL= 

0001 77 

C.ALOC= 

000162 

D.8XRL= 

0^o;"7 

D.1C0M= 

000001 

FF.NV  = 

000003 

TT 
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FF.POE=  000002 

■.CNTG= 

000034 

F.STOP= 

000004 

LEXPTR 

0031 OOR 

025  M.6DWN=  000003 

FF.RWO=  000001 

■.C0DE= 

000010 

F.STP  = 

000001 

LFTOP 

005066R 

025  M.6ETI=  000006 

FF.RWF=  000006 

•.DFNB= 

000046 

F.SUSP= 

000002 

LINC 

005102R 

025  M.IBM  =  000003 

FF.SPC=  OOOOOA 

■.DSPT= 

000044 

F.TRC  = 

000002 

LINE 

00501 6R 

025  M.IDN  =  000000 

FGET1   000260R 

020  1 

•.DVNM= 

000134 

F.UNIT= 

0001 36 

LININC 

005026R 

025  \^AK%?=   000006 

F HE ADR  00501 2R 

025  f 

■.EFBK= 

000010 

F.URBD= 

000020 

LISIZE= 

000020 

M.IOTA=  000000 

FHRET   0050A0R 

025  1 

-.EFN  = 

000050 

F.VAL  = 

177776 

LI  TOP 

005072R 

025  M.LI T  =  000205 

FILNTF=  10AA67 

-.END  = 

002000 

F.VBN  = 

000064 

LNLNG  = 

104541 

M.LN  =  000001 

FIS   =  000000 

■.EnRR= 

000032 

F.VBSZ= 

000060 

LOCLCT 

005036R 

025  M.MMD  =  000010 

F1SC0N=  046000 

■.ERR  = 

000052 

GETBYT= 

•**•••  GX 

LOWCOR 

000002R 

025  M.NE6  =  000000 

FIXLIN=  *♦***•  GX 

■.FACC= 

000043 

GETCOR= 

***•*♦  GX 

LSTERP 

004766R 

025  M.NOT  =  000000 

FIXPTR  00307AR 

025  1 

■.FFBY= 

000014 

GETFA  = 

***««•  GX 

LWIDTH 

000070R 

025  M. NUB  =  000006 

FLAGS   00A764R 

025  f 

■.FLA6= 

000002 

GETFRA= 

•**«*•  GX 

L.BITS= 

000003 

M.NUM  =  000204 

FLCBUF  003250R 

025  f 

-.FLB  = 

000100 

GETSCA= 

•*•*••  GX 

L.CNT  = 

000002 

M.OUTR=  000012 

FLINE   0050UR 

025  f 

•.FNAM= 

000110 

GNOME 

0031 02R 

025  L.PRNT= 

000001 

M. PI TM=  000000 

FLOEXP  003270R 

025  f 

^F^B  = 

000102 

HASHC 

005136R 

025  L.PTR  = 

000000 

M.PRDS=  000006 

FLONEG  003272R 

025  f 

■.FNDF= 

000010 

HASHTB 

0051 40R 

025  L.PTR1= 

000004 

M.QQAD=  000000 

FLSWTB  0OO222R 

025  1 

•.FTYP= 

000116 

HSHMSK= 

1 77601 

L.SUBS= 

000002 

M.QUAD=  000000 

FLTLEN=  000010 

-.FUN  = 

000010 

HSHSIZ= 

000200 

MACHIN=  000106 

M.RAND=  000012 

FNINSI  00504AR 

025  1 

■.FVER= 

000120 

lASH  = 

**••••  GX 

MAXCHN=  000014 

M.RAVL=  000000 

FORIGN  000032R 

025  1 

•.HEAD= 

000006 

lASHC  = 

•*••*♦  GX 

MAXTYP= 

000005 

M.RCIP=  000000 

FO.APD=  000106 

■.HIBK= 

000004 

I  CHAN 

005O5OR 

025  MONBLK 

0031 20R 

025  M.RDCT=  000011 

FO.MFY=  000002 

-.LBL  = 

000020 

IDIV  = 

****««  GX 

MONCVT 

0031 32R 

025  M.REVS=  000003 

FO.RD  =  000001 

■.LINE= 

000012 

ILFNAM= 

104464 

MONLEN 

0031 30R 

025  M.ROLL=  000000 

FO.UPD=  000006 

•.LOC  = 

000004 

ILLCHN= 

104540 

MONPTR 

0031 22R 

025  M.SATA=  000001 

F0.URT=  000016 

■.LSTC= 

000004 

ILLSW  = 

104565 

MONSFT 

0031 26R 

025  M.SCAN=  000011 

FPMODE  0OOO42R 

025  1 

".LUN  = 

000042 

INDERR= 

104410 

MONTYP 

0031 24R 

025  M.SHAP=  000000 

FPNT1   001544R 

020  f 

•.MBCT= 

000054 

INNTMP 

003250R 

025  MONVAL 

0031 34R 

025  M.SI6N=  000000 

FPNT2   00162AR 

020  1 

^^BC1  = 

000055 

INNTM2 

00501 6R 

025  M.ABS  = 

000000 

M.S(RR=  000001 

FPNT3   001672R 

020  f 

■.l>«FG= 

000056 

INPTR 

000064R 

025  M.BOL  = 

000200 

M.SYM  =  000203 

FPNT4   001706R 

020  1 

■.MON  = 

000002 

INSNAM= 

104462 

M.BXAV= 

000007 

M.SYN  =  000201 

FPNT5   00177AR 

020  1 

".NIL  = 

000001 

lOERR  = 

104477 

M.BXCR= 

000007 

M.TRAN=  000012 

FPP   =  000000 

■.NRBD= 

000024 

IRARGC= 

«i^*i^i^«  GX 

M.BXCT= 

000007 

M.$ABS=  000000 

FPPLEN=  000004 

■.NREC= 

000030 

I.CNT  = 

1 77776 

M.BXEX= 

000007 

M.$CEI=  000000 

FRARGC=  ******  GX 

-.OPN  = 

000010 

I. DIM  = 

y77772 

M.BXFX= 

000007 

M.$FLR=  000000 

FREBLK  007400R 

025  1 

■.OVBS= 

000030 

I.LEN  = 

00001 2 

M.BXIO= 

000007 

M.$IDN=  000000 

F SETUP  000542R 

020  f 

■.PREV= 

000000 

I.OERR= 

000062 

M.BXLC= 

000003 

M.$NEG=  000000 

FUZZ    000U2R 

025  1 

-.PRNT- 

100000 

I. OLD  = 

177770 

M.BXNC= 

000007 

M.$SI6=  000000 

FXPTR1  003076R 

025  1 

-.PROT= 

010000 

I.PTR  = 

1 7777 1^ 

M.BXNL= 

000007 

M.1RDT=  000011 

F$EVAL=  000100 

■.RACC= 

000016 

I.STR  = 

-[77766 

M.BXPP= 

000007 

M.1REV=  000003 

F$EVI  =  000200 

■.RATT= 

000001 

LABERR= 

104406 

M.BXPW= 

000007 

M.1SCN=  000011 

F$EXEC=  000400 

■.RCNW= 

000034 

LABLPT 

005042R 

025  M.BXRL= 

000007 

NAMBUF  003240R 

025 

F$FUNC=  001000 

■.RCTL= 

000017 

LARGBL 

0031 62R 

025  M.BXTS= 

000007 

NB.DEV=  000200 

F.ACTL=  000076 

•.READ= 

004000 

LARGCV 

0031 76R 

025  M.BXWA= 

000007 

NB.DIR=  000100 

F.ALOC=  000040 

■.REDF= 

000040 

LARGFL 

0031 60R 

025  M.CEI  = 

^77777 

NB.NAM=  000004 

F.BBFS=  000062 

-.RES  = 

000040 

LARGLE 

0031 74R 

025  M.CHR  = 

000202 

NB.SD1=  000400 

F.BOB  =  000070 

-.RET  = 

1 77772 

LARGLN 

0031 66R 

025  M.CMT  = 

000206 

NB.SD2=  001000 

F.BGBC=  000057 

■.RSIZ= 

000002 

LARGPT 

0031 64R 

025  M.D0UT= 

000006 

NB.SNM=  000040 

F.BITS=  177774 

•.RTYP= 

000000 

LARGSF 

0031 72R 

025  M.DQAD= 

000006 

NB.STP=  000020 

F.BKDN=  000026 

\R2     = 

000014 

LARGTY 

0031 70R 

025  M.ENCD= 

000004 

NB.SVR=  000010 

F.BICDS=  000020 

\R3  = 

000016 

LARGVA 

0032OOR 

025  M.EXE  = 

000000 

NB.TYP=  000002 

F.BKEF=  000050 

■.R4  = 

000020 

LBINC 

005100R 

025  M.EXP  = 

000001 

NB.VER=  000001 

F.acP1=  000051 

■ . SEQN= 

000100 

LBUFF 

00331 6R 

025  M.FACT= 

000001 

ND.DEV=  000200 

F.BKST=  000024 

■ . SPDV= 

000072 

L8UFLN= 

000621 

M.FIL  = 

000177 

ND.EXT=  000002 

F.BK\/B=  000064 

■.SPUN= 

000074 

L COUNT 

0051 06R 

025  M.FLR  = 

1 77777 

ND.NAM=  000004 

F.BR  =  000020 

■.STBK= 

000036 

LENERR= 

104412 

M.FMT  = 

000004 

ND.PPN=  000100 

F.CHR  =  000075 

•.STK  = 

000022 

LENTAB 

000054R 

025  M.6DUP= 

000003 

ND.$EX=  000000 

Ml') 
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ND.$ES= 

000020 

0PTMP3 

005074R 

025 

ROTINC 

005070R 

025 

SYNERR= 

104407 

T.NUM  = 

102000 

ND.$M1=  000000 

OPTMP^ 

005076R 

025 

ROUND 

00001  OR 

025 

SYSERR= 

104402 

T.OPFN= 

000001 

ND.$NS=  0000^0 

0PTMP5 

005100R 

025 

ROVER 

00331 2R 

025 

SYSTAT 

OOOOOOR 

024  T.OTHR= 

040000 

ND.$PN=  001A00 

0PTMP6 

0051 02R 

025 

RSTS  = 

000000 

SY.8AD= 

000001 

T.SOP  = 

000002 

^€GSGN 

005063R 

025 

aPTMP7 

005104R 

025 

RSX   = 

0001 1 5 

SY.BRK= 

100000 

T . SPOP= 

000040 

NINPT1 

003302R 

025 

0PTMP8 

005106R 

025 

RTOP 

005070R 

025 

SY.BS  = 

000010 

T.TMP  = 

000200 

NINPT2 

003300R 

025  0PTMP9 

00511 OR 

025 

RT11  = 

000000 

SY.CLR= 

000040 

T.VAL  = 

100000 

NINSTK 

00330AR 

025 

OPTM10 

0051 12R 

025 

R.BIT5= 

000003 

SY.ERP= 

000020 

T.VAR  = 

001000 

NINTWP 

00331  OR 

025 

0PTM14 

005026R 

025 

R.FIX  = 

000001 

SY.NOU= 

000100 

UPPER  = 

177400 

NINTYP 

003306R 

025 

ORIGIN 

000030R 

025 

R.LCT  = 

000002 

SY.OPN= 

000002 

UTNAME 

000344R 

023 

NOTAVL= 

10A472 

OUTPTR 

000066R 

025 

R.LN  = 

000002 

SY.PMT= 

001000 

VALERR= 

104413 

NOTOPN= 

104A73 

0VR0PR= 

000005 

R.LNUM=  000010 

SY.SRT= 

000400 

VAR8LE 

007400R 

025 

NPRT1 

00A762R 

025 

PATCH 

007344R 

025 

R.NEXT= 

000006 

SY.SVC= 

000004 

VARBLS 

OOOOOOR 

025 

NULL 

00736AR 

025 

PRECSN 

000052R 

025 

R.OFF  = 

000000 

SY.SVL= 

000200 

VERNUM 

OOOOOOR 

025 

Nlf1CHN=  000020 

PUTCH 

001334R 

020 

R.PREV= 

000004 

S.AB  = 

1 77776 

VRSION= 

000002 

NUMDFL 

003230R 

025 

PUTFA  = 

•••*••  6X 

R.PTR  = 

000000 

S.ASB  = 

100000 

WIDTH 

000072R 

025 

NL>'£FL 

003233R 

025 

RANOAC 

003064R 

025 

R.SEQ  = 

000003 

S.BFHD= 

000020 

WRITEB= 

•*•«••  GX 

NLf€SN 

003236R 

025 

RANOY 

003062R 

025 

R.VAR  = 

000002 

S.BITS= 

000002 

WROUND 

000020R 

025 

NUMFLG 

003230R 

025 

RANERR= 

104411 

R6 

X000006 

S.CHR1= 

000003 

WSDATE 

0001 36R 

025 

NUMLEN 

000062R 

025 

RARGBL 

003204R 

025 

R7 

X000007 

S.FATT= 

000016 

WSFULL= 

104403 

NUMNEG 

003232R 

025 

RARGCT= 

**•*•*  QX 

SAME  = 

******  GX 

S.FDB  = 

000140 

WSNAME 

000074R 

025 

NUMQFL 

00323AR 

025 

RARGCV 

003220R 

025 

SI 

X000005 

S.FLB  = 

040000 

WSTIME 

0001 32R 

025 

NUMRIG 

003231 R 

025 

RARGFL 

003202R 

025 

SIDAMN= 

104433 

S.FNAM= 

000006 

$CFCC  = 

*****  GX 

NUMUID 

003226R 

025 

RARGLE 

00321 6R 

025 

SIFRAM 

00331 4R 

025 

S.FNB  = 

000036 

SFIS  = 

******  G 

NUM2FL 

003235R 

025 

RARGLN 

00321  OR 

025 

SISTAK 

006350R 

025 

S.FNBW= 

00001 7 

$FPP  = 

******  G 

NY1ERR= 

10A432 

RARGPT 

003206R 

025 

SITOP 

006346R 

025 

S.FNTY= 

000004 

$FPPLN= 

******  G 

N.BLSZ= 

000036 

RARGSF 

00321 4R 

025 

SITP 

0071 44R 

025 

S.FTYP= 

000002 

$LDCIF= 

******  GX 

N.DESC= 

000020 

RARGTY 

00321 2R 

025 

SIWARN= 

000200 

S.LEN  = 

000002 

$LDCLF= 

******  GX 

N.DEV  = 

000032 

RARGVA 

003222R 

025 

SIZTAB 

000044R 

025 

S.LINK= 

1 7777^ 

$LDF  = 

******  GX 

N.DE\/N= 

00003A 

RBASE 

005074R 

025 

SI.BIT= 

1 7777^ 

S.NFEN= 

000020 

$MACHN= 

******  G 

N.DID  = 

00002A 

RCOUNR 

005112R 

025 

SI.LEN= 

1 77772 

S.TYPE= 

140000 

SMULF  = 

******  GX 

N.DVNW= 

000032 

RCOUNT 

00511  OR 

025 

SI.RET= 

1 77772 

S.VAL  = 

000000 

SRSTS  = 

******  G 

N.EXT  = 

OOOOU 

READS  = 

HKHmrit    GX 

SI.VAL= 

1 77776 

TKDIMS 

005072R 

025  $RSX  = 

******  G 

N.FID  = 

000000 

REDCNT 

005070R 

025 

SKPS12 

0051 34R 

025 

TKFRAM 

005066R 

025  $RT11  = 

******  G 

N.FIW1=  000006 

REDIGN 

005066R 

025 

SPHOLD 

000004R 

024 

TKLEFT 

005070R 

025  SSETI  = 

******  GX 

N.FTYP=  00001 A 

REDOFF 

005072R 

025 

SPINIT 

000002R 

024 

TMODE 

000403R 

023  SSETL  = 

******  GX 

N.FVER= 

oor  ;16 

REENTR 

003060R 

025 

STICINC= 

000774 

TMPTAG= 

000166 

$STCFL= 

******  GX 

N.NA«E= 

00  006 

REGTYP= 

000001 

STOP  = 

104420 

TTYBUF 

004140R 

025  $STF  = 

******  GX 

N.NEXT= 

000022 

RESBIT 

0031 42R 

025 

SUBCNT 

0031 04R 

025 

TTYLEN= 

000622 

SSUBF  = 

******  GX 

N.PPN  = 

000024 

RESCVT 

0031 52R 

025 

SUBDCT 

0031 06R 

025 

TURKEY= 

104436 

.B00LE= 

000002 

N.STAT= 

000020 

RESERR= 

104440 

SUBPTR 

00311  OR 

025 

TYPE  = 

000166 

.CHARA= 

000000 

N.UNIT= 

000034 

RESLEN 

0031 50R 

025 

SYMB1 

005344R 

025 

T.BOL  = 

020000 

.DEF.  = 

000002 

(njfLH= 

001000 

RESPTR 

0031 40R 

025 

SYMF 

005340R 

025 

T.CON  = 

004000 

.FL0AT= 

000006 

OCHAN 

005052R 

025 

RESSFT 

0031 46R 

025 

SYMPT1 

005346R 

025 

T.DIM  = 

000100 

.FSRCB= 

******  G 

OCHAR  = 

«*•***  GX 

RESTYP 

0031 44R 

025 

SYMTAB 

005352R 

025 

T.FUN  = 

010000 

.INTEG= 

000004 

OMODE 

000402R 

023 

RESULT 

0031 36R 

025 

SYMTBF= 

104404 

T.LIST= 

000400 

.MOLUN 

000404R 

023 

OPTMPO 

005066R 

025 

RESVAL 

0031 54R 

025 

SYMTOP 

005350R 

025 

T.LIT  = 

000020 

...GBL= 

000000 

0PTMP1 

005070R 

025 

RINC 

0051  OAR 

025 

SYMTP 

006272R 

025 

T.MON  = 

000010 

...TPC= 

000020 

0PTWP2 

005072R 

025 

RLTBAS 

005066R 

025 

SYMWRN= 

000054 

T.NIL  = 

000004 

.  A8S. 

000000 
000000 

000 

0C1 

TABLES 

000044 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

(10NBTB 

000000 

006 

ki    1  o 
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DYDBTB 

000000 

007 

CQMTB 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

002356 

020 

PATCH 

000000 

021 

$$FSR1 

000000 

022 

DEFSO 

00OA06 

023 

DEF$1 

000006 

02A 

DEF$2 

007A00 

025 

ERRORS 

DETECTED: 
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TITLE  APL006 
IDENT  \V02.03\ 

THIS  IS  USED  WHEN  ASSEMBLING  APLOP  TO  DEFINE  A  NEW  OVERLAY  SEGMENT 
CONTAINING  OPERATOR  ROUTINES.   IN  THE  COMMON  DEFINITION  FILE, 
'OVROPR*  IS  DEFINED  AS  ZERO.  IF  IT  IS  DEFINED  AS  ONE  BEFORE  APLOP 
IS  ASSEMBLED,  ONLY  THE  CODE  DESIGNATED  FOR  THE  OPERATOR  OVERLAY  IS 
ASSEMBLED.   THEREFORE,  THE  COMMAND  TO  ASSEMBLE  APL006  IS: 


APL006  <  APL006, APLOP 


000006 


OVROPR^  6 


;OVERLAY  SPECIFIED  OPERATORS 


I  IS 
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5 
6 

•++ 

7 

•  FUNCTIONAL  DESCRIPTION: 

8 

THIS  MODULE  CONTAINS  THE  CODE  FOR  MOST  APL  OPERATORS  WHICH 

9 

HAVE  BEEN  IMPLEMENTED  SO  FAR.  TWO  MACROS  ARE  USED  TO  [>UmE 

10 

OPERATOR  ROUTINES.   'DOPINS'  DEFINES  A  DYADIC  OPERATOR,  AND 

11 

•MOPINS*  DEFINES  A  MONADIC  OPERATOR.  THE  ARGUMENTS  TO  THE 

12 

MACROS  ARE  THE  NAME  OF  THE  OPERATOR  ROUTINE  AND  THE  OPERATOR 

13 

NUMBER  FOR  THE  OPERATOR  (WHICH  CAN  BE  FOUND  BY  LOOKING  IN 

14 

•VTAB').  FOR  DYADIC  SCALAR  OPS,  THE  LEFT  ARG  IS  IH   AC1 ,  THE 

15 

RIGHT  ARG  IS  IN  AC2,  AND  THE  RESULT  IS  RETURNED  IN  ACO.  FOR 

16 

MONADIC  SCALAR  OPS,  THE  ARGUMENT  IS  IN  AC1,  AND  THE  RESULT 

1^ 

IS  RETURNED  IN  ACO.  SCALAR  OPS  MUST  LEAVE  THEIR  ARGUMENTS 

18 

INTACT i 

19 

— 

24 

27 

124 

^^5 

•THESE 

MACROS  ARE  FOR  OVERLAY  CODE.   THEY  ARE  USED  THE  SAME  AS 

^k 

;RESIDENT  MACROS.   THE  DIFFERENCE  COMES  IN  THE  WAY  THEY  WORK.   THE 

"^27 

I'PRMRES'  MACRO,  FORCES  ALL  CODE  BETWEEN  IT  AND  THE  NEXT  MFTFVLIST' 

128 

•TO  NOT 

BE  ASSEMBLED.   THE  'MOPINS'  AND  'DOPINS'  DON'T  PUT  ANYTHING  IN 

129 

■ANY  TABLES.  OTHER  THAN  THAT  THEY  WORK  BASICLY  THE  SAME  AS  THE  RESIDENT 

130 

; MACROS 

■ 

131 

132 

.MACRO 

DOPINS  NAME,NUM,BITS,BOZO,NOTME 

133 

AU 

NDF  D.'NAME,  .ERROR  ;D.*NAME  IS   NOT  DEFINED  BY  OVROP! 

134 

A?   EQ 

OVROPR-D.'NAME 

135 

.PSEZJ     CODE 

136                          DS'l^AME 

•  • 

•  • 

137 

.ENDM 

138 

139 

.MACRO 

MOPINS  NAME,NUM,BITS,BOZ0,N0TME 

140 

Al? 

NDF  M.'NAME,  .ERROR  ;M.*NAME  IS  NOT  DEFINED  BY  OVROP! 

141 

AF   EQ 

OVROPR-M. 'NAME 

142 

.PSECT  CODE 

143 

A?   NE  NUM 

144                            MS'NAME 

•  • 

•  ■ 

145 

.ENDC 

146 

.ENDM 

147 

148 

.MACRO 

LIST 

149 

.ENDC 

150 

.ENDM 

151 

152 

MACRO 

PRMRES 

153 

A?   EQ  1 

154 

ENDM 

155 

159 

;*♦*•*♦♦♦***  ASSEMBLING  THE  FILEIlll! 

160  007400                      PRMRES 

199  007400 

LIST 

J  l! 
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201  007A00 

DOPINS 

PLUS,2,T.S0P,.INTEGER+CS.IDN+CS.ASS 

208  007A00 

LIST 

209 

210  007A00 

DOPINS 

$PLU,-2 

22A  007A00 

LIST 

225 

226  007400 

DOPINS 

SUB,4,T.S0P,.INTEGER^-CS.IDN 

233  007A00 

LIST 

23A 

235  007A00 

DOPINS 

$SUB,-4 

2A9  007400 

LIST 

250 

251 

252  007A00 

DOPINS 

MUL,6,T.S0P,.INTEGER+CS.B00L+CS.IDN+CS.0NE+CS.ASS 

264  007400 

LIST 

265 

266 

267  007400 

DOPINS 

$MUL,-6 

284  007400 

LIST 

285 

286  007400 

DOPINS 

DIVJO,T.SOP,.FLOAT^CS.BOOL+CS.IDN+CS.ONE 

323  007400 

LIST 

324 

325 

326  007400 

DOPINS 

PWR,20,T.SOP,.FLOAT+CS.BOOL+CS.IDN+CS.ONE 

392  007400 

LIST 

393 

394 

395  007400 

DOPINS 

L0G,54,T.S0P,.FLQAT^'CS.B00L 

417  007400 

LIST 

418 

419 

420  007400 

DOPINS 

CIRC, 52, T. SOP, .FLOAT 

477  007400 

LIST 

478 

479 

480  007400 

DOPINS 

MIN,14,T.S0P,.INTEGER^-CS.800L+CS.ASS 

490  007400 

LIST 

491 

492  007400 

DOPINS 

$MIN,-14 

516  007400 

LIST 

517 

518 

519  007400 

DOPINS 

MAX,16,T.S0P,.INTEGER^•CS.800L^■CS.ASS 

529  007400 

LIST 

530 

531  007400 

DOPINS 

$MAX,-16 

555  007400 

LIST 

556 

557 

558  007400 

DOPINS 

RES,12,T.S0P,.INTEGER+CS.800L+CS.IDN 

589  007400 

LIST 

590 

591 

592  007400 

DOPINS 

$RES,'12 

616  007400 

LIST 

617 

m 
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618 

619  007A00  DOPINS  COHB, 22,1. SOP,  .FLOAH-CS. BOOL ^-CS.JDN+CS. ONE 

639  007400  LIST 


L  13 
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641  007A00 

DOPINS 

AND,42,T.SOP,.BOOLEAN+CS.IDN-^CS.ONE+CS.ASS 

652  007400 

LIST 

653 

654 

655  007400 

DOPINS 

OR,40,T.SOP,.BOOLEAN^-CS.IDN-^CS.ASS 

662  007400 

LIST 

663 

664 

665  007400 

DOPJNS 

NN, 46, T. SOP,. BOOLE AN 

676  007400 

LIST 

677 

678  007400 

DOPINS 

NR, 44, T. SOP,. BOOLE AN 

687  007400 

LIST 

688 

1 

689 

690  007400 

DOPINS 

LT,24,T.LIT+T.SOP,.CHARACTER+CS.IDN 

700  007400 

LIST 

701 

702  007400 

DOPINS 

LE,26,T.LIT+T.SOP,.CHARACTER-^CS.IDN^•CS.ONE 

712  007400 

LIST 

713 

714 

715  007400 

DOPINS 

EQ,30,T.LIT+T.SOP,.CHARACTER+CS.IDN-^CS.ONE 

733  007400 

LIST 

734 

735  007400 

DOPINS 

GE,36,T.LIT•^T.SOP,.CHARACTER■^CS.IDN+CS.ONE 

745  007400 

LIST 

746 

747 

748  007400 

DOPINS 

GT,32,T.LIT+T.S0P,.CHARACTER+CS.IDN 

758  007400 

LIST 

759 

760 

. 

761  007400 

DOPINS 

NE,34,T.LIT-^T.S0P,.CHARACTER+CS.IDN 

780  007400 

LIST 

781 

M  13 
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783  007A0O 

MOPINS 

FLRJ4,T.S0P,.INTEGER+CS.B00L+CS.FL0AT,M$IDN 

786  007400 

LIST 

787 

788  007400 

MOPINS 

CEIJ6,T.S0P,.INTEGER+CS.800L-^CS.FL0AT,M$IDN 

791  007400 

LIST 

792 

793  007400 

MOPINS 

IDN,2,T.S0P,.INTEGER+CS.B00L 

799  007400 

LIST 

800 

801 

802  007400 

MOPINS 

$IDN,-2 

808  007400 

LIST 

809 

810 

811  007400 

MOPINS 

$FLR,-14 

855  007400 

LIST 

856 

857 

858  007400 

MOPINS 

$CEI,-16 

868  007400 

LIST 

869 

870 

871  007400 

MOPINS 

NEG,4,T.S0P,. INTEGER 

878  OO^AOO 

LIST 

879 

880  C  hOO 

MOPINS 

$NEG,-4 

887  -  ^400 

LIST 

888 

889 

890  007400 

MOPINS 

SIGN, 6, T. SOP,.  INTEGER+CS. BOOL -^CS. FLOAT 

901  007400 

LIST 

902 

903  007400 

MOPINS 

$SIG,-6 

914  007400 

LIST 

915 

916 

917  007400 

MOPINS 

RCIPJ0,T.  SOP,.  FLOAT-»-CS. BOOL 

928  007400 

LIST 

929 

930  007400 

MOPINS 

EXP, 20, T. SOP,. FLOAT 

939  007400 

LIST 

940 

941 

942  007400 

MOPINS 

LN,54,T.SOP,.FLOAT+CS.BOOL 

949  007400 

LIST 

950 

951 

952  007400 

MOPINS 

PITM, 52, T. SOP, .FLOAT 

959  007400 

LIST 

960 

961  007400 

PRMRES 

966  007400 

LIST 

967 

968 

969  0074^ 

MOPINS 

ABS,12,T.S0P,.INTEGER^-CS.800L 

977  0074uo 

LIST 

978 

..     a9 
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979  007A00 

992 

007400 

993 

99A 

995 

007400 

1002 

007400 

1003 

100A 

1005 

007400 

1031 

007400 

1032 

1033 

103A 

007400 

1057 

007400 
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MOPINS  SABS, -12 
LIST 


MOPINS  FACT, 22, T. SOP,. FLOAT+CS. BOOL 
LIST 


MOPINS  NOT, 50 
LIST 


MOPINS  ROLL, 100 
LIST 


n7 
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1059  007400  DOPINS  DEAL  J  00 

1187  007A00  LIST 


rw 
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1189  007A00  MOPINS     SNAP, 102 

1211   007AOO  LIST 

1212 

1213 

1214 

1215 

1216 

1217  007400  DOPINS     RH0J02 

1313  007400  LIST 
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DEFINITIONS     ERRORS 

1315  007^00  MOPINS  RAVL,56 

1325  007A00  LIST 

1326 

1327 

1328 

1329 

1330 

1331  007400  DOPINS  CTLM,56,T.DIM 

1596  007400  LIST 


D  14 
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1598  007A00  MOPINS  IOTA, 72 

1632  007A00  LIST 

1633 

163A 

1635 

1636 

1637 

1638  007A00  DOPINS  IND,72 

1699  007400  LIST 


T17 


F   U 
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DEFINITIONS           ERRORS 

1701   007A00 

DOPINS 

1C0MJ2A 

1709  007400 

LIST 

1710 

1711 

1712 

1713 

171A 

1715  007A00 

DOPINS 

COMP,60, 

1789  007A00 

LIST 

APL006  MACRO  Mil  13  08- 

-FEB-80 

09:33 
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1791  007A00 

DOPINS 

1EXPJ30 

1799  007400 

LIST 

1800 

1801 

1802 

1803 

180A 

1805  007400 

DOPINS 

EXPD,62, 

1864  007400 

LIST 

G  U 
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1866  007400  DOPINS  DROP J  04 

1907  007400  LIST 

1908 

1909 

1910 

1911  007400  DOPINS  TAKEJ14 

2149  007400  LIST 


APL006     MACRO 
DEFINITIONS 

2151   007A00 

2160  007A00 

2161 

2162 

2163 

2164 

2165 

2166  007400 

2204  007400 


Mil  13     08-FEB-80 
ERRORS 


09:33     PAGE  57 


MOPINS 


Tv: 


1REVJ46 
LIST 


MOPINS 


REVS, 144, T. DIM 
LIST 


117 
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2206  007A00  DOPINS  1R0TJA6 

2214  007400  LIST 

2215 

2216 

2217 

2218 

2219 

2220  007400  DOPINS  ROT, 144, T. DIM 

2328  007400  LIST 
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2330  007A00 
2A15  007A00 


PAGE  59 


MOP  INS  TRANJ26 
LIST 


K   1A 
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2A17  007400  DOPINS 

265A  007400 


■rT7 


TRAM, 126 
LIST 
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WK 


2656  007400 
2856  007400 


DOPINS 


ENCD,76 
LIST 


-TT 
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2858  007A00  DQPINS  DECD,6A 

2988  007400  LIST 


¥17" 


-_  _^ 
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2990  007A00  MOPINS  GDWN, 136,7. DIM 

3001  007A00  LIST 

3002 

3003 

3004  007400  MOPINS  GDUP J40,T.DIM 

3219  007400  LIST 


-^ 
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3221  007A00  MOPINS  MMD J  22 

3316  007400  LIST 


DlT 
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3318  007400  DOPINS  DMDJ22 


nr 

APL006  MACRO  Mil  13  08-FEB-80  09:33  PAGE  66 
DEFINITIONS     ERRORS 

386A  007400  LIST 
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3866  007A00  DOPINS  MEM, 70 

3921  007A00  LIST 


TT7 
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3923 
392A 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
393A 
3935 
3936 
3937 
3938 
3939 
3940 
39A1 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 


007400 


000000 
000004 
000010 
000012 
000016 
000032 
000036 
000040 
000044 
000046 
000052 
000054 
000056 
000064 
000070 
000072 
000074 
000076 
000100 
000106 
000114 
000122 
000136 
000144 
000152 
000160 
000162 
000164 
000166 
000172 


000176 
000202 

000206 
000210 
000212 
000216 
000222 
000224 

000226 
000234 
000242 
000246 
000250 
000252 
000256 
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MOPINS  NUB, 106 
.SBTTL  MIXED  FUNCTION 


GTT 


NUB  -  MONADIC  UP  U  -  ELIMINATE  DUPLICATES 


013704 
016400 
010002 
013703 


061600 

062620 
112720 
110310 
001003 
042765 
152720 
005020 
005020 
005702 
001476 
016337 
016337 
016337 

016337 
016337 
016337 
005046 
010001 
010200 
013702 
010137 


003120' 
000004 

003124' 


000001 


002000  1 1117  i^ 
000200        1$: 


OOOOOOG  005122* 
000054'  003160' 
000054'  003202' 

OOOOOOG  003176' 
OOOOOOG  003220' 
OOOOOOG  003152' 


003122' 
003140' 


NUB1 


MOV 

MOV 

MOV 

MOV 

ASH 

PUSH 

ADD 

CALL 

/.DD 

M0V8 

MOVB 

BNE 

BIC 

BISB 

CLR 

CLR 

TST 

BEQ 

MOV 

MOV 

MOV 

MUL 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 


M0N6LK,R4 

A.ALEN(R4),R0 

R0,R2 

M0NTYP,R3 

SIZTAB(R3),R0 

#A.DIMU2 

(SP), RO 

GETFRA 

(SP)+^(RO)+ 

<n,(RO)^ 

R3,(R0) 

1$  ...  

*T.NUM,SI.BITS(SI)  ;Yes,  Say  So 
/lfA.ASB,(RO)+      .-Indicate  Array 


POINT  TO  ARG 

GET  LENGTH 

COPY  IT 

Get  Arg  Type 

Compute  Result  Size 

Save  Offset/Header  Size 

ADD  IN  HEADER  SIZE 

Get  result,  SI  frame  for  it 

Add  Offset 

1  DIMENSION  ONLY 

LOAD  BITS 

Is  it  Character? 


(RO)^- 

(R0)  + 

R2 

DONE 

C0MCT(R3),C0MPTR 

LENTAB(R3),LARGFL 

LENTAB(R3),RARGFL 

LARGCT(R3),LARGCV 


NO  LENGTH  YET 

NO  DIM  SIZE  EITHER 

ANY  LENGTH? 

NO 

.•Compare  Routine 
.'Left  Arg  Increment 
.•Right  Arg,  Too 
.•Times  5  for  Lookup 
:  Left  Arg  Fetch 
Right  Arg  Fetch 


RARGCT(R3),RARGCV     ,   ..  ^...  ... 

RESCT(R3),RESCVT;Result  Store" 

-(SP)  .-SAVE  SP  WORD 

R0,R1         .-Initialize  Result  Pointer 

R2,R0         .-Set  Count 

M0NPTR,R2       .-POINT  TO  DATA 

R1,RESPTR       .-SAVE  POINTER  TO  START  OF  RESULT  DATA 


013703  003140' 


020301 
001406 


CLEAR  DUPLICATE  OUT  OF  LITTERAL  ARRAY 


CLROUT:  MOV 
CALL 


1$; 


001413 
000770 

013737  003200'  003154'  2$; 


104402 
005216 

000400 


3$; 


CMP 

BEQ 

CALL 

CALL 

BEQ 

BR 

MOV 

STF 

CALL 

SYSERR 

i.NC 

SOB 

BR 


R(:SPTR,R3 
aLARGCV 

R3,R1 

2$ 

aRARGCV 

aCOMPTR 

3$ 

1$ 

LARGVA.RESVAL 

AC1,AC0 

aRESCVT 

(SP) 

RO, CLROUT 

4$ 


POINT  TO  START  OF  RESULT 
Fetch  Left  Arg 

DONE  COMPARING? 

YES 

Fetch  Previous  Value 

Is  it  the  Same? 

YES 

TRY  SOME  MORE 


Copy  Arg 
Whatever  it  is 
Store  Result 
•••Impossible*** 
SAY  ONE  MORE  CHR 
TEST  ALL  CHRS 
FINISH  UP 


FOUND  FOR  RESULT 


000260  016500  177776 


CLEAN  UP  RESULT 
4$:     MOV     SI.VAL(SI),RO   ;POINT  TO  RESULT 
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imr 


3980 

3981 

3982 

3983 

3984 

3986 

3987 

3988 

3989 

3990 

3991 

3992 

3993 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 


000264 
000270 
000272 
000274 
000300 
000302 


062700  000004 
012010 
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UP  U  -  ELIMINATE 

DUPLICATES 

ADD 

/lfA.ALEN,RO 

; POINT  TO  LENGTH 

POP 

(RO) 

;L0AD  PROPER  LENGTH 

MOV 

(R0)^-,(R0) 

;AND  PROPER  OmSlZE 

DONE :   CALL 

CARVE 

; CARVE  UP  RESULT  VALUE 

RETURN 

;DONE 

LIST 

000302 

000302 
000310 
000314 
000316 
000322 
000324 
000326 
000330 
000334 
000342 
000350 
000354 
000356 

000362 
000366 
000370 
000372 
000376 
000404 
000410 
000416 
000424 
000430 
000432 

000436 
000442 


012737  000001  005066* 

010001 

013700  003166' 

010004 

001416 

011302 

013737  003200'  003154* 


104402 


013700  003210' 

001423 

060004 

013703  003206' 

013737  003150'  003160' 

013737  003222'  003154' 


104402 


000137  000712' 


DOPINS 

UNON,106 

.S8TTL 

MIXED  FUNCTION 

MOV 

<f1,0PTMP0 

CALL 

SETUP 

MOV 

R0,R1 

MOV 

LARGLN,RO 

MOV 

R0,R4 

BEQ 

3$ 

MOV 

(R3),R2 

1$; 

CALL 

aLARGCV 

MOV 

LARGVA.RESVAL 

STF 

AC1,AC0 

CALL 

aRESCVT 

SYSERR 

SOB 

ROJ$ 

3$: 

MOV 

RARGLN,RO 

BEQ 

8$ 

ADD 

R0,R4 

MOV 

RARGPT,R3 

MOV 

RESLEN.LARGFL 

4$: 

CALL 

aRARGCV 

MOV 

RARGVA,RESVAL 

STF 

AC2,AC0 

CALL 

aRESCVT 

SYSERR 

SOB 

R0,4$ 

8$: 

JMP 
LIST 

SET0P5 

000442 


000442 
000446 
000452 
000460 
000466 
000472 
000476 
000502 


DOPINS  INTR,66 
.SBTJL     MIXED  FUNCTION 


005037  005066' 

012737  000660'  005070' 

0^27Z7  000704'  005072' 

013700  003140' 

010037  003122' 

013703  003144' 


CLR  OPTMPO 

CALL  SETUP 

MOV  4fSETOP3,OPTMP1 

MOV  /ifSETOP4,OPTMP2 

CALL  SETOP 

MOV  RESPTR,RO 

MOV  RO^MONPTR 

MOV  RESTYP,R3 


UNION 

Mark  Us  the  Union 

Setup  the  fetch  parameters  and  get  some  core 
Copy  pointer  to  result  data 
Get  the  Length  of  the  Left  argument 
Copy  the  length 
The  Left  araument  1s  null 
Point  to  tne  Left  argument  data 
Copy  the  left  argument  to  the  result 
Move  the  left  argument  to  the  result 
Floating  point  too 
Store  it  into  the  result  array 
Impossible 
Loop  for  all  the  Left  argument  elements 

Get  the  length  of  the  Right  argument 

The  Right  argument  is  null 

Result  length  equals  s\jr\   of  argument  lengths 

Point  to  Right  argument  data 

Get  result  element  size 

Get  a  Right  argument  element 

Copy  its  value  to  the  result 

Floating  point  too 

Store  it  into  the  result  array 

Impossible 

Loop  for  all  the  Right  argument  elements 

Finish  up 


INTERSECTION 

;Mark  Us  as  Intersection 

.-Setup  argument  fetch  parameters  and 

; Setup  branch  targets  for  comparison 

;Go  do  the  intersection 
;Get  a  pointer  to  the  result  data 
;Copy  the  result  pointer  ,'or  NUB 
;Get  the  result  type 


result 
routine 
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TIT 


4039 

A040 

A0A2 

A0A3 

AOAA 

40A5 

4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 


000506 
000512 
000516 


013702  005076' 
000137  000100* 


MOV 

OPTMP4,R2 

;The  size  of  the  result 

JMP 

NUB1 

;Now  use  NUB  to  delete  duplicat 

LIST 

000516 


000516 
000524 
000530 
000536 


000544 
000546 
000550 
000552 
000556 
000560 
000564 
00566 
000572 
000574 
000600 
000606 
000612 
000616 
000620 
000624 
000632 
000636 
000642 
000644 
000650 
000654 

000660 
000666 
000674 
000700 
000702 

000704 
000710 

000712 
000716 
000722 
000726 
000732 
000736 


DOPINS 
.S8TTL 


SDIF,50 

MIXED  FUNCTION 


012737  ^77777     005066' 


012737 
012737 


010001 
011302 
005004 
005737 
001455 
005737 
001003 
005737 
001447 
013703 
013737 

013700 
001420 
013703 
013737 


001002 
000177 

000177 

013737 


104402 
005204 

005337 
003336 

013700 
010460 
010460 
010437 


000704'  005070' 
000660'  005072' 


SETOP: 


003166' 

005066' 

003210' 

003206'        1$: 
003216'  003202' 

SET0P1 
003210' 


003206' 
003216'  003202 


1$: 


005070' 
005072' 
003200'  003154'  SET0P3; 


003166' 


003136' 
000004 
000006 
005076' 


MOV 
CALL 
MOV 
MOV 


MOV 

MOV 

CLR 

TST 

BEQ 

TST 

BNE 

TST 

BEQ 

MOV 

MOV 

CALL 

MOV 

BEQ 

MOV 

MOV 

CALL 

CALL 

BNE 

JMP 

SOB 

JMP 

MOV 

STF 

CALL 

SYSERR 

INC 


SET0P4:  DEC 
B6T 

SET0P5;  MOV 
MOV 
MOV 
MOV 
CALL 
RETURN 


SET0P2; 


M'^ ,OPTMP0 
SETUP 

/JfSET0P4,0PTMP1 
/(fSET0P3,0PTMP2 


RO-RI 

(R3),R2 

R4 

LARGLN 

SET0P5 

OPTMPO 

1$ 

RARGLN 

SET0P5 

RARGPT,R3 

RARGLE^RARGFL 

aLARGCV 

RARGLN, RO 

SET0P3 

RARGPT,R3 

RAR6LE,RARGFL 

aRARGCV 

aCOMPTR 

1$ 

aOPTMPI 

R0,SETOP2 

aOPTMP2 

LARGVA.RESVAL 

ACUACO 

aRESCVT 

R4 

LARGLN 
SET0P1 

RESULT, RO 

R4,A.ALEN(R0) 

R4,A.DIM1(R0) 

R4,0PTMP4 

CARVE 


SET  DIFFERENCE 

;Mark  Us  as  Different 

; Setup  argument  fetch  parameters  and 

; Setup  branch  targets  for  comparison 


result 
routine 


Copy  the  result  pointer 

Point  to  the  Left  argument  data 

The  result  has  no  length  yet 

Is  the  Left  argument  null? 

Yes,  Then  the  Result  is  null 

Are  we  doing  Intersection? 

No 

Yes,  Is  the  Right  argument  null? 

Yes,  Then  the  Result  is  null 

Point  to  the  Right  argunent  data 

Get  the  Right  argument  element  size 

Get  the  next  Left  argument 

Get  length  of  Right  argument 

Right  Argument  is  null 

Point  to  the  Right  argument  data 

Get  the  Right  argument  element  size 

Get  a  Right  argument  element 

Are  the  Left  and  Right  argunents  the  same? 

No 

Yes,  Insect:  Copy  left  arg,  Diff:  Next  left  arg 

Then  loop  for  the  next  Right  argunent 

Insect:  Next  left  arg,  DiTf:  Copy  left  arg 

Copy  the  Left  argument  to  the  result 

Floating  point  type  too 

Store  it  into  the  result 

This  is  impossible 

One  more  element  in  the  result 


Loop  on  the 
Until  done 


Left  argument 


Get  pointer  to  result 
Fill  in  the  length  of 
And  the  dimension 
Save  the  result  size 
Carve  out  the  extra  space 
All  done 


block 

the  result 


from  the  result  blk 


This  routine  sets  up  the  argument  fetching  and  conversion  routines  for 
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TIT 


A097 
4098 
4099 


Union  and  Intersection.  It  also  creates  an  array  block  to  hold  the  result 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 


100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 


000740 
000744 
000750 
000754 
000756 
000760 
000762 
000764 
000766 
001000 
001002 
001004 
001006 
001010 
001012 
001014 
001020 
001022 
001024 
001026 
001030 
001032 
001036 
001044 
001052 
001060 
001062 
001064 
001066 
001070 
001076 
001100 
001106 
001110 
001112 
001114 
001122 
001126 
001132 
001136 
001142 
001144 
001150 
001152 
001166 
001172 
001176 
001202 
001206 
001212 
001216 
001220 
001226 
001232 


042700 
042701 
010002 
010104 
020001 
001423 
010003 

001001 
104417 
020100 
002402 
010102 
010004 
005737 
001404 
003002 
010004 
000401 
010204 
010437 
016437 
016437 
016237 
010203 
006303 
006303 
060300 
016037 
060301 
016137 
006302 
006302 
060402 
016237 
013703 
013704 
016300 
005737 
003402 
066400 
010002 


177771 
1 1777\ 


SETUP: 


005066* 


1$: 


2$ 


3$; 
003144*        4$; 
000044*  003146* 
000054*  003150* 
OOOOOOG  005122* 


OOOOOOG  003176* 
OOOOOOG  003220* 


OOOOOOG  003152' 

003162* 

003204* 

000004 

005066* 


000004 


6$; 


062700  000010 


010037 
062720 
112720 
113710 
001003 
042765 
1 52720 
005020 


003136* 
000010 
000001 
003144* 

002000 
000200 


1 7777  i. 


7% 


CALL 

BIC 

SIC 

MOV 

MOV 

CMP 

BEQ 

MOV 

MUL 

BNE 

DOMERR 

CMP 

BLT 

MOV 

MOV 

TST 

BEQ 

BGT 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

ASL 

ASL 

ADD 

MOV 

ADD 

MOV 

ASL 

ASL 

ADD 

MOV 

MOV 

MOV 

MOV 

TST 

BLE 

ADD 

MOV 

ASH 

ADD 

CALL 

MOV 

ADD 

M0V8 

MOVB 

BNE 

BIC 

BIS8 

CLR 


GETREG 

#*C<A.NUM>,RO 

**C<A.NUM>,R1 

R0,R2 

R1,R4 

R0,R1 

4$ 

R0,R3 

RUR3 

1$ 

R1,R0 

2$ 

R1,R2 

R0,R4 

OPTMPO 

4$ 

1% 

R0,R4 

4$ 

R2,R4 

R4,RESTYP 

SIZTAB(R4),RESSFT 

LENTAB(R4),RESLEN 

C0MCT(R2),C0MPTR 

R2,R3 

R3 

R3 

R3,R0 

LAR5CT(R0),LARGCV 

R3,K1 

RARGCT(R1),RARGCV 

R2 

R2 

R4,R2 

RESCT(R2),RESCVT 

LARGBL,R3 

RARGBL,R4 

A.ALEN(R3),R0 

OPTMPO 

6$ 

A.ALEN(R4),R0 

R0,R2 

RESSFT,RO 

/lfA.DIMl+2,R0 

GETFRA 

RO, RESULT 

*A.DIMU2,(R0)  + 

RESTYP,(RO) 
7$ 


Clear  out  garbage  bits  for  left  argument 

Clear  out  garbage  bits  for  right  argument 

Assume  the  left  argument  type  is  bigger 

Assume  the  right  argument  type  is  smaller 

Are  the  arguments  tne  same  type? 

Yes 

No,  Copy  the  Left  argument  type 

Are  both  argtments  numeric? 

Yes 

No,  Characters  and  numerics  don*t  mix 

Which  type  really  is  bigger? 

The  left  is  bigger 

The  right  is  bigger.  Get  the  compute  type 

Get  the  result  type  too 

What  are  we  doing? 

Intersection,  Use  the  smaller  type 

Union 

Difference,  Use  the  Left  type 

Union,  Use  the  bigger  type 
Store  the  result  tyjie 

Get  the  Shift  field  for  the  result 

Get  the  length  of  a  result  element 

Pointer  to  comparison  routine 

Copy  the  compute  type 

Get  the  pointer  to  the  result  store  rtn 

Compute  type  times  four 
plus  Left  type 

Point  to  left  argtment  fetch  routine 
plus  Right  type 

Point  to  right  argument  fetch  routine 

Compute  type  times  four 


4fA.ASB,(R0)* 
(RO)^- 


plus  Result  type 
.Point  to  result  store  routine 
Point  to  left  argument 
Point  to  right  argument 
Get  length  of  left  argument 
Doing  Union,  Intersection,  or  Difference? 
Diff.  or  Inter.,  Use  the  Left  argument  size 
Union,  Add  in  length  of  the  right  argunent 
Copy  the  result  length 
Multiply  by  the  result  element  size 
Add  in  header  overhead 
Get  result,  SI  frame  for  it 
Save  pointer  to  result  block 

Pointer  to  value 

Result  is  always  a  vector 

The  Bits 

It's  Numeric  so  SI  frame  is  Ok 


#T.NUM,SI.BITS(SI)  ;Fix  SI  frame  bits 


Make  it  an 
Don't  know 


array  block 
true  length  yet 
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41 5A  001234  005020 

4155  001236  005702 

4156  001240  001002 

4157  001242  062706  000002 

4158  001246  010037  003140'        8$: 

4159  001252 
4161  001254 


ITlT 


CLR 

(RO)^ 

TST 

R2 

BNE 

8$ 

ADD 

*2,SP 

MOV 

RO,RESPTR 

RETURN 

LIST 

;  Nor  dimension 

;8oth  arguments  null? 

;No,  Just  return 

;Yes,  junk  return  address  and  return 

;Sa\/e  pointer  to  result  value 
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TTT 


A163 
416A 
A165 
4166 
A167 
A168 
A169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 


001254 


001254 
001262 
001264 


001 264 


012737 
000402 


000001  005066* 


001264 
001270 
001274 
001302 
001306 
001310 
001312 
001314 
001316 
001320 
001322 
001324 


001324 


001324 
001332 
001334 


001334 


005037 
005037 
012737 

010402 
010304 
010203 
010102 
010001 
010200 
000414 


005066* 
005070' 
000001  005072* 


012737 
000402 


000001  005066* 


001334 
001340 
001344 
001 350 


005037 
005C37 
005037 


005066  * 
005070* 
005072* 


DOPINS  SCON, 234 
.S8TTL  MIXED  FUNCTION 


LEFT  U  -  STRICT  CONTAINMENT 


OP TMPC :  0  -  PossibLy  equal  set 
1  -  Proper  vet 

0PTMP1 :  0  -  First  tiTie  through  subset  test  code 
1  -  Second  t  me  through  subset  test  code 

0PTMP2:  0  -  Subset  function 

1  -  Containment  function 


MOV 

BR 

LIST 


#1,0PTMP0 
CONTNS 


; Setup  for  proper  containment 
;Now  go  do  it 


DOPINS  C0NT,112 
S8TTL  MIXED  FUNCTION 


UNDERSCORE  LEFT  U  -  CONTAINMENT 


RETURNS  A  1  IF  EVERY  ELEMENT  ON  RIGHT  IS  PRESENT  IN   LEFT  ARG. 
RETURNS  0  OTHERWISE. 


CLR 
CONTNS:  CLR 
MOV 
CONTNl:  CALL 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BR 
LIST 


OPTMPO 

OPTMPl 

*1,0PTMP2 

GETREG 

R4,R2 

R3,R4 

R2,R3 

R1,R2 

R0,R1 

R2,R0 

SUBST2 


; Setup  for  ordinary  containment 

.•Clear  cycle  flag 

.-Setup  for  containment  function 

.-Get  pointers  to  arguments 

.-Swap  pointers  to  arguments  around 

;So  a  common  subset  routine  can  be  used 

.-Swap  the  bits  too 


;Now  go  test  for  a  subset 


DOPINS  PSUB.236 
.S8TTL  MIXED  FUNCTION 

MOV     #1. OPTMPO 
BR      SUBSET 
LIST 


DOPINS  SUBS.116 
.S8TTL  MIXED  FUNCTION 


RIGHT  U  -  PROPER  SUBSET  OF 

.•Setup  for  proper  subset 
.-Now  go  do  it 


UNDERSCORE  RIGHT  U  -  SUBSET  OF 


RETURNS  1  IF  RIGHT  ARG  CONTAINS  LEFT  ARG.  ELSE  RETURNS  0 


SUBSET: 
SUBST1 : 


CLR 
CLR 
CLR 
CALL 


OPTMPO 
OPTMPl 
0PTMP2 
GETREG 


.•Setup  for  ordinary  subset  function 

.•Clear  cycle  flag 

.•Setup  for  subset  function 

.•Place  argument  pointers  and  bits  into  registers 
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TTTT 


A223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4259 
4260 
4261 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 


001354 
001360 
001364 
001366 
001370 
001372 
001374 
001402 
001404 
001406 
001414 
001422 
001424 
001426 
001434 
001442 
001446 
001450 
001454 
001456 
001460 
001462 
001466 
001470 

001472 
001476 
001502 
001504 

001510 
001514 
001516 
001524 

001526 
001532 
001534 
001540 
001542 
001546 
001550 
001556 
001560 
001564 
001566 

001570 
001572 
001600 
001604 
001606 
001612 
001614 

001620 
001624 


042700 
042701 
010002 
020102 
003401 
010102 
016237 
006302 
006302 
016037 
016137 
060201 
060200 
016037 
016137 

001450 

001457 
01 1 302 
011404 

011600 
010403 


001411 


005737 
001437 
012737 
000435 

005366 
003353 
005737 
001766 
005737 
001022 
012737 
022626 
005737 
001646 
000670 

005046 
012737 
005737 
001405 
005764 
001002 
005037 

012700 


1 77m 
1 7777\ 


OOOOOOG  005122' 


000054*  003160* 
000054'  003202' 


OOOOOOG  003176' 
OOOOOOG  003220' 


SUBST2:  BIC 
BIC 
MOV 
CMP 
BLE 
MOV 

1$:  MOV 
ASL 
ASL 
MOV 
MOV 
ADD 
ADD 
MOV 
MOV 
PUSH 
BEQ 
PUSH 
BEQ 
MOV 
MOV 

2$:     CALL 
MOV 
MOV 


3$; 


005070' 

000001  0C3154'  4$; 


000002 

005066' 

005070' 

000001  005070' 

005072 • 


5$: 


000001  003154' 
005066 ' 

000004 

003154' 

000012 


6$: 


7$: 
8$: 


CALL 
CALL 
BEQ 
SOB 

TST 
BEQ 
MOV 
BR 

DEC 
B6T 
TST 
BEQ 
TST 
BNE 
MOV 
CMP 
TST 
BEQ 
BR 

CLR 
MOV 
TST 
BEQ 
TST 
BNE 
CLR 

MOV 
CALL 


,R0 
,R1 


**C<A.NUM> 

*^C<A.NUM> 

R0,R2 

R1,R2 

1$ 

R1,R2 

C0MCT(R2), 

R2 

R2 

LENTA8(R0) 

LENTAB(RI) 

R2,R1 

R2,R0 

LARGCT(RO) 

RARGCT(RI) 

A.ALEN(R3) 

6S 

A.ALEN(R4) 

7$ 

(R3),R2 

alR4.R4 

aLARGCT 

(SP), RO 

R4,R3 

aRARGCV 
aCOMPTR 
5$ 
R0,3$ 

0PTMP1 
7$ 

#1,RESVAL 
8$ 


2$ 

OPTMPO 

4$ 

0PTMP1 

7$ 

^1,0PTMP1 

(SP)^-,(SP)  + 

0PTMP2 

C0NTN1 

SUBST1 

-(SP) 

*1,RESVAL 

OPTMPO 

8$ 

A.ALEN(R4) 

8$ 

RESVAL 

#A.DIM1+4,R0 
GETFRA 


; Clear  out  Garbage  Bits 
;Me  Too!  Me  Too! 
;Get  An  Arg 
;Who  IS  Larger? 

;The  one  we  guessed,  of  course 
;Get  the  Arg 
COMPTR  .-Compare  Routine 
; Times  2 
; Times  4 
AARGFL  ;Left  Increment 
,RARGFL  .-Right  Increment 
;2-Dimesional 
;  Lookups 
.LARGCV  .-Left  Fetch 
.RmRGCV  .-Right  Fetch 

Push  the  length  of  the  Left  argument 
The  Left  argunfient  is  the  Null  set 
Push  the  length  of  the  Right  argument 
The  right  argument  is  the  I'^ull  set 
Point  to  the  Left  argument 
Point  to  the  right  argument 
Get  Left  argument 
Reset  the  Right  argument  count 
Reset  the  right  argument  pointer 


Get  Right  argument 

Do  Compare 

Found  it 

Not  found  vet 

End  of  Right  argument 

Been  through  here  before? 

No 

Yes,  return  TRUE  value 

Go  finish  up 

End  of  the  Left  argument? 

No 

Yes,  Looking  for  a  proper  set? 

No 

Yes,  Been  through  subset  test  code? 

Yes 

No,  Then  set  cycle  flag 

Clear  counts  off  the  stack  for  second  run  thru 

Are  we  doing  a  Subset  or  Containment  function? 

Containment 

Subset,  Now  X.ry   it  the  other  way  around 

Left  argtment  is  Null 

So  we  have  something  to  pop  later 

Set  Result  to  'TRUE^ 

Looking  for  a  proper  set? 

No 

Yes,  Is  the  right  set  Null? 

No 

Yes,  Return  'TALSE"  value 

Get  size  of  Result  block 

Get  result  block  and  SI  frame  for  it 
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A280  001630  062720  000010 

A281  001 63A  012720  101001 

A282  001 6A0  012720  000001 

4283  001 6AA  012720  000001 

428A  001650  113720  0031 5A' 

A285  001 65A  022626 
A286  001656 
A288  001660 


ADD 

MOV 

MOV 

MOV 

M0V8 

CMP 

RETURN 

LIST 


TTlT 


^A.DIMU2,(R0)*  ;0ffset  to  data 
#<A.ASB+.BOOLEAN>*A00+1,(R0)^-   ;Result  is  Boolean  vector 


#1,(R0)* 
4rl,(R0)^ 
RESVAL,(RO)* 
(SP)*, (SP)+ 


A.ALEN 

A.DIM1 

Put  in  result  value 

Clean  counts  off  stack 

All  done 


B  16 
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4290  001660  MOPINS     EXE, 70 

4336  001660  LIST 


—^ 
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4338  001660  MOPINS  ENCD,76 

4A11  001660  LIST 
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4A13  001660  MOPINS  FMTJ60 

4A23  001660  LIST 

AA24 

4A25 

AA26 

4A27 

4^28 

4A29  001660  DOPINS  FMT,160 


D  16 


rr? 
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4953  001660  LIST 


rw 
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A955  001660  MOPINS  IBM /1 32,,, MONISM 

A958  001660  LIST 

4959 

A%0 

4961  001660  DOPINS  IBM, 132 

5046  001660  LIST 


G  16 
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50A8  001660 

MOPINS 

QUAD, 

74,T.NIL^'T.SP0P 

5075  001660 

LIST 

5076 

5077 

5078 

5079 

5080 

5081  001660 

DOPINS 

QUAD, 

74,T.NIL+T.SPOP 

5097  001660 

LIST 

5098 

5099 

5100 

5101 

5102 

5103  001660 

MOPINS 

QQAD, 

142,T.NIL+T.SP0P 

5135  001660 

LIST 

5136 

5137 

5138 

5139 

5140 

51A1  001660 

DOPINS 

QQAD, 

142,T.NIL^T.SP0P 

5152  001660 

LIST 

5153 

5154 

5155 

5156 

5157 

5158  001660 

MOPINS 

DQAD, 

134,T.NIL+T.SP0P 

5159 
5160 
5161  001660 

.SBTTL 

MIXED 

FUNCTION                     ( 

)EL  QUAD   INPUT 

PUSH 

INPTR 

;SAVE  CURRENT  INPUT  POINER 

5162  001664 

012737 

OOOOOOG  000064' 

MOV 

*6ETL,INPTR 

: INPUT  ALWAYS  COMES  FROM  KEYBOARD 

5163  001672 

CALL 

6ETLIN 

;GET  LINE  OF   INPUT 

5164  001676 

POP 

INPTR 

;RESTORE   INPUT  POINTER 

5165  001702 

010100 

MOV 

R1,R0 

;Copy  Pointer  past  the  end 

5166  001704 

162700 

003316' 

SUB 

/)fLBUFF,RO 

;       minus  Start  of  buffer 

5167  001710 

122741 

000015 

CMPB 

#CHR.CR,-(R1) 

; Previous  character  a  <CR>? 

5168  001714 

001001 

BNE 

1$ 

;Nope 

5169  001716 

005300 

DEC 

RO 

;Yes,  go  to  it 
:COPY  LEN 

5170  001720 

010002 

1$: 

MOV 

R0,R2 

517-:  001722 

062700 

000010 

ADD 

#A.DIMH-2,R0 

;6ET  BLOCK  SIZE 

3172  001726 

CALL 

GETFRA 

;AND  GET  THE  BLOCK 

5173  001732 

042765 

002000     1 7777 A 

BIC 

*T.NUM,SI.BITS(Sj 

[) 

5174 

•Clear  the  Ntmeric  Bit 

5175  001740 

062720 

000010 

ADD 

*A.DIMU2,(R0)>  ; 

:Add  OFFSET 

5176  001744 

012720 

10C001 

MOV 

4f<A.ASB+.CHARACTER>*400+1 ,  (RO)                                                                                               1 

5177 

•1   DIM,  NO  BIT 

5178  001750 

010220 

MOV 

R2,(R0)^-                 ; 

■LEN=:.':"  "~         '^. 

5179  001752 

010220 

MOV 

R2,(R0)+ 

•SAME  WI        FIKM    DIM 

5180  001754 

001415 

BEQ 

4$ 

•CHECK  FOK  EMPTY  ARRAY 

5181  001756 

5182 

5183  001762 

012701 

003316' 

MOV 

XfLBUFF,R1 

•POINT  TO  START  O*"   LINE  BUFFER 

112103 

2$: 

MOVB 

(R1)^-,R3 

•GET  CHAR 

5184  001764 

105737 

000403' 

TSTB 

TMODE 

•APL  MODE? 

5185  00U70 

001404 

BEQ 

3$ 

•YES,   SO  NO  TRANSLATION 

5186  001772 

042703 

1 77400 

BIC 

#<UPPER>,R3 

•Clear  upper  bits 
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H  16 


5187  001776 

116303 

OOOOOOG 

MOVB         TRNTAB(R3),R3       ;GET  TRANSLATED  CHARACTER 

5188  002002 

110320 

3$: 

M0V8         R3,(R0)*                 .-STORE  CHARACTER 

5189  00200A 

SOB           R2.2S                       ;ALL  OF    'EM 

5190  002010 

AS: 

RETURN 

5192  002012 

LIST 

5193 

519A 

5195 

5196  002012 

DOPINS 

DQADJ3A.T.NIL^T.SP0P,,DSQQAD 

5199  002012 

LIST 

I  16 
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5201  002012 

MOPINS 

BXAV,162,T.NIL 

5219  002012 

LIST 

5220 

5221 

522. 

5223 

5224 

5225  002012 

MOPINS 

BXCT,164,T.NIL^-T.SP0P 

5234  002012 

LIST 

5235 

5236 

5237  002012 

DOPINS 

BXCTJ64,T.NIL^T.SPOP 

5272  002012 

LIST 

5273 

5274 

5275 

5276 

5277 

5278  002012 

mPlNS 

BXI0J66,T.NIL+T.SP0P 

5287  002012 

LIST 

5288 

5289 

5290  002012 

DOPINS 

BXI0,166,T.NIL+T.SP0P 

5302  002012 

LIST 

5303 

5304 

5305 

5306 

5307  002012 

MOPINS 

BXLC,212,T.NIL 

5340  002012 

LIST 

5341 

5342 

5343 

5344 

5345 

5346 

5347  002012 

MOPINS 

BXPPJ70,T.NIL+T.SPOP 

5356  002012 

LIST 

5357 

5358 

5359  002012 

DOPINS 

BXPPJ70,T.NIL+T.SPOP 

5381  002012 

LIST 

5382 

5383 

5384 

5385 

5386 

5387 

5388  002012 

MOPINS 

BXPW,172,T.NIL+T.SPOP 

5397  002012 

LIST 

5398 

5399 

5400  002012 

DOPINS 

BXPWJ72,T.NIL+T.SP0P 

5417  002012 

LIST 

5418 

5419 

5420 
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5A21 

5A22 

5A23  002012 

MOPINS 

BXRLJ74,T.NIL+T.SP0P 

5A32  002012 

LIST 

5A33 

543A 

5A35  002012 

DOPINS 

BXRL,174,T.NIL^-T.SP0P 

5A47  002012 

LIST 

5A48 

54A9 

5  A  50 

5A51 

5A52 

5A53  002012 

MOPINS 

BXTS,200,T.NIL 

5562  002012 

LIST 

5563 

556A 

5565 

5566 

5567 

5568 

5569  002012 

MOPINS 

BXWA,176,T.NIL 

5592  002012 

LIST 

K  16 
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559A  002012  MOPINS  BXCR,206 

5716  002012  LIST 
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5718  002012  MOPINS  BXEX,202 

5775  002012  LIST 


L  16 
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MOP INS 


WTS' 


BXFX,210 
LIST 


B 

C 
D 
E 
F 
G 
H 
1 
J 
< 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
0 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 


APLOOA 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
4 
A 
A 
4 
4 
4 
4 
4 
4 
4 
4 

4 

/ 

H 

5 
5 
5 
5 
5 
5 
5 
5 


J  5 

E  ' 

ID 

K  5 

F  ' 

10 

L  5 

G  ' 

10 

M  5 

H  ' 

10 

N  5 

I  ' 

10 

B  6 

J  ' 

10 

C  6 

K  ' 

10 

D  6 

L  ' 

10 

E  6 

M  ' 

10 

F  6 

N  ' 

10 

G  6 

B  ' 

11 

H  6 

C  ' 

n 

I  6 

D  ' 

11 

J  6 

E  ■ 

11 

K  6 

F  " 

11 

L  6 

G  ' 

11 

M  6 

H  ' 

11 

N  6 

I  ' 

11 

B  7 

J  ■ 

11 

C  7 

K    ' 

11 

D  7 

L  ' 

11 

E  7 

M  ' 

11 

F   7 

N  ' 

11 

G  7 

B  ' 

12 

H  7  APL005 

C  ' 

\2 

I  7 

D  ' 

\2 

J  7 

E  ' 

\2 

K  7 

F  ' 

12 

L  7 

G  ' 

12 

M  7 

H  ' 

12 

N  7 

I  ' 

12 

B  8 

J  ' 

12 

C  8 

K  ' 

12 

D  8 

L  ' 

12 

E  8 

M  ' 

12 

F  8 

N  ' 

12 

G  8 

B  ' 

13 

H  8 

C  ' 

13 

I  8 

D  ' 

13 

J  8 

E  ' 

13 

K  8 

F  ' 

13 

L  8 

G  ' 

13 

M  8 

H  ' 

13 

N  8 

I  ' 

13 

B  9 

J  ' 

13 

C  9 

K  ' 

13 

D  9 

L  ' 

13 

E  9 

M  ' 

13 

F  9 

N  ' 

13 

G  9 

B  ' 

14 

H  9 

C  ' 

14 

I  9 

D  ' 

14 

J  9 

E  ' 

14 

<  9 

F  ' 

14 

L  9 

G  ' 

14 

M  9 

H  ' 

14 

N  9 

I  ' 

•4 

B  10 

J  ' 

14 

C  10 

K  ' 

14 

D  10 

L  ' 

14 

APL006 


M  14 
N  14 
B  15 
C  15 
D  15 
E  15 
F  15 
G  15 
H  15 
I  15 
J  15 
K  15 
L  15 
M  15 
N  15 
B  16 
C  16 
D  16 
E  16 
F  16 
6  16 
H  16 
I  16 
J  16 
V.  16 
L  16 
M  16 


B  1 
APL006  MACRO  Mil  13  08-FEB-80  09:33  PAGE  80 
MIXED  FUNCTION         DEL  QUAD  INPUT 

5881  002012  MOPINS  BXNC,204 

5950  002012  LIST 


j rr 


C  1 

APLOCu  MACRO  Ml  11 3 

08- 

-FEB-80  09 

:33 

PAGE  81 

MIXED  FUNCTION 

DEL 

QUAD 

INPUT 

5952  002012 

MOPINS 

BXNL. 

214 

5963  002012 

LIST 

5%A 

5965 

5%6  002012 

DOPINS 

BXNL. 

2\^ 

61 OA  002012 

LIST 

TT 


I 
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D  1 


6106  002012 

6330  002012 

6331 

6332 

6333 

633A 

6335 

6336  002012 

6A85  002012 


DOPINS 


FGETJ50,T.Dir« 
LIST 


DO.'^INS 


FPUTJ52,T.DIM 
LIST 


TT 


L 
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E     1 


A 

II 


6A87  002012 
6714  002012 


DOPINS 


FPNTJ54,T.DIM 
LIST 


APLQQ6     MAfRn  Mill?      Oa-FFR-Rn   OQ:??      PAGF    RL 


FT 
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F     1 


MIXED  FUNCTION 

DEL  QUAD   INPUT 

6716  002012 

MOPINS 

1SCNJ30 

6723  002012 

LIST 

6724 

6725 

6726  002012 

MCPINS 

SCAN, 62,1. DIM 

6732  002012 

LIST 

6733 

6734 

6735  002012 

MOPINS 

1RDT,124 

6741  002012 

LIST 

6742 

6743 

6^44  002012 

MOPINS 

RDCT,60,T.DIM 

7044  002012 

LIST 

Al 

ir 


"G~T 


t 
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G  1 

MIXED  FUNCTION 

DEL  QUAD  INPUT 

70A6  002012 

MOPINS 

GETIDN, 

0 

70A7 

.S8TTL 

GETIDN 

( 

:reate  identity  element  array 

70A8 

70A9 

;++ 

7050 

;  FUNCTIONAL  DESCRIPTIo.^ 

7051 

This  routine  crf-tes  .  < 

array  of  identity  elements  for  a  given 

7052 

scalar 

function.  It  IS  ( 

:alled  by  Reduction/Scan  and  Inner 

7053 

product 

■ 

705A 

7055 

;  INPUTS: 

7056 

R4 

-  Scalar  function  number                                        1 

7057 

0PTMP5 

-  The  reduction  ( 

dimension 

7058 

R1 

-  Number  of  elements  in  result 

7059 

R2 

-  Pointer  to  Left  or  only  argument 

7060 

R3 

-  Pointer  to  Right  argument  or  Zero 

7061 

;— — 

7062  002012 

.PSECT 

CODE 

7063 

706A  002012 

GETIDN: 

• 
• 

7065  002012 

PUSH 

<NUMLEN,R1,R2>  , 

jSave  identity  element  size  and  some  registers 

7066  002022 

012700 

005104' 

MOV 

#0PTMP7,R0 

;Point  to  temp  area  for  floating  identity 

7067  002026 

010002 

MOV 

R0,R2 

;Copy  the  pointer 

;Get  length  of  floating  point  numbers 

7068  002030 

013701 

000062 • 

MOV 

NUMLEN,R1 

7069  0O203A 

112720 

1 77777 

1$: 

M0V6 

#-1,(R0)+ 

; Create  biggest  negative  floating  point  number 

;Loop  for  the  whole  length 

;Assume  result  type  is  floating  point 

7070  002040 

SOB 

R1J$ 

7071  002044 

012737 

000006 

003144' 

MOV 

*. FLOAT, RESTYP 

7072  002052 

013737 

000052' 

003146' 

MOV 

PRECSN,RESSf-T   , 

;Get  result  shift  count 

7073  002060 

005704 

TST 

R4 

;Is  the  function  n'jmber  negative  i.e.  floating 

7074  002062 

100001 

BPL 

2$ 

;No 

7075  002064 

005404 

NEG 

R4 

;Yes,  Then  make  it  positive 

7076  002066 

022704 

OOOOOOG 

2$: 

CMP 

*0P.CEI,R4 

•Is  the  function  Ceiling? 

7077  002072 

001431 

BEQ 

4$ 

;Yes,  Then  use  largest  negative  number 

7078  002074 

042712 

100000 

BIC 

#100000, (R2) 

; Convert  identity  to  largest  positive  ncmber 

7079  002100 

022704 

OOOOOOG 

CMP 

/«)P.FLR,R4 

;Is  the  1  unction  Floor? 

7080  002104 

001424 

BEQ 

4$ 

;Yes,  Then  use  largest  floating  number 

7081  002106 

006204 

ASR 

R4 

; Convert  function  ncmber  to  word  pointer 

7082  002110 

116401 

0000006 

MOVB 

DYDBTL(R4),R1 

;Get  function's  bits 

7083  002114 

032701 

000040 

BIT 

*CS.IDN,R1 

;Does  the  function  have  an  identity? 

7084  002120 

001001 

BNE 

3$ 

;Yes,  Ok 

7085  002122 

104417 

DOMERR 

;No,  DOMAIN  Error 

7086  002124 

012737 

000002 

003144' 

3$: 

MOV 

#. BOOLEAN, RESTYp! 

; Result  type  is  Boolean  (i.e.  1  or  0) 

7087  002132 

005037 

003146' 

CLR 

RESSFT 

'Setup  result  shift  count 

7088  002136 

012766 

000001 

000004 

MOV 

#1.4(SP) 

•Setup  size  of  one  element 

7089  002144 

005012 

CLR 

(R^) 

•AssLine  identity  is  zero 

7090  002146 

032701 

000100 

BIT 

/(fCS.ONE,Rl 

;What  is  the  identity  really? 

7091  002152 

001401 

BEQ 

^$ 

•Zero,  Good  guess 

7092  002154 

005212 

INC 

iR2) 

•One 

7093 

7094  002156 

4$: 

POP 

R2 

•Restore  pointer  to  Left  argument 

7095  0O?160 

116204 

000002 

MOVB 

A.DIMS(R2),R4 

•Get  the  left  argtment's  rank 

7096  CJ^l64 

CONINC 

R4 

'In  case  of  a  scalar 

7097  002170 

PUSH 

R4 

'Save  it  for  result  rank 

7098  0O2U2 

005316 

DEC 

(SP) 

'Minus  one  for  deleted  dimension 

7099  002174 

005703 

TST 

R3 

'Is  there  a  right  argument? 

7100  002176 

001410 

BEQ 

5$ 

'(^0 

7101  002200 

116301 

000002 

MOVB 

A.DIMS(R3),R1 

•Yes,  Get  its  rank 

7102  002204 

CONINC 

R1 

■  In  case  of  a  scalar 

AF 
IN 


Iap 
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ITT 


APL006 
GETIDN 

7103 
71 OA 
7105 
7106 
7107 
7108 
7109 
7110 
7111 
7112 
7113 
71 1A 
7115 
7116 
7117 
7118 
7119 
7120 
7121 
7122 
7123 
71 2A 
7125 
7126 
7127 
7128 
7129 
7130 
7131 
7132 
7133 
71 3A 
7135 
7136 
7137 
7138 
7139 
71A0 
7141 

7K3 
7KA 
7U5 
7146 
7147 
7148 
7149 
7150 
7151 
7152 
7153 
7154 
715^ 
7156 
7157 
7158 
7159 


MACRO  Ml  113    08-FEB-80 

CREATE 


09:33     PAGE  85-1 
IDENTITY  ELEMENT  ARRAY 


H  1 


002210 
002212 
002214 
002220 
002222 
002224 
002226 
002232 
002236 
002240 
002242 
002246 
002250 

002254 
002256 

002262 

002266 
002270 
00?274 
00-2/6 
00*^302 

002306 


005301 
060116 
010137 


005066' 


016603  000004 


001410 
013701 
001405 
062703 

012320 


005066 • 
000010 


010301 
012702 
1 1 2220 


005104' 


DEC 

R1 

ADD 

R1,(SP) 

MOV 

R1,0PTMP0 

5$: 

POP 

R1 

PUSH 

R3 

PUSH 

R1 

MOV 

4(SP),R3 

CALL 

GETSPA 

POP 

R3 

BEQ 

11$ 

MOV 

0PTMP0,R1 

BEQ 

11$ 

ADD 

/(fA.DIMU2,R3 

10$: 

MOV 

(R3)^,(R0)+ 

SOB 

R1J0$ 

11$: 

POP 

<R4,R3> 

12$: 

MOV 

R3,R1 

MOV 

/;fOPTMP7,R2 

13$: 

M0V6 

(R2)+,(R0)+ 

SOB 

R1  J3$ 

SOB 

RhJ2$ 

Minus  one  for  deleted  dimension 

Total  result  rank 

Save  right  arqument  rank 

Save  the  result  rank 

Save  the  Right  argument  pointer 

Restore  the  result  rank 

Get  size  of  result 

Get  space  for  result  and  fill  in  header 

Are  we  reducing? 

Yes 

Are  there  any  right  dimensions? 

No,  Skip  copying  then 

Point  to  second  right  dimension 


;Copy  the  right  argument  dimension  list 
;Fast 

;Get  result  and  element  sizes 

;Copy  element  size 

;Get  pointer  to  identity  element 

;Copy  identity  element 

;Real  fast 

;Copy  all  the  elements 


RETURN 


FUNCTIONAL  DESCRIPTION: 

This  routine  gets  space  for  a  result  array  bloc^  .  '""eates  an  SI 
frame  for  it,  and  fills  in  the  header  part  including  the  dimension 
list.  It  fills  in  all  the  dimensions  of  a  simular  array  block 
except  a  specified  one.  It  is  currently  called  by  GETIDN,  Reduction, 
and  Inner  product. 


INPUTS 


002310 
002310 
002312 
002314 
002320 
002322 
002336 
002340 


010166 
010301 

102452 
011600 


^mm2 


Top  of 

SP  -  Rank  of 

R2 

-  Pointer 

R3 

-  Size  of 

R4 

-  Rank  of 

0PTMP5 

-  Pointer 

OUTPUTS : 

RO 

-  Pointer 

R3 

-  Size  of 

All  other  registers 

TSPA:: 

POP 

R1 

PUSH 

(SP) 

MOV 

R1,2(SP) 

MOV 

R3,R1 

ASH 

RESSFT,R1 

BVS 

5$ 

MOV 

(SP),RO 

result  (Popped  off  before  return) 

to  source  argument  (Left) 

result 

source  argument  (Left) 

to  source  argument  dimension  to  skip 


to  next 
result 


word  of  result  block 


Swap  return  address 
and  result  rank 
around 
Get  nLDber  of  elements  in  result 
in  bytes 

Too  big,  WS  full 
Get  result's  rank 
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I     1 


7160 
7161 
7162 
7163 
71 6A 
7165 
7166 
7167 
7168 
7169 
7170 
7171 
7172 
7173 
71 7A 
7175 
7176 
7177 
7178 
7179 
7180 
7181 
7182 
7183 
71 8A 
7185 
7186 
7187 
7188 
7189 
7190 
7191 
7193 


0O23A2 
0023A6 
002350 
00235A 
002356 
002360 
00236A 
002370 
002372 
002376 
002400 
002404 
002406 
002414 
002420 
002422 
002424 
002430 
002432 
002434 
002436 
002440 

002444 
002450 
002452 
00245^ 
002456 

002462 

002464 
002466 


006300 

062700  000006 

060100 

010037  003136* 

062610 

012037  003140' 

111620 

113710  003144' 

001003 

042765  002000  1 7777k 

1 52720  000200 

010320 

010320 

022627  000001 

003414 

005704 

001412 

005740 

062702 


020237 
001401 
011220 
C05722 


104403 


000006 
005  1 00' 


CONINC 

RO 

ASL 

RO 

ADD 

*A.DIM1,R0 

PUSH 

RO 

ADD 

R1,R0 

CALL 

GETFRA 

MOV 

RO, RESULT 

ADD 

(SP)+,(RO) 

MOV 

(RO)*,RESPTR 

Move 

(SP),(RO)-»- 

M0V8 

RESTYP,(RO) 

BNE 

1$ 

BIC 

/f^T.NUM^SI.BITS 

1$: 

BIS8 

/(fA.ASB,(RO)  + 

MOV 

R3,(R0)^- 

MOV 

R3,(R0)+ 

CMP 

(SP)+,^1 

BLE 

4$ 

TST 

R4 

BEQ 

4$ 

TST 

-(RO) 

ADD 

*A.DIM1,R2 

2$: 

CMP 

R2,OPTMP5 

BEQ 

3$ 

MOV 

(R2), (RO)* 

3$: 

TST 

{Kl)^ 

SOB 

R4,2$ 

4$: 

RETURN 

5S: 

WSFULL 
LIST 

In  case  of  a  scalar 

Number  of  bytes  in  dimension  list 

Overhead  of  array  block 

Save  offset 

Space  for  data 

Go  get  the  space 

Save  pointer  to  result  block 

Fill  in  result  header.  Pointer  to  data 

Save  pointer 

Rank 

Type 
. Is  It  numeric? 
(Si)  ;No,  Fixup  SI  frame  bits 
;Bits,  Array  block 
;AL  EN 

; Cheat  for  scalars  and  vectors 
;What  is  the  result  rank? 
;It's  a  Scalar  or  vector 
; Array,  Any  Left  argument  dimensions? 
;No 

;Back  un  result  dimension  list  pointer 
; Point  to  Left  argumr^nt  dimension  list 

;Is  this  the  dimension? 

;Yes,  Skip  it 

;Copy  this  dimension 

;Next  dimension 

;Loop  for  all  the  diemnsions 
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J  1 


APL006 
GETIDN 


MACRO  M1 1 


08-FE8-80  09:33  PAGE  86 

CREATE  IDENTITY  ELEMENT  ARRAY 


J  1 


7195  002466 
740A  002466 


MOP INS 


SATAN, 0 
LIST 


APL 
SYI** 

ND. 
ND. 
ND. 
ND. 
ND. 
ND. 
ND. 
ND. 
NEC 
NIN 
NI^ 
NIN 
NI^ 
NI^ 
NOT 
NOT 
NPF 
NUE 
NUL 

NJh 

fU* 
NJh 
NJh 
NLf 
NJh 
NJh 
NL> 
NU^ 
NJh 
NY  J 
N.E 
N.C 
N.C 
N.C 
N.C 
N.C 
N.E 
N.F 
N.F 
N.F 
N.F 
N.^ 
N.^ 
N.F 
N.S 
N.l 
CBL 
0C»" 

owe 

.   /> 

TAB 

DYD 
BOP 


ITT 
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APL 
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K  1 


7406  002466 
7A76  002466 


MOPINS 


0UTRJ56 
LIST 


APL 
SYMI 

MOM 
DYW 
COM 
CHR 
VTBI 
ASC 
OVR 
TRN 
MNTI 
MNTI 
CODI 
PAT 
$$F 
DEF 
DEFl 
DEF: 
ERRI 

VIR 

om 

ELA 
APLi 


T~T 


P 
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L  1 

GETIDN 

CREATE 

IDENTITY  [ 

ELEMENT 

ARRAY 

7478  002A66 

MOPINS 

DOUFER. 

,0 

7A79 

.S8TTL 

DOUTER 

f 

PERFORMS  THE  ACTUAL  mM\<   PRODUCT  OPERATION 

7480 

7481 

;  + 

7482 

;  Rout 

ine  to  do  Outer  product 

7483 

■  - 

7484  002466 

DOUTER : 

• 
• 

7485  002466 

013703 

003206' 

MOV 

RARGPT,R3 

( 

; POINT  TO  RIGHT  DATA 

7486  OC2472 

013700 

003210' 

MOV 

RARGLN,RO 

( 

;GET  LEN  OF  RIGHT 

7487 

7488  002476 

* 

1$: 

CALL 

aLARGCV 

4 

;GET  LEFT  .,.:  JE 

<^489  002502 

2$: 

CALL 

aRARGCV 

J 

;5ET  RIGHT  VALUE 

7490  002506 

CALL 

aDYDTAB(R4)     \ 

;CALL  OP  ROUTINE 

7491  002512 

CALL 

aRESCVT 

;SAVE  RESULT  OF  SCALAR  OP 

7492  002516 

000406 

BR 

3$ 

; ERROR  ON  OVERFLOW 

7493  002520 

SOB 

R0,2S 

;D0  NEXT  ELEMENT 

7494 

7495  002524 

005337 

003166' 

DEC 

LARGLN 

;END  OF  LEFT? 

7496  002530 

001356 

BNE 

DOUTER 

;NOi  DO  SOME  MORE 

7497  002532 

RETURN 

;AU  done 

7496 

7499  002534 

3$: 

CALL 

DYDEXP 

; EXPAND  RESULT 

7500  002540 

'1 63702 

003160' 

SUB 

LARGFL,R2 

;BACK  UP  LEFT  1  ELEMENT 

7501  002544 

163703 

003202 ' 

SUB 

RARGFL,R3 

;8ACK  UP  RIGHT  1  ELEMENT 

7502  002550 

000752 

BR 

1$ 

;AND  GO 

7504  002*^52 

LIST 

7505 

7506 

7507 

7508 

7509 

7510  002552 

MOPINS 

PRDSET, 

0 

7511 
7512 
7513 

1 

.S8TTL 

PRDSET 

SETUP  ROUTINE  FOR  INNER  AND  OUTER  PRODUCTS                | 

■+-f 

7514 

•  FUNCTION  DESCRIPTION: 

7515 

This  routine  sets  t 

jp  the 

argiment  parameters  and  routines  'or 
The  top  of  the  SI  is  assumed  to  point 

7516 

inner  and  outer  product. 

7517 

to  the 

Left  argument. 

7518 

;  INPUTS: 

7519 

R3  -  Pointer  to  Ri( 

ght  argument                                           1 

7520 

R4  -  (F 

light)  Function  number                                            1 

7521 

;  — 

7522  002552 

.PSECT 

CODE 

7523 

7524  002552 

f 

^RDSET: 

• 
• 

7525  002552 

052737 

100000 

004764' 

BIS 

*F.PRNT, FLAGS 

.'Enable  Printing 

7526  002560 

016502 

1 7777  f^ 

MOV 

SI.VAL(SI) 

,R2 

;Get  pointer  to  left  argtDent 

7527  002564 

010237 

003  V.2' 

MOV 

R2,LARGBL 

;Say/e  pointer  to  Left  argument  block 

7528  002570 

011237 

003-64' 

MOV 

(R2),LARGPT 

;And  pointer  to  value 

7529  002574 

116200 

OO'"  J03 

MOVB 

M.BITS(R2) 

,R0 

;Get  the  Left  argument's  bits 

7530  002600 

002071 

BGE 

2$ 

;Make  sure  it's  an  array 

7531  002602 

042700 

1  V771 

BIC 

#^C<A.NUM> 

,R0 

; Clear  garbage  bits 

7532  002606 

010037 

003170' 

MOV 

RO,LARGTY 

;Save  Left  argument's  type 

7533  002612 

016037 

000044 ' 

0031^2' 

MOV 

SIZTAB(RO) 

,LARGSf 

;Get  Left  argiment's  Shift  count 

7534  002620 

016037 

000054 • 

003:74' 

MOV 

LENTAB(RO) 

AARGLE 

;Get  Left  argument's  element  size 

7535  002626 

016037 

00C054 ' 

003160' 

MOV 

LENTAB(RO) 

,LARGFL 

;Get  Left  argument's  stride  constant 
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APL006 
PRDSET 

7536 
7537 
7538 
7539 
75A0 
75A1 
75A2 
7543 
7544 
7545 
7546 

7548 
7549 
7550 
7551 
7552 
7553 
7554 
7555 
7556 
7557 
7558 
7559 
7560 
7561 
7562 
7564 
7565 
7566 
7567 
7568 
7569 
7570 
7571 
7572 
7573 
7574 
7575 
7576 
7577 
7578 
7579 
7580 
7581 
7582 
7583 
7584 
7585 
7586 
7587 
7588 
7589 
7590 
7S91 
r592 
7593 
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SETUP  ROUTINE 


PAGE  88-1 
FOR  INNER 


W  1 


AND  OUTER  PRODUCTS 


.MA] 
TABL 


002634 
002640 
002644 
002650 
002652 
002656 
002662 
00^' ^0 
002l  ^ 
0O27tK 
002706 
002710 
002712 
002714 
002716 
002722 
002724 
002730 
002734 
002736 
002742 
002750 
002754 
002762 

002764 
002766 


002766 


002766 
002766 
002772 
002776 
003002 
003006 
003010 
003014 
003020 
003022 
003024 
003034 
003036 
003040 
003C42 
003046 


010337 
01 1 337 
116301 
002045 
042701 
010137 
016137 
016137 
016137 
010002 
020102 
003401 
010102 
006204 
116400 
006304 

010437 
010203 
063702 
016237 
063703 
016337 


104402 


003204 • 
003206* 
000003 

1 7777^ 
003212' 

000044'  003214' 
000054'  0C3?V'' 
000054'  01.202' 


OOOOOOG 


005116' 


1$: 


003170' 

OOOOOOG  003176' 
003212' 
OOOOOOG  003220' 


2$: 


MOV 

MOV 

MOVB 

BGE 

SIC 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BLE 

MOV 

ASR 

MOVB 

ASL 

CALL 

MOV 

MOV 

ADD 

MOV 

ADD 

MOV 

RETURN 

SYSERR 
LIST 


R3,RARGBL 

(R3),RARGPT 

A.BITS(R3), 

2$ 

#^C<A.NUM>, 

R1,RARGTY 

SIZTAB(RI), 

LENTAB(RI), 

LENTAB(RI), 

R0,R2 

R1,R2 

1$ 

R1,R2 

R^ 

DYDBTL(R4), 

R4 

CMPTRT 

R4,BLZBUB 

R2,R3 

LARGTY,R2 

LARGCT(R2), 

RARGTY,R3 

RARGCT(R3), 


R1 

R1 

RARGSF 
RARGLE 
RARGFL 


RO 


LARGCV 
RARGCV 


Save  pointer  to  Right  argument  block 

And  pointer  to  value 

Get  Right  argument's  bits 

Make  sure  "'t  s  an  array 

Clear  garbage  bits 

Save  Right  argument's  t)^pe 

Get  Right  argument's  shift  constant 

Get  Right  argument's  element  size 

Get  Right  argument's  stride  constant 

Assume  Left  type  larger 

Is  it? 

No,  Right  type  is 

Use  Right  type 

Adjust  function  numbe*"  to  byte  index 

Get  functions  type  bits 

Restore  function  ntmber 

Compute  (Right)  function  result  type 

Save  the  function  ni*nber 

Copy  intermediate  input  type 

Compute  fetch  table  index 

Get  Left  argument  fetch  routine 

Compute  fetch  table  index 

Get  Right  argument  fetch  routine 

All  setup  now 


;Argument  not  an  array  block 


MOPINS  INSPACO 
.S8TTL   INSPAC 


ALLOCATE  SPACE  FOR  INNER  PRODUCT 


116204 

116301 

060401 
162701 
022701 
003001 
104417 

OlO^u^ 
005303 
006303 
062703 
060203 


000002 
000002 


000002 
000020 


;  FUNCTIONAL  DESCRIPTION: 
;      This  routine  allocates  space 
function 

INSPAC:: 


1$: 


000006 


MOVB 

A.DIMS(R2),R4 

CONINC 

R4 

MOVB 

A.DIMS(R3),R1 

CONINC 

R1 

ADD 

R4,R1 

SUB 

/r2,R1 

CMP 

*DIMAX,R1 

BGT 

1$ 

DOMERR 

PUSH 

<OPTMP5,R2,?3> 

MOV 

R4,R3 

DEC 

R3 

ASL 

R3 

ADD 

#A.DIM1,R3 

ADD 

R2,R3 

for  the  result  of  the  inner  product 


GET  n   OF  DIMS  ON  LEFT 

FIXUP  IF  SCALAR 
GET  H   OF  DIMS  ON  RIGHT 

FIXLIP  IF  SCALAR 
GET  TOTAL 

MINUS  TWO  FOR  COflBINING  DIMENSIONS 
TOO  MANY  DIMS? 
NOPE 

ARGS  HAVE  TOO  MANY  DIMS 
Save  argument  pointers 
Copy  Lett  argument  rank 
Minus  one  for  combined  dimension 
Get  dimension  list  size  in  bytes 
Add  in  header  size 
Now  add  in  Le^t  argument  pointer 


APL006 
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INSPAC  ALLOCATE  SPACE  FOR  INNER  PRODUCT 


N  1 


APLC 
T^BL 


7594 
7595 
7596 
7597 
7598 
7599 
7600 
7601 
7602 
7603 
760A 
7605 
7606 
7607 
7608 
7609 
7610 
7612 


003050  010337  005100" 

003054  013703  005110' 

003060 

003074 

003100 

003104 

003106 

003116  116301  000002 

003122 

003126  062703  000010 

003132  005301 

003134  003403 


003136 
003140 

003144 
003146 


012320 


MOV 

R3,0PTMP5 

MOV 

0PTMP9,R3 

MUL 

0PTM10,R3 

PUSH 

<R3,R1> 

CALL 

GETSPA 

POP 

R4 

POP 

<R3,R2,OPTMP5> 

M0V8 

A.DIMS(R3),R1 

CONINC 

R1 

ADD 

#A.DIMU2,R3 

DEC 

Rl 

BLE 

3$ 

2$: 

MUV 

rR3)^-,(R0)  + 

S08 

R1,2$ 

3$: 

RETURN 
LIST 

Sau^  pointer  to  last  dimension 
GEi  LEFT  ITERATION  COUNT 
MULTIPLY  TO  GET  SIZE  OF  RESULT 
Save  the  ResuLt  size  and  rank 
Get  space  for  result  and  fill  in 
Get  tne  Result  size  back 
Restore  argument  pointers 
GET  /jf  OF  DIMS 

FIXUP  If   SCALAR 
SKIP  OVER  FIRST  DIM 
WE  SKIPPED  FIRST  DIM 
RIGHT  ARG  IS  VECTOR  OR  SCALAR 


;COPY  DIM  LIST  FROM  RIGHT  PART 


its  header 


;Done 
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INSPAC  ALLOCATE  SPACE  FOR  INNER  PRODUCT 


TT 


7614  003H6 


DOPINS     INN.'^,156 


1 


TT 


*  ^u     ^^^V^ 
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INSPAC  ALLOCATE  SPACE  FOR  INNER  PRODUCT 

7%0  0031 A6  LIST 


TT 

AQi  oAiL       MArnrv    Ml -1  1  7       rvO_rrD_OA    nn.tt       nA/'c    Ql 
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INSPAC  ALLOCATE  SPACE  FOR  INNER  PRODUCT 


"FT 


7%2  003H6 


MOPINS     SUBR,0 


TT 


r 


API  rw;     MAfon  miii^     nfi.rcD.fln  no.??     dahe  qo 


APL006 
INSPAC 


MACRO  Ml  113 


08-FEB-80  09:33  PAGE  92 
ALLOCATE  SPACE  FOR  INNER 


rr 


8725  003146 


PRODUCT 
LIST 


"TT 


r 


API  rWv  MAfpn  M111^  HA.PPn-An  oq-^t  dac^   q^ 


APL006 
INSPAC 


MACRO  Ml  113 


08-FEB-80  09:33  PAGE  93 
ALLOCATE  SPACE  FOR  INNER 


T7 


S7?7  0031 A6 
87?  1   003K6 


MOP INS 


PRODUCT 

RAND,0 
LIST 


D 


"TT 


f: 
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INSPAC  ALLOCATE  SPACE  FOR  INNER  PRODUCT 

1  000001  .END 


TT 


A 

Dl 


ITT 


f: 
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H  2 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRFRO= 

000135 

CS.ONE= 

000100 

DSSCON 

001254RG 

020  D.S(.«S= 

000006 

AC1   = 

X000001 

CHRLBR= 

000073 

CTEPS 

000^ ^2R 

025  DSSDIF 

0005 16RG 

020  D.TAKE= 

000002 

AC2   = 

X000002 

CHRLPR= 

000072 

CTMAX 

00C.i2R 

025 

D$S(.BS 

001334RG 

020  D.TRAN= 

000004 

AC3   = 

X000003 

CHRMNS= 

000137 

CTRMAX 

0001 72R 

025  DSUNON 

000302RG 

020  D.UNON= 

000006 

AC4   = 

XOOOOOA 

CHRMUL= 

000075 

C.ALOC= 

000162 

D.AND  = 

000000 

D.$MAX= 

000000 

ACS   = 

XOOOOOS 

CHRNEG= 

000100 

C.8L0K= 

000064 

D.8XCT= 

000007 

D.$MIN=  000000 

ALLINT 

00327AR 

025 

CHRPDL= 

000271 

C.8LSZ= 

000140 

D.8XI0= 

000007 

D.$MUL= 

000000 

ARYRET 

003276R 

025 

CHRPLU= 

000055 

C.BUFF= 

1 77760 

D.BXNL^ 

000007 

D.$PLU= 

000000 

ASCQUO=  0000A2 

CHRPWR= 

000120 

C.8UFL= 

1 77762 

D.BXPP^- 

000007 

D.SRES= 

000000 

A.ALEN= 

GOOOOA 

CHRQST= 

000121 

C.CCNT= 

1 77766 

D.BXPW= 

000007 

D.$S(R= 

000000 

A.ARG  = 

000040 

CHRQUO= 

000113 

C.CPTR= 

1 77764 

D.BXRL= 

000007 

D.1C0M=  000001 

A.ASB  = 

000200 

CHRRBR= 

000047 

C.CZ  = 

001000 

D.CIRC= 

000001 

D.I EXP= 

000002 

A.BITS= 

000003 

CHRRPR= 

000042 

C.DIG  = 

000040 

D.COWB= 

000001 

D.1R0T= 

000003 

A. CON  = 

000020 

CHRSEM= 

000074 

C.FASW= 

020000 

D.C0MP= 

000001 

EOICHR 

005063R 

025 

A.DIMS= 

000002 

CHRSMO= 

000112 

C.FLEN=  000010 

D.C0NT= 

000006 

EDICNT 

005064R 

025 

A.DIM1= 

000006 

CHRSPA= 

000040 

C.FLSH= 

004000 

D.CTLM= 

000000 

EDIFLG 

005062R 

025 

A.NUM  = 

000006 

CHRUPA= 

000131 

C.FRC  = 

000001 

D.DEAL= 

000003 

EDIT  = 

000003 

A.PTR  = 

000000 

CHR.BS= 

000010 

C.IDEN= 

000010 

D.DECD= 

000002 

EIS       = 

000000 

A.TMP  = 

000010 

CHR.CC= 

000003 

C.NAME= 

000102 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

BADDIR= 

104463 

CHR.CR= 

000015 

C.NOBF= 

000400 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

BADERR= 

104437 

CHR.CZ= 

000032 

C.NUM  = 

000020 

D.DQAD= 

1 77777 

EOF   = 

104475 

BLZWJR 

005116R 

025 

CHR.GT= 

000046 

COP  = 

000004 

D.DROP= 

000002 

ERRMAX= 

000166 

BRSELr 

00S046R 

025 

CHR.LF= 

000012 

C.OPN  = 

010000 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

CARVE  = 

**••*•  GX 

CHR.LT= 

000043 

C.RDLN= 

1 77776 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

CCNT 

0O5072R 

025 

CHR.SI= 

00001 7 

C.REWT= 

002000 

D.EXPD= 

000002 

ERRO 

004774R 

025 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C.RND  = 

000010 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C.S8JT= 

177756 

D.FMT  = 

000004 

E$CT 

005056R 

025 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C.SPFX= 

000100 

D.FPNT= 

000005 

E$PT 

005060R 

025 

C»WX)2 

00051 2R 

025 

CHR.UL= 

000106 

C . SPGL= 

000200 

D.FPUT= 

000005 

FA.APD= 

000100 

CHAN03 

000674R 

025 

CHR..A= 

000141 

C . SPLX= 

000001 

D.GE  = 

000000 

FA.CRE= 

000010 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C . SPRS= 

000002 

D.GT  = 

000000 

FA.DLK= 

001000 

CHANGS 

001240R 

025 

CHR ■ . 5~ 

000163 

C.SRC  = 

17777^ 

D.IBM  = 

000002 

FA.ENB= 

100000 

CHAN06 

001422R 

025 

CHR..T= 

000164 

C.SRCP= 

000024 

d.:nd  = 

000002 

FA.EXC= 

002000 

CHAN07 

001604R 

025 

CHR..U=  000165 

C.TT  = 

000004 

D.INNR= 

000013 

FA.EXT= 

000004 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

C.WIDC= 

1 77770 

D.INTR= 

000006 

FA.NSP= 

000100 

CHAN09 

0021 50R 

025 

CHR..0= 

000060 

L.WIDR= 

1 77772 

D.LE  = 

000000 

FA.NSR= 

000200 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DEBUG  = 

000000 

D.L06  = 

000001 

FA.POS= 

010000 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DEFERR= 

104405 

D.LT  = 

000000 

FA.RD  = 

000001 

CHAN12 

002676R 

025 

CLROUT 

0001 76R 

020 

DEVIL 

0051 14R 

025 

D.MAX  = 

000000 

FA.RWD= 

004000 

CHAN13 

000022R 

023 

C/>f)eUF 

003250R 

025 

DEVNTF= 

104470 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CHANU 

000204R 

023 

CMDf1AX= 

000010 

DIGITS 

000006R 

025 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHNOPN= 

104471 

CMPTRT= 

**••*♦  GX 

DIWAX  = 

000020 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHRAND= 

000051 

CNTSIZ 

005130R 

025 

DI/1BLK 

0031 12R 

025 

D.NE  = 

000000 

FA.WCK= 

020000 

CHRRFL= 

000007 

COMBIN 

005076R 

025 

DIMPTR 

0031 14R 

025 

D.NN  = 

000000 

FA.WRT= 

000002 

CHR8KR= 

000133 

COMCNT 

005126R 

025 

DIMTYP 

0031 i6R 

025 

D.NR  = 

000000 

FD.8LK= 

000010 

CHRBa= 

000200 

COMCT  = 

«***•*  GX 

DIRFUL= 

104466 

D.OR  = 

000000 

FD.CCL= 

000002 

CHRBOX= 

000114 

COMERR= 

104425 

D0(1ERR= 

104417 

D.PLUS= 

000000 

FD.COM=  020000 

CHRC«A= 

000054 

COMPTR 

005122R 

025 

DONE 

000274R 

020  D.PSUB= 

000006 

FD.CR  = 

000002 

CHRCOL= 

000076 

COMRTN 

0031 56R 

025 

DOUTER 

002466RG 

020  D.PWR  = 

000001 

FD.DIR= 

000010 

CHRDEL= 

000107 

COMSKP 

005124R 

025 

DPTERR= 

104416 

D.QQAD= 

000000 

FD.FTN= 

000001 

CHRDIV= 

000053 

CONTNS 

001270R 

020  DYD6TL= 

******  GX 

D.QUAD= 

000000 

FD.F11= 

040000 

CHRDLR= 

000176 

C0NTN1 

'~01302R 

020  DYDCNT 

003224R 

025 

D.RES  = 

000000 

FD.INS= 

000010 

CHRDIT= 

000110 

CORPTR 

tJ5120R 

025 

DYDEXP= 

*•**♦•  GX 

D.RHO  = 

000000 

FD.ISP= 

002000 

CHRDOT= 

000056 

CS.ASS= 

000200 

DYDTAB= 

******  GX 

D.ROT  = 

000003 

FD.MNTr 

100000 

CHREP  = 

000105 

CS.800= 

000010 

DSCONT 

001264RG 

020  D.SC0N= 

000006 

FD.0SP= 

004000 

CHRERR= 

104431 

CS.FLO= 

000020 

DSINTR 

000442RG 

020  D.SDIF= 

000006 

FD.PLC= 

000004 

CHRFIL= 

000)77 

CS.1DN= 

000040 

DSPSUB 

001324RG 

020  D.SUB  = 

000000 

FD.PRN= 

000004 

Af 
DE 


TT 


c 
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SYMBOL 

FABLE 

FD.PSE= 

010000 

-.BR  = 

000020 

F.STBK= 

000036 

LCOUNT 

0051 06R 

025  M.FIL  =  000177 

FD.RAH= 

000001 

•.CHR  = 

000075 

F.STK  = 

000022 

LENERR= 

104412 

M.FLR  =  ^77777 

FD.RAN= 

000002 

•.CNTG= 

000034 

F.STOP= 

000004 

LENTAB 

000054R 

025  M.FMT  =  000004 

FD.REC= 

000001 

•.CODE= 

000010 

F.STP  = 

000001 

LEXPTR 

0031 OOR 

025  M.6DUP=  000003 

FD.RVW=  000001 

■.DFNB= 

000046 

F . SUSP= 

000002 

LFTOP 

005066R 

025  M.6DWN=  000003 

FD.SDI= 

000020 

•.DSPT= 

000044 

F.TRC  = 

000002 

LINC 

0051 02R 

025  M.GETI=  000006 

FD.SQD= 

OOOOAO 

■.DVNM= 

000134 

F.UNIT= 

000136 

LINE 

00501 6R 

025  M.IBM  =  000003 

FD.TTY= 

000004 

•.EFe<= 

000010 

F.UR8D= 

000020 

LINING 

005026R 

025  M.IDN  =  000000 

FD.WBH= 

000002 

•.EFN  = 

000050 

F.VAL  = 

1 77776 

LISIZE= 

000020 

t^.lNSP=   000006 

FF.CHR= 

000005 

-.END  = 

002000 

F.VBN  = 

000064 

LI  TOP 

005072R 

025  M.I0TA=  000000 

FF.NV  = 

000003 

■.EnF)R= 

000032 

F . VBSZ= 

000060 

LNLNG  = 

104541 

M.LIT  =  000205 

FF.Pr€= 

000002 

•.ERR  = 

000052 

6ETFRA= 

****••  GX 

LOCLCT 

005036R 

025  M.LN  =  000001 

FF.FwD= 

000001 

•.FACC= 

000043 

GETJDN 

00201 2RG 

020  LOWCOR 

000002R 

025  M.MMD  =  000010 

FF.RWF= 

000006 

■.FFBY= 

000014 

GETL  = 

******  GX 

LSTERP 

004766R 

025  M.NEG  =  000000 

FF.SPC= 

000004 

■.FLAG= 

000002 

GETLIN= 

******  GX 

LWIDTH 

000070R 

025  M.NOT  =  000000 

F HE ADR 

00501 2R 

025  1 

".FLB  = 

000100 

GETREG= 

******  GX 

L.BITS= 

000003 

M.NUB  =  000006 

FHRET 

005040R 

025  1 

•.FNAM= 

000110 

GETSPA 

00231 ORG 

020  L.CNT  = 

000002 

M.NUM  =  000204 

FILNTF^ 

104467 

-.FNB  = 

000102 

GNOME 

0031 02R 

025  L.PRNT= 

000001 

M.0UTR=  000012 

FIS   = 

000000 

■.FNDF= 

000010 

HASHC 

0051 36R 

025  L.PTR  = 

000000 

M.PITM=  OOOOOJ 

FISCON= 

046000 

■.FTYP= 

000116 

HASHTB 

0051 40R 

025  L.PTR1= 

000004 

M.PRDS=  OOOOC 

FIXPTR 

003074R 

025  1 
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NAME  LIST 
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10 

11 


000000 
000000 
000115 

000000 
000000 
000000 

OOOOOA 

000000 


RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
FIS 
FPP 

II  II  II 
ooo 

FPPLEN 

=  4 

DEBUG 

=  0 

"FT 


;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

; SINGLE  PR^  'SION 

; DON'T  DISPLAY  REGISTERS  ON  ERRORS 


1 


C3 


APL007 
APLDEF 


1 
2 
3 
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r~T 


APLDEF 
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M.ru 


ft«Arrv/-\     ft«1  1  1  7         /NO^rr-^     or\     r\n.':t'7        r\A^t 


J  -i 


■TT 
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TT 


1 


4 
5 
6 
7 
8 
9 
10 
11 


.TITLE 
.IDENT 


APL007 
\V02.03\ 


THIS  IS  USED  WHEN  ASSEMBLING  APLQP  TO  DEFINE  A  NEW  OVERLAY  SEGMENT 
CONTAINING  OPERATOR  ROUTINES.      IN  THE   COMMON  DEFINITION  FILE, 
•OVROPR'    IS  DEFINED  AS  ZERO.      IF   IT  IS  OEflNEO  AS  ONE  BEFORE  APLOP 
IS  ASSEMBLED,   ONLY  THE   CODE   DESIGNATED  FOR  THE  OPERATOR  OVERLAY  IS 
ASSEMBLED.      THEREFORE,   THE   COMMAND  TO  ASSEMBLE  APL007  IS: 


APL007  <   APL007, APLOP 


000007 


0VR0PR=  7 


.•OVERLAY  SPECIFIED  OPERATORS 


lADI  nn7       MATDn    M111  7        nfi^CCCQA    no. 77        DAflC     /.x 
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T^ 


^ 


8 

9 

10 

11 

1A 
15 
16 
17 

18 
19 
24 
27 
12A 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
159 
160 
199 


007400 
007400 


FUNCTIONAL  DESCRIPTION: 

THIS  MODULE  CONTAINS  THE  CODE  FOR  MOST  APL  OPERATORS  WHICH 
HAVE  BEEN  IMPLEMENTED  SO  FAR.   TWO  MACROS  ARE  U  ED  TO  DEFINE 
OPERATOR  ROUTINES.   'DOPINS'  DEFINES   A  DYADIC  OPERATOR,  AND 
•MOPINS*  DEFINES  A  MONADIC  OPERATOR.  THE   ARGUMENTS  TO  THE 
MACROS  ARE  THE  NAME  OF  THE  OPERATOR  ROUTINE  AND  THE  OPERATOR 
NUMBER  FOR  THE  OPERATOR  (WHICH  CAN  BE  FOUND  BY  LOOKING  IN 
•VTAB*).   FOR  DYADIC  SCALAR  OPS,  THE  LEFT  ARG  IS  IN   AC1 ,  THE 
RIGHT  ARG  IS  IN  AC2,  AND  THE  RESULT  IS  RETURNED  IN  ACO.  FOR 
MONADIC  SCALAR  OPS,  THE  ARGUMENT  IS  IN   AC1,  AND  THE  RESULT 
IS  RETURNED  IN  ACO.   SCALAR  OPS  MUST  LEAVE  THEIR  ARGUMENTS 
INTACT! 


THESE  MACROS  ARE  FOR  OVERLAY  CODE.   THEY  ARE  USED  THE  SAME  AS 
RESIDENT  MACROS.   THE  DIFFERENCE  COMES  IN  THE  WAY  THEY  WORK.   THE 
•PRMRES'  MACRO,  FORCES  ALL  CODE  BETWEEN  IT  AND  THE  NEXT  MFTFVLIST* 
TO  NOT  BE  ASSEMBLED.   THE  'MOPINS'  AND  'DOPINS*  DON'T  PUT  ANYTHING  IN 
ANY  TABLES.  OTHER  THAN  THAT  THEY  WORK  BASICLY  THE  SAME  AS  THE  RESIDENT 
MACROS. 

.MACRO  DOPINS  NAME, NUM,BITS, BOZO, NOTME 

AlF         NDF  D.'NAME,  .ERROR  ;D.'NAME  IS  NOT  DEFINED  BY  OVROP! 

.IF  EQ  OVROPR-D.'NAME 

.PSECJ     CODE 
DS'NAME:: 
.ENDM 

.MACRO  MOPINS  NAME, NUM, BITS, BOZO, NOTME 

AlF         NDF  M.'NAME,  .ERROR  ;M.'NAME  IS  NOT  DEFINED  BY  OVROP! 

AF   EQ  OVROPR-M.'NAME 

.PSECT     CODE 

.IF  NE  NUM 
MS'NAME:: 
.ENDC 
.ENDM 

.MACRO  LIST 
.ENDC 
.ENDM 

.MACRO  PRMRES 

AF   EQ  1 
.ENDM 


PRMRES 


;***««**«««*  ASSEMBLING  THE  FILE!!!!! 


LIST 


G~T 


[ 
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201  007  ^0 

DOPINS 

PLUS,2,T.S0P,.INTEGER+CS.IDN+CS.ASS 

208  0O7h00 

LIST 

209 

210  007400 

DOPINS 

$PLU,-2 

224  007400 

LIST 

225 

226  007400 

DOPINS 

SUB,4,T.S0P,.INTEGER^-CS.IDN 

233  007400 

LIST 

234 

235  007400 

DOPINS 

$SUB,-4 

249  007400 

LIST 

250 

251 

252  007400 

DOPINS 

MUL,6,T.S0P,.INTEGER^CS.B00L-^CS.IDN+CS.0NE+CS.ASS 

264  007400 

LIST 

265 

266 

267  007400 

DOPINS 

$MUL,-6 

284  007400 

LIST 

285 

286  007400 

DOPINS 

DIVJ0,T.SOP,.FLOAT^■CS.BOOL■^CS.IDN+CS.ONE 

323  007400 

LIST 

324 

325 

326  007400 

DOPINS 

PWR,20,T.SOP,.FLOAT'^CS.BOOL-^CS.IDN-^CS.ONE 

392  007400 

LIST 

393 

394 

395  007400 

DOPINS 

LOG,54,T.SOP,.FLOAT+CS.BOOL 

417  007400 

LIST 

418 

419 

420  007400 

DOPINS 

CIRC, 52, T. SOP, .FLOAT 

477  007400 

LIST 

478 

479 

480  007400 

DOPINS 

MIN,14,T.S0P,.INTEGER*CS.B00LtCS.ASS 

490  007400 

LIST 

491 

492  007400 

DOPINS 

$WIN, -14 

516  007400 

LIST 

517 

518 

519  007400 

DOPINS 

MAX,16,T.S0P,.INTEGER^-CS.800L  +  CS.ASS 

529  007400 

LIST 

530 

531  007400 

DOPINS 

$WAX,-16 

555  007400 

LIST 

556 

557 

558  007400 

DOPINS 

RES,12,T.S0P,.INTEGER^CS.800L'^CS.IDN 

589  007400 

LIST 

590 

591 

592  007400 

DOPINS 

$RES,-12 

616  007400 

LIST 

617 

t 
t 


TT 


n 
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619  007400 

639  007400 
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DOPINS 


H  3 


A 
D 


COWB,22,T.SOP,.FLOAH'CS.BOOL+CS.IDN>CS.ONE 
LIST 
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6A1  007A00 

DOPINS 

AND,42,T.SOP,.BOOLEAN+CS.IDN+CS.ONE+CS.ASS 

652  007A00 

LIST 

653 

654 

655  007400 

DOPINS 

OR,40,T.S0P,.BOOLEAN+CS.IDN+CS.ASS 

662  007400 

LIST 

663 

664 

665  007400 

DOPINS 

NN, 46, T. SOP,. BOOLE AN 

676  007400 

LIST 

677 

678  007400 

DOPINS 

NR, 44, T. SOP,. BOOLE AN 

687  007400 

LIST 

688 

689 

690  007400 

DOPINS 

LT,24,T.LIT+T.SOP,.CHARACTER+CS.IDN 

700  007400 

LIST 

701 

702  007400 

DOPINS 

LE,26,T.LIT^"T.S0P,.CHARACTER+CS.IDN+CS.0NE 

712  007400 

LIST 

713 

714 

715  007400 

DOPINS 

EQ,30,T.LIT-»-T.SOP,.CHARACTER'^CS.IDN+CS.ONE 

733  007400 

LIST 

734 

735  007400 

DOPINS 

GE,36,T.LIT+T.SOP,.CHARACTER-^CS.IDN^-CS.ONE 

745  007400 

LIST 

746 

747 

748  007400 

DOPINS 

GT,32,T.LIT-^T.S0P,.CHARACTER+CS.IDN 

758  007400 

LIST 

759 

760 

761  007400 

DOPINS 

NE,34,T.LIT+T.S0P,.CHARACTER+CS.IDN 

780  007400 

LIST 

>81 
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783  007A00 

MOPINS 

FLRJ4,T.S0P,.INTEGER^-CS.B00L+CS.FL0AT,M$IDN 

786  007400 

LIST 

787 

788  007400 

MOPINS 

CEIJ6,T.S0P,.INTEGER+CS.800L+CS.FL0AT,M$IDN 

791  007400 

LIST 

792 

793  007400 

MOPINS 

IDN,2,T.S0P,.INTEGER+CS.B00L 

799  007400 

LIST 

800 

801 

802  007400 

MOPINS 

$IDN,-2 

808  007400 

LIST 

809 

810 

811  007400 

MOPINS 

$FLR,-14 

855  007400 

LIST 

856 

857 

858  007400 

MOPINS 

$CEi,-16 

868  007400 

wr 

869 

870 

871  007400 

MOPINS 

NE6,4,T.S0P,. INTEGER 

878  007400 

LIST 

879 

880  007400 

MOPINS 

$NEG,-4 

887  007400 

LIST 

888 

889 

890  007400 

MOPINS 

SIGN, 6, T. SOP,.  INTEGERS-OS. BOOL+CS. FLOAT 

901  007400 

LIST 

9C2 

903  007400 

MOPINS 

$SIG,-6 

914  007400 

LIST 

915 

916 

917  007400 

MOPINS 

RCIPJ0,T.SOP,.FL0AT+CS.BOOL 

928  007400 

LIST 

929 

930  007400 

MOPINS 

EXP, 20,T. SOP,. FLOAT 

939  007400 

LIST 

940 

941 

942  007400 

MOPINS 

LN,54,T.SOP,.FLOAT^CS.BOOL 

949  007400 

LIST 

950 

951 

952  007400 

MOPINS 

PITM, 52, T. SOP, .FLOAT 

959  007400 

LIST 

960 

961  007400 

PRMRES 

966  007^00 

LIST 

967 

968 

969  007^00 

MOPINS 

ABS,12,T.S0P,.INTEGERKS.800L 

977  007A00 

LIST 

978 

AF 
DE 
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979 

007400 

MOPINS 

SABS, 

-12 

992 

007400 

LIST 

993 

994 

995 

007400 

MOP INS 

FACT, 

22, 

1002 

007400 

LIST 

1003 

1004 

1005 

007400 

MOP INS 

NOT, 50 

1031 

007400 

LIST 

1032 

1033 

1034 

007400 

MOP INS 

ROLL, 

100 

1057 

007400 

LIST 

AP 
DE 


rr 
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AP 
DEI 


1059  007400 
1187  007400 


DOPINS 


DEAL  J  00 
LIST 
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1189  007400 

1211  007400 

1212 

1213 

1214 

1215 

1216 

1217  007400 

1313  007400 
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MOPINS 


ITT 


API 
DEF 


SNAP, 102 
LIST 


DOPINS 


RHOJ02 
LIST 
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1315  007AOO 

1325  007400 

1326 

1327 

1328 

1329 

1330 

1331  007A00 

15%  007400 
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MOPINS 


DOPINS 


¥^ 


APL 
DEF 


RAVL,56 
LIST 


CTLM,56,T.DIM 
LIST 
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1598  007400 

1632  007400 

1633 

1634 

1635 

1636 

1637 

1638  007400 

1699  007400 


MOP INS 


IOTA, 72 
LIST 


DOPINS 


IND, 72 
LIST 


1 


TT 
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1701   007A00 

1709  007400 

1710 

1711 

1712 

1713 

1714 

1715  007400 

1789  007400 
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DOPINS 


TT 


1C0MJ24 
LIST 


DOPINS 


COMP,60,T.DIM 
LIST 


1 


D^ 
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1791   007400 

DOPINS 

1EXPJ30 

1799  007400 

LIST 

1800 

1801 

1802 

1803 

1804 

1805  007400 

DOPINS 

EXPD,62, 

1864  007400 

LIST 

A  r»t    r\r\  "9         AM^ft^rs     AM^  ^  ^  f         r\a      r-  t-r\      an     /^/%.»"»         na/>^ 
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1866  007400 

1907  007400 

1908 

1909 

1910 

1911  007400 

2149  007400 
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DOPINS  DROP, 104 
LIST 


DOPINS  TAKE  J 14 
LIST 


"TT 
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2151   007400 

2160  007400 

2161 

2162 

2163 

2164 

2165 

2166  007400 

2204  007400 
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MOP INS 


F     4 


1REVJ46 
LIST 


MOP INS 


REVSJ44,T.DIM 
LIST 
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2206  007400 

221 A  007A00 

2215 

2216 

2217 

2218 

2219 

2220  007A00 

2328  007A00 
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DOPINS 


G    A 


1R0TJ46 
LIST 


DOPINS 


ROT, 144, T. DIM 
LIST 


TT 


r 
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2415  007400 
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MOPINS 


H  4 


IRAN J  26 
LIST 


TT 
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2A17  007400 
2654  007400 
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DOPINS 


T^ 


A 
D 


TRANJ26 
LIST 


u 
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2856  007400 
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DOPINS 


J     4 


Ai 
Dl 


ENCD,76 
LIST 


f: 
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DE 


2858  007A00 
2988  007400 


DOPINS 


DECD,64 
LIST 


r. 
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2990  007A00 

3001  007A00 

3002 

3003 

300A  007A00 

3219  007400 


AP 
DE 


MOPINS  6DWNJ36,T.DIM 
LIST 


MOPINS  GDUP, KG, T. DIM 
LIST 
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3221  007400 
3316  007400 
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MOPINS 
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API 
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MMDJ22 
LIST 
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3866  007A00 
3921  007A00 
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MEM, 70 
LIST 


1 


n 
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3986 
3987 
3988 
3989 
3990 
3991 
3992 
A022 
A023 
4024 
4025 
4026 
4027 
4028 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4161 


007400 
007400 
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MOPINS  NUB, 106 
LIST 


3~T 


007400 
007400 


DOPINS  UNONJ06 
LIST 


007400 
007400 


DOPINS  INTR,66 
LIST 


007400 
007400 


DOPINS  SDIF,50 
LIST 


TT 


rr 
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A163  0O7A0O  DOPINS  SCON, 234 

4179  007400  LIST 

4180 

4181 

4182  007400  DOPINS  C0NT,112 

4200  007400  LIST 

4201 

4202 

4203  007400  DOPINS  PSUB,236 

4209  007400  LIST 

4210 

4211 

4212  007400  DOPINS  SUBS  J 16 

4288  007400  LIST 


TT 


TT 
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4290  007A00  MOPINS  EXE, 70 

4336  007400  LIST 


ST 
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G^ 
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A413  007400 

MOPINS 

FMTJ60 

A423  007400 

LIST 

4424 

4425 

4426 

4427 

4428 

4429  007400 

DOPINS 

FMTJ6Q 

T-T 


r 
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4955  007400 

4958  007400 

4959 

4960 

4961   007400 

5046  007400 


ERRORS 


S 


MOPINS 


DOPINS 


I8MJ32,,,M0NIBM 
LIST 


I8MJ32 
LIST 


C 
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5048  007400 

MOPINS 

QUAD,74,T.NIL*T.SPOP 

5075 

007400 

LIST 

5076 

5077 

5078 

5079 

5080 

5081 

007400 

DOPINS 

0UAD,74,T.NIL^-T.SP0P 

5097  007A00 

LIST 

5098 

5099 

5100 

5101 

5102 

5103 

007400 

MOPINS 

QQADJ42,T.NIL+T.SPOP 

5135 

007400 

LIST 

5136 

5137 

5138 

5139 

5140 

5141 

007400 

DOPJNS 

QQADJ42,T.NIL^T.SPOP 

5152 

007400 

LIST 

5153 

5154 

5155 

5156 

5157 

5158 

007400 

MOPINS 

DQAD,134,T.NIL+T.SP0P 

5192 

007400 

LIST 

5193 

5194 

5195 

5196 

007400 

DOPINS 

DQADJ34,T.NIL+T.SPOP,,D$QQAD 

5199 

007400 

LIST 

s 


rr 


C 
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L  ? 

DEFINITIONS 

ERRORS 

5201  007400 

MOPINS 

BXAVJ62,T.NIL 

5202 

.S8TTL 

SYSTEM 

VARIABLE        i 

UOMIC  VECTOR 

5203 

5204  000000 

012700 

000410 

MOV 

*<A.DIMU2>+400,R0  .-LENGTH  OF  RESULT                                 1 

5205  000004 

CALL 

GETCOR 

;GET  MEMORY 

5206  000010 

SIFRAM 

,^T.VAL 

;BuUd  an  SI  frame 

5207  000022 

010010 

MOV 

RO,aRO 

jPOINT  TO  SELF 

5208  000024 

062720 

000010 

ADD 

#A.DiriU2,(R0)  + 

: POINT  TO  DATA  (TO  BE) 

5209  000030 

012720 

100001 

MOV 

/lf<A.ASB^'.CHARACTER>*400'H,(R0)+  ; CHARACTER  VECTOR                       1 

5210  000034 

012701 

000400 

MOV 

/ir400,R1 

; LENGTH 

5211  000040 

010120 

MOV 

R1,(R0)+ 

;ALEN 

5212  000042 

010120 

MOV 

R1,(R0)+ 

;DIM  1 

5213  000044 

005002 

CLR 

R2 

; CLEAR  CHAR  VAL 

5214  000046 

110220 

1$: 

M0V8 

R2,(R0)+ 

;MOVE  CHAR  TO  VECTOR 

5215  000050 

005202 

INC 

R2 

; INCREMENT 

5216  000052 

SOB 

R1JS 

;LOOP 

5217  000056 

RETURN 

5219  000060 

LIST 

5220 

5221 

5222 

5223 

5224 

5225  000060 

MOPINS 

BXCT, 164, T.NIL^T.SPOP 

5226 
5227 
5228  000060 

.S8TTL 

SYSTEM 

VARIABLE        ( 

:OMPARISON  TOLERANCE  OUTPUT 

012704 

000000* 

MOV 

#8XCT,R4 

;POINT  TO  DESCRIPTOR 

5229  000064 

CALLR 

SAME 

; COPY/RETURN 

5230 

5231  000000 

.PSECT 

TABLES 

5232  000000 

000142' 

107000  000001 

BXCT;: 

.WORD 

FUZZ,<A.ASB^-.FLOATM.TMP>*400.1J                                     \ 

000006 

000001 

5234  000010 

LIST 

5235 

5236 

5237  000010 

DOPINS 

BXCT, 164, T.NIL^T.SPOP 

5238 
5239 
5240  000070 

.S8TTL 

SYSTEM 

VARIABLE        ( 

:OMPARISON  TOLERANCE  INPUT 

012701 

000006 

MOV 

#. FLOAT, R1 

;UANT  FLOAT  VALUE 

5241  000074 

CALL 

GETSCA 

; CHECK  LENGTH,  CONVERT 

5242  000100 

LDF 

a(RO),ACO 

•GET  THE  VALUE 

5243  000110 

CFCC 

•CHECK  CONDITION  CODES 

5244  000114 

002475 

BLT 

1$ 

•THIS  NUMBER  IS  TOO  SMALL 

5245  000116 

CMPF 

CTMAX,ACO 

•CHECK  HOW  BIG  IT  IS 

5246  000126 

CFCC 

•CHECK  CONDITION  CODES 

5247  000132 

002466 

BLT 

IS 

•THIS  NkPBER   IS  TOO  BIG 

5248  000134 

STF 

ACO,FUZZ 

•THIS  NUMBER  IS  JUST  RIGHT 

5249  000144 

PUSH 

<R0,R1> 

Get  some  working  registers 
•Table  element  size 

5250  000150 

012700 

000010 

MOV 

#8.,R0 

5251  000154 

012701 

000152* 

MOV 

#CTEPS,R1 

•Point  to  constant  table 

5252  000160 

STF 

AC0,(R1) 

EPS  constant  for  positive  argunents  =  Fuzz 

5253  0001  f36 

060001 

ADD 

R0,R1 

Next  table  entry 

5254  000170 

LDF 

#*F1.0.AC3 
AC0,AC3 

•Get  a  floating  point  one 

5255  000200 

SUBF 

•1  -  BXCT 

5256  000206 

STF 

AC3,AC2 

•Copy  it 

•BXCT  /  (1  -  BXCT) 

5257  000214 

DIVF 

AC3,AC0 

5258  000222 

STF 

AC0,(R1) 

•EPS  constant  for  minus  args  =  BXCT/(1-BXCT) 

Al 
S^ 
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COMPARISON  TOLERANCE  INPUT 


M  5 


5259 
5260 
5261 
5262 
5263 
526A 
5265 
5266 
5267 
5268 
5269 
5270 
5272 
5273 
527A 
5275 
5276 
5277 
5278 
5279 
5280 
5281 
5282 
5283 
5284 
5285 

5287 
5288 
5289 
5290 
5291 
5292 
5293 
529A 
5295 
5296 
"297 
5298 
5299 
5300 
5302 
5303 
530A 
5305 
5306 
5307 
53A0 
53A1 
53A2 
5343 
5344 
5345 
5346 
5347 
5348 
5349 


000230 
000232 
000242 
000250 
000256 
000264 
000266 
000274 
000302 
000306 

000310 
000312 


060001 


060001 


104417 


1$: 


000312 


000312 
000316 

000010 
000010 
000016 
000020 


000020 


000322 
000326 
000332 
000336 
000342 
000346 
000354 
000364 
000366 


MOPINS 
.S8TTL 


012704  000010' 


000030'  105000  000001 
000001 


.PSECT 
BXIO:: 


DOPINS 
.S8TTL 


012701  000002 


1 1 7000 
042700 
010037 


000000 
1 7777 t 
000030 ' 


000366 
000366 


MOPINS 


000366 


MOPINS 
.SBTTL 


ADD 

LDF 

ADDF 

DIVF 

STF 

ADD 

DIVF 

STF 

POP 

RETURN 

DOMERR 
LIST 


R0,R1 

**F1.0.AC0 

AC0,AC2 

AC2,AC0 

AC0,(R1) 

R0-R1 

AC2,AC3 

AC3,(R1) 

<R1 ,R0> 


Next  table  entry 

Get  a  floating  point  one  again 

2  -  BXCT 

1  /  (2  -  BXCT) 

RMAX  constant  for  plus  args  =  1/(2-6XCT) 

Next  table  entry 

(1  -  BXCT)  /  (2  -  BXCT) 

RMAX  constant  for  minus  args  =(1-6XCT)/(2-BXCT) 

Restore  working  registers 

FINE' 

WRONGO 


BXI0J66,T.NIL^-T.SP0P 
SYSTEM  VARIABLE 


MOV 
CALLR 


#8X10, R4 
SAME 


INDEX  ORIGIN  INPUT 

;POINT  TO  FRAME 
; COPY/RE TURN 


TABLES 

.WORD   ORIGIN, <A.ASB+.BOOLEAN'»-A.TMP>*400J,1 

LIST 


BXIO, 166, T.NIL+T.SPOP 
SYSTEM  VARIABLE 


MOV 

CALL 

M0V8 

BIC 

MOV 

LDCIF 

STF 

RETURN 

LIST 


#. BOOLEAN, R1 

GETSCA 

a(RO),RO 

**C<1>,R0 

RO, ORIGIN 

RO.ACO 

ACO,FORIGN 


INDEX  ORIGIN  OUTPUT 

CONVERT  TO  BOOLEAN 
CHECK  SIZE/CONVERT 
GET  VALUE 

CLEAR  HIGH  GARBAGE 
STORE  ORIGIN 
CONVERT  TO  FLOAT 
SAVE  FLOATING  ORIGIN 


BXLC,212,T.NIL 
LIST 


BXPP,170,T.NIL^T.SPOP 
SYSTEM  VARIABLE 


PRINT  PRECISION  INPUT 


AF 
SY 
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N  5 

SYSTEM  VARIABLE 

PRINT  PRECISION  INPUT 

5350  000366 

01 2704 

000020' 

MOV 

/f8XPP,R4 

;POINT  TO  FRAME 

5351  000372 

5352 

5353  000020 

CALLR 

SAME 

; COPY/RETURN 

.PSECT 

TABLES 

5354  000020 

000006' 

106000  000001  BXPP:: 

.WORD 

DIGITS,<A.ASB+.INTEGER^-A.TMP>*400J  J 

000026 

000001 

5356  000030 

LIST 

5357 

5358 

5359  000030 

DOPINS 

BXPPJ70,T.NIL^-T.SPOP 

5360 
5361 
5362  000376 

.S8TTL 

SYSTEM 

VARIABLE        f 

3RINT  PRECISION  OUTPUT 

012701 

000004 

MOV 

#. INTEGER, R1 

; CONVERT  TO  INTEGER 

5363  000402 

CALL 

GETSCA 

; CHECK  LENGTH/CONVERT 

5364  000406 

017000 

000000 

MOV 

a(RO),RO 

;GET  THE   VmLUE 

5365  000412 

003433 

BLE 

3$ 

;T00  SMALL,  ERROR 

5366  000414 

012701 

000007 

MOV 

#7,R1 

;MAX  ALLOWED  IS  7   FOR  SINGLE  PREC 

5367  000420 

022737 

000010  000062' 

CMP 

*8.,NUMLEN 

;ARE  WE  DOUBLE  PRECISION? 

5368  000426 

001002 

BNE 

IS 

;N0,  MUST  BE  SINGLE 

5369  000430 

062701 

00001 2 

ADD 

4f10.,R1 

:MAK  IS  NOW  17. 

5370  000434 

020001 

1$: 

CMP 

R0,R1 

;HOW  BIG  IS  IT,  JOHNNIE? 

5371  000436 

003021 

BGT 

3$ 

;1J'S   SO  BIG  THAT... 

5372  000440 

010037 

000006' 

MOV 

RO, DIGITS 

;STORE  »   OF  DIGITS 

5373  000444 

LDF 

#*F5.0,AC0 

; COMPUTE  ROUND 

5374  000454 

2$: 

DIVF 

#*F10.0,AC0 

;DIVIDE  BY  10. 

5375  000464 

SOB 

R0,2$ 

;LOOP  FOR  ALL  DIGITS 

5376  000470 

STF 

ACO, ROUND 

rSAVE  ROUNDING  CONSTANT 

5377  000500 

5378 

5379  000502 

RETURN 

: RE  TURN 

104417 

3$: 

DOMERR 

;NOT  IN  VALID  RANGE 

5381  000504 

LIST 

5382 

5383 

5384 

5385 

5386 

5387 

5388  000504 

MOPJNS 

BXPW, 172, T.NIL^T.SPOP 

5389 

5390 

5391  000504 

.S8TTL 

SYSTEM 

VARIABLE        PRINT  WIDTH  OUTPUT 

012704 

000030' 

MOV 

/ir8XPW,R4 

■POINT  TO  FRAME 

5392  000510 

5393 

5394  000030 

CALLR 

SAME 

•COPY/RETURN 

.PSECT 

TABLES 

5395  000030 

000072' 

106000  000001   BXPW:: 

.WORD 

WIDTH,<A.ASB*.INTEGER>A.TMP>*400JJ 

000036 

000001 

5397  000040 

LIST 

5398 

5399 

5400  000040 

DOPJNS 

BX.'^J72,T.NIL^T.SPOP 

5401 
5402 
5403  000514 

.SBTTL 

SYSTEM 

VARIABLE        PRINT  WIDTH  INPUT 

012701 

000004 

MOV 

4f.  INTEGER, R1 

•CONVERT  TO  INTEGER 

5404  000520 

CALL 

GETSCA 

•CHECK  LENGTH/CONVERi 

5405  000524 

017000 

000000 

MOV 

a(R0),R0 

•GET  NEW  WIDTH 

540^  C00530 

022700 

000036 

CMP 

#*D30,R0 

•IS  IT  100  SMALL? 

540^  000534 

003012 

BGT 

IS 

•YES 

AP 
SY 
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B  6 

SYSTEM  VARIABLE 

PRINT  WIDTH  INPUT 

5408  000536 

022700 

000621 

CMP     #LBUFLN,RO 

;1S   IT  TOO  BIG? 

5409  000542 

002407 

BLT     1$ 

;YES 

S410  000544 

010037 

000072' 

MOV     RO, WIDTH 

;AHHH...  JUST  RIGHT 

5411  000550 

110037 

000250' 

MOVB    RO.CHANOO+C.WIDR. 

;TTY  RESET  WIDTH 

5412  000554 

110037 

000246' 

M0V8    RO,CHANOO+C.WIDC. 

;TTY  CURRENT  WIDTH 

5413  000560 

RETURN 

; FINISHED 

5414 

5415  000562 

104417 

1$: 

DOMERR 

;***ERROR*** 

5417  000564 

LIST 

5418 

5419 

5420 

5421 

5422 

5423  000564 

MOPINS 

BXRL, 174, T.NIL+T.SPOP 

5424 
5425 
5426  000564 

.S8TTL 

SYSTEM  VARIABLE        RA;>)DOM  LINK  INPUT                                     | 

012704 

000040' 

MOV     /l«XRL,R4 

•POINT  TO  FRAME 

5427  000570 

5428 

5429  000040 

CALLR   SAME 

•COPY/RETURN 

.PSECT 

TABLES 

5430  000040 

003062' 

106000  000001 

BXRL:; 

.WORD   RANDY,<A.ASB+.INTE6ER+A.TMP>*400J,1                                  1 

000046 

000001 

5432  000050 

LIST 

5433 

5434 

5435  000050 

DOPJNS 

BXRL, 174, T.NIL+T.SPOP 

5436 

.S8TTL 

SYSTEM  VARIABLE        RANDOM  LINK  OUTPUT                                     1 

5437 

5438  000574 

012701 

000004 

MOV     #. INTEGER, R1 

•CONVERT  TO  INTEGER 

5439  000600 

CALL    GETSCA 

■CHECK  LENGTH/CONVERT 

5440  000604 

017000 

000000 

MOV     a(RO),RO 

•GET  THE  VALUE 

5^.41  000610 

003403 

BLE     1$ 

•TOO  SMALL,  ERROR 

54^*2  000612 

010037 

003062 ' 

MOV     RO, RANDY 

•STORE  NEW  RANDOM  SEED 

5443  000616 

5444 

5445  000620 

RETURN 

•RETURN 

104417 

1$: 

DOMERR 

NOT  IN  VALID  RANGE 

5447  000622 

LIST 

5448 

5449 

5450 

5451 

5452 

5453  000622 

MOPINS 

BXTS,200,T.NIL 

5454 
5455 
5457  000622 

.S8TTL 

SYSTEM  VARIABLE        TIME  STAMP 

012700 

000030 

MOV     #A.DIMU18.,R0  ; 

Total  size  of  hacked  Time  Stamp 

5461  000626 

CALL    GETFRA         ; 

Get  an'thmentic  frame 

5462  000632 

062720 

000010 

ADD     *A.DIMU2.,(R0)*; 

Point  to  data 

5463  000636 

012720 

102001 

MOV     #<A.ASB^. INTEGER) 

►♦400^1,  (RO* 

5464 

Integer  Vector 
Length  7.  words 

5465  000642 

012720 

000007 

MOV     *7.,(R0)+      ; 

5466  000646 

012720 

000007 

MOV     #7.,(R0)^      ; 

Also  1st  dim 

5467  000652 

010002 

MOV    R0,R2         ; 

Save  for  later 

5469  000654 

GTIM$S  RO            ; 

Get  the  time 

000654 

010046 

MOV     RO,-(SP) 

000656 

012746 

MOV     (PC)^,-(SP) 

APL007  MACRO  Ml  113  08-FEB-80  09:37 
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5A70 
5A71 
5A72 
5473 
5A7A 
5554 
5555 
5562 
5563 
5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
5572 
5573 
5574 
5575 
5576 
5577 
5578 
5579 
5587 
5588 
5589 
5590 
5592 


000660 
000662 
000664 
000670 
000674 
000710 
000724 
000730 

000732 


075  002 
104377 

062712  003554 

01620C  000014 


010062  000014 


.BYTE 

EMT 

ADD 

MOV 

MUL 

DIV 

MOV 

RETURN 

LIST 


61., 2 

^0<377> 

#1900., (R2) 

12.(R2),R0 

ff^OOO.,RQ 

14.(R2).R0 

R0J2.(R2) 


;Time  has  centuries,  too 
;Get  the  tick 
;MultipLy  for  MiUisec 
;Di\/ide  by  ticks/Sec 
;Put  in  the  Millisecond 
; Finished 


000732 


000732 
000736 
000742 
000746 
000752 
000756 
000762 
000766 
000772 
001000 
001006 
001014 
001016 


MOPINS 
.SBTTL 


BXWAJ76,T.NIL 
SYSTEM  VARIABLE 


WORKSPACE  AVAILABLE 


012700 
063700 

062720 
012720 
012720 
012720 


000010 
000062 • 

000010 
103000 
000001 
000001 


MOV 

ADD 

CALL 

ADD 

MOV 

MOV 

MOV 

CALL 

LDCIF 

ADDF 

STF 

RETURN 

LIST 


#<A.DIMU2>,R0  ;Space  for  array  block  header 
NUMLEN,RO      ;Its  only  a  floating  point  scalar 
GETFRA         ;Get  result,  SI  frame  for  it 
#A.DIMU2,(R0)^'  ;  Pointer  to  the  data 
#<A.ASB^.FLOAT>*400,(R0)-^  ;Bits  and  Rank 


#1,(R0)^ 

#1,(R0)^ 

SCAMEM 

R1,AC0 

AC0,AC0 

AC0,(R0) 


ALEN 

DIM1 
Now  Scan  memory  tor  free  space 
Convert  number  of  free  words  to  floating 
Get  it  in  bytes 
Put  it  into  Result 


n 


D  6 
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D  6 


5594  001016 

5595 

5596 

5597  001016 

5598  001022 

5599  001030 

5600  001032 

5601  001 OAO 

5602  001 0A2 

5603  001046 

5604  001050 
001050 
001052 
001054 

5605  001056 

5606  001062 

5607  001070 

5608  001072 

5609  001076 

5610  001100 

5611  001102 

5612  001106 

5613  001110 

5614  001112 

5615  001114 

5616  001122 

5617  001124 

5618  001132 

5619  001134 

5620  001136 

5621  001140 
5622 

5623  001142 

5624 

5625  001144 

5626 

5627 

5628 

5629 

5630  001146 

5631  001152 

5632  001156 

5633  001162 

5634  001166 

5635  001172 

5636  001174 

5637  001200 

5638  001204 

5639  001210 

5640  001214 

5641  001220 

5642  001224 

5643  001232 

5644  001236 

5645  001244 

5646  001246 

5647  001250 


MOPINS 
.S8TTL 


BXCR,206 
SYSTEM  FUNCTION 


CANONICAL  REPRESENTATION 


013701 
1 32761 
001044 
122761 
002441 
016103 
011104 

005303 
002430 
1 1 2402 
042702 
132762 
001421 

005703 
002403 

002012 
011001 
001410 
032761 
001404 
132761 
001405 
005003 
005004 
000476 

104417 

104411 


003120' 
000006  000003 

000001  000002 

000004 


1 77400 

00001 0  OOOOOOG 


MOV 

BITS 

BNE 

CMPB 

BLT 

MOV 

MOV 

GETC 

DEC  R3 

BLT  2$ 

MOVB  (R4)+,R2 


M0NBLK,R1 

/!fA.NUM,A.BITS(Rl) 

3$ 

*1.,A.DIMS(R1) 

4$ 

A.ALEN(R1),R3 

(R1),R4 

2$ 


;N0, 


040000  000002 
000004  000003 


2$ 


3$ 


BIC 

BITS 

BEQ 

CALL 

TST 

BLT 

CALL 

BGE 

MOV 

BEO 

BIT 

BEQ 

BITS 

BEQ 

CLR 

CLR 

BR 

DOMERR 


/lf<UPPER>,R2 

#C.IDEN,CHRTAB(R2) 

2$ 

SYMBOL 

R3 

1$ 

GETNB2 

2$ 

(R0),R1 

2$ 

#S.FLB,2.(R1) 

2$ 

/«fF.L0C,R.BITS(R1) 

5$ 

R3 

R4 

9$ 


4$;     RANERR 

•f 

After  all  that  checking,  we  now 
function  that  we  can  convert  to 


;Point  to  data  block 

Is  It  character? 
;No,  DOMAIN  ERROR 

Vector  or  scalar? 
;No,  RANK  ERROR 

Get  the  character  count 
and  the  data  pointer 
:Get  the  1st  character 
;ANY  CHARACTERS  LEFT? 
BRANCH  TO  2$ 

YES,  GET  NEXT  CHAR 
: Clear  the  upper  bits 

Is  it  an  identifier? 
;Nope.  is  illegal  name 

Is  it  in  the  symbol  table? 
;Any  chars  left? 
;Nope 
;Any  non-blank  characters  left? 

Yes 

;Pcint  to  the  item 
; Nothing  there 

Is  it  a  Function? 
:Nope 

Is  it  locked? 
;No,  is  ok 
;No  lines  here 
;None  at  all 

Go 

Domain  error 
;Rank  Error 


010137 
012702 

010237 
012700 


012702 
012700 

062720 
012720 
012762 
010062 
012762 
005003 
005004 
016262 


005012' 
003060 ' 

005052' 
000011 


003060 • 
001004 

000004 
100000 
010000 
1 77760 
001000 


know  that 
Canonical 


we  have  an  APL 
Form.  Do  it  I 


5$: 


6$; 


177756 
1 771 tl 


1 77760  1 77764  7$ : 


MOV  R1,FHEADR 

MOV  *CHANEX,R2 

PUSH  OCHAN 

MOV  R2,0CHAN 

MOV  #<-C.SBIT>/2,R0 

PUSH  -(R2) 

SOB  R0,6$ 

MOV  #CHANEX,R2 

MOV  #516., RO 

CALL  6ETFRA 

ADD  /r4.,(R0)^ 

MOV  #S.ASB,(RO)^ 

MOV  #C.0PN,C.SBIT(R2) 

MOV  R0,C.BUFF(R2) 

MOV  #512.,C.BUFL(R2) 

CLR  R3 

CLR  R4 

MOV  C.8UFF(R2),C.CPTR(R2) 


Save  the  pointer  to  the  header 

Point  to  the  execute  channel 

Save  output  channel 

Use  Execute  Channel 

Loop  counter 

Push  execute  channel  info 

Loop  for  all 

Pointer  to  Execute  channel 

Temporary  space  for  lines 

Get  a  frame,  put  it  on  the  SI 

Point  to  data  space 

Indicate  array 

Set  the  BITS  field 

C.8UFF 

C.BUFL 

Maximum  line  width 

Count  of  #  of  lines 

Copy  C.8UFF  to  C.CPTR 


TT 
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E  6 


56A8 

56A9 

5650 

5651 

5652 

5653 

565A 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

566A 

5665 

5666 

5667 

5668 

5669 

5670 

5671 

5672 

5673 

5674 

5675 

5676 

5677 

5678 

5679 

5680 

5681 

5682 

5683 

5684 

5685 

5686 

5687 

5688 

5689 

5690 

5691 

5692 

5693 

5694 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

5704 


001256 
001264 
001270 
001274 
001300 
001304 
001310 
001312 
001314 
001316 
001320 
001324 
001330 


016262  177762  177766 
005062  177772 
005062  177770 

016200  177764 

166200  177760 

020003 

002401 

010003 

005204 

016101  000006 

020137  005012' 

001347 


8$: 


MOV 

C.BUFL(R2),C.CCNT(R2) 

CLR 

C.WIDR(R2) 

CLR 

C.WIDC(R2) 

CALL 

FLNLST 

MOV 

C.CPTR(R2),R0 

SUB 

C.BUFF(R2),R0 

CMP 

R0,R3 

BLT 

8$ 

MOV 

R0,R3 

INC 

R4 

MOV 

R.NEXT(R1),R1 

CMP 

RI^FHEADR 

BNE 

7$ 

001332 
001336 
001340 
001352 
001354 
001356 
001362 
001366 
001370 
001402 
001404 
001410 

001414 
001416 
001420 
001422 
001424 
001430 
001432 
001440 
001444 
001452 
001460 
001464 
001470 
001474 
001500 
001504 
001510 
001516 
001520 
001524 
001530 
001532 
001536 
001542 
001546 
001552 


103505 
010300 
062700 

000477 

010010 
062720 
012720 

010320 

010420 
010320 
005760 
001455 
016062 
010062 
016262 
016262 
005062 
005062 

060362 
160362 
016200 
166262 
002005 
112720 
005262 
002773 
016101 

062702 
012700 


000012 


000012 
100002 


1 77772 

1 77772 
1 77760 
1 77760 
177762 
1 77772 
1 7777^ 

1 77760 
1 777 t2 
1 77764 
1 77760 

000040 
1 77764 

000006 

177756 
00001 1 


Now  that  we  know  the  #  of  lines  and 
we  wUl  delete  the  temporary  space, 
and  comtinue 


Copy  C.8UFL  to  C.CCNT 
Clear  C.WIDR 
and  C.UIDC 
List  the  line 
Get  the  Data  pointer 

minus  the  start  pointer 
Largest  line  yet? 
Nope 

Yes,  ge  new  large  size 
Increraent  line  count 
Point  to  the  next  line 
Is  it  the  beginning? 
No,  continue  to  loop 


the  maximtm  line  width, 

compute  the  amount  of  space  needed. 


1 777 t2 

1 77764 
1 77766 


1 77764 


CALL  KILL 

9$ :     PUSH  R3 

MUL  R4,R3 

BCS  15$ 

MOV  R3,R0 

ADD  /lfA.DIMU4.,R0 

CALL  6ETC01 

BR  15$ 

SIFRAM  ,/«rT.VAL 

MOV  R0,(R0) 

ADD  *A.DIMU4.,(R0)  + 

MOV  H<A . ASB^ . CHARAC  TER>*400 

MOV  R3,(R0)^ 

POP  R3 

MOV  R4,(R0)^' 

MOV  R3,(R0)* 

TST  -6.(R0) 

BEQ  1 7$ 

MOV  -6.(R0),C.BUFL(R2) 

MOV  R0,C.BUFF(R2) 

10$:    MOV  C.8UFF(R2),C.CPTR(R2) 

MOV  C.BUFL(R2),C.CCNT(R2) 

CLR  C.WIDR(R2) 

CLR  C.WIDC(R?) 

CALL  FLNLST 

ADD  R3,C.BUFF(R2) 

SUB  R3,C.BUFL(R2) 

MOV  C.CPTR(R2),R0 

SUB  C.8UFF(R2),C.CPTR(R2) 

B6E  1 2$ 

11$:    MOVB  #CHRSPA,(RO)* 

INC  C.CPTR(R2) 

BLT  11$ 

12$:    MOV  R.NEXT(R1),R1 

SOB  R4,10$ 

13$:    ADD  #C.SBIT,R2 

MOV  #<-C.SBIT>/2,R0 

14$:    POP  (R2)+ 


; Delete  the  temporar)^  space 
;Save  the  max  line  width 
; Compute  the  space  needed 
; Over flow,  error 
.-Copy  the  amount 
;Add  the  amount  of  overhead 
;Ask  for  the  space 
; Sorry,  we  ain't  got  that  much 
; Standard  frame  for  character 
; Point  to  self 
;Point  to  beginning  of  data 
>2.,(R0)^ 

Character,  2  dimensions 

A.ALEN 

Get  back  the  max  line  width 

*  of  lines 

Maximum  line  width 

Anything  there? 

Nothing  there,  finished 

Get  the  buffer  size 

Set  the  buffer  pointer 

Copy  C.8UFF  to  C.CPTR 

Copy  C.BUFL  to  C.CCNT 

Clear  C.WIDR 
and  C.UIDC 

List  the  line 

Increment  buffer  pointer 
and  decrement  count 

Copy  the  pointer 

Compute  -<Fill  Count> 

None  needed 


Copy  in  fill 
Loop  until 
Finished 
Point  to  the 
Loop  for  all 
Point  to  start 
Loop  count 
Restore  the  execute 


next  line 
the  lines 
for  execute 


channel 
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F  6 


5705  001 55A 

5706  001560 

5707  001 56A 
5708 

5709 
5710 

5711  001566  012766  001576'  000024 

5712  001574  000762 
5713 

5714  001576  104403 
5716  001600 


SOB 
POP 
RETURN 


17$: 

;  + 

;  Error  handling 


R0J4$ 
OCHAN 


15$: 
16$: 


MOV 
BR 

WSFULL 
LIST 


#16$,2.-C.SBIT(SP) 
13$ 


channel 
Restore  the  output  channel 
Finished! 


.•Change  the  return  address 
and  go 


.•Workspace  full 


I  •  »x  ^^^K  -^ 


TT 
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SYSTEM  FUNCTION 

CANONICAL  REPRESENTATION 

5718  001600 

MOPINS 

BXEX,202 

5719 

.S8TTL 

SYSTEM 

FUNCTION        EXPUNGE 

5720 

5721  001600 

013702 

003120* 

MOV 

M0NBLK,R2 

;Point  to  data  block 

5722  001604 

132762 

000006  000003 

BIT8 

*A.NUM,A.BITS(R2) 

;Is  It  character? 

5723  001612 

001113 

BNE 

7$ 

;No,  IS  DOMAIN  ERROR 

5724  001614 

016201 

000006 

MOV 

A.DIM1(R2),R1 

;6et  length  of  vector 

5725  001620 

012700 

000001 

MOV 

*1.,R0 

;(We  are  assuming  a  vector) 
;WelU  IS  it  one? 

5726  001624 

122762 

000002  000002 

CMPB 

*2.,A.DIMS(R2) 

5727  001632 

003005 

BGT 

1$ 

;Yes,  It's  true,  it's  true 

5728  001634 

002503 

BLT 

8$ 

;No,  is  RANK  ERROR 

5729  001636 

016200 

000006 

MOV 

A.DIM1(R2),R0 

;Get  the  tt  of  names  to  scan 

5730  001642 

016201 

000010 

MOV 

A.DIMU2(R2),R1 

and  the  length  of  each  line 

5731  001646 

1$: 

PUSH 

<R1 ,R0> 

;Save  the  values  for  the  loop 

5732  001652 

012737 

OOOOOOG  003152' 

MOV 

*SM.R8,RESCVT 

;Save  the  store  convert  routine 

5733  001660 

062700 

000010 

ADD 

/rA.DIMU2.,R0 

;Add  in  overhead 

5734  001664 

CALL 

GETFRA 

;Build  the  frame 

5735  001670 

062720 

000010 

ADD 

*A.DIMU2.,(R0)^ 

;Point  to  data  area 

5736  001674 

116220 

000002 

M0V8 

A.DIMS(R2),(R0)+ 

;Move  in  the  result  size 

5737  001700 

001402 

BEQ 

2$ 

; Special  if  source  is  scalar 

5738  001702 

105360 

1 77777 

DECS 

-l.(RO) 

; Otherwise  reduce  rank  by  1 

5/39  001706 

112720 

000202 

2$: 

M0V8 

#A.ASB+.BOOLEAN,(R0)+ 

.•Specify  the  result  type 

5740  001712 

011620 

MOV 

(SP), (RO)^ 

;A.ALEN 

5741  001714 

011620 

MOV 

(SP),(RO)+ 

;A.DIM1 

5742  001716 

001446 

BEQ 

6$ 

; Nothing  there,  already  finished 

5743  001720 

010001 

MOV 

R0,R1 

;Copy  pointer  into  result  pointer 

5744  001722 

5745 

5746  001726 

PUSH 

MONPTR 

;Get  pointer  to  source  data 

016603 

000004 

3$: 

MOV 

4.(SP),R3 

;Get  size  of  a  line 

5747  001 /S2 

011604 

MOV 

(SP), R4 

.-Pointer  to  next  string  element 

5748  001/34 

060316 

ADD 

R3,(SP) 

.•Increment  pointer 

5749  001  /i6 

005037 

003154' 

CLR 

RESVAL 

.'AssLine  we'll  fail 

5750  001742 

GETC 

5$ 

;Get  the  1st  character 

001742 

005303 

DEC  R3 

;ANY  CHARACTERS  LEFT? 

001744 

002425 

BLT  5$ 

;N0.  BRAi 

^CH  TO  5$ 

001746 

112402 

M0V8  (R4)-^.R2 

;YES,  GET  NEXT  CHAR 

5751  001750 

042702 

177400 

BIC 

*<UPPER>,R2 

; Clear  out  qarbage  bits 
;Is  it  a  valid  cnaracter? 

5752  001754 

132762 

000010  OOOOOOG 

BITS 

/lfC.IDEN,CHRTAB(R2) 

5753  001762 

001416 

BEQ 

5$ 

;No,  must  be  an  error 

5754  001764 

PUSH 

R1 

;Save  result  pointer 

5755  001766 

CALL 

SYMBOL 

; Lookup  the  symbol  name 

5756  OOV/2 

POP 

Rl 

.•Restore  pointer 

5757  001774 

005703 

TST 

R3 

.•ANYTHING  LEFT? 

5758  001776 

002403 

BLT 

4$ 

;NOPE 

5759  002000 

CALL 

GETNB2 

;Any  non-blank  characters  left? 

5760  002004 

002005 

BGE 

5$ 

;Yes,  error 

5761  002006 

4$: 

CALL 

ERASE 

; Erase  (Expunge)  the  item 

5762  002012 

001002 

BNE 

5$ 

;It  appears  to  have  failed 

5763  002014 

005237 

003154' 

INC 

RESVAL 

.•Indicate  success 

5764  002020 

5$. 

CALL 

aRESCVT 

; Store  the  result 

5765  002024 

104402 

SYSERR 

; Should  never  happen 

5766  002026 

005366 

000002 

DEC 

2.(SP) 

; Decrement  loop  count 
;Loop  until  exhausted 

5767  002032 

5768 

5769  002034 

003335 

BGT 

3$ 

062706 

000006 

6$; 

ADD 

*6.,SP 

;Pop  garbage  from  the  stack 

5770  002040 
5771 

RETURN 

.•Finished 

I      A  rS.4 


r 
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5772  0020A2     10AA17 

5773  0020AA     10AA11 
5775  002046 
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7$: 
8$: 


H     6 


DOMERR 
RANERR 
LIST 


AfM  r^/^'7       ftAA^rsz-N    »m^  ^  ^  f 


AO     r  rr>     ar\     r\n  .  "W^        r>A^r     "sr* 
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r 
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SYSTEM  FUNCTION 

EXPUNGE 

5777  0020A6 

MOPINS 

BXFX,210 

5778 
5779 
5780  0020A6 

.S8TTL 

SYSTEM 

FUNCTION        ?IX 

FUNCTION 

01 3702 

003120' 

MOV 

M0NBLK,R2 

;Point  to  data  block 

5781  002052 

132762 

000006 

000003 

BITS 

*<A.NUM>,A.BITS(R2) 

;Is  it  numeric? 

5782  002060 

001052 

BNE 

1$ 

;Yes,  DOMAIN  ERROR 

5783  002062 

122762 

000002 

000002 

CMP8 

*2.,A.DIMS(R2) 

;Must  ha\/e  rank  =  2 

578A  002070 

001047 

BNE 

2$ 

;Nope,  RANK  ERROR 

5785  002072 

012700 

000012 

MOV 

*A.DIMU4.,R0 

; Integer  Scalar 

5786  002076 

CALL 

GETFRA 

.-Build  an  SI  Frame 

5787  002102 

062720 

000010 

ADD 

/;rA.DIM1+2.,(R0)^- 

:Add  in  offset 

5788  002106 

012720 

102000 

MOV 

#<A.ASB^.INTEGER>*400,(RO)+ 

5789 

.•Integer  Scalar 
.•A.ALEN 

5790  002112 

012720 

000001 

MOV 

#1,(R0)+ 

5791  002116 

012720 

000001 

MOV 

/IfU(RO)^ 

;A.DIM1 

5792  002122 

013710 

000030* 

MOV 

ORIGIN, (RO) 

.-The  Line  with  the  error  is 

5793  002126 

010037 

005072 • 

MOV 

R0,0PTMP2 

.'Save  address  for  increment 

579A 

;  + 

5795 

;  Set-UD  finished,  now  we  scan  the  header  Line 

5796 

;- 

5797  002132 

016237 

000006 

005074 ' 

MOV 

A.DIM1(R2),0PTMP3 

;Get  the  *  of  lines 

5798  002U0 

003424 

BLE 

3$ 

;Too  Small,  Error 

5799  0021 A2 

016201 

000010 

MOV 

A.DIMU2(R2),R1 

;6et  the  length  of  a  line 
;Too  Small,  Error 

5800  002U6 

003421 

BLE 

3$ 

5801  002150 

010137 

005076 ' 

MOV 

R1,0PTMP4 

.•Save  it  for  later 

5802  0021 5A 

011200 

MOV 

(R2) ,R0 

.•Pointer  to  data 

5803  002156 

010037 

005100' 

MOV 

R0,OPTMP5 

;Sav/e  this,  too,  for  later 

5804  002162 

005037 

005044 ' 

CLR 

FNINSI 

.•Assume  not  on  SI 

5805  002166 

005037 

005012' 

CLR 

FHEADR 

.-New  definition 

5806  002172 

005037 

005016' 

CLR 

LINE 

.•Clear  the  line  number 

5807  002176 

CALL 

FNHEAD 

.•Parse  the  header  line 

5808  002202 

000404 

BR 

4$ 

i^rror   -  is  pre-defined  or  somethi 

ng 

5809  00220A 

000426 

BR 

5$ 

;Not  defined,  OK 

J 

5810 

5811  002206 

104417 

1$: 

DOMERR 

.•Domain  ^rror 

5812  002210 

104411 

2$: 

RANERR 

;Rank  Error 

5813  002212 

104412 

3$: 

LENERR 

.•Length  Error 

58U 

;•♦■ 

5815 

;  VaLue 

IS  pre- 

•defined,  check  for  function 

5816 

•  — 

5817  002214 

103513 

4$: 

BCS 

11$ 

;8ad  definition  error 

5818  002216 

011200 

MOV 

(R2),R0 

.•Point  to  the  pointer  to  the  name 

5819  002220 

032760 

040000 

000002 

BIT 

#S.FLB,2.(R0) 

;Is  the  old  thing  a  Function? 

5820  002226 

001506 

BEQ 

11$ 

;No 

5821  002230 

010200 

MOV 

R2,R0 

.•Pointer  to  pointer  to  . . . 

5822  002232 

CALL 

ERASE 

.'Attempt  to  erase 

5823  002236 

001102 

BNE 

11$ 

.-Failed,  give  up 
; Length  of  line 

5824  002240 

013701 

005076' 

MOV 

0PTMP4,R1 

5825  002244 

013700 

005100' 

MOV 

0PTMP5,R0 

.-Pointer  to  line 

5826  002250 

005037 

005012' 

CLR 

FHEADR 

;No  header 

5827  002254 

CALL 

FNHEAD 

.-Try  again 

5828  002260 

104402 

SYSERR 

.-Abismal  failure 

5829 

;-f 

5830 

;  It  worked  -  now  we  hav/e  the  header 

•  block 

5831 

m 

5832  002262 

010437 

005012' 

5$: 

MOV 

R4,  FHEADR 

;Save  Pointer  to  Function  Header 

5833  002266 

005337 

005074 ' 

6$; 

DEC 

0PTMP3 

; Decrement  loop  count 

*rM  r%A'7       MArrw^    mi  i  i  7 
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J  6 


A 
S 


583A 
5835 
5836 
5837 
5838 
5839 
5840 
5841 
5842 
5843 
5844 
5845 
5846 


5847 
5848 
5849 
5850 
5851 
5852 
5853 
5854 
5855 
5856 
5857 
5858 
5859 
5860 
5861 
5862 
5863 
5864 
5865 
5866 
5867 
5868 
5869 
5870 
5871 
5872 
5873 
5874 
5875 
5876 
5877 
5879 


002272 
002274 
002300 
002304 
002310 
002314 
002320 
002322 
002324 
002330 
002332 
002336 
002340 
002340 
002342 
002344 
002346 
002352 
002354 


002356 
002362 
002366 
002372 
002374 
002400 
002404 
002412 
002416 

002422 
002424 
002426 
002432 
002434 
002440 
002444 


002446 
002452 
002456 

002460 
002462 


003431 
005277 
005237 
013703 
060337 
013704 
010402 
060302 
124227 
001003 

005203 

005303 
002446 
112402 

000435 
000744 


005072' 
005016* 
005076* 
005100' 
005100' 


000040 


017702  005012* 

116204  000002 
010'fOO 

062700  000010 

042765  002000 
062720  000010 
012720  100001 

010420 

010420 

062702  000003 

112220 


1 7777  i. 


017700  005012' 

001772 

104402 


BLE 

9$ 

INC 

aOPTMP2 

INC 

LINE 

MOV 

0PTMP4,R3 

ADD 

R3,OPTMP5 

MOV 

0PTMP5,R4 

MOV 

R4,R2 

ADD 

R3,R2 

7$: 

CMP8 

-(R2),#CHRSPA 

BNE 

8$ 

SOB 

R3,7$ 

INC 

R3 

8$: 

GETC 
DEC  R3 
BLT  13$ 

13$ 

M0V8  (R4)-»-,R2 

CALL 

FNLINE 

BR 

12$ 

•  X 

BR 

6$ 

;  Fini 

shed,  now 

we  clean  up  and 

9$: 

CALL 

KILL 

MOV 

aFHEADR,R2 

M0V8 

S.LEN(R2),R4 

MOV 

R4,R0 

ADD 

*A.DIMU2,R0 

CALL 

GETFRA 

BIC 

*T.NUM,SI.BITS( 

ADD 

#A.DIMU2,(R0)^ 

MOV 

#<A.ASB^.CHARAC 

MOV 

R4,(R0)'»- 

MOV 

R4,(R0)^- 

ADD 

#S.CHR1,R2 

10$: 

MOVB 

(R2)+, (R0)> 

SOB 

R4,10$ 

CALL 

FNEND 

11$: 
•  4. 

RETURN 

;  Error  -  Kill 

the  new  stuff 

12$: 

MOV 

aF HE ADR, RO 

CALL 

ERASE 

BEQ 

11$ 

13$: 

SVSERR 
LIST 

Finished 

Increment  line  H   for  error 

Increment  Line  Number 

Get  the  line  length 

Increment  pointer  to  line 

Get  new  pointer  to  the  line 

Copy  line  pointer 

Point  to  end  of  line 

;A  Space? 

:Nope 

Loop  for  each  character 

Just  in  case,  at  least  1  character 

Get  a  character 

:ANY  CHARACTERS  LEFT? 
;N0,  BRANCH  TO  13$ 

;yES,  GET  NEXT  CHAR 

;Scan  the  line 

; Error  -  bad  S)fntax  or  something 

;Loop  for  all  it's  worth 

go  home 

;Kill  the  nuneric  value 

.•Pointer  to  the  function  name 

;Get  the  name  length  (Bytes) 

;Copy  for  allocation 

:%\z^   of  vector 

;Get  an  array 
SI)      .-Clear  the  Nuneric  bit 

.'Increment  the  array  pointer 
TER>*400'^1,(R0)"»- 

;A. BITS/A. DIMS 

iH   of  elements 

.'Length  of  vector 

.'Pointer  to  name 

.'Copy  the  name 

.'Character  by  character 

;End  the  function 

.'Finished 


.'Pointer  to  name  block 
;Die  die  die! 
;And  return 

; Error,    finished 


ADi  oA?       *Ak.rtsr\    Ml  1 1  7 


nQ_rCO_OA     AQ.'»"7 


r%Krc    on 


TT 
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FIX  FUNCTION 

5881  002A62 

MOPINS 

BXNC,204 

5882 

.S8TTL 

SYSTEM 

FUNCTION        NAME  CLASSIFICATION                                   1 

5883 

5884  002A62 

013702 

003120' 

MOV 

M0NBLK,R2 

;Point  to  data  block 

5885  002466 

132762 

0C0006 

000003 

BITS 

#A.NUM,A.BITS(R2) 

;Is  it  character? 

5886  002474 

001141 

BNE 

7$ 

:No,  is  DOMAIN  ERROR 

5887  002476 

016201 

000006 

MOV 

A.DIM1(R2),R1 

;Get  length  of  vector 

5888  002502 

012700 

000001 

MOV 

*1.,R0 

:(We  are  assuming  a  vector) 
;WelU  is  it  one? 

5889  002506 

122762 

000002 

000002 

CMPB 

#2.,A.DIMS(R2) 

5890  002514 

003005 

BGT 

Jl 

:Yes,  it's  true,  it's  true 

5891  002516 

003131 

B6T 

:No,  is  RANK  ERROR 

5892  002520 

016200 

000006 

MOV 

A.DIM1(R2),R0 

:Get  the  It  of  names  to  scan 

5893  002524 

016201 

000010 

MOV 

A.DIMU2(R2),R1 

;   and  the  length  of  each  line 

5894  002530 

1$: 

PUSH 

<R1,R0> 

;Save  the  values  for  the  loop 

5895  002534 

012737 

OOOOOOG 

003152' 

MOV 

#SM.II,RESCVT 

;Save  the  store  convert  routine 

5896  002542 

006300 

ASL 

RO 

; Integer  result 

5897  002544 

062700 

000010 

ADD 

*A.DIMU2.,R0 

;Add  in  overhead 

5898  002550 

CALL 

GETFRA 

;Build  the  frame 

5899  002554 

062720 

000010 

ADD 

/lfA.DIMU2.,(R0)* 

;Point  to  data  area 

5900  002560 

116220 

000002 

M0V8 

A.DIMS(R2),(R0)^ 

;Move  in  the  result  size 

5901  002564 

001402 

6EQ 

2$ 

; Special  if  source  is  scalar 

5902  002566 

105360 

1 17177 

DECB 

-1.(R0) 

; Otherwise  reduce  rank  by  1 

5903  002572 

112720 

000204 

2$: 

M0V8 

#A.ASB^. INTEGER, (R0)+ 

; Specify  the  result  type 

5904  002576 

011620 

MOV 

(SP), (RO)^ 

:A.ALEN 

5905  002600 

011620 

MOV 

(SP),(RO)* 

;A.DIM1 

5906  002602 

001473 

BEQ 

6$ 

; Nothing  there,  already  finished 

5907  002604 

010001 

MOV 

R0,R1 

;Copy  pointer  into  result  pointer 

5908  002606 
S909 

5910  002612 

PUSH 

MONPTR 

:Get  pointer  to  source  data 

016603 

000004 

3$: 

MOV 

4.(SP),R3 

;Get  size  of  a  line 

5911  002616 

011604 

MOV 

(SP),R4 

^Pointer  to  data 

5912  002620 

060316 

ADD 

R3,(SP) 

; Increment  pointer 

5913  002622 

012737 

000004 

003154' 

MOV 

*4.,RESVAL 

;AssLine  we'll  fail 

5914  002630 

GETC 

5$ 

•Get  the  1st  character 

002630 

005303 

DEC  R3 

:ANY  CHARACTERS  LEFT? 

002632 

002451 

BLT  5$ 

:N0.  BRANCH  TO  5$                                     1 

002634 

112402 

M0V8  (R4)*, R2 

;YES,  GET  NEXT  CHAR 

5915  002636 

042702 

1 77400 

BIC 

*<UPPER>,R2 

; Clear  out  garbage  bits 
;Is  it  a  valid  character? 

5916  002642 

132762 

000010 

OOOOOOG 

BITS 

#C.IDEN,CHRTAB(R2) 

5917  002650 

001442 

BEQ 

5$ 

;No,  must  be  an  error 

5918  002652 

PUSH 

R1 

•Save  result  pointer 

5919  002654 

CALL 

SYMBOL 

; Lookup  the  symbol  name 

5920  002660 

POP 

RJ 

•Restore  pointer 

5921  002662 

005703 

TST 

•ANYTHING  LEFT? 

5922  002664 

002403 

ULT 

49 

■NOPE 

5923  002666 

CALL 

GETNB2               ; 

;Any  non-blank  characters  left? 

5924  002672 

002031 

BGE 

5$ 

;Yes,  error 

5925  002674 

005037 

003154' 

4$: 

CLR 

RESVAL 

■Assume  nothing 

5926  002700 

011000 

MOV 

(R0),R0 

;Nothing  there,  error 

5927  002702 

001425 

BEQ 

5$ 

■Nothing  there,  finished 

5928  002704 

012737 

000002 

003154' 

MOV 

#2., RESVAL 

;Assume  array 

5929  002712 

005760 

000002 

TST 

2.(R0) 

■Is  it  one? 

5930  002716 

002007 

BGE 

11S 

■Nope,  either  grcuo  or  function 
;Is  it  a  label? 

5931  002720 

1 32760 

000020 

000003 

BITS 

#A.CON,A.BITS(R0) 

593^  002726 

001413 

BEQ 

5$ 

■Nope 

5933  002730 

005337 

003154* 

DEC 

RESVAL 

■Yes,  value  is  1 

5934  002734 

000410 

BR 

5$ 

■Go  to  it 

Al 
S' 


T~E 


V. 
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5935  002736 

005237 

0031 54 • 

11$: 

INC 

RESVAL 

5936  0027A2 

032760 

040000  000002 

BIT 

#S.FLB,2.(R0) 

5937  002750 

001002 

BNE 

5$ 

5938  002752 

005237 

0031 54 • 

INC 

RESVAL 

5939  002756 

5$: 

CALL 

aRESCVT 

5940  002762 

104402 

SYSERR 

59A1  00276A 

005366 

000002 

DEC 

2.(SP) 

5942  002770 

003310 

BGT 

3$ 

5943 

5944  002772 

062706 

000006 

6$: 

ADD 

#6.,SP 

5945  002776 

RETURN 

5946 

5947  003000 

104417 

7$: 

DOMERR 

5948  003002 

104411 

8$: 

RANERR 

5950  003004 

LIST 

; Assume  Function 
.-Check  the  block 
;It  appears  to  be  a 
; Otherwise,  it  must 
; Store  the  result 
.•Should  never  happen 
.-Decrement  loop  count 
.-Loop  until  exhausted 


function 

be  an  unknown 


.-Pop  garbage 
.-Finished 


from  the  stack 


r. 
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5952  003004 

MOP INS 

BXNL,214 

5953 

4 

.S8TTL 

SYSTEM 

FUNCTION 

NAME 

LIST 

595A 

5955 

.ENABLE 

LSB 

5956  00300A 

013737 

003120' 

003204 ' 

MOV 

MONBLK,RARGBL 

;Make  argument  into  Right  argument 
; Clear  tFie  search  flag 

5957  003012 

005037 

005070' 

» 

1$: 

CLR 

0PTMP1 

5958  003016 

000421 

BR 

4$ 

:And  start  the  presses 

5959 

5%0  003020 

104417 

2$: 

DOMERR 

; Domain  Error 

5961  003022 

104411 

3$: 

RANERR 

;Rank  Error 

5963  003024 

LIST 

5964 

5965 

5966  003024 

DOPINS 

BXNL,214 

5967 

1 

.S8TTL 

SYSTEM 

FUNCTION 

NAME 

LIST 

5968 

5969 

•  -f 

5970 
S971 

•  The 

temporary  registers  used 

are 

as  follows 

5972 

0PTMP1 

-  Flag  indicatinc 

3  we 

have  a  list  of  initial  characters  to  search 

5973 

0PTMP2 

-  Name  types  to  list. 

Bit  0-Labels,  1-Variables,  2-Functions 

5974 

0PTMP3 

-  Maximum  symbol 

lenqth 

5975 

0PTMP4 

-  Number  of  symbols  to  list                                        1 

5976 

0PTMP9 

-  Action  routine 

name 

for  symbol  table  scanner  routine 

5977 

;• 

5978 

5979  003024 

005737 

003170* 

TST 

LARGTY 

;Is  the  Left  argument  charater  type? 

5980  003030 

001 373 

BNE 

2$ 

;No,  Domain  error 

5981  003032 

013701 

003162' 

MOV 

LARGRL,R1 

; Point  to  the  Left  argument 

5982  003036 

122761 

000001 

000002 

CMPB 

*1,A.DIMS(R1) 

;Is  the  Left  argtment  Scalar  or  Vector? 

5983  003044 

002766 

BLT 

3$ 

;No,  Rank  error 

5984  003046 

005761 

000004 

TST 

A.ALEN(RI) 

;Is  Left  argument  null  v/ector? 

;Yes,  then  handle  like  monadic  function 

5985  003052 

001757 

BEQ 

1$ 

5986  003054 

5987 

5988  003062 

012737 

000001 

005070' 

MOV 

/(n,0PTMP1 

;Set  the  search  flag 

005037 

005074 ' 

4$: 

CLR 

0PTMP3 

; Clear  maximum  symbol  lenath 

5989  003066 

005037 

005076' 

CLR 

0PTMP4 

; Clear  ncmber  of  symbols  in  result 

5990  003072 

013704 

003204 ' 

MOV 

RARGBL,R4 

; Point  to  the  Right  argcfnent 

5991  003076 

116402 

000003 

MOVB 

A.8ITS(R4),R2 

;Get  its  bits 

5992  003102 

042702 

177771 

BIC 

#*C<A.NUM>,R2 

;Is  it  numeric? 

5993  003106 

001744 

BEQ 

2$ 

;No,  Domain  error 

5994  003110 

122764 

000001 

000002 

C/1P8 

#1,A.DIMS(R4) 

;Is  it  a  Scalar  or  Vector? 

5995  003116 

002741 

BLT 

3$ 

;No.  Rank  error 

5996  003120 

016237 

OOOOOOG 

003220' 

MOV 

IRARGC(R2),RARGCV 

; Setup  to  convert  Right  arg  to  integer 

5997  003126 

016237 

000054 ' 

003202' 

MOV 

LENTAB(R2),RARGFL 

; Setup  Right  argument  length  increment 

5998  003134 

005037 

005072' 

CLR 

0PTMP2 

•Clear  the  types  flag 

5999  003140 

016400 

000004 

MOV 

A.ALEN(R4),R0 

;Get  number  of  elements 

6000  003144 

001426 

BEQ 

7$ 

; Right  argument  is  null  vector 

6001  003146 
6002 

011403 

MOV 

(R4),R3 

•Point  to  Right  argument  data 

6003  003150 

5$; 

CALL 

iRARGCV 

;Get  a  Right  argurient  element                   1 

6004  003154 

01 3702 

003222' 

MOV 

RARGVA,R2 

•Is  it  less  than  one? 

6005  003160 

00371 7 

BLE 

2$ 

•Yes,  Domain  error 

6006  003162 

^22702 

000003 

CMP 

*3,R2 

•Is  it  greater  than  three? 

6007  003166 

002714 

BLT 

2$ 

•Yes,  Domain  error 

6008  003170 

005402 

NEG 

R2 

•Make  it  negative 

; Times  two  tor  word  offset 

6009  003172 

006302 

ASL 

R2 

AF 
SY 
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6010  003174 

005004 

CLR 

R4 

; Clear  a  register 

6011  003176 

000261 

SEC 

;And  set  the  C-bit 

6012  003200 

000162 

003212' 

JMP 

6$(R2) 

; Convert  type  number  to  bit  position 

6013  003204 

006104 

ROL 

R4 

; Function  type 

6014  003206 

006104 

ROL 

R4 

; Van' able  type 

6015  003210 

006104 

ROL 

R4 

; Label  type 

6016  003212 

050437 

005072' 

6$: 

BIS 

R4,0PTMP2 

;Sa\/e  the  types  we  want  to  list 
;Loop  for  all  of  Right  argument 

6017  003216 

soe 

R0,5$ 

6018 

.DSA8L 

LS8 

6019 

6020  003222 

012737 

003512' 

005110' 

7$: 

MOV 

*8XNLSH,0PTMP9 

;Set  Scan  action  routine  to  search 

6021  003230 

CALL 

BXNLSN 

rPass  one,  scan  table  for  eligible  names 

6022  003234 

013701 

005076' 

MOV 

0PTMP4,R1 

;Get  the  nLwber  of  symbols  in  result 

6023  003240 

MUL 

0PTMP3,R1 

; Times  the  maximum  length 

6024  003254 

103001 

BCC 

8$ 

;Too  big? 

6025  003256 

104403 

WSFULL 

:Yes 

6026  003260 

012700 

00001 2 

8$: 

MOV 

*<A.DIMU4>,R0         ! 

;Get  array  block  overhead 

6027  003264 

060100 

ADD 

R1,R0 

; Total  number  of  bytes  to  get 

6028  003266 

CALL 

GETFRA 

;Allocate  space  for  result  and  fillin  SI 

6029  003272 

010010 

MOV 

RO,(RO) 

;Fill  in  result  array  block 

6030  003274 

062720 

000012 

ADD 

#<A.DIMU4>,(R0)^ 

;Pointer  to  data  value 

6031  003300 

112720 

000002 

Move 

#2,(R0)^' 

;DIMS 

6032  003304 

112720 

000200 

Move 

#A.ASB,(RO)^ 

;8ITS 

6033  003310 

010120 

MOV 

RKCRO)-*- 

;ALEN 

6034  003312 

013720 

005076' 

MOV 

0PTMP4,(R0)<- 

;DIM1  -  NLDber  of  symbols 

6035  003316 

013720 

005074 ' 

MOV 

OPTMP3,(R0)* 

:     -  Maximtm  length  of  symbol 
^Pointer  to  result  data 

6036  003322 

010037 

003140' 

MOV 

RO,RESPTR 

6037  003326 

012737 

003536' 

005nO' 

MOV 

Xr8XNLFL,0PTMP9 

;Set  action  routine  to  fill 

6038  003334 

005701 

TST 

R1 

:Any  symbols  in  result? 
;No,  then  skip  filling  in 

6039  003336 

001402 

BEQ 

9$ 

6040  C03340 

CALL 

BXNLSN 

;Pass  two,  fill  in  result 

6041  003344 

6042 

6043  003346 

9$: 

RETURN 

:All  done 

012700 

005344' 

BXNLSN: 

MOV 

#SYMB1,R0 

;Point  to  beginning  of  Symbol  table 

6044  003352 

6045 

6046  003356 

013701 

003162' 

MOV 

LARGBL^RI 

•Point  to  the  Left  argiiiient  if  any 

005002 

1$: 

CLR 

R2 

; Clear  symbol  type 

6047  003360 

016000 

1 7771 t 

MOV 

S.Ae(R0),R0 

"Get  the  next  symbol 

6048  003364 

001001 

BNE 

2$ 

■Last  symbol? 
•Yes,  All  done 

6049  003366 

RETUPN 

6050  003370 

011003 

2$: 

MOV 

(R0),R3              ; 

•Get  symbol's  value 

•No  value,  go  get  next  symbol 

•Is  it  a  function? 

6051  003372 

001771 

BEQ 

IS 

6052  003374 

132763 

000100 

000003 

BITS 

#F.FLB,A.B1TS(R3) 

6053  003402 

001403 

BEQ 

3$ 

•No 

6054  003404 

052702 

000004 

BIS 

#4,R2 

•Mark  the  type  as  a  function 

6055  003410 

000415 

BR 

5$ 

6056  003412 

132763 

000200 

000003 

3$: 

BITS 

#A.ASB,A.BITS(R3) 

•Is  it  an  array  block? 

6057  003420 

001411 

BEQ 

5$ 

'No  (It  must  be  a  group) 

6058  003422 

132763 

000020 

000003 

Bire 

4fA.CON,A.BITS(R3) 

•Is  it  a  Label? 

6059  003430 

001403 

BEQ 

4$ 

•No 

6060  00343? 

052702 

000001 

BIS 

*1,R2 

'Mark  the  type  a:  a  Label 

6061  003436 

000402 

BR 

5$ 

6062  003440 

052702 

000002 

4$; 

BIS 

#2,R2 

Mark  type  as  varii^ble 

6063  003444 

030237 

005072' 

5$: 

BIT 

R2,0PTMP2 

'Do  we  want  this  t)pe'' 

6064  003450 

001742 

BEQ 

IS 

'No,  then  go  get  next  symbol 

6065  003452 

005737 

005070' 

TST 

0PTMP1 

'Search  flag  set? 

6066  003456 

001003 

BNE 

7% 

Yes,  then  must  check  initial  char  list 

AP 
SY: 
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6067  003A60 

6$: 

CALL 

aOPTMP9 

6068  003A6A 

000734 

BR 

1$ 

6069 

6070  003466 

116002 

000003 

7$: 

MOVB 

S.rHR1(R0),R2 

6071  OOy.72 

016104 

U00004 

MOV 

A.ALEN(Ri>,R4 

6072  003A76 

011103 

MOV 

(R1),R3 

6073 

607A  003500 

122302 

8$: 

CMP6 

(R3)+,R2 

6075  003502 

001766 

BEQ 

6$ 

6076  00350A 

SOB 

R4,8$ 

6077  003510 

000722 

BR 

IS 

6078 

6079  003512 

126037 

000002 

005074'  BXNLSH: 

CMPB 

S.LEN(R0),OPTMP3 

6080  003520 

003403 

BLE 

1$ 

6081  003522 

116037 

000002 

005074 ' 

MOVB 

S.LEN(R0),0PTMP3 

6082  003530 

005237 

005076' 

1$: 

INC 

0PTMP4 

6083  00353A 

RETURN 

608A 

6085  003536 

116004 

000002 

BXNLFL: 

MOVB 

S.LEN(R0),R4 

6086  0O35A2 

PUSH 

R4 

6087  0035A4 

010003 

MOV 

R0,R3 

6088  003546 

062703 

000003 

ADD 

*S.CHR1,R3 

6089  003552 

013702 

003140' 

MOV 

RESPTR,R2 

6090 

6091  003556 

112322 

1$: 

MOVB 

(R3)^,(R2)+ 

6092  003560 

SOB 

R4J$ 

6093 

6094  003564 

013704 

005074 • 

MOV 

0''TMP3,R4 

6095  003570 

162604 

SiB 

(SP)*,R4 

6096  003572 

001404 

BEQ 

3$ 

6097 

6098  003574 

112722 

000040 

2$: 

MOVB 

#CHRSPA,(R2)^ 

6099  003600 

SOR 

R4,2$ 

6100 

6101  003604 

010237 

003140' 

3$: 

MOV 

R2,RESPTR 

6102  003610 

RETURN 

6104  003612 

LIST 

;CaU  action  routine 
;Go  get  next  symbol 

;Get  first  character  of  the  symbol 
;Get  Left  argument  length 
; Point  to  Lett  argument  data 

;Do  the  characters  match? 
;yes,  then  include  the  symbol 
;Loop  for  all  of  the  Left  argument 
;Not  found,  then  go  get  new  symbol 

;Which  is  larger.  Symbol  or  max  size? 
;The  maximLin  size  so  far 
;The  symbol,  make  it  the  new  maximum 
; Count  this  symbol 


;Get  length  of  the  symbol 
:Sd\je   it 

;Copy  pointer  to  the  symbol 
.-Point  to  symbol  characters 
;Point  to  result  data  area 

;Copy  the  symbol  to  the  result 
;All  of  it 

;Get  maxinjun  length 
; Compute  amount  of  fill 
;No  fill  required 

;Blank  fill 
;To  the  end 

;Save  pointer  for  next  cycle 
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6106  003612  DOPINS  FGET J50,T.DIM 

6330  003612  LIST 

6331 

6332 

6333 

633A 

6335 

6336  003612  DOPINS  FPUT  J52,T.DIM 

6A85  003612  LIST 


ft-7- 
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OOP INS 


^"^ 


FPNTJ5A,T.DIM 
LIST 


1 


TT 
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6716 
6723 
6724 
6725 
6726 
6732 
6733 
673A 
6735 
67A1 
6742 
67A3 
6744 
7044 


00361 2 
003612 


003612 
003612 


003612 
003612 


005612 
003612 


MOPINS  1SCNJ30 
LIST 


MOPINS  SCAN, 62, T. DIM 
LIST 


MOPINS  1RDTJ24 
LIST 


MOPINS  RDCT,60,T.DIM 
LIST 


1 


TT 


"1 
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7046 
7193 


003612 
00361 2 
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MOP INS 


F  7 


GETIDN,0 
LIST 


TT 


?5~7" 
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7195  003612  MOPINS     SATAN, 0 

7A0A  003612  LIST 


TTT 
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7A06  003612  MOPINS 

7A76  003612 


H  7 


0UTRJ56 
LIST 


TT 


r 
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7478  003612 

MOP INS 

D0UTER,0 

750A  003612 

LIST 

7505 

7506 

7507 

7508 

7509 

7510  003612 

MOP INS 

PRDSET,0 

7564  003612 

LIST 

7565 

7566 

7567 

7568 

7569 

7570  003612 

MOP INS 

INSPACO 

7612  003612 

LIST 

TT 


1   *  m^* 


TT 


^  m^t^        A^^    4    4    "V 


*%y>       <<-*^> 


APL007 
SYSTEM 


MACRO  Ml  113 
FUNCTION 


08-FEB-80  09 
NAME  LIST 


37  PAGE  89 


7^ 


76H  003612 


DOPINS  INNRJ56 


ITT" 


APL007 
SYSTEM 


MACRO  M1113 
FUNCTION 


08-FEB-80  09:37     PAGE  90 
NAME   LIST 


TT 


A 
A 


7960  003612 


LIST 


irr 


n 


ADI  nn?        MATDO    Mill?        Ofi-CCQ-QA    HQ.T?        DAr.C     Q1 


APLCX)7 
SYSTEM 


MACRO  Ml  113 
FUNCTIOr>l 


08-FEB-80  09:37 
NAME   LIST 


7962  003612 


PAGE  91 


MOP INS     SUBR,0 


L     7 


Al 
Dl 


APLnn?    MAf»n  miiu    na-ppR-Ro  hq?^?    PAr,F  qp 


TTT 


r: 


APL007 
SYSTEM 


MACRO  Mill 3 
FUNCTION 


08-FEB-80  09: 
NAME  LIST 
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M"T" 


AF 
DE 


8725  003612 


LIST 


1  AT 


API  nfl7   MAfPn  Ml  11^   OA-PFR-RO  nQ-"^7   PAr,F  Q^ 


irr 


APL007  MACRO  Ml  113 
SYSTEM  FUNCTION 


08-FEB-80  09: 
NAME  LIST 


8727 
8771 


003612 
003612 
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MOP INS 


N"T 


AF 
DE 


RAND,0 
LIST 


9    3 
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SYSTEW  FUNCTION  NAME   LIST 

1  000001  .END 


APL007 
SYMBa 

ACO   = 

AC1 

AC2 

AC3 

ACA 

ACS 

ALL INT 

ARYRET 

ASCQUO= 

A.ALEN= 

A.ARG  = 

A.ASB  = 

A.BITS= 

A. CON  = 

A.DIWS= 

A.DIM1  = 

A.NUW  = 

A.PTR  = 

A.TWP  = 

BADDIR= 

BADERR= 

BLZBUB 

BRSELF 

BXCT 

BXIO 

BXNLFL 

BXNLSH 

BXNLSN 

BXPP 

BXPW 

BXRL 

CCNT 

CHANEX 

CHANOO 

CHAN01 

CHAN02 

CHAN03 

CHANOA 

CHAN05 

CHAN06 

CHAN07 

CHAN08 

CHAN09 

CHAN10 

CHAN11 

CHAN12 

CHAN13 

CHAN1A 

CHNOPN= 

CHRAND= 

CHRBEL= 

CHH»CR= 

CHRBa= 

CHR80X= 

CHRCI^= 

CHRCOL^ 

CHRDEL^ 


MACRO 
TABLE 
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XOOOOOO 
X000001 
X000002 
^000003 
X000004 
X000005 
00327AR 
003276R 
0000^2 
OOOOGA 
000040 
000200 
000003 
000020 
000002 
000006 
000006 
000000 
000010 
104A63 
104A37 
005116R 
005046R 
OOOOOORG 
00001 ORG 
003536R 
00351 2R 
0033A6R 
000020RG 
000030RG 
000040RG 
005072R 
003060R 
000256R 
00G330R 
0005 12R 
000674R 
001056R 
0012A0R 
00K22R 
00160AR 
001766R 
0021 50R 
002332R 
0025 1AR 
002676R 
000022R 
00020AR 
10AA71 
000051 
000007 
000133 
000200 
0001U 
00005A 
000076 
000107 


CK!RD1V= 

CHRDLR= 

CHRDLT= 

CHRDOT= 

CHREP  = 

CHRERR= 

025  CHRFIL= 

025  CHRFRO= 

CHRLBR= 

CHRLPR= 

CHRMNS= 

CHRf1UL= 

CHRNEG= 

CHRPOL= 

CHRPLU= 

CHRPWR= 

CHRQST= 

CHRQUO= 

CHRR8R= 

CHRRPR= 

CHRSEM= 

025  CHRSWO= 

025  CHRSPA= 

002  CHRTAB= 

002  CHRUPA= 

020  CHR.BS= 

020  CHR.CC= 

020  CHR.CR= 

002  CHR.CZ= 

002  CHR.GT= 

002  CHR.LF= 

025  CHR.LT= 

025  cm.si= 

025  CHR.SL= 
025  CHR.SO= 
025  LHR.TB= 
025  CHR.UL= 
025  CHR..A= 
025  CHR..E= 
025  CHR..S= 
025  CHR..T= 
025  CHR..U= 
025  CHR..Z= 
025  CHR..O= 
025  CHR..1= 
025  CH.ANO= 
023  CMD8UF 
023  CMW1AH= 
CNTSi: 
COMBIN 
COWCNT 
COMERR= 
COWPTR 
CQMRTN 
COMSKP 
rORPTR 
CS.ASS= 


000053 
000176 
000110 
000056 
000105 
10A431 
000177 
000135 
000073 
000072 
000137 
000075 
000100 
000271 
000055 
000120 
000121 
000113 
000047 
000042 
000074 
000112 
000040 

H  If  u  it  it*     QX 

000131 

000010 

000003 

000015 

000032 

000046 

000012 

000043 

000017 

000057 

000016 

000011 

000106 

000141 

000145 

000163 

000164 

000165 

000172 

000060 

000061 

000001 

0O3250R 

000010 

00513CR 

005076R 

005126R 

104425 

005122R 

0031 56R 

005124R 

005120R 

000200 


CS.800= 
CS.FLO= 
CS.IDN= 
CS.ONE= 
CTEPS 
CTMAX 
CTRMAX 
C.ALOC= 
C.BLOK= 
C.8LSZ= 
C.8UFF= 
C.8UFL= 
C.CCNT= 
C.CPTR= 
C.CZ  = 
C.DIG  = 
C.FASW= 
C.FLEN= 
C.FLSH= 
C.FRC  = 
C.IDEN= 
C.NAWE= 
C.NOBF= 
C.NUM  = 
COP  = 
C.OPN  = 
C.RDLN= 
C.REWT= 
C.RND  = 
C.S8IT= 
C.SPFX= 
C.SPGL= 
C.SPLX= 
C.SPRS= 
C.SRC  = 
C.SRCP= 
C.TT  = 
C.W]DC= 
C.WIDR= 
DEBUG  = 
DEFERR= 
DEVIL 
DEVNTF= 
DIGITS 
DI«AX  = 
OimiK 
025  DIMPTR 

025  DIRKUL= 
025  DO«ERR= 
025  DPTERR= 

DYDCNT 
025  DSexCT 

025  Dsaxio 

025  D$6XNL 

02*!  DSGXPP 

DSexPW 


000010 

000020 

000040 

000100 

0001 52R 

00021 2R 

0001 72R 

000162 

000064 

000140 

1 77760 

1 77762 

1 77766 

177764 

001000 

000040 

020000 

000010 

004000 

000001 

000010 

000102 

000400 

000020 

000004 

010000 

1 77776 

002000 

000010 

1 77756 

000100 

000200 

000001 

000002 

1 7777i, 

000024 

000004 

1 77770 

1 77772 

000000 

104405 

0051 14R 

104470 

000006R 

000020 

0031 12R 

0031 14R 

0031 16R 

104466 

104417 

104416 

003224R 

000070RG 

000322RG 

003024RG 

000376RC 

00051 4RG 


TT 


D$6XRL 
D.AND  = 
D.BXCT= 
D.BXIO= 
025  D.8XNL= 
025  D.BXPP= 
025  D.8XPW= 
D.8XRL= 
D.CIRC= 
D.CO«B= 
D.COMP= 
D.CONT= 
D.CTLM= 
D.DEAL= 
D.DECD= 
D.DIV  = 
D.DMD  = 
D.DQAD= 
D.DROP= 
D . ENCD= 
D.EQ  = 
D.EXPD= 
D.F6ET= 
D.FMT  = 
D.FPNT= 
D.FPUT= 
D.GE  = 
D.GT  = 

D.iaw  = 

D.IND  = 

D.INNR= 

D.INTR= 

D.LE  = 

D.LOG  = 

D.LT  = 

D.MAX  = 

D.MEM  = 

D.MIN  = 

D.liUL  = 

D.NE  = 

D.NN  = 

025  D.NR  = 

D.OR  = 

025  D.PLUS= 

D.PSUB= 

025  D.PWR  = 

025  D.OQAD= 

025  D.QUAD= 

D.RES  = 

D.RHO  = 

D.ROT  = 

025  D.SCON= 

020  D.SDIF= 

02C  D.SUB  = 

020  D.SUBS= 

020  D.TAKE= 

020  D.TRAN^ 


000574RG 

000000 

000007 

000007 

000007 

000007 

000007 

000007 

000001 

000001 

000001 

000006 

000000 

000003 

000002 

000000 

000010 

1 77777 

000002 

000002 

000000 

000002 

000005 

000004 

000005 

000005 

000000 

000000 

000002 

000002 

000013 

000006 

000000 

000001 

000000 

000000 

000002 

000000 

000000 

000000 

000000 

oooooc 

00C»0<^G 
000000 
000006 
000001 
000000 
000000 

oocooo 

000000 
000003 
000006 
000006 
000000 
000006 
0OOC02 
000004 


020 


D.UNON= 

D.$MAX= 

D.$«IN= 

D.$MUL= 

D.SPLU= 

D.SRES= 

D.$SUB= 

D.1C0«= 

D.l EXP= 

D.1R0T= 

EDICHR 

EDICNT 

EDIFLG 

EDIT  = 

EIS   = 

ELESIZ 

ENDCOR 

EOF   = 

ERASE  = 

ERRMAX= 

ERRNUM 

ERRPTR 

ERRO 

EXEBUF 

E$CT 

E$PT 

FA.APD= 

FA.CRE= 

FA.DL»C= 

FA.ENB= 

FA.EXC= 

FA.EXT= 

FA.NSP= 

FA.NSR= 

FA.POS= 

FA.RD  = 

FA.RWD= 

FA.SEQ= 

FA.SHR= 

FA.TMP= 

FA.yCIC= 

FA.WRT= 

FD.BLK= 

FD.CCL= 

FD.COM= 

FD.CR  = 

FD.DIR= 

»^D.FTN= 

FD.F11= 

FD.INS= 

FD.ISP= 

FD.(1NT= 

FD.OSP= 

FD.PLC= 

F  D . PRN= 

FD.PSE= 

FD.RAH= 


000006 

000000 

000000 

000000 

000000 

000000 

000000 

000001 

000002 

000003 

005063R 

005064R 

005062R 

000003 

000000 

005132R 

000004R 

104475 

**•*♦♦  QX 

000166 

004772R 

004770R 

004774R 

005054R 

005056R 

005060R 

000100 

000010 

001000 

100000 

002000 

000004 

000100 

000200 

010000 

000001 

004000 

040000 

000040 

000020 

020000 

000002 

000010 

000002 

020000 

000002 

000010 

000001 

040000 

000010 

002000 

100000 

004000 

000004 

ooooo; 

010000 
000001 


025 
025 
025 


025 
025 


025 
025 
025 
025 
025 
025 
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FD.RAN=  000002 

• .BKST= 

000024 

F.SPDV= 

000072 

LAR6LE 

0031 74R 

025  M.BXEX= 

000007 

FD.REC=  000001 

•.BKVB= 

000064 

F.SPUN=  000074 

LARGLN 

0031 66R 

025  M.BXFX= 

000007 

FD.RWH=  000001 

•.BR  = 

000020 

F.STBK= 

000036 

LARGPT 

003164R 

025  M.BXIO= 

000007 

FD.SD1=  000020 

'.CHR  = 

000075 

F.STK  = 

000022 

LARCSF 

003172/^ 

025  M.BXLC= 

000003 

FD.SQD=  OOOOAO 

•.CNTG=  000034 

F.ST0P= 

000004 

LARGTY 

0031 70R 

025  M.BXNC= 

000007 

FD.TTY=  QOOO'A 

■.C0DE= 

000010 

F.STP  = 

000001 

LAR6VA 

003200R 

025  M.8XNL= 

000007 

FD.WBH=  000002 

■.DFNB= 

000046 

F . SUSP= 

000002 

LBINC 

005100R 

025  M.BXPP= 

000007 

FF.CHR=  000005 

■.DSP7= 

000044 

F.TRC  = 

000002 

LBUFF 

00331 6R 

025  M.BXPW= 

000007 

FF.MV  =  000003 

■.DVNM=  000134 

F.UNIT= 

000136 

LBUFLN= 

000621 

M.BXRL= 

000007 

FF.POE=  000002 

•.EFBIC= 

000010 

F.URBD= 

000020 

LCOUNT 

005106R 

025  M.BXTS= 

000007 

FF. RgO=  000001 

-.EFN  = 

000050 

F.VAL  = 

1 77776 

LENERR= 

104412 

M.BXWA= 

000007 

FF.RWF=  000006 

-.END  = 

002000 

F.V8N  = 

000064 

LENTAB 

000054R 

025  M.CEI  = 

1 77777 

FF. SPC=  000004 

■.EnRR= 

000032 

F.VBSZ= 

000060 

LEXPTR 

0031 OOR 

025  M.CHR  = 

000202 

FHEADR  00501 2R 

025  1 

•.ERR  = 

000052 

GETC0R= 

**♦♦♦♦  GX 

LFTOP 

005066R 

025  M.CMT  = 

000206 

FHRET   005040R 

025  1 

•.FACC= 

000043 

GETC01= 

**♦♦♦♦  GX 

LINC 

005102R 

025  M.D0UT= 

000006 

FILNTF=  104467 

■.FFBY= 

000014 

GETFRA= 

♦♦♦•••  GX 

LINE 

00501 6R 

025  M.DQAD= 

000006 

FIS   =  000000 

'.FlAG= 

000002 

GETNB2= 

**»♦*♦  GX 

LINING 

005026R 

025  M.ENCD= 

000004 

FISCON=  046000 

".FLB  = 

000100 

GETSCA= 

♦**♦**  GX 

LISIZE= 

000020 

M.EXE  = 

000000 

FIXPTR  003074R 

025  1 

■.FNA«=  000110 

GNOME 

0031 02R 

025  LITOP 

005072R 

025  M.EXP  = 

000001 

FLAGS   004764R 

025  f 

'.FNB  = 

000102 

6.TICP= 

000016 

LNLNG  = 

104541 

M.FACT= 

000001 

FLCBUF  003250R 

025  f 

•.FNDF= 

000010 

G.T1CT= 

000014 

LOCLCT 

005036R 

025  M.FIL  = 

000177 

FLI^€   005014R 

025  1 

'.FTYP= 

000116 

G.TIDA= 

000004 

LOWCOR 

000002R 

025  M.FLR  =■ 

1 77777 

FLNLST=  ♦♦♦♦♦*  GX 

".FUN  = 

000010 

G.TJHR= 

000006 

LSTERP 

004766R 

025  M.FMT  = 

000004 

FLOEXP  003270R 

025  1 

'.FVER= 

000120 

G.TIMI= 

000010 

LWIDTH 

000070R 

025  M.GDUP= 

000003 

FLO^€G  003272R 

025  f 

■.HEAD= 

000006 

G.TIM0= 

000002 

L.8ITS= 

000003 

M.GDyN=  000003                  1 

FLSWTB  000222R 

025  1 

■.HIBK= 

000004 

G.TISC= 

000012 

L.CNT  = 

000002 

M.GETI= 

000006 

FLTLEN=  000010 

■.LBL  = 

000020 

G.TIYR= 

000000 

L.PRNT= 

000001 

M.I9M  = 

000003 

FNEND  =  ♦♦♦♦♦♦  GX 

''.ilNE= 

000012 

HASHC 

005136R 

025  L.PTR  = 

000000 

M.IDN  = 

000000 

FNHEAD=  ♦♦♦♦♦*  GX 

".LOC  = 

000004 

HASHT8 

005140R 

025  L.PTR1= 

000004 

M.INSP= 

000006 

FNINSl  005044R 

025  1 

-.LSTC= 

000004 

HSHMSK= 

1 77601 

L .  SUBS= 

000002 

M.IOTA= 

000000 

FNLINE=  ♦♦♦♦♦♦  GX 

-.LUN  = 

000042 

HSHS12= 

000200 

MACHIN=  000106 

M.LIT  = 

000205 

FORIGN  000032R 

025  1 

•.MBCT= 

000054 

KHAN 

005050R 

025  MAXCHN= 

000014 

M.LN  = 

000001 

FO.APO=  000106 

'.MBC1  = 

000055 

IDJV  = 

******  GX 

MO^BLK 

0031 20R 

025  M.MMD  = 

000010 

FO.MFY=  000002 

•.MBFG= 

000056 

ILFNAM= 

104464 

MONCVT 

0031 32R 

025  M.NEG  = 

000000 

FO.RO  =  000001 

'.WON  = 

000002 

ILLCHN= 

104540 

MONLEN 

0031 30R 

025  M.NOT  = 

000000 

FO.UPO=  000006 

'.NIL  = 

000001 

ILLSW  = 

104565 

MDNPTR 

0031 22R 

025  M.Nlfl  = 

000006 

FO.yRT=  000016 

'.NRBO= 

000024 

IMUL  = 

******  GX 

HONSFT 

0031 26R 

025  M.Nlfl  = 

000204 

FPMODE  000042R 

025  1 

•.NREC= 

000030 

INDERR= 

104410 

MON^^P 

0031 24R 

025  M.0UTR= 

000012 

fP^       =  000000 

'.OPN  = 

000010 

INNTMP 

003250R 

025  MONVaL 

0031 34R 

025  M.PITM=  000000                  ! 

FPPLEN=  000004 

'.OVBS= 

000030 

INNrM2 

00501 6R 

025  MSBXAV 

OOOOOORG 

020  M.PRDS^ 

000006 

FREBLK  007400R 

025  1 

'.PREV= 

000000 

INPTR 

000064R 

025  MSBXCR 

001016RG 

02C  M.OQAD= 

000000 

FUZZ    000142R 

025  1 

'.PRNr= 

100000 

INSNAM= 

104462 

MS6XCT 

000060RG 

020  M.QUAD^ 

000000 

FXPTR1  003076R 

025  1 

'.PROT= 

010000 

lOERR  = 

104477 

M$6XEX 

001600RG 

020  M.RAND= 

000012 

F$EVAl=  000100 

".RACC= 

000016 

IRARGC= 

******  GX 

M$6XFX 

002046R6 

020  M.RAVL= 

000000 

F$evi  =  000200 

-.RATT= 

000001 

I.CNT  = 

1 77776 

M$6XI0 

00031 2RG 

020  M.RCIP= 

000000 

F$exEC=  000400 

'.RCm=   000034 

I. DIM  = 

1 77772 

M$6XNC 

002462R6 

020  M.RDCT= 

000011 

FSFUNC=  001000 

'.RCTL= 

000017 

I.LEN  = 

000012 

MSBXNL 

003004RC 

020  M.REVS= 

000O03 

f,ACTL=  000076 

^READ= 

004000 

I.OERR= 

000062 

MSBXPP 

000366RG 

020  M.RaL= 

OOOoOO 

F.ALOC=  000040 

'.REDF:-- 

000040 

l.OLD  = 

1 77770 

M$6XPU 

000504R6 

020  M.SATA= 

000001 

F.flBFS=  000062 

'.RES  = 

000040 

I.PTR  = 

1 7777^, 

M$BXRL 

000564R6 

020  M.SCAN=  000011                  1 

F.BD6  =  000070 

^RET  = 

1 77772 

I.STR  = 

177766 

M$6XTS 

000622RG 

020  M.SHAP= 

000000 

F.BGBC=  000057 

'.RSIZ= 

000002 

KILL  = 

******  GX 

M$BXyA 

000732R6 

020  M.SIGN= 

000000 

F.BITS=  177774 

'.RTYP= 

000000 

LABERR= 

104406 

M.ABS  = 

000000 

M.SUBR= 

000001 

f.BKDN=   000026 

'.R2  = 

000014 

LABLPT 

005042R 

025  M.80L  = 

000200 

M.SYM  = 

000203 

F.B»CDS=  000020 

'.R3  = 

000016 

LARGBL 

0031 62R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

F.BKEF=  000050 

'.R4  = 

000020 

LARGCV 

0031 76R 

025  M.BXCR= 

000007 

M.TRAN= 

000012 

F.BKP1=  000051 

^SEON= 

000100 

LARGFL 

0031 60R 

025  M.8XCT= 

000007 

M.$ABS= 

000000 
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M.$CEI=  000000 

N.DID  = 

000024 

RESCVT 

0031 52R 

025 

SURPTR  00311  OR 

025 

T.CON  = 

004000 

M.SFLR=  000000 

N.DVhJM=  000032 

RESERR= 

104440 

SYMB0L=  ******  GX 

T.DIM  = 

000100 

M.$IDN=  000000 

N.EXT  = 

000014 

RESLEN 

0031 50R 

025 

SYMBI   005344R 

025 

T.FUN  = 

010000 

M.$NEG=  000000 

N.FID  = 

000000 

RESPTR 

0031 40R 

025 

SYMF    005340R 

025 

T.LIST= 

000400 

M.$SIG=  000000 

N.FNAM=  000006 

RESSFT 

0031 46R 

025 

SYMPT1  005346R 

025 

T.LIT  = 

000020 

M.1RDT=  000011 

N.FTYP= 

000014 

RESTYP 

0031 44R 

025 

SYMTAB  005352R 

025 

T.MON  = 

000010 

M.1REV=  000003 

N.FVER= 

000016 

RESULT 

0031 36R 

025 

SYMT8F=  104404 

T.NIL  = 

000004 

M.ISCI^  000011 

N.NAME= 

000006 

RESVAL 

0031 54R 

025 

SYMTOP  005350R 

025 

T.NUM  = 

002000 

NAMBUF  0032A0R 

025  N.NEXT= 

000022 

RINC 

005104R 

025 

SYMTP   006272R 

025 

T.OPFN= 

000001 

NB.DEV=  000200 

N.PPN  = 

000024 

RLTBAS 

005066R 

025 

SYMURN=  000054 

T.OTHR= 

040000 

NB.DIR=  000100 

N.STAT= 

000020 

ROTINC 

005070R 

025 

SYNERR=  104407 

T.SOP  = 

000002 

NB.NA^  OOOOOA 

N.UNIT= 

000034 

ROUND 

00001  OR 

025 

SYSER  =  ******  GX 

T.SPOP= 

000040 

^B.S01=  OOOAOO 

nRUFLN=  001000 

ROVER 

00331 2R 

025 

SYSERR=  104402 

T.TMP  = 

000200 

K3.S02=  001000 

OCHAN 

005052R 

025 

RSTS  = 

000000 

SYSTAT  OOOOOOR 

024 

T.VAL  = 

100000 

NB.SI^*=  OOOOAO 

OMODE 

000402R 

023  RSX   = 

0001 1 5 

SY.aAD=  000001 

T.VAR  = 

001000 

NB.STP=  000020 

OPTMPO 

005066R 

025 

RTOP 

005070R 

025 

SY.BRK=  100000 

UPPER  = 

177400 

NB.SVR=  000010 

0PTMP1 

005070R 

025 

RT11   = 

000000 

SY.BS  =  000010 

UTNAME 

000344R 

023 

rCTY?=  000002 

0PTMP2 

005072R 

025 

R.8ITS= 

000003 

SY.CLR=  000040 

VALERR= 

104413 

l«.VER=  000001 

0PTMP3 

005074R 

025 

R.FIX  = 

000001 

SY.ERP=  000020 

VARBLE 

007400R 

025 

ND.DEV=  000200 

0PTMP4 

005076R 

025 

R.LCT  = 

000002 

SY.NOU=  000100 

VARBLS 

OOOOOOR 

025 

ND.EXT=  000002 

0PTMP5 

005100R 

025 

R.LN  = 

000002 

SY.OPN=  000002 

VERNUM 

OOOOOOR 

025 

ND.NA«=  000004 

0PTMP6 

005102R 

025 

R.LNJ1=  000010 

SY.PMT=  001000 

VRSION= 

000002 

ND.PPN=  000100 

0PTMP7 

005104R 

025 

R.NEXT= 

000006 

SY.SRT=  000400 

WIDTH 

000072R 

025 

ND.$EX=  000000 

0PTMP8 

005106R 

025 

R.OFF  = 

000000 

SY.5VC=  000004 

UROUND 

000020R 

025 

ND.$ES=  000020 

0PTMP9 

00511  OR 

025 

R.PREV= 

000004 

SY.SVL=  000200 

USDATE 

0001 36R 

025 

ND.$IM=  000000 

OPTM10 

0051 12R 

025  R.PTR  = 

000000 

S.AB  =  177776 

WSFULL= 

104403 

ND.$N$=  000040 

OPTMK 

005C26R 

025 

R.SEQ  = 

000003 

S.ASB  =  100000 

WSNAME 

000074R 

025 

ND.$PN=  001400 

ORIGIN 

000030R 

025 

R.VAR  --^ 

000002 

S.8FHD=  000020 

WSTIME 

0001 32R 

025 

NEGSGN  005063R 

025  OUTPTR 

000066R 

025 

R6 

X000006 

S.BITS=  000002 

SADDF  = 

*«*«*•  GX 

NINPT1  003302R 

025  0VR0PR= 

000007 

R7 

X000007 

S.CHR1=  000003 

$CFCC  = 

******  GX 

NINPT2  003300R 

025  PATCH 

007344R 

025 

SAME  = 

******  GX 

S.FATT=  000016 

$CMPF  = 

****•«  GX 

NINSTK  003304R 

025  PRECSN 

000052R 

025 

SCAMEM= 

*♦**•♦  GX 

S.FDB  =  000140 

SDIVF  = 

******  GX 

NINTMP  00331 OR 

025  RANDAC 

003064R 

025 

SI 

X000005 

S.FLB  =  040000 

$FIS  = 

♦♦**♦*  G 

NINTYP  003306R 

025  RANDY 

003062R 

025 

SIDAMN= 

104433 

S.PNAM=  000006 

VtPP     = 

******  G 

NOTAVL=  104472 

RANERR= 

104411 

SIFRAM 

00331 4R 

025 

f.FNB  =  000036 

\^?P\J^ 

******  G 

NDTOPf^  1044/^3 

RARGBL 

003204R 

025 

SISTAK 

006350R 

025 

S.FUBW=  000017 

$LDCIF= 

******  GX 

NPRT1   004762R 

025  RAR6CV 

003220R 

025 

SITOP 

006346R 

025 

S.FNTY=  000004 

$LDF  = 

******  GX 

NULL    007364R 

025  RAR6FL 

003202R 

025 

SUP 

0071 44R 

025 

S.FTYP=  000002 

$MACHN= 

******  G 

NUHCMN=  000020 

RARaE 

00321 6R 

025 

SiyARN=  000200 

S.LEN  =  000002 

SRSTS  = 

******  G 

NUWDFL  003230R 

025  RARaN 

00321 OR 

025 

SIZTAB 

000044R 

025 

S.L INK=  177774 

$RSX  = 

i^***«*  G 

NUHEFL  003233R 

025  RARGPT 

003206R 

025 

SI.8IT= 

1 7777^ 

S.NFEN=  000020 

SRTII  = 

******  G 

NUMESN  003236R 

025  RARGSF 

00321 4R 

025 

SI.LEN= 

1 77772 

S.TYPE=  140000 

$STF  = 

******  GX 

NUMFLG  003230R 

025  RARGTY 

00321 2R 

025 

SI.RET= 

y77772 

S.VAL  =  000000 

SSIJRF  = 

******  GX 

NUHLEN  000062R 

025  RARGVA 

003222R 

025 

SI.VAL= 

1 7777 t 

TKDIMS  005072R 

025 

$$$OST= 

000020 

NUMNEG  003232R 

025  RBASE 

005074R 

025 

SKPSIZ 

005134R 

025 

TKFRAM  005066R 

025 

.BOaE= 

000002 

rO«FL  003234R 

025  RCOUNR 

0051 12R 

025 

SM.BB  = 

******  GX 

TKLEFT  005070R 

025 

.CHARA= 

000000 

NUMRIG  003231R 

025  RCOUNT 

005110R 

025 

SM.II  = 

******  GX 

TMODE   000403R 

023 

.DEF.  = 

000002 

NUMUID  003226R 

025  REDCNT 

005070R 

025 

SPHOLD 

000004R 

024 

TMPTAG=  000166 

.FLOAT= 

000006 

NUMZFL  003235R 

025  REDIGN 

005066R 

025 

SPINIT 

000002R 

024 

TTYBUF  004140R 

025 

. F  SRCB= 

******  G 

NYIERR=  104432 

REDOFF 

005072R 

025 

STKINC= 

000774 

TTYLEN=  000622 

.INTEG= 

000004 

N.BLSZ=  000036 

REENTR 

003060R 

025 

STOP  = 

104420 

TURKEYr  104436 

.MOLUN 

000404R 

023 

N.DESC=  000020 

REGTVP= 

000001 

SUBCNT 

0031 04R 

025 

TYPE  =  000166 

...GBL= 

000000 

N.DEV  =  000032 

RES8IT 

0031 42R 

025 

SUBDCT 

0031 06R 

025 

T.80L  =  020000 

...TPC= 

000020 

N.DEVN=  000034 

.  ABS.  000000 

000 

000000 

001 

r 


T~nr 
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000050 
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MONTB 

000000 
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DYDTB 
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004 

BOPTB 

000000 
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liONBTB 

000000 
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000000 

007 

COMTB 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTRI 

000000 

013 

OVRTRi 

000000 

014 

TRNTRL 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

003612 

020 

PATCH 

000000 

021 

SSFSR1 

000000 

022 

DEF$0 

000406 

023 

DEF$1 

000006 

024 

DEF$2 

007400 

025 

ERRORS 

DETECTED 

:  0 

VIRTUAL 

MEMORY 

USED:  13953  WORDS  (  55  PAGES) 

DYNAMIC 

MEMORY: 

15534  WORDS  (  59  PAGES) 
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TIME: 

00:03:46 
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FPP 
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; DON'T  DISPLAY  REGISTERS  ON  ERRORS 
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.TITLE  APL008 
.IDENT  \V02.03\ 

;THIS  IS  USED  WHEN  ASSEMBLING  APLOP  TO  DEFINE  A  NEW  OVERLAY  SEGMENT 
.-CONTAINING  OPERATOR  ROUTINES.   IN  THE  COMMON  DEFINITION  FILE, 
;'OVROPR*  IS   DEFINED  AS  ZERO.   IF  IT  IS  DEFINED  AS  ONE  BEFORE  APLOP 
;IS  ASSEMBLED,  ONLY  THE  CODE  DESIGNATED  FOR  THE   OPERATOR  OVERLAY  IS 
.-ASSEMBLED.   THEREFORE,  THE  COMMAND  TO  ASSEMBLE  APL008  IS: 


APL008  <  APL008. APLOP 


000010 


OVROPR=  8. 


.-OVERLAY  SPECIFIED  OPERATORS 


Ai^  orvo 


MATbTk  iai  i  i  1 


no_rca_oo  in  .  no   r»A/*c  j  i. 


TTT 
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21 
124 
125 
126 
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137 
138 
139 
140 
141 
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143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
159 

160  007400 
199  007400 
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FUNCTIONAL  DESCRIPTION: 

THIS  MODULE  CONTAINS  THE  CODE  FOR  MOST  APL  OPERATORS  WHICH 
HAVE  BEEN  IMPLEMENTED  SO  FAR.  TWO  MACROS  ARE  USED  TO  DEFINE 
OPERATOR  ROUTINES.   'DOPINS*  DEFINES  A  DYADIC  OPERATOR,  AND 
•MOPINS'  DEFINES  A  MONADIC  OPERATOR.  THE  ARGUMENTS  TO  ^H^ 
MACROS  ARE  THE  NAME  OF  THE  OPERATOR  ROUTINE  AND  THE  OPERATOR 
NUMBER  FOR  THE  OPERATOR  (WHICH  CAN  BE  FOUND  BY  LOOKING  IN 
•VTAB').   FOR  DYADIC  SCALAR  OPS,  THE  LEFT  ARG  IS  IN  AC1 ,  THE 
RIGHT  ARG  IS  IN  AC2,  AND  THE  RESULT  IS  RETURNED  IN  ACO.   FOR 
MONADIC  SCALAR  OPS,  THE  ARGUMENT  IS  IN  AC1,  AND  THE  RESULT 
IS  RETURNED  IN  ACO.   SCALAR  OPS  MUST  LEAVE  THEIR  ARGUMENTS 
INTACT! 


; THESE  MACROS  ARE  FOR  OVERLAY  CODE.   THEY  ARE  USED  THE  SAME  AS 
.•RESIDENT  MACROS.   THE  DIFFERENCE  COMES  IN  THE  WAY  THEY  WORK.  JHl 
.-•PRMRES'  MACRO,  FORCES  ALL  CODE  BETWEEN  IT  AND  THE  NEXT  MFTF '/'LIST' 
;T0  NOT  BE  ASSEMBLED.   THE  'MOPINS'  AND  'DOPINS'  DON'T  PUT  ANYTHING  IN 
;ANY  TABLES.   OTHER  THAN  THAT  THEY  WORK  BASICLY  THE  SAME  AS  THE  RESIDENT 
.•MACROS. 

.MACRO  DOPINS  NAME, NUM. BITS,BOZ0,NOTME 

.IIF    NDF  D.'NAME,  .ERROR  ;D.'NAME  IS  NOT  DEFINED  BY  OVROPI 

,U   EQ  OVROPR-D.'NAME 

.PSECT  CODE 
DS'NAME:: 
.ENDM 

.MACRO  MOPINS  NAME, NUM, BITS, BOZO, NOTME 

AU  NDF  M. 'NAME,  .ERROR  ;M.'NAME  IS  NOT  DEFINED  BY  OVROP! 

.IF  EQ  OVROPR-M.'NAMt 

.PSECT  CODE 

.IF  NE  NUM 
MS'NAME:: 
.ENDC 
.ENDM 


.MACRO 
.ENDM 
.MACRO 
.ENDM 

PRMRES 


LIST 
.ENDC 


PRMRES 
.JF  EQ  1 


***********  ASSEMBLING  THE  FILL 


I  I  I  I 


LIST 


B    $ 
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201   007400 

DOPINS 

PLUS,2,T.S0P,.INTEGER^'CS.IDN^-CS.ASS 

208  007400 

LIST 

209 

210  007400 

DOPINS 

$PLU,-2 

224  007400 

LIST 

225 

226  007400 

DOPINS 

SUB,4,T.S0P,.INTEGER*CS.IDN 

233  007400 

LIST 

234 

235  007400 

DOPINS 

$sue,-4 

249  ")07400 

LIST 

250 

251 

252  007400 

DOPINS 

MUL,6,T.S0P,.INTEGER^CS.B00L+CS.IDN+CS.0NE+CS.ASS 

264  007400 

LIST 

265 

266 

267  007400 

DOPINS 

$MUL,-6 

284  007400 

LIST 

285 

286  007400 

DOPINS 

DIVJO,T.SOP,.FLOAT^-CS.BOOL>CS.IDN+CS.ONE 

323  007400 

LIST 

324 

325 

326  007400 

DOPINS 

PWR,20,T.SOP,.FLOAT^-CS.BOOL+CS.IDN'^CS.ONE 

392  007400 

LIST 

393 

394 

395  007400 

DOPINS 

LOG,54,T.SOP,.FLOAT'»-CS.BOOL 

417  007400 

LIST 

418 

419 

420  007400 

DOPINS 

CIRC, 52, T. SOP, .FLOAT 

477  007400 

LIST 

478 

479 

480  007400 

DOPINS 

WIN, 14, T. SOP,.  INTEGERi-CS.BOOL  +  CS. ASS 

490  007400 

LIST 

491 

492  007400 

DOPINS 

$wiN,-i; 

516  007400 

517 

518 

LIST 

519  007400 

DOPINS 

MAX,16,T.S0P,.INTEGERKS.800LKS.ASS 

529  007400 

LIST 

530 

531   007400 

DOPINS 

$MAX,-16 

555  007400 

556 

557 

LIST 

558  007400 

DOPINS 

RES,12,T.S0P,.INTEGERKS.80vK>CS.IDN 

589  007400 

590 

591 

LIST 

592  007400 

DOPINS 

$RES,-12 

616  007400 

LIST 

617 
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618 

619  00740(3 

639  007400 


PAGE  47-1 


C  9 


DOPINS  C0MB,22,T.S0P,.FL0ATKS.800L^CS.IDN*CS.0NE 
LIST 


n 


■= TT 
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6A1  007A00 

652  007400 

65i 

654 

655  007400 

662  007400 

663 

664 

665  007400 

676  007400 

677 

678  007400 

687  007400 

688 

689 

690  007400 

700  007400 

701 

702  007400 

712  007400 

713 

714 

715  007400 

733  007400 

734 

735  007400 

745  007400 

746 

747 

748  007400 

758  007400 

759 

760 

761  0C7400 

780  007400 

781 
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DOPINS  AfgD,4?,T.S0P,.B0OLEAN*CS.IDN^CS.0NE^CS.ASS 
LIST 


DOPINS  OR,40,T.S0P,.BOOLEAN*CS.IDN'^CS.ASS 
LIST 


DOPINS  NN, 46, T. SOP,. BOOLEAN 
LIST 

DOPINS  NR, 44, T. SOP,. BOOLEAN 

LIST 


DOPINS  LT,24,T.LIT^T.SOP,.CHARACTER^-CS.IDN 
LIST 

DOPINS  LE,26,T.Lir  +  T.SOP,.CHARACTER-^CS.IDN-^CS.ONE 
LIST 


DOPINS  EQ,30,T.LIT^T.SOP,.CHARACTER-^CS.IDN'^CS.ONE 
LIST 

DOPINS  GE,36,T.LIT+T.S0P,.CHARACTER'^CS.IDN^CS.0NE 
LIST 


DOPINS  GT,52,T.LIT>T.SOP,.CHARACTER-^CS.IDN 
LIST 


DOPINS  NE,3A,T.LIT'»-T.'  ^,  .CHARACTER-^CS.IDN 
LIST 


"c 5" 
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783  007400 

MOPINS 

FLRJ4,T.S0P,.INTEGER*CS.800L-^CS.FL0AT,M$IDN 

786  007400 

LIST 

787 

788  007400 

MOPINS 

CEIJ6,T.S0P,.INTEGER*CS.8OOL^CS.FL0AT,M$IDN 

^1  007400 

LIST 

792 

793  007400 

MOPINS 

IDN,2,T.S0P,.INTEGER*CS.B00L 

799  007400 

LIST 

800 

801 

802  007400 

MOPINS 

$IDN,-2 

808  007400 

LIST 

809 

810 

811  007400 

MOPINS 

$FLR,-14 

855  007400 

LIST 

856 

857 

858  007400 

MOPINS 

$CEI,-16 

868  007400 

LIST 

869 

870 

871  007400 

MOPINS 

NEG,4,T. SOP, .INTEGER 

878  007400 

LIST 

879 

880  007400 

MOPINS 

$NEG,-4 

887  007400 

LIST 

888 

889 

890  007400 

MOPINS 

SIGN, 6,  T.  SOP,.  INTEGER^CS.800L-^CS.  FLOAT 

901  007400 

LIST 

902 

903  007400 

MOPINS 

$SIG,-6 

914  007400 

LIST 

915 

916 

917  007400 

MOPINS 

RCIP,10,T.SOP,.FLOAT>CS.BOOL 

928  007400 

LIST 

929 

930  007400 

MOPINS 

EXP, 20, T. SOP,. FLOAT 

939  007400 

LIST 

940 

941 

942  007400 

MOPINS 

LN,54,T.SOP,.FLOAT^CS.BOOL 

949  007400 

LIST 

950 

951 

952  007400 

MOPINS 

PITM, 52, T. SOP, .FLOAT 

959  007400 

LIST 

960 

961  007400 

PRMRES 

966  007400 

967 

968 

LIST 

969  007400 

MOPINS 

A8S,12,T.S0P,.INTEGERKS.800L 

977  007400 

LIST 

978 

m       r% 
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979  007400 

992  007400 

993 

994 

995  007400 
1002  007400 
1003 
1004 

1005  007400 
1031  007400 
1032 
1033 

1034  007400 
1057  007400 


MOPINS  $A8S,-12 
LIST 


MOPINS  FACT, 22, T. SOP,. FLOATfCS. BOOL 
LIST 


MOPINS  NOT, 50 
LIST 


MOPINS  ROLL, 100 
LIST 


a 


APL008     MACRO 
DEFINITIONS 

1059  007AOO 
1187  007AO0 


Mil  13     08-FEB-80  10:28 
ERRORS 


PAGE  50 


DOPINS  DEAL  J  00 
LIST 


gT 


M 


H     9 
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DEFINITIONS 

ERRORS 

1189  007400 

MOPINS 

SHAPJ02 

1211   007400 

LIST 

1212 

1213 

1214 

1215 

1216 

1217  007400 

DOPINS 

RHOJ02 

1313  007400 

LIST 

19 
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1315  007A00 

MOP INS 

RAVL,56 

1325  007A00 

LIST 

1326 

1327 

1328 

1329 

1330 

1331  007400 

DOPINS 

CTLM,56 

15%  007400 

LIST 

I     9 


J     9 
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ERRORS 

1598  007400 

MOP INS 

IOTA, 72 

1632  007A00 

LIST 

1633 

1634 

1635 

1636 

1637 

1638  007400 

DOPINS 

1ND,72 

1699  007400 

LIST 

J     9 


A 

n 


T^ 
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1701   007AOO                                                   DOPINS 

1C0MJ24 

1709  007400 

LIST 

1710 

1711 

1712 

1713 

1714 

1715  007400                                                     DOPINS 

COMP,60, 

1789  007400 

LIST 

ITT 


Ai 
M] 


r 


L^ 


L     9 
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1791  007AOO 

DOPINS 

1EXPJ30 

1799  007A0O 

LIST 

1800 

1801 

1802 

1803 

1804 

1805  007400 

DOPINS 

EXPD,62, 

1864  007400 

LIST 

AF 
MI 


ITT 


r 


■fTT 
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1866  007400                     DOPINS 

DROP, 104 

1907  007400 

LIST 

1908 

1909 

1910 

1911  007400                     DOPINS 

TAKE, 114 

2149  007400 

LIST 

AP 

MI 


¥-T 


r: 


APL008 

MACRO  Ml  11 3 

08- 

■FEB- 

-80 

DEFINITIONS 

ERRORS 

2151 

007400 

2160 

007400 

2161 

2162 

2163 

216A 

2165 

2166 

007400 

2204 

007400 

10:28  PAGE  57 


N  9 


API 

Ml) 


MOPINS  1REVJ46 
LIST 


MOPINS  REVS, 144, T. DIM 
LIST 


BUT 
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?206  007400  DOPINS  1  ROT, 146 

22H  007400  LIST 

2215 

2216 

2217 

2218 

2219 

2220  007400  DOPINS  R0TJ44,T.Uin 

2328  007400  LIST 


HRT 
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2330  007400  MOPINS  TRAN,126 

2A15  007400  LIST 


-  A 


APL008     flACRO 
DEFINITIONS 
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2417 
2654 


007400 
007400 


PAGE  60 


DOPINS 


"Diy 


TRANJ26 
LIST 


■* — rw 


APL008  MACRO 
DEFINITIONS 

2656  007400 
2856  007400 
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DOPINS 


TW 


ENCD,76 
LIST 
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2858  007400  DOPINS  DECD,64 

2988  007A00  LIST 


r,   in 
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2990  007A00 

3001  007400 

3002 

3003 

300A  007400 

3219  007400 


MOPINS 


MOP INS 


GDWNJ36,T.DIM 
LIST 


GDUPJ40,T.DIM 
LIST 


u  m 
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TTW 


3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

323A 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 


007400 


MOPINS 
.SBTTL 


MMDJ22 

MIXED  FUNCTION 


MATRIX  INVERT 


The  monadic  form  of  domino  finds  the  matrix  inv/erse  of  its  argument 
by  calling  the  dyadic  form  with  identity  matrix  with  the  same  number 
of  rows  as  the  left  argument.  A  scalar  argument  is  handled  as  a  special 
case  and  returns  the  reciprocial  of  the  argument.  A  zero  argument  causes 
a  Domain  error. 


000000 
000004 
000010 
000016 
000022 
000024 
000030 
000032 
000034 
000040 
000042 
000046 
000054 
000056 
000062 
000066 
000072 
000074 
000076 

000100 
000104 
000106 
000120 
000122 
000124 
000126 
000142 
000144 
000150 
000154 
000160 
000164 
000172 
000174 
000200 
000204 
000210 
000212 
000214 
000216 
000220 
000222 
000226 
000236 
0002^0 


01 3704 
010437 
01 3737 
116402 
001541 
020227 
003401 
104411 
005764 
001017 

126427 
001523 
016502 
062702 
062704 
012422 
011412 
000512 

016401 
010103 

103001 
104403 
010100 

010004 
062700 
162705 

010037 
012737 
010010 
062720 
112720 
112720 
010120 
010320 
010320 
010001 
105020 


010304 


003120' 
003204 • 

003124'  003212' 
000002 

000002 


000004 


000002  000001 

1 77776 
000006 
000006 


1$: 


000006 


2$: 


3$; 


000012 
1 77772 

003162' 

000006  003170' 

000012 
000002 
000206 


4$; 


MOV  M0NBLIC,R4 

MOV  R4,RARG8L 

MOV  MONTYP,RARGTY 

MOVB  A.DIMS(R4),R2 

BEQ  7$ 

CMP  R2M 

BLE  1$ 

RANERR 

TST  A.ALEN(R4) 

BNE  2$ 

CALL  EMPTY 

CMP8  A.DIMS(R4),#1 

BEQ  6$ 

MOV  SI.VAL(SI),R2 

ADD  #A.DIM1,R2 

ADD  *A.DIM1,R4 

MOV  (R4)+,(R2)+ 

MOV  (R4),(R2) 

BR  6$ 

MOV  A.DIM1(R4),R1 

MOV  R1,R3 

MUL  R1,R1 

BCC  3$ 

WSFULL 

MOV  RKRO 

ASH  PRECSN,RO 

MOV  R0,R4 

ADD  *12,R0 

SUB  *SI.LEN,SI 

CALL  GETFRA 

MOV  RO,LARGBL 

MOV  *.FLOAT,LARGTY 

MOV  RO,(RO) 

ADD  /(fA.DIMU4,(R0)^- 

MOVB  M2Af^0)^ 

MOVB  #<A.ASB^.FLOAT> 

MOV  R1,(R0)^ 

MOV  R3,(R0)^ 

MOV  R3,(R0)^- 

MOV  RO^RI 

CLRB  (R0)+ 

SOB  R4,4$ 

LDF  #^F1.0,AC0 

MOV  R3,R4 

ASH  PRECSN,R4 


Get  pointer  to  the  argument 

Copy  it  to  Right  argument  for  D$DMD  routine 

Copy  the  type  too 

Get  the  rank  of  the  argument 

Is  it  a  scalar? 

No,  Is  it  greater  than  a  matrix? 

No 

Yes,  Rank  Error 

Is  the  argument  a  null  array? 

No 

Yes,  Return  with  equivalent  null  array 

Is  argument  a  null  vector? 

Yes,  Then  just  return 

No,  Get  pointer  to  result  array 

Point  to  dimension  list  of  result  array 

Point  to  dimension  list  of  argunent  array 

Copy  the  first  dimension 

Copy  the  second  dimension 

Now  we  can  return 


Get  the  number  of  rows  in  argument 

Save  it  for  later 

Square  it  for  size  of  identity  matrix 

Too  big? 

Yes,  Workspace  Full 

Copy  the  identity  matrix  size 

Times  the  element  size 

Save  that  too  for  later 

Add  in  array  block  overhead 

Save  the  domino  frame  for  D$DMD 

Go  get  space  for  tne  identity  matrix 

Copy  pointer  to  Left  argument  for  DSDMD  routine 

The  type  too 

Fill  in  array  block 

.-Pointer  to  the  data 
;Rank 
,(R0)+   ;Bits 
;ALEN 

;First  dimension 
; Second  dimension 
;Save  pointer  to  the  data 
;Clear  out  identity  matrix 
.-Real  fast 

;Get  a  floating  point  one 
;Copy  N,  the  number  of  rows 
;Tim'*s  the  element  size 


T  in 
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TW 


3278 
3279 
3280 
3281 
3282 
3283 
328A 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3316 


000254 
000260 
000266 
000270 
000274 
000300 
000306 
000312 
000316 
000324 


063704  000062 ' 
060401 


5$ 


062705  1 77772 


6$: 


ADD 

STF 

ADD 

SOB 

CALL 

PUSH 

CALL 

ADD 

POP 

RETURN 


NUMLEN,R4 

AC0,(R1) 

R4,R1 

R3,5$ 

DSDMD 

<-(SI),-(SI), 

KILL 

<(SI)  +  ,(SI)^-, 


;PLus  one  =  offset  between  diagonal  elements 
;Fill  in  diagonal  with  ones 
;Point  to  next  diagonal  element 
;Loop  for  all  the  diagonal  elements 
;Use  dyadic  domino  to  compute  inverse 
-(SI)>  ;Save  the  result  SI   frame 
; Delete  the  identity  matrix 
; Delete  the  domino  frame 
(SI)+>  .-Restore  the  result  SI  frame 


Scalar  special  case 


000326 
000332 
000334 
000336 
000342 
000346 
000352 
000360 
000362 
000366 
000370 
000374 
000400 
000404 
000406 
000412 
000416 
000424 
000430 
000432 
000442 
000450 
000456 
000460 


005737  003124' 

001001 

104417 

012700  000010 

063700  000062 ' 


H: 

8$: 
9$: 


1 52765 
010010 
062720 
105020 
1 1 2720 


000006  1 7777^ 

000010 

000206 


012720  000001 

012720  000001 
011402 

013701  003124' 


001741 


TST 

BNE 

DOMERR 

MOV 

ADD 

CALL 

BIS8 

MOV 

ADD 

CLRB 

MOVB 

MOV 

MOV 

MOV 

MOV 

CALL 

TSTF 

CFCC 

BEQ 

LDF 

DIVF 

STF 

RETURN 

LIST 


MONTYP 
9$ 


;Is  the  argument  numeric  type? 
;Yes 

; Domain  Error 
;Get  array  block  ov/erhead 
;Add  size  of  floating  point  scalar 
;Get  space  for  the  result 
.BIT(SI)  ;Mark  it  as  floating  point 
;Fill  in  array  block 


,R0 


*A.DIMU2, 

NUMLEN,RO 

GETFRA 

*. FLOAT, SI 

RO,(RO) 

#A.DIM1+2,(R0)+ 

(R0)  + 

#<A.ASB+.FLOAT>,(R0)+ 

#1,(R0)+ 

#1,(R0)+ 

(R4),R2 

MONTYP, R1 

aiFMONCT(RI) 

AC1 


.-Pointer  to  data 

;Rank 

;8its 

;ALEN 

;DIM1 
; Point  to  the  argument  data 
;Get  argument  type 
.-Fetch  the  argument 
;Is  the  argument  zero? 


8$ 

#^F1.0.AC0 

ACI.ACG 

ACG.CRG) 


;Yes,  Then  Domain  error 
;Get  a  floating  point  one 
.-Compute  the  reciprocial 
;Store  the  result 
;All  done 


TUT 
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J  10 


ft 


3318  000A60 

3319 

3320 

3321 

3322 

3323 

332A 

3325 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 

333A 

3335 

3336 

3337 

3338 

3339 

33A0 

33A1 

33A2 

33A3 

33A4 

33A5 

33A6 

33A7 

3348 

33A9 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373  000460  013702  003204' 

3374  000464  126227  00G002     000002 


DOPINS 
.S8TTL 


DMD  J  22 

MIXED  FUNCTION 


MATRIX  DIVIDE  (LEAST  SQUARES  FIT) 


FUNCTIONAL 


DESCRIPTION: 


This  function  solves  a  linear  system  using  Householder  transformations 
to  produce  a  least  squares  solution.  The  algorithm  is  described  in 
the  following  references: 

M.  A.  Jenkins,  'The  Solution  of  Linear  Systems  of  Equations  and 
Linear  Least  Squares  Problems  in  APL",  I8M  Technical 
Report  No.  320-2989,  June  1970 

P.  Businger  &  6.  H.  Golub,  'linear  Least  Squares  Solutions  by 
Householder  Transformations",  Ntmerische  Mathematik  7, 
269-276,  1965 

The  Right  argument,  A  is  m  by  n, 
the  Lett  argument,  B  is  m  by  p, 
and  the  Result,  Z  is  n  by  p 


Written  by  Peter  Haynes 
Use  of  variables: 


Date:  Feb,  1979 


OPTMPO 
0PTMP1 
0PJf^2 
0PTMP3 
0PTMP4 
0PTMP5 
0PTMP6 
0PTMP7 
0PTMP8 
0PTMP9 
OPTM10 
NUMLEN 
RARGPT 
LARGPT 
RESPJR 

Subroutines: 


M,  the  number  cf  rows 

N,  the  number  of  columns  in  the  Right  argument,  A 

P,  the  number  of  columns  in  the  Left  argunent,  B 

Pointer  to  the  scaling  vector,  FACTOR 

Pointer  to  the  permutation  vector,  PP 

Size  of  a  row  of  A,  =  NxElement  size 

Column  offset  for  A,  =  (MxN-DxElement  size 

Size  of  a  row  of  B  and  2,  =  PxElement  size 

Temporary 

Temporary 

Temporary,  K 

Element  size 

Pointer  to  A 

Pointer  to  B 

Pointer  to  Z,  the  result 


INNER  -  Calculates  the  a  double  precision  inner  product  of  two 
vectors. 

TRANS  -  Performs  Householder  transformations  on  matrix  A  or  B. 

SWAP  -  Swaps  a  pair  of  rows  or  columns  of  a  matrix. 


Check  for  legal  arguments 

MOV     RARGBL,R2 
CMP8    A.DIMS(R2),#2 


; Point  to  the  right  argument 

;Is  the  rank  greater  than  a  matrix? 


TIW 
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3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 


000472 
000474 
000476 
000502 
000510 
000512 
000520 
000522 
000524 
000530 
000532 
000534 
000540 
000542 
000546 
000550 
000554 
000556 
000560 
000574 


000600 
000604 
000610 
000614 
000616 
000624 
000632 
000634 
000640 
000644 
000646 
000652 
000654 
000662 
000664 
000666 
000674 
000710 
000712 
000714 
000716 
000720 
000722 
000724 
000740 
000742 
00C746 
000750 
000754 
000756 
000762 
000770 
000772 
000774 


003401 
104411 
013701 
126127 
003371 
026261 
001401 
104412 
005737 
001001 
104417 
005737 
001774 
005761 
001765 
016203 
001762 
005303 


003162' 
000002 


000002 


1$: 
2$: 


000006  000006 

003212' 

003170' 

000004 

000004 


3$: 

4$: 

5$: 

6$: 


010337  005102' 


BLE 

RANERR 

MOV 

CMP8 

BGT 

CMP 

BEQ 

LENERR 

TST 

BNE 

DOMERR 

TST 

BEQ 

TST 

BEQ 

MOV 

BEQ 

DEC 

ASH 

MOV 


2$ 

LARGBL^RI 

A.DIMS(RI) 

1$ 

A.DIM1(R2) 

4$ 

RARGT> 
6$ 

LAR6TY 

5$ 

A.ALEN(RI) 

3$ 

A.ALEN(R2) 


PRECSN,R3 
R3,0PTMP6 


K   10 


;No,   Ok  then 
;Rank  Error 

;Point  to  the  left  argument 
,M2       ;Is  the  rank  greater  than  a  matrix? 

;Yes,  Rank  error  then 
,A.DIM1(R1)  ;Do  the  number  of  rows  match? 

Yes,  Ok 

Length  Error 

Is  the  right  argument  numeric? 

Yes,  Ok 

Domain  Error 

Is  the  left  argument  numeric? 

No,  Domain  error 

Is  the  left  argument  a  null  array? 
,Yes,  Length  error 
,R3   ;Is  the  right  argument  a  null  array? 

Yes,  Length  error 

Fudge  the  array  length  a  little  bit 

Times  the  element  size 

Equals  the  column  offset  for  A 


A 

M 


012703 
010337 
010337 
005004 
016237 
126227 
003410 
016203 
010337 
005204 
023703 
002723 
126127 
002415 
001416 
016137 

103525 
005204 
000402 
105704 
001300 
010300 


006304 
062704 
060400 

152765 
060420 

110420 


000001 

005070' 

005072' 

000006 
000002 

000010 
005070' 

005066' 

000002 

00001 0 


005066' 
000001 


Have  good  arguments  now,  determine  result  shape  and  get  space  for  it 

Xf1,R3         ; Initialize  for  computing  ALEN 
R3,0PTMP1      .-Initialize  for  computing  N 
R3,0PTMP2      .-Initialize  for  confuting  P 
R4  .-Initialize  for  computing  result  Rank 

A.DIM1(R2),OPTMP0  .-Get  M,  the  number  of  the  rows 


000001  7$: 
005072 • 


8$: 
9$: 


000006 
000006 


1 7777^ 


MOV 

MOV 

MOV 

CLR 

MOV 

CMPB 

BLE 

MOV 

MOV 

INC 

CMP 

BLT 

CMPB 

BLT 

BEQ 

MOV 

MUL 

BCS 

INC 

BR 

TSTB 

BNE 

MOV 

ASH 

PUSH 

CONINC 

ASL 

ADD 

ADD 

CALL 

BIS8 

ADD 

POP 

M0V8 


What  is  the  shape  of  right  argument 

A  scalar  or  vector 

A  matrix,  get  N 

Save  N,  the  number  of  columns  in  right  arg 

The  r-^sult  Rank  is  at  least  a  vector 

Is  M<N,  i.e.  columns  linearly  dependent? 

Yes,  Length  error 

What  is  the  shape  of  the  left  argument? 
BS  .-Scalar 

9%  .-Vector 

A.DIMU2(R1),OPTMP2  .-Matrix,  Save  P,  number  of  colunns  of  B 


A.DIMS(R2),#1 

7$ 

A.DIMU2(R2),R3 

R3,0PTMP1 

R4 

0PTMP0,R3 

3$ 

A.DIMS(R1),#1 


0PTMP2,R3 

13$ 

R4 

91 

R4 

3$ 

R3,R0 

PRECSN.RO 

R4 

R4 

R4 

#A.DIM1,R4 

R4.R0 

GETFRA 


.-The  number  of  elements  in  result,  ALEN 

.-Workspace  full 

.-Rank  is  one  greater  than  before 


Is  the  left  argument  a  scalar? 

No,  Length  error 

Copy  the  size  of  the  result 

Multiply  by  the  element  size 

Copy  the  result  Rank 

Cheat  for  scalars 

Make  it  in  words 

Add  in  overhead 

Total  space  to  get 

.Get  space  for  result  and  build  SI  frame 
*. FLOAT, SI. BIT(SI)  :Mark  it  as  floating  point 
R4,(R0)+       .-Fill  in  array  block.  Pointer  to  data 
R4  .'Retrieve  result  Rank 

R4.(R0)*  .-DIMS 


rw 
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(LEAST 

SQUARES  FIT) 

3432  000776 

112720 

000206 

MOVB 

#<A.ASB+.FLOAT>, 

(RO)^-   ;BITS 

3433  001002 

010320 

MOV 

R3,(R0)+ 

;ALEN 

3434  001004 

013720 

005072' 

MOV 

0PTMP2,(R0)^- 

;DIM1,  Assume  P 

3435  001010 

023727 

005070'  000001 

CMP 

0PTMP1,4n 

;Is  N  =  1? 

3436  001016 

001403 

BEQ 

1.$ 

;Yes,  We  guessed  right 

3437  001020 

013760 

005070'  177776 

MOV 

0PTMP1,-2(R0) 

:No,  So  use  N 

3438  001026 

020427 

000001 

10$: 

CMP 

R^.0^ 

;What  is' the  result  Rank? 

3439  001032 

003035 

B6T 

iii 

;A  matrix 

3440  001034 

001436 

BEQ 

12$ 

;A  vector 

3441  001036 

105762 

000002 

TSTB 

A.DIMS(R2) 

;A  scalar.  Are  both  arguments  scalars? 

3442  001042 

001033 

BNE 

12$ 

:No 

3443  001044 

013704 

003170* 

MOV 

LARGTY,R4 

;Yes,  Special  case.  Get  left  argument  type 

3444  001050 

013701 

003212' 

MOV 

RARGTY,R1 

:Get  right  argument  type 

3445  001054 

013702 

003164' 

MOV 

LARGPT,R2 

jPoint  to  left  argument  data 

3446  001060 

013703 

003206' 

MOV 

RARGPT,R3 

;Point  to  right  argtment  type 

3447  001064 

CALL 

aFLARGC(R4) 

;Fetch  the  left  argtment 

3448  001070 

CALL 

aFRARGC(RI) 

; Fetch  the  right  argument 

3449  001074 

TSTF 

AC2 

;Is  right  argument  zero? 

3450  001102 

CFCC 

;  i.e.  the  divisor 

3451  001106 

001611 

BEQ 

5$ 

;Yes,  Domain  error 

3452  001110 

DIVF 

AC2,AC1 

;This  is  domino  for  scalars! 

3453  001116 

STF 

AC1,(R0) 

;Store  the  result 

3454  001124 

3455 

3456  001126 

RETURN 

:All  done,  that  was  real  easy 

013720 

005072' 

11$: 

MOV 

OPTMP2,(R0)'»- 

; Store  the  second  dimension,  P 

3457  001132 

010037 

003140' 

12$: 

MOV 

R0,RESPTR 

;Save  the  pointer  to  the  result  data 

3458 

:^ 

3459 

;  Now 

get  space 

for  the  temporary  vectors:  FACTOR,  floating  point,  and                  | 

3460 
3461 

;  PP. 

pointers. 

both  of  length  N 

B 

3462  001136 

013701 

000062' 

0 

MOV 

NUMLEN,R1 

;Get  element  size  for  Factor 

3463  001142 

062701 

000002 

ADD 

M2,R^ 

;Two  more  bytes  for  permutation  vector 

3464  001146 

MUL 

0PTMP1,R1 

;And  there  are  N  elements 

3465  001162 

103001 

BCC 

K$ 

;Not  too  big? 
;Workspace  Full 

3466  001164 

104403 

13$: 

WSFULL 

3467  001166 

012700 

000004 

14$: 

MOV 

#4,R0            ; 

;Array  block  overhead 
'Total  ^nount  to  get 

3468  001172 

060100 

ADD 

R1,R0 

3469  001174 

CALL 

GETFRA 

;Get  the  temporery  space 
•Skip  over  the  pointer  field 
;Mark  it  as  an  array  block 

3470  001200 

005720 

TST 

(RO)^ 

3471  001202 

012720 

100000 

MOV 

#S.ASB,(RO)* 

3472  001206 

010037 

005074 ' 

MOV 

R0,OPTMP3 

•Save  pointer  to  Factor 
•Get  the  size  of  Factor 

3473  001212 

163701 

005070' 

SUB 

0PTMP1,R1 

3474  001216 

163701 

005070' 

SUB 

0PTMP1,R1 

•  in  words 

3475  001222 

010137 

005100' 

MOV 

R1,0PTMP5 

•Save  it  as  size  of  a  row  of  A 

3476  001226 

060100 

ADD 

R1,R0 

Point  to  the  permutation  vector 

3477  001230 

010037 

005076' 

MOV 

R0,0PTMP4 

•Save  the  permutation  vector  pointer 

3478 

;♦ 

3479 

;  Now 

we're  ready  to  initialize  FACTOR  and  PP (permutation  pointers)                     | 

3480 

0 

3481  001234 

013704 

003140' 

MOV 

RESPTR,R4 

Point  to  the  result 

3482  001240 

013702 

005074 • 

MOV 

OPTMP3,R2 

Point  to  Factor 

3483  001244 

013703 

005070' 

MOV 

0PTMP1,R3 

Set  count  to  N 

3484  001250 

013701 

000062 ' 

MOV 

NUWLEN,R1 

Get  element  size 

3485  001254 

MUL 

0PTMP2,R1 

Times  P  =  size  of  result  row 

3486  001270 

010137 

005104' 

MOV 

R1.0PTMP7 

Save  the  result  row  size 

3487  001274 

15$: 

CLRF 

(r5)> 

Clear  Factor 

3488  001302 

010420 

MOV 

R4,(R0)^- 

Initialize  PP 

Al 
M] 


irnr 
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MIXED  FUNCTION 

MATRIX  DIVIDE 

(LEAST  SQUARES 

FIT) 

3489  001 30A 

060104 

ADD 

R1,R4 

; Point  to  the  next  result  row 

3490  001306 

SOB 

R3,15$ 

;Loop  for  N  elements 

3491 

;-f 

3492 

;  Copy 

the  arguments  if  necessary  since  they  will  be  destoryed                       | 

3493 

3494  001312 

012701 

000006 

MOV 

*. FLOAT, R1 

; Convert  the  arguments  to  floating  point 

3495  001316 

010502 

MOV 

SI,R2 
#<2*SI.LEN>,R2 

;Point  to  current  SI  frame 

3496  001320 

062702 

1 77764 

ADD 

;Back  up  two  parse  frames  to  Left  arg  frame 

3497  001324 

CALL 

CONVERT 

;Copy  and  convert  it  to  floating  point 
;Save  the  pointer  to  the  new  left  argument 

3498  001330 

011037 

003164' 

MOV 

(RO),LARGPT 

3499  001334 

062702 

1 77764 

ADD 

#<2*SI.LEN>,R2 

;Point  to  the  Right  argument  parse  frame 

3500  001340 

CALL 

CONVERT 

;Copy  and  convert  it  to  floating  point 

3501  001344 

011000 

MOV 

(RO),RO 

;Get  pointer  to  new  right  argument  data 
;Save  the  pointer  to  tne  new  right  argument 

3502  001346 

010037 

003206' 

MOV 

RO.RARGPT 

3503 

;-♦■ 

3504 

;  Find 

the  largest  value  in  eaci 

h  column  of  A  and  compute  FACTOR 

3505 

•  — 

3506  001352 

01 3704 

005066' 

MOV 

0PTMP0,R4 

;Get  M,  the  nLinber  of  rows  in  A 

3507  001356 

013701 

005100' 

MOV 

0PTMP5,R1 

;Get  the  size  of  a  row  of  A 

3508  001362 

013702 

005070' 

16$: 

MOV 

0PTMP1,R2 

;Get  N,  the  number  of  columns  to  scan 

3509  001366 

CLRF 

ACO 

; Clear  the  current  max 

3510  001374 

17$: 

LDF 

(R0)^-,AC1 

;Get  an  element  of  A 

3511  001402 

ABSF 

ACl 

;Get  its  absolute  value 

3512  001410 

CMPF 

AC1,AC0 

;Is  it  larger  than  the  cuTent  max? 

3513  001416 

CFCC 

3514  001422 

003403 

BLE 

18$ 

;No 

3515  001424 

STF 

ACl, ACO 

;Yes,  Use  it  as  new  max 

3516  001432 

18$: 

SOR 

R2J7$ 

;Loop  for  each  element  in  the  row 
;BacK  up  to  the  beginning  of  the  row 
;Get  N,  the  number  of  columns  to  scan 

3517  001436 

160100 

SUf:^ 

R1,R0 

3518  001440 

013702 

005070' 

MOV 

0PTMP1,R2 

3519  001444 

01 3703 

005074 • 

MOV 

OPTMP3,R3 

;Get  pointer  to  FACTOR 

3520  001450 

19$: 

LDF 

(R0)+,AC1 

;Get  an  element  of  A 

3521  001456 

DIVF 

ACO, ACl 

;  Compute  A  ( i ,  j )  /rnax 

3522  001464 

ABSF 

ACl 

;Get  its  absolute  value 

3523  001472 

CMPF 

(R3)^,AC1 

;Is  FACTOR  less  than  it? 

3524  001500 

CFCC 

3525  001504 

002005 

BGE 

20$ 

;No 

3526  001506 

163703 

000062 ' 

S'JB 

NUMLEN,R3 

;Back  up  to  FACTOR(i) 

3527  001512 

STF 

AC1,(R3)* 

;Yes,  Use  it  for  FACTOR(j) 

3528  001520 

20$: 

SOB 

R2,19$ 

;Loop  for  each  element  in  the  row 

3529  001524 

SOB 

R4,16$ 

.-Loop  for  each  row 

3530 

;♦ 

3531 

;  Scale 

A 

3532 

0 

3533  001530 

013702 

005070' 

MOV 

0PTMP1,R2 

;Get  N,  the  number  of  columns 

3534  001534 

013700 

003206' 

MOV 

RARGPT,RO 

; Point  to  A 

3535  001540 

013703 

005074 ' 

MOV 

OPTMP3,R3 

, Point  to  FACTOR 

3536  001544 

21$: 

LDF 

(R3)+,AC0 

;6et  an  element  of  FACTOR 

3537  001552 

013704 

005066' 

MOV 

0PTMP0,R4 

;Get  M,  the  nimber  of  rows 

3538  001556 

22%: 

LDF 

(R0),AC1 

;Get  an  element  of  A 

3539  001564 

DIVF 

ACO, ACl 

; Scale  A 

3540  001572 

STF 

AC1,(R0) 

; Store  A 

3541  001600 

060100 

ADD 

R1,R0 

;Point  to  next  A  element,  in  next  row 

3542  001602 

SOB 

R4, 22$ 

;Loop  for  each  element  in  the  colLinn 
;Back  up  to  next  colL#m 

3543  001606 

163700 

005102' 

SUB 

0PTMP6,R0 

3544  001612 

SOB 

R2,21$ 

,Loop  for  each  column 

3545 

;♦ 

AF 
MI 


nW 


n 


N 

16 
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(LEAST  SQUARES  FIT) 

35A6 

;  Start 

the  main  Householder 

transformation  loop 

35A7 

* 

3548  001616 

PUSH 

LARGPT 

;Sa\/e  pointer  to  B(k,1) 

3549  001622 

PUSH 

RAR6PT 

;Save  pointer  to  A(k,k) 

3550  001626 

005037 

005112' 

CLR 

OPTM10 

;K  =  0 

3551  001632 

013701 

005112' 

HOUSE : 

MOV 

OPTM10,R1 

;Get  K 

3552  001636 

010137 

005106' 

MOV 

R1,0PTMP8 

;Set  TI  =  K 

3553  0016A2 

010137 

005110' 

MOV 

R1 ,0PTMP9 

;Set  TJ  =  K 

3554  001646 

010100 

MOV 

R1,R0 

;Set  L  =  K 

3555  001650 

010103 

MOV 

R1,R3 

;Set  I  =  K 

3556  001652 

ASH 

PRECSN.R1 

; Convert  to  column  offset 

3557  001666 

011602 

MOV 

(SP),R^ 

;Get  pointer  to  A(k,k) 

3558  001670 

CLRF 

AC2 

;MV  =  0.0 

3559 

;-f 

3560 

;  Look 

for  the 

maximum  remaining  element  to  use  as  a   pivot 

3561 

•  - 

3562  001676 

23$: 

CLRF 

ACO 

;T  =  0.0 

3563  001704 

01 3704 

005112' 

MOV 

OPTM10,R4 

;J  =  K 

3564  001710 

24$: 

LDF 

fR2)>,AC1 

;Get  A(i,i) 

3565  001716 

ABSF 

ACl 

;Get  its  absolute  value 

3566  001724 

CMPF 

AC0,AC1 

;Is  T  .ge  .ab  A(i,i)  ? 

3567  001732 

CFCC 

»           .J                                      'J 

3568  001736 

002004 

BGE 

25$ 

;Yes 

3569  001740 

STF 

ACl, ACO 

;No,  Use  A(i,i)  as  new  T 

3570  001746 

010400 

MOV 

R4,R0 

;L  =  J 

3571  001750 

005204 

25$: 

INC 

R4 

;Next  J 

3572  001752 

020437 

005070' 

CMP 

R4,0PTMP1 

;End  of  a  row? 

3573  001756 

002754 

BLT 

24$ 

;No 

3574 

3575  001760 

CMPF 

AC2,AC0 

;MV  .g«  T  ? 

3576  001766 

CFCC 

'        ^ 

3577  001772 

002007 

BGE 

26$ 

;Y-s 

3578  001774 

STF 

AC0,AC2 

;No,  MV  =  T 

3579  002002 

010337 

005106' 

MOV 

R3,0PTMP8 

;TI  =  I 

3580  002006 

010037 

005110' 

MOV 

R0,0PTMP9 

;TJ  =  L 

3581  002012 

060102 

26$: 

ADD 

R1,R2 

;Next  row 

3582  002014 

005203 

INC 

R3 

;Next  I 

3583  002016 

020337 

005066' 

CMP 

R3.0PTMP0 

;End  of  the  columns? 

3584  002022 

002725 

BLT 

23i 

;No 

3585 

;-f 

3586 

;  Is  the  piv/ot 

canidate  large 

enough? 

3587 

;- 

3588  002024 

CMPF 

FUZZ,AC2 

;MV<Fuzz,  i.e.  Is  the  array  singular? 

3589  002034 

CFCC 

'        ij 

3590  002040 

002401 

BLT 

27% 

;No 

3591  002042 

104417 

DOMERR 

;Yes,  Domain  Error 

3592 

;  + 

3593 

;  Swap 

the  TJ 

and  K-th  columns,  the  11   and  K-th  rows  of  A,  and  the  TJ 

and  <-l 

3594 

;  elements  of  1 

^P. 

3595 

•  ^^ 

3596  002044 

^7$: 

PUSH 

RARGPT 

;Get  pointer  to  A 

3597  002050 

023737 

005112'  00511C 

)• 

CMP 

OPTM10,OPTMP9 

;Is  K  =  TJ  ? 

3598  002056 

3599 

3600  002060 

001427 

BEO 

29$ 

;Yes,  Then  don't  need  to  swap  columns 

or  PP 

013700 

005066' 

MOV 

OPTMP0,R0 

;Get  M 

3601  002064 

013701 

005110' 

MOV 

0PTMP9,R1 

;Get  TJ 

3602  002070 

013702 

000062' 

MOV 

NUMLFN,R2 

;Get  column  offset 

AP 

MI 
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B  11 


3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
36H 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
362A 
3625 
3626 
3627 
3628 
3629 
3630 
3631 


002074 
002100 

002104 
002110 
002112 
'  2116 
vX)2122 
002124 
002130 
002132 
002134 

002136 
002144 

002146 
002152 
002156 
002162 
002166 

002172 
002176 
002202 
002206 
002212 


013704  005100' 


01 3701 
006301 
063701 
013703 
006303 
063703 
011100 
011311 
010013 

023737 
001424 

013700 
01 3701 
013702 
013704 


013716 
01 3700 
013701 
013702 


005110' 

005076' 
005112' 

005076' 


005112'  005106'  29$; 


005070' 
005106' 
005100' 
000062' 


003164' 
005072 • 
005106' 
005104' 


MOV 

0PTMP5,R4 

CALL 

SWAP 

MOV 

0PTMP9,R1 

ASL 

R1 

ADD 

0PTMP4,R1 

MOV 

0PTM10,R3 

ASL 

R3 

ADD 

0PTMP4,R3 

MOV 

(R1),R0 

MOV 

(R3),(R1) 

MOV 

R0,(R3) 

CMP 

OPTM10,OPTMP8 

BEQ 

32$ 

MOV 

0PTMP1 ,R0 

MOV 

0PTMP8,R1 

MOV 

0PTMP5,R2 

MOV 

NUMLEN,R4 

CALL 

SWAP 

MOV 

LARGPT,(SP) 

MOV 

0PTMP2,R0 

MOV 

0PTMP8,R1 

MOV 

0PTMP7,R2 

CALL 

SWAP 

002216  005726 


32$: 


TST 


(SP)^- 


Get  the  length  of  a  row 

Swap  K-th  and  TJ-th  columns  of  A 

Get  TJ 

Convert  to  offset 

Convert  to  pointer  to  PP(tj) 

Get  K 

Convert  to  offset 

Convert  to  pointer  to  PP(k) 

Now  swap  the  elements  of  PP 

PP(ti)  and 

PP(k) 

Is  K  =  TI  ? 

Yes,  Then  skip  interchange  of  rows 

Get  N 

Get  TI 

Get  row  length 

Get  column  offset 

Swap  the  K-th  and  Tl-th  rows  of  A 

Get  B 

Get  P 

Get  TI 

Get  row  length 

Swap  the  K-th  and  Tl-t-h  rows  of  B 

Clean  matrix  pointer  off  stack 
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C  11 


3633 

363A 
3635 
3636 
3637 
3638 
3639 
36A0 
36A1 
3642 
3643 
364A 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3o83 
5684 
^685 
j686 
3687 
3688 
3659 


002220 
002224 
002226 
002232 
002236 
002240 
002242 
002246 
002254 
002260 
002270 
002274 
002276 
002304 
002312 
002320 
002326 
002336 
002344 
002352 
002360 

002366 
002372 
002400 
002406 
002412 

002416 
002424 
002432 
002436 
002442 
002446 

002450 
002460 
002466 
002472 
002476 
002502 
002510 
002512 
002516 


002520 
002524 
002530 
002544 
002560 
002562 
002566 


013703 
010304 
013700 
163700 
011601 
010102 


005100' 

005066' 
005112' 


Now  we  can  get  to  the  meat  of  the  transformations 


002403 


011637 
063737 
013737 


016637 
012737 
013716 
013704 

005726 


063766 
063716 
063716 
005237 
023737 
002002 
000137 
022626 


013700 
0137D1 


105020 
013701 


005110' 

000062*  005110' 
005112'  005106' 


000004  005110' 
M7777     005106' 
005072 ' 
005104' 


005104'  000002 
005100' 
000062' 
005112' 
005112'  005070' 

001632' 


MOV  0PTMP5,R3 

MOV  R3,R4 

MOV  OPTMP0,R0 

SUB  OPTMIO^RO 

MOV  (SP)-RI 

MOV  R1,R2 

CALL  INNER 

STF  AC0,AC4 

CALL  .SORT 

LDF  a(SP),AC1 
CFCC 

BLT  33$ 

NEGF  ACO 

33$:    STF  AC0,AC3 

STF  AC1,AC2 

SUBF  AC0,AC2 

STF  AC2,a(SP) 

MULF  AC0,AC1 

LDF  AC4,AC2 

SUBF  AC1,AC2 

STF  AC2,AC4 

MOV  (SP), 0PTMP9 

ADD  NUMLEN,0PTMP9 

MOV  OPTM10,OPTMP8 

PUSH  0PTMP1 

CALL  TRANS 

MOV  4(SP),0PTMP9 

MOV  #-1 ,0PTMP8 

MOV  0PTMP2,(SP) 

MOV  0PTMP7,R4 

CALL  TRANS 

TST  (SP)+ 


STF  AC3,a(SP) 

ADD  OPTMP7,2(SP) 

ADD  0PTMP5,(SP) 

ADD  NUMLEN,(SP) 

INC  OPTM10 

CMP  OPTM10,OPTMP1 

BGE  39$ 

JMP  HOUSE 

CMP  (SP)*,(SP)^ 


39$ 

■f 


003140' 
005070' 


005070' 


Now  do  the  back  substitutions 


BACK:   MOV  RESPTR,RO 

MOV  0FTMP1,R1 

MUL  0PTMP2,R1 

ASH  PRECSN,R1 

1$:     ClRB  (RO)^ 

SOB  R1J$ 

MOV  0PTMP1,R1 


Get  the  increment  for  vector  1 

Get  the  increment  for  vector  2 

Get  M 

The  number  of  elements  in  the  product 

Get  pointer  to  K-th  column  of  A 

Copy  pointer  to  K-th  column  of  A 

Get  the  inner  product  of  K-th  column  of 

Copy  it  to  T 

Get  ALFA  =  sqrt(T) 

Get  MV  =  A(k,k) 

Is  A(k,k)  positive? 

No 

Yes,  Then  ALFA  =  -ALFA 

Save  it  for  later 

Copy  A(k,k) 

A(k,k)  -  ALFA 

Save  it  in  A(k,k) 

MV  *  A(k,k) 

Get  T  into  a  FAC  we  can  use 

T  =  T  -  MV  *  A(k,k) 

Now  put  T  back  where  it  was 


;Get  pointer  to  A(k,k.) 

.-Point  to  K-»-1st  column 

;J  =  K 

;Get  number  of  colunns  to  process 

;/^ply  Householder  transforms  to  A 

;Get  pointer  to  first  column  of  B 

;J  =  1 

;NLmber  of  columns 

;Get  inner  product 

; Apply  Householder 

;Clean  up  stack 

;A(k,k)  =  ALFA 

;Next  row  of  B 

;Next  A(k>) 

;All  the  way 

;Next  K 

;Done  yet? 

;Yes 

;No 

;Clean  up  the  stack 


to  process 

column  increment  for  B 

transforms  to  B 


.-Point  to  the  result 

.-Get  N 

.-Times  P  =  number  of  elefnents 

.-Times  element  size  -  total  siee  in  bytes 

.-Zero  the  result 

.-Real  fast 

.-Get  N 
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D  11 


3690 
3691 
3692 
3693 
369A 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
3711 
3712 
3713 
37H 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
372A 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 


002572 
002574 
002600 
002602 
002616 
002622 
002626 
002634 
002642 
002656 

002662 
002666 
002670 
002674 
002676 
002702 
002706 
002712 
002716 
002724 
002726 


002732 
002736 
002746 
002752 
002756 
002764 
002766 
002770 
002776 
003000 
003006 
003014 
003016 
003024 
003032 
00304C 
003046 
003052 
003056 
003064 
003066 
003072 
003100 

003110 
003116 
003124 
003132 
003140 
003144 
003146 
003150 


005301 
010137 
010103 

063701 
010137 
063737 
063737 


01 3702 
006302 
063702 
011202 
013704 
163704 
163704 
010437 

005004 
01 3700 


013700 
01 3702 

012203 
060403 
023727 
001007 


000406 


063704 
005300 
003402 
000137 


005112' 


003206' 
005106' 

005100'  005106' 
005100'  005106' 


063703  003164 


005112' 

005076' 

005106' 
005100' 
000062' 
005106' 

005072' 


DEC  R. 

MOV  R1,0PTM10 

MOV  R1,R3 

MUL  0PTMP5,R1 

ADD  RAR6PT,R1 

MOV  R1 ,0PTMP8 

ADD  OPTMP5,OPTMP8 

ADD  OPTMP5,OPTMP8 

MUL  OPTMP7.R3 

ADD  LAR6PT,R3 

2$:     MOV  0PTM10,R2 

ASL  R2 

ADD  0PTMP4,R2 

MOV  (R2),R2 

MOV  0PTMP8,R4 

SUB  OPTMP5,R4 

SUB  NU«LEN,R4 

MOV  R4,0PTMP8 

LDF  (R4),AC3 

CLR  R4 

MOV  0PTMP2,R0 


.-Fudge  N  a  little  bit 

;I  =  N 

;Copy  It 

.•Offset  to  row  I  of  A 

.'Convert  to  pointer  fo  row  I  of  A 

;Sav/e  it 

.•Point  to  the  next  ro^ 

.•Point  to  the  end  of  the  row.  A(i,i) 

.•Offset  to  row  I  of  B 

.•Convert  to  pointer  to  row  I  of  B 


Z 

i) 


Get  I 

Convert  to  word  offset  to  PP(i) 

Convert  to  pointer  to  PP(i) 

Get  pointer  to  row  PP(i)  of 

Get  pointer  to  previous  A(i 

Back  up  one  row 

Back  up  one  element 

Save  pointer  to  new  A(i.i) 

Get  A(i.i) 

Colunn  offset  for  Z 

J  =  P 


Do  special  inner  product,  rows  of  A  with  columns  of  Z 


h: 


005070' 
005076' 


000062'  000004 


4$: 


5$: 
6$: 


063701  000062' 

023727  000062'  000004 
001005 


7$: 


000062 • 
002732' 


SETD 

PUSH  <R0,R1.R2.R3> 

MOV  optmpi.ro 

MOV  0PTMP4.R2 

CI-RF  ACO 

MOV  (R2)^.R3 

ADD  R4.R3 

CMP  NUMLEN.#4 

BNE  5$ 

LDCFD  (RD.ACI 

LDCFD  (R3),AC2 

BR  6$ 

LDF  (RD.ACI 

LDF  (R3).AC2 

MULF  AC2.AC1 

ADDF  AC1.AC0 

ADD  NUMLEN.R1 

SOB  R0.4$ 

CMP  NU«LEN.#4 

BNE  7$ 

SETF 

LDCDF  ACO. ACO 

POP  <R3.R2,R1.R0> 

LDF  (R3)^.AC1 

SUBF  AC0.AC1 

DIVF  AC3.AC1 

STF  AC1.(R2)^ 

ADD  NUMLEN.R4 

DEC  RO 

BLE  8$ 

JMP  3$ 


.•Force  double  precision  mode 

;Save  some  registers 

;Get  the  number  of  elements  in  product 

;Get  pointer  to  PP  vector 

;For  result  of  inner  product 

.•Point  to  Z(PP(i)).  the  next  row  of  Z 

;Add  colunn  offset  so  pointing  to  Z(PP(i) 

.-Are  we  in  single  precision  mode? 

;No.  good 

.'Convert  A(i.j)   to  double  precision 

.'Cofivert  Z(PP(i).j)   to  double  orecision 

;Get  A(i.j) 

;Get  Z(PP(i).j) 

;Form  the  product 

.'Accumulate  the  sum 

.'Next  column  of  A 

;Loop  for  all  the  elements 

.'Are  we  in  single  precision  mode? 

.'No,  Good  we  can  return 

.'Yes,  Go  back  to  single  precision  mode 

.'Convert  result  to  single  precision 

.'Restore  the  registers 

.'Get  B(i.i) 

.'B(i.i)  -  A(i.j).Z(PP(i).i) 

;(8(i.i)  -  A(i.i).Z(PP(i).]))  /  A(i.i) 

.'Save  It  in  Z(PP(i).j) 

.'Next  column  of  Z 

.'Loop  for  each  coUjmn  of  Z  (This  should 

;  be  SOB  R0.3$  but  3$  is  too  far  away) 
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37A7 

37A8  0031 5A 

163701 

005100' 

8$: 

SUB 

0PTMP5,R1 

;Back  up  one  row  of  A 

37A9  003160 

163703 

005104' 

SUB 

OPTMP7,R3 

;Back  up  one  row  of  B 

3750  0031 6A 

163703 

005104' 

SUB 

0PTMP7,R3 

3751  003170 

005337 

005112' 

DEC 

OPTM10 

;I  =  I  -  1 

3752  0031 7A 

002232 

BGE 

2$ 

;Loop  for  each  row  of  A 

3753 

;  + 

375A 

;  Now 

rescale 

»  the  result 

3755 

;- 

3756  003176 

013700 

003140' 

MOV 

RESPTR,R0 

; Point  to  the  result 

3757  003202 

01 3701 

005070' 

MOV 

OPTMPURI 

;Get  I 

3758  003206 

013703 

005074 ' 

MOV 

OPTMP3,R3 

;Point  to  Factor 

3759  003212 

9$: 

LDF 

(R3)*.AC1 

;Get  FACTOR(i) 

3760  003220 

013702 

005072' 

MOV 

OPTMP2,R2 

;Get  J 

3761  00322A 

10$: 

LDF 

(RO),ACO 

;Get  Z(i,j) 

3762  003232 

DIVF 

AC1,AC0 

;m,])   /   FACTOR(i) 

3763  0032A0 

STF 

ACO,(RO)+ 

;Store  the  scaled  result 

Z      003244 

010020 

MOV  AC0,(R0)* 

3764  003246 

SOB 

R2J0$ 

;Loop  for  each  column 

3765  003252 

3766 

3767  003256 

SOB 

R1,9$ 

;Loop  for  each  row 

CALL 

KILL 

.•Delete  FACTOR  and  PP  vectors 

3768  003262 

RETURN 

;All  done  at  last 

3769 

;-f 

3770 

;  This 

subroutine  performs 

the 

inner  product  between  various  colim  vectors 

3/n 

;  poir 

ited  to 

by  the  foUowi 

nq  register  setup.                                      1 

3772 

RO  - 

Number  of  elements 

in  vectors 

3773 

R1  - 

Pointer  to  first  vector                                             I 

3774 

R2  - 

Pointer  to  second 

vector 

3/^5 

R3  - 

Step  to  next  € 

element  for  vector  1 

3776 

R4  - 

Step  to  next  € 

'lement  for  vector  2 

3777 

ACO  - 

•  Inner  product 

3^/8 

AC1  - 

•  Temporary 

UN 

AC2  - 

•  Temporary 

3780 

•  — 

3781 

3782  003264 

INNER: 

SETD 

.-Force  double  precision  mode 

3783  003270 

CLRF 

ACO 

.-Zero  the  result 

3784  003276 

023727 

000062 ' 

000004 

1$: 

CMP 

NUMLEN,/r4 

.-Are  we  in  single  precision  mode? 

3785  003304 

001007 

BNE 

2$ 

;No,  good 

3786  003306 

LDCFC 

>   (R1),AC1 

.'Convert  element  of  vector  1  to  double  precision 

3787  003314 

LDCFC 

>   (R2),AC2 

.'Convert  element  of  vector  2   to  double  precision 

3788  003322 

000406 

BR 

3$ 

^^ 

3789  003324 

2$: 

LDF 

(R1),AC1 

;Get  next  element  of  vector  1 

3790  003332 

LDF 

(R2),AC2 

;Get  next  element  of  vector  2 

3791  003340 

3$: 

MULF 

AC2,AC1 

.'Form  the  product 

3792  003346 

ADDF 

AC1,AC0 

.'Accumulate  the  sun 

3793  003354 

060301 

ADD 

R3,R1 

.'Next  element  of  vector  1 

3794  003356 

060402 

ADD 

R4,R2 

.'Next  element  of  vector  2 

3795  003360 

SOB 

ROJ$ 

.'Loop  for  all  the  elements 

3796  003364 

021727 

000062' 

000004 

CMP 

NUMLEN,#4 

.'Are  we  in  single  precision  mode? 

3797  003372 

001005 

BNE 

4$ 

;No 

3798  003374 

SETF 

.'Yes,  Change  back  to  single  precision  mode 
.'Convert  the  result  back  too 

3799  003400 

LDCDF 

ACO. ACO 

3800  003406 

4$: 

RE  TURN 

;  Done 

3801 

3802 
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F  11 


3803 
380A 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
382A 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 


This  subroutine  applies  the  Householder  transformations  to  the  array 

pointed  to  by  0PTMP9.  Other  inputs  include: 
0PTMP8  -  Initial  column 
Top  of  stack  -  Number  of  columns  to  process 
R4  -  Inner  product  increment  for  input  columns 

The  value  on  the  top  of  the  stack  is  left  there  by  TRANS  and  must  be 

popped  off  after  TRANS  has  returned. 


003410 
003414 
003422 
003424 
003426 
003432 
003436 
003442 
003446 
003452 
003460 
003464 
003470 
003474 
003500 
003506 
003514 
003522 
003530 
003536 
003540 
003542 
003546 
003554 


005237 
023766 
002401 

013700 
163700 
016601 
013702 


013700 
163700 
016601 
013702 


005106' 
005106'  000002 


005066' 
005112' 
000004 
005110' 


005066' 
003112' 
000004 
005110' 


TRANS; 


1$; 


2$ 


060301 
060402 

063737 
00071 5 


000062'  005110' 


INC 

CMP 

BLT 

RETURN 

MOV 

SUB 

MOV 

MOV 

CALL 

DIVF 

MOV 

SUB 

MOV 

MOV 

LDF 

MULF 

LDF 

SUBF 

STF 

ADD 

ADD 

SOB 

ADD 

BR 


0PTMP8 

0PTMP8,2(SP) 

1$ 

OPTMPO,RO 

OPTM10,R0 

4(SP),R1 

0PTMP9,R2 

INNER 

AC4,AC0 

OPTMPO.RO 

OPTMIO^RO 

4(SP),R1 

0PTMP9,R2 

(R1),AC1 

ACO^ACI 

(R2),AC2 

AC1,AC2 

AC2,(R2) 

R3,R1 

R4,R2 

R0,2$ 

NUMLEN,0PTMP9 

TRANS 


J  = 
Any 
Yes 
No, 
Get 
The 


J  -»■  1 
columns 


left? 


Then  all  done 

M 

number 


of  elements  in  product 
Pointer  to  K-th  column  of  A 
Get  pointer  to  J-th  column 
Get  inner  product  of  Kth  col  of  A  anc  Jth  col 
MV  =  A(k,k).A(k,i)  /  T 
Get  M 

The  number  of  elements  to  loop  on 
Point  to  K-th  colunn 
Point  to  J-th  colLinn 
Get  A(i,k) 
A(i,k)  *  MV 
Get  A(i,j) 

A(i,j)  -  A(i,k)  ♦  MV 
A(i,j)  =  A(i,j)  -  A(i,k) 
Next  row  of  colcinn  K 
Next  row  of  column  J 
Loop  on  each  row 
Next  colunn  of  second  array 
Loop  on  each  cclirtn 


MV 


This  subroutine 
parameters  are: 

RO  - 

R1  - 

R2  - 

R3  - 

R4  - 


is  used  to  swap  rows  or  colunns  of  a   matrix.   The  input 


The  number  of  elements  to  swap 
Index  of  first  row  or  colunn 
Offset  for  converting  index  to  a  pointer 
Not  an  input,  but  used  to  hold  the  index  K 
Increment  for  stepping  along  row  or  colcinn 
2(SP)  -  Pointer  to  matrix  whose  rows  or  coltjnns  are   being  swapped 
This  must  be  removed  when  finished  using  the  routine. 


003556 
003570 
003574 
003600 
003612 
003616 
003624 
003632 
003640 
003646 


066601 
013703 


000002 
005112' 


066603  000002 


060401 


SWAP:   MUL  R2,R1 

ADD  2(SP).R1 

MOV  OPTM10,R3 

MUL  R2,R3 

ADD  2(SP),R3 

1$:     LDF  (R1),AC0 

LDF  (R3),AC1 

STF  AC0,(R3) 

STF  AC1,(R1) 

ADD  R4,R1 


Convert  index  to  an  offset 
Convert  offset  to  a  pointer 
Get  index,  K 
Convert  it  to  an  offset 
Convert  the  offset  to  a   pointer 
Get  element  cf  first  row  or  coiLtnr. 
Get  element  uf  K-th  ro^  or   column 
Swap  them 
around 
Next  element  of  first  row  or  colLinn 


/>   4  4 
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3860  003650  060A03 

3861  003652 

3862  003656 
3864  003660 


G  11 


ADD 

RA,R3 

;Next  element 

SOB 

ROJ$ 

;Loop  for  all 

RETURN 

LIST 

of  K-th  row  or  column 

the  elements  of  the  row  or  column 


II  •«  <« 


H  11 
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3866  003660  DOPINS  MEM, 70 

3921  003660  LIST 


T-TT 
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TTT 


3923 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
4022 
A023 
4024 
4025 
4026 
4027 
4028 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4161 


003660 
003660 


MOPINS  NUB J  06 
LIST 


003660 
003660 


DOPINS  UNONJ06 
LIST 


003660 
003660 


DOPINS  INTR,66 
LIST 


003660 
003660 


DOPINS  SDIF,50 
LIST 


I  11 
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A163 
4179 
41 80 
4181 
4182 
4200 
4201 
4202 
4203 
4209 
4210 
4211 
4212 
4288 


003660 
003660 


003660 
003660 


003660 
003660 


003660 
003660 
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DOPINS     SCON, 234 
LIST 


DOPINS  C0NTJ12 
LIST 


J  11 


DOPINS     PSUB,236 
LIST 


DOPINS  SUBS  J 16 
LIST 


k'  11 
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A290  003660 
A336  003660 


PAGE  70 

(LEAST  SQUARES  FIT) 


K  11 


MOP INS 


EXE, 70 
LIST 


"rrr 
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A338  003660 
4A11  003660 
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L  11 


^ 


MOP INS 


ENCD,76 
LIST 


M  11 
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AA13  003660 

A423  003660 

442A 

AA25 

4426 

4427 

4428 

4429  003660 
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M  11 


A 

M 


MOP INS 


FMTJ60 
LIST 


DOPINS  FMTJ60 


N  11 
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LIST 


N  11 


Ai 
M 
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A955  003660 

A958  003660 

4959 

4%0 

4%1  003660 

50A6  003660 


10:28  PAGE  74 

DIVIDE  (LEAST  SQUARES  FIT) 

MOPINS     iaMJ32,,,M0NIBM 
LIST 


DOPINS     IBMJ32 
LIST 


TTT 
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50A8  0u36o0 

5075  003660 

5076 

5077 

5078 

5079 

5080 

5081   003660 

5097  003660 

5098 

J099 

5100 

5101 

5102 

5103  003660 

5135  003660 

5136 

5137 

5138 

5139 

5140 

5U1   003660 

5152  003660 

5153 

5154 

5155 

5156 

5157 

5158  003660 

5192  003660 

5193 

5194 

5195 

5196  003660 

5199  003660 


MATRIX  DIVIDE    (LEAST   SQUARES  FIT) 


MOPINS     QUAD,74,T.NIL+T.SP0P 
LIST 


DOPINS     QUAD,74,T.NIL^T.SP0P 
LIST 


MOPINS     QQADJ42,T.NIL  +  T.SP0P 
LIST 


DOPINS     QQADJ42,T.NIL'»-T,SP0P 
LIST 


MOPINS     DQADJ34,T.NIL  +  T.SP0P 
LIST 


DOPINS     DQADJ34,T.NIL*T.SP0P,,D$QQAD 
LIST 


D  M 
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5201 

003660 

MOP INS 

BXAVJ62,T.NIL 

5219 

003660 

LIST 

5220 

5221 

5222 

5223 

522A 

5225 

003660 

MOP INS 

BXCT,164.T.NIL+T.SP0P 

5234 

003660 

LIST 

5235 

5236 

5237 

003660 

DOPINS 

BXCTJ64,T.NIL  +  T.SP0P 

5272 

003660 

LIST 

5273 

5274 

5275 

5276 

5277 

5278 

003660 

MOP INS 

BXI0J66,T.NIL+T.SP0P 

5287 

003660 

LIST 

5288 

5289 

5290 

003660 

DOPINS 

BXICJ66,T.NIL>T.SP0P 

5302 

003660 

LIST 

5303 

5304 

5305 

5306 

5307 

003660 

MOP INS 

BXLC,212,T.NIL 

5340 

003660 

LIST 

5341 

5342 

5343 

5344 

5345 

5346 

5347 

003660 

MOP INS 

BXPPJ70, T.NIL  +  T.SPOP 

5356 

003660 

LIST 

5357 

5358 

5359 

003660 

DOPINS 

BXPPJ70,T.NIL^T.SPOP 

5381 

003660 

LIST 

5382 

5383 

5384 

5385 

5386 

5387 

5388 

003660 

MOP INS 

BXPWJ72,T.NIL  +  T.SP0P 

5397 

003660 

LIST 

5398 

5399 

5A00 

003660 

DOPINS 

BXPWJ72,T.NIL  +  T.SP0P 

5A17 

003660 

LIST 

5A18 

5419 

5A20 

APL008  I^CRO  M1113  08-FEB-80  10:28  PAGE  76-1 

MATRIX  DIVIDE  (LEAST  SQUARES  FIT) 


rrr 


MIXED  FUNCTION 

5A21 

5A22 

5A23 

003660 

5A32 

003660 

5A33 

5A3A 

5A35 

003660 

5AA7 

003660 

54A8 

5A49 

5450 

5451 

5452 

5453 

003660 

5562 

003660 

5563 

5564 

5565 

5566 

5567 

5568 

5569 

003660 

5592 

003660 

MOPINS  BXRL,174,T.NIL+T.SP0P 
LIST 


DOPINS     BXRLJ74,T.NIL  +  T.SP0P 
LIST 


MOPINS     BXTS,200,T.NIL 
LIST 


MOPINS     BXWAJ76,T.NIL 
LIST 


J 
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559A  003660 
5716  003660 


MOPINS  BXCR,206 
LIST 
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5718  003660 
5775  003660 


MOPINS 


BXEX,202 
LIST 


-nr 
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5777  003660 
5879  003660 
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(LEAST  SQUARES  FIT) 


¥17 


MOPINS 


BXFX,210 
LIST 


APL008  MACRO  Mil  13  08-FEB-80  10:28  PAGE  80 

MIXED  FUNCTION         MATRIX  DIVIDE  (LEAST  SQUARES  FIT) 


TIT 


5881  003660 
5950  003660 


MOPINS 


BXNC,204 
LIST 


T-TT 
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5952  003660 

5963  003660 

596A 

5965 

5966  003660 

61 OA  003660 


MOPINS  BXNL,2K 
LIST 


DOPINS  BXNL,  2K 
LIST 


TT- 
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6106  003660 

6330  003660 

6331 

6332 

6333 

6334 

6335 

6336  003660 

6485  003660 


DOPINS 


FGET,150,T.DIM 
LIST 


DOPINS 


FPUTJ52,T.DIM 
LIST 


TTT 
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DOPINS     FPNTJ54,T.DIM 
LIST 


TIT 


M    17 
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6716  003660 

MOPINS 

1SCNJ30 

6723  003660 

LIST 

672A 

6725 

6726  003660 

MOP INS 

SCAN, 62, T. DIM 

6732  003660 

LIST 

6733 

673A 

6735  003660 

MOPINS 

1RDTJ2A 

67A1  003660 

LIST 

67A2 

6743 

674A  003660 

MOP INS 

RDC7,60,T.DIM 

70A4  003660 

LIST 

s 

N 
K 

^ 

N 
K 

^ 
^ 

N 

^ 
^ 

h 
h 

fs 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


T 

« 

D 

e 

« 

D 
C 


TTTT 
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70A6 
7193 


003660 
003660 


MOP INS 


GETIDN,0 
LIST 


Al 

CI 
V 
A! 
0\ 
Tl 
MI 
Ml 
C( 
Pi 
%\ 
Di 
Dl 
Di 
El 

v: 

D' 
El 
Al 


n 
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7195  003660 
7A0A  003660 


MOPINS 


SATAN, 0 
LIST 


TfT 
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7A06  003660  MOPINS  OUTRJ56 

7A76  003660  LIST 


APL008  MACRO  Mil  13  08-FEB-80  10:28  PAGE  88 

MIXED  FUNCTION         MATRIX  DIVIDE  (LEAST  SQUARES  FIT) 


TIT 


7478  003660 

750A  003660 

7505 

7506 

7507 

7508 

7509 

7510  003660 

7564  003660 

7565 

7566 

7567 

7568 

7569 

7570  003660 

7612  003660 


MOPINS  DOUTER,0 
LIST 


MOPJNS  PRDSET,0 
LIST 


^-lOPINS  INSPACO 
LIST 


TTT 
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761 A  003660  DOPINS  INNRJ56 


TfT 
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7%0  003660  LIST 


GlT 
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7%2  003660  MOP  INS     SUBR,0 


fnr 
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8725  003660  LIST 


1  J I 
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8727  003660 
8771  003660 
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(LEAST  SQUARES  FIT) 


TU 


MOPINS 


RAND,0 
LIST 
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ACO   = 

XOOOOOO 

CHRFR0= 

000135 

C.AL0C= 

000162 

D.CTLM= 

000000 

EDIFLG 

005062R 

025 

AC1   = 

X000001 

CHRLBR= 

000073 

C.BL0K= 

000064 

D.DEAL= 

000003 

EDIT  = 

000003 

AC2   = 

X000002 

CHRLPR= 

000072 

C.8LSZ= 

000140 

D.DECD= 

000002 

U%       = 

000000 

AC3   = 

X000003 

CHRMNS= 

000137 

C.BUFF= 

177760 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

AC4   = 

X000004 

CHRMUL= 

000075 

C.BUFL= 

177762 

D.DMD  = 

000010 

EMPTY  = 

•*•••*  GX 

ACS   = 

X000005 

CHRNE6= 

000100 

C.CCNT= 

1 77766 

D.DQAD= 

1 77777 

ENDCOR 

000004R 

025 

ALL I NT 

003274R 

025 

CHRPDL= 

000271 

C.CPTR= 

1 77764 

D.DROP= 

000002 

EOF   = 

104475 

ARYRET 

003276R 

025 

CHRPLU= 

000055 

C.CZ  = 

001000 

D.ENCD= 

000002 

ERRMAX= 

000166 

ASCQUO=  0000A2 

CHRPWR= 

000120 

C.DIG  = 

000040 

D.EQ  = 

000000 

ERRNUM 

004772R 

025 

A.ALEN=  000004 

CHRQST= 

000121 

C.FASW= 

020000 

D.EXPD= 

000002 

ERRPTR 

004770R 

025 

A.ARG  = 

000040 

CHRQUO=  000113 

C.FLEN= 

000010 

D.FGE. 

000005 

ERRO 

004774R 

025 

A.ASB  = 

000200 

CHRRBR= 

000047 

C.FLSH= 

004000 

D.FMT  = 

000004 

EXEBUF 

005054R 

025 

A.BITS= 

000003 

CHRRPR= 

000042 

C.FRC  = 

000001 

D.FPNT= 

000005 

E$CT 

005056R 

025 

A. CON  = 

000020 

CHRSEM= 

000074 

C.IDEN= 

000010 

D.FPUT= 

000005 

E$PT 

005060R 

025 

A,DIMS= 

000002 

CHRSMO= 

000112 

C.NAME= 

000102 

D.GE  = 

000000 

FA.APD= 

000100 

A.Dim  = 

000006 

CHRSPA= 

000040 

C.N0BF= 

000400 

D.GT  = 

000000 

FA.CRE= 

000010 

A.NUM  = 

000006 

CHRUPA= 

000131 

C.NUM  = 

000020 

D.IBM  = 

000002 

FA.DLK= 

001000 

A.PTR  = 

000000 

CHR.BS= 

000010 

COP  = 

000004 

D.IND  = 

000002 

FA.E^B= 

100000 

A.TMP  = 

000010 

CHR.CC= 

000003 

C.OPN  = 

010000 

D.INNR= 

000013 

FA.EXC= 

002000 

BACK 

002520R 

020 

CHR.CR= 

000015 

C.RDLN= 

1 77776 

D.INTR= 

000006 

FA.EXT= 

000004 

BADDIR= 

104A63 

CHR.CZ= 

000032 

C.REWT= 

002000 

D.LE  = 

000000 

FA.NSP= 

000100 

BADERR= 

104437 

CHR.6T= 

000046 

C.RND  = 

000010 

D.LOG  = 

000001 

FA.NSR= 

000200 

BLZBUB 

0051 16R 

025 

CHR.LF= 

000012 

C.S8IT= 

1 77756 

D.LT  = 

000000 

FA.POS= 

010000 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.SPFX= 

000100 

D.MAX  = 

000000 

FA.RD  = 

000001 

CCNT 

005072R 

025 

CHR.SI= 

00001 7 

C.SPGL= 

000200 

D.MEM  = 

000002 

FA.RWD= 

004000 

CHA^€X 

003060R 

025 

CHR.SL= 

000057 

C.SPLX= 

000001 

D.MIN  = 

000000 

FA.SEQ= 

040000 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C . SPRS= 

000002 

D.MUL  = 

000000 

FA.SHR= 

000040 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C.SRC  = 

1 7777^, 

D.NE  = 

000000 

FA.TMP= 

000020 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.SRCP= 

000024 

D.NN  = 

000000 

FA.WCK= 

020000 

CHAN03 

000674R 

025 

CHR. .A— 

000141 

C.TT  = 

000004 

D.NR  = 

000000 

FA.WRT= 

000002 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.WIDC= 

177770 

D.OR  = 

000000 

FD.BLIC= 

000010 

CHAN05 

001240R 

025 

CHR..S= 

000163 

C.WIDR= 

\77772 

D.PLUS= 

000000 

FD.CCL= 

000002 

CHAN06 

001422R 

025 

CHR..T= 

000164 

DEBUG  = 

000000 

D.PSUB= 

000006 

FD.COM=  020000 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEFERR= 

104405 

D.PWR  = 

000001 

FD.CR  = 

000002 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEVIL 

0051 14R 

025  D.QQAD= 

000000 

FD.DIR^ 

000010 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DEVNTF= 

104470 

D.QUAD= 

000000 

FD.FTN= 

000001 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIGITS 

000006R 

025  D.RES  = 

000000 

FD.F11= 

040000 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DIMAX  = 

000020 

D.RHO  = 

000000 

FD.INS= 

000010 

CHAN12 

002676R 

025 

CMDBUF 

003250R 

025 

DIMBLK 

0031 12R 

025  D.ROT  = 

000003 

FD.ISP= 

002000 

CHAN13 

000022R 

023 

CMD«AX= 

000010 

DIMPTR 

0031 14R 

025  D.SCON=  000006 

FD.MNT= 

100000 

CHANK 

000204R 

023 

CNTSIZ 

005130R 

025 

DIMTYP 

0031 16R 

025  D.SDIF= 

000006 

FD.OSP= 

004000 

CHNOPN= 

104471 

COMBIN 

005076R 

025 

DIRFUL= 

104466 

D.SUB  = 

000000 

FD.PLC= 

000004 

CHRAND= 

000051 

COMCNT 

0051 26R 

025 

DOMERR= 

104417 

D.SIRS= 

000006 

FD.PRN=  000004 

CHR8EL= 

000007 

COWERR= 

104425 

DPTERR= 

104416 

D.TAKE= 

000002 

FD.PSE= 

010000 

CHRBKR= 

000133 

COIPTR 

005122R 

025 

DYDCNT 

003224R 

025  D.TRAN=  000004 

FD.RAH= 

000001 

CHR80L= 

000200 

COMRTN 

0031 56R 

025 

D$DMD 

000460RG 

020  D.UN0N=  000006 

FD.RAN= 

000002 

CHR80X== 

000114 

COMSKP 

0051 24R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.REC= 

000001 

CHRC«A= 

000054 

CONVER= 

ntnititit   GX 

D.BXCT= 

000007 

D.$MIN=  000000 

FD.RWM= 

000001 

CHRCa= 

000076 

CORPTR 

0051 20R 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SDI= 

000020 

CHRDEL= 

000107 

CS.ASS= 

000200 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.SQD= 

000040 

CHRDIV= 

000053 

CS.800= 

000010 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.TTY= 

000004 

CHRDLR= 

000176 

CS.FLO= 

000020 

D.BXPW= 

000007 

D.$SUB= 

000000 

FD.UBH= 

000002 

CHRDLT= 

000110 

CS.IDN= 

000040 

D.BXRL= 

000007 

D.1C0M=  000001 

FF.CHR= 

000005 

CHRDOT= 

000056 

CS.ONE= 

000100 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.NV  = 

000003 

CHREP  = 

000105 

CTEPS 

0001 52R 

025 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.P0E= 

000002 

CHRERR= 

104431 

CTMAX 

00021 2R 

025 

D.coriP= 

000001 

EDI CHR 

005063R 

025  FF.RWD= 

000001 

CHRFIL= 

000177 

CTRMAX 

0001 72R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF.RWF= 

000006 

TT 
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FF.SPC=  000004 

F.ERR  = 

000052 

GETFRA= 

*«**t*  GX 

L.BITS= 

000003 

M.NUM  =  000204 

FHEADR  00501 2R 

025 

F.FACC= 

000043 

GNOME 

0031 02R 

025  L.CNT  = 

000002 

M.0UTR=  000012 

FHRET   0O5O40R 

025 

F.FFBY= 

000014 

HASHC 

005136R 

025  L.PRNT= 

000001 

M.PITM=  000000 

F1LNTF=  10AA67 

F.FLAG= 

000002 

HASHTB 

0051 40R 

025  L.PTR  = 

000000 

M.PRDS=  000006 

FIS   =  000000 

F.FLB  = 

000100 

HOUSE 

001632R 

020  L.PTR1= 

000004 

M.QQAD=  000000 

FISCON=  0A6000 

F.FNAM= 

000110 

HSHMSK= 

177601 

L.SUBS= 

000002 

M.QUAD=  000000 

FIXPTR  00307AR 

025 

F.F^e  = 

000102 

HSHSIZ= 

000200 

MACHIN= 

000106 

M.RAND=  000012 

FLAGS   0OA764R 

025 

F.FNDF= 

000010 

lASH  = 

******  GX 

MAXCHN=  000014 

M.RAVL=  000000 

FLARGC=  *♦**♦♦  GX 

F.FTYP= 

000116 

KHAN 

005050R 

025  MONBLK 

0031 20R 

025  M.RCIP=  000000 

FLCBUF  003250R 

025 

F.FUN  = 

000010 

ILFNAri= 

104464 

MONCVT 

0031 32R 

025  M.RDCT=  000011 

FLINE   005014R 

025 

F.FVER= 

000120 

ILLCHN= 

104540 

MONLEN 

0031 30R 

025  M.REVS=  000003 

FLOEXP  003270R 

025 

F.HEAD= 

000006 

ILLSW  = 

104565 

MONPTR 

0031 22R 

025  M.ROLL=  000000 

FLONEG  003272R 

025 

F.HIBIC= 

000004 

IMUL  = 

******  GX 

MONSFT 

0031 26R 

025  M.SATA=  000001 

FLSWTB  000222R 

025 

F.LBL  = 

000020 

INDERR= 

104410 

MONTYP 

0031 24R 

025  M.SCAN=  000011 

FLTLEN=  000010 

F.LINE= 

000012 

INNER 

003264R 

020  MONVAL 

0031 34R 

025  M.SHAP=  000000 

FMONCT=  ******  GX 

F.LOC  = 

000004 

INNTMP 

003250R 

025  MSMMD 

OOOOOORG 

020  M.SIGN=  000000 

FNINSI  005044R 

025 

F.LSTC= 

000004 

INNTM2 

00501 6R 

025  M.ABS  ' 

000000 

M.SI.fiR=  000001 

FORIGN  000032R 

025 

F.LUN  = 

000042 

INPTR 

000064R 

025  M.BOL  = 

000200 

M.SYM  =  000203 

FO.APO=  000106 

F.mcj= 

000054 

INSNAri= 

104462 

M.BXAV= 

000007 

M.SYN  =  000201 

FO.MFY=  000002 

F.MBC1  = 

000055 

lOERR  = 

104477 

M.BXCR= 

000007 

M.TRAN=  000012 

FO.RD  =  000001 

F.I«FG= 

000056 

I.CNT  = 

177776 

M.BXCT= 

000007 

M.$ABS=  000000 

FO.UPO=  000006 

F.MON  = 

000002 

I. DIM  = 

177772 

M.BXEX= 

000007 

M.$CEI=  000000 

FO.URT=  000016 

F.NIL  = 

000001 

I.LEN  = 

000012 

M.BXFX= 

000007 

M.$FLR=  000000 

FPMOOE  000042R 

025 

F.NRBD= 

000024 

I.OERR= 

000062 

M.BXIO= 

000007 

M.$IDN=  000000 

FPP   =  000000 

F.NREC= 

000030 

I. OLD  = 

177770 

M.BXLC= 

000003 

M.$NEG=  000000 

FPPLEN=  000004 

F.OPN  = 

000010 

I.PTR  = 

177774 

M.BXNC= 

000007 

M.$SIG=  000000 

FRARGC=  ******  GX 

F.OVBS= 

000030 

I. SIR  = 

177766 

M.BXNL= 

000007 

M.1RDT=  000011 

FREBLK  007400R 

025 

F.PREV= 

000000 

KILL  = 

******  GX 

M.BXPP- 

000007 

M.1REV=  000003 

FUZZ    0001 42R 

025 

F.PRNT= 

100000 

LABERR= 

104406 

M.BXPW=  000007 

M.1SCN=  000011 

FXPTR1  003076R 

025 

F.PR0T= 

010000 

LABLPT 

005042R 

025  M.BXRL= 

000007 

NAMBUF  003240R     025 

F$EVAL=  000100 

F.RACC= 

000016 

LARQBL 

0031 62R 

025  M.8XTS= 

000007 

NB.DEV=  000200 

F$EVI  =  000200 

F.RATT= 

000001 

LARGCV 

0031 76R 

025  M.BXWA= 

000007 

NB.DIR=  000100 

F$EXEC=  000400 

F.RCM>1=  000034 

LARGFL 

0031 60R 

025  M.CEI  = 

1 11111 

NB.NAM=  000004 

F$FUNC=  001000 

F.RCTL= 

00001 7 

LARGLE 

0031 74R 

025  M.CHR  = 

000202 

NB.SD1=  000400 

F.ACTL=  000076 

F.READ= 

oc;ooo 

LARGLN 

0031 66R 

025  M.CMT  = 

000206 

NB.SD2=  001000 

F.ALOC=  000040 

F.REDF= 

000040 

LARGPT 

0031 64R 

025  M.DOUT= 

000006 

NB.Sr#1=  000040 

F.BBFS=  000062 

F.RES  = 

000040 

LARGSF 

0031 72R 

025  M.DQAD= 

000006 

NB.STP=  000020 

F.BOB  =  000070 

F.RET  = 

M1772 

LARGTY 

0031 70R 

025  M.ENCD= 

000004 

NB.SVR=  000010 

F.BGBC=  000057 

F.RSIZ= 

000002 

LARGVA 

003200R 

025  M.EXE  = 

000000 

NB.TYP=  000002 

F.BITS=  177774 

F.RTYP= 

000000 

LBINC 

005100R 

025  M.EXP  = 

000001 

NB.VER=  000001 

F.BKDN=  000026 

F.R2     = 

000014 

LBUFF 

00331 6R 

025  M.FACT= 

000001 

ND.DEV=  000200 

F.BICDS=  000020 

F.R3  = 

000016 

LBUFLN=  000621 

M.FIL  = 

000177 

ND.EXT=  000002 

F.B»CEF=  000050 

F.R4  = 

000020 

LCOUNT 

005106R 

025  M.FLR  = 

1 11111 

ND.NAM=  000004 

F.BKP1=  000051 

F.SEQN= 

000100 

LENERR= 

104412 

M.FMT  = 

000004 

ND.PPN=  000100 

F.B»CST=  000024 

F . SPDV= 

000072 

LENTAB 

000054R 

025  M.GDUP= 

000003 

ND.$EX=  000000 

F.BK\/B=  000064 

F.SPUN= 

000074 

LEXPTR 

0031 OOR 

025  M.GDWN=  000003 

ND.$E$=  000020 

F.BR  =  000020 

F.STBK= 

000036 

LFTOP 

005066R 

025  M.6ETI= 

000006 

ND.$NM=  000000 

F.CHR  =  000075 

F.STK  ^ 

000022 

LINC 

0051 02R 

025  M.IBM  = 

000003 

ND.$N$=  000040 

F.CNTG=  000034 

F.ST0P= 

000004 

LINE 

00501 6R 

025  M.IDN  = 

000000 

ND. $PN=  001400 

F.CODE=  000010 

F.STP  = 

000001 

Lm\H{. 

005026R 

025  M.INSP= 

000006 

NEGSGN  005063R    025 

F.DF^JB=  000046 

F . SUSP= 

000002 

LISIZE= 

000020 

M.I0TA= 

000000 

NINPT1  003302R    025 

F.DSPT=  000044 

F.TRC  = 

000002 

LI  TOP 

005072R 

025  M.LIT  = 

000205 

NINPT2  003300R    02'- 

F.DVM1=  000134 

F.UNIT= 

000136 

LNLNG  = 

104541 

M.LN  = 

000001 

NINSTK  003304R    0?5 

F.EFBK=  000010 

F.URBD^ 

000020 

LOCLCT 

005036R 

025  M.MMD  = 

000010 

NINTMP  00331  OR    025 

F.EfN  =   000050 

F.VAL  = 

1 1717 t 

LOWCOR 

000002R 

025  M.NEG  = 

000000 

NINTYP  003306R    025 

F.END  =  002000 

F.VBN  = 

000064 

LSTERP 

004766R 

025  M.NOT  = 

000000 

N0TAVL=  104472 

F.EnRR=  000032 

F.VBSZ= 

000060 

LWIDTH 

000070R 

025  M.NUB  = 

000006 

NOTOPN=  104473 
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M  13 

SYI«OL 

TABLE 

NPRT1 

00A762R 

025 

0VROPR= 

000010 

R.OFF  = 

000000 

SY.SRT=  000400 

UPPER  = 

1 77400 

NULL 

00736AR 

025 

PATCH 

00734AR 

025  R.PREV=-- 

000004 

SY.SVC=  000004 

UTNAME 

000344R 

023 

NUMCHN=  000020 

PRECSN 

OOO052R 

025  R.PTR  = 

000000 

SY.SVL=  000200 

VALERR= 

104413 

NUMDFL 

003230R 

025 

RANDAC 

00306AR 

025  R.SEQ  = 

0000031 

S.AB  =  177776 

VARBLE 

007400R 

025 

NUMEFL 

003233R 

025 

RANDY 

003062R 

025  R.VAR  = 

000002 

S.AS8  =  100000 

VARBLS 

OOOOOOR 

025 

NUMESN 

003236R 

025 

RANERR= 

104411 

R6 

X000006 

S.BFHD=  000020 

VERNUM 

OOOOOOR 

025 

NUMFLG 

003230R 

025  RARGBL 

003204R 

025  R7 

X000007 

S.BITS=  000002 

VRSION= 

000002 

NUMLEN 

000062R 

025 

RARGCV 

003220R 

025 

SI 

X000005 

S.CHR1=  000003 

WIDTH 

000072R 

025 

NUMNEG 

003232R 

025 

RARGFL 

003202R 

025 

SIDAMN= 

104435 

S.FATT=  000016 

UROUND 

000020R 

025 

NUMQFL 

003234R 

025 

RARGLE 

00321 6R 

025 

SIFRAW 

00331 4R 

025 

S.FDB  =  000140 

WSDATE 

0001 36R 

025 

NUMRIG 

003231 R 

025 

RARGLN 

00321 OR 

025 

SISTAK 

006350R 

025 

S.FLB  =  040000 

WSFULL= 

104403 

NunuiD 

003226R 

025 

RARGPT 

003206R 

025  SI  TOP 

006346R 

025 

S.FNAM=  000006 

WSNAME 

000074R 

025 

NUMZFL 

003235R 

025 

RARGSF 

00321 4R 

025 

SITP 

0071 44R 

025 

S.FNB  =  000036 

WSTIME 

0001 32R 

025 

NYIERR= 

104A32 

RARGTY 

00321 2R 

025 

SIUARN= 

000200 

S.FNBW=  000017 

$ABSF  = 

ifk^tt* 

GX 

N.BLSZ= 

000036 

RARGVA 

003222R 

025 

SI7fAB 

000044R 

025 

S.FNTY=  000004 

$ADDF  = 

****** 

GX 

N.DESC= 

000020 

RBASE 

005074R 

025 

SI.BIT= 

177774 

S.FTYP=  000002 

$CFCC  = 

****** 

GX 

N.DEV  = 

000032 

RCOUNR 

0051 12R 

025  Si.LEN= 

177772 

S.LEN  =  000002 

$CLRF  = 

****** 

GX 

N.DE\/N=  00003A 

RCOUNT 

00511 OR 

025 

SI.RET= 

177772 

S.LINK=  177774 

$CMPF  = 

****** 

GX 

N.DID  = 

00002A 

REDCNT 

005070R 

025 

SI. VAL= 

1 77776 

S.NFEN=  000020 

SDIVF  = 

****** 

GX 

N.DVNHr  000032 

REDIGN 

005066R 

025 

SKPSI2 

0051 34R 

025 

S.TYPE=  140000 

$FIS  = 

****** 

G 

N.EXT  = 

00001 A 

REDOFF 

005072R 

025 

SPHOLD 

000004R 

024 

S.VAL  =  000000 

%fPP     = 

****** 

G 

N.FID  = 

000000 

REENTR 

003060R 

025 

SPINIT 

000002R 

024 

TKDIWS  005072R 

025  %FPPLN= 

****** 

G 

N.FNAn=  000006 

REGTYP= 

000003 

STKINC= 

000774 

TKFRAM  005066R 

025  $LDCDF= 

****** 

GX 

N.FTYP=  OOOOU 

RES8IT 

0031 42R 

025 

STOP  = 

104420 

TKLEFT  005070R 

025  $LDCFD= 

****** 

GX 

N.FVER= 

000016 

RESCVT 

0031 52R 

025 

SUBCNT 

0031 OAR 

025 

TMODE   000403R 

023  $LDF  = 

****** 

GX 

N.IW€= 

000006 

RESERR= 

104440 

SIRDCT 

0031 06R 

025 

T/»f>TAG=  000166 

$WACHN= 

****** 

G 

N.NEXT= 

000022 

RESLEN 

0031 50R 

025 

SUBPTR 

00311  OR 

025 

TRANS   00341  OR 

020  $MULF  = 

****** 

GX 

N.PPN  = 

00002A 

RESPTR 

0031 40R 

025 

SUAP 

003556R 

020 

TTYBUF  0041 40R 

025  SNEGF  = 

****** 

GX 

N.STAT= 

000020 

RESSFT 

0031 46R 

025 

SY/«1 

005344R 

025 

TTYLEN=  000622 

SRSTS  = 

****** 

G 

N.UNIT= 

00003A 

RESTYP 

0031 44R 

025 

SYWF 

0053A0R 

025 

TURKEY=  104436 

$RSX  = 

****** 

G 

OBUFLN=  001000 

RESULT 

0031 36R 

025 

SYMPTI 

0053A6R 

025 

TYPE  =  000166 

$RT11  = 

****** 

G 

OCHAN 

005052R 

025 

RESVAL 

0031 54R 

025 

SYWTAB 

005352R 

025 

T.BOL  =  020000 

$SETD  = 

****** 

GX 

onoDE 

000402R 

023  RING 

0051 04R 

025 

SYMTBF= 

10440A 

T.CON  =  004000 

$SETF  = 

****** 

GX 

oprMPO 

005066R 

025  RLTBAS 

005066R 

025 

SYWTOP 

005350R 

025 

T.DIM  =  000100 

$STF  = 

****** 

GX 

0PTMP1 

005070R 

025 

ROTINC 

005070R 

025 

SYWTP 

006272R 

025 

T.FUN  =  010000 

$SUBF  = 

****** 

GX 

0PTMP2 

005072R 

025  ROUND 

00001 OR 

025 

SYWURN=  000054 

T.LIST=  000400 

STSTF  = 

****** 

GX 

0PTMP3 

005074R 

025  ROVER 

00331 2R 

025 

SYNERR= 

104407 

T.LIT  =  000020 

.BOOLE= 

000002 

0PTMP4 

005076R 

025  RSTS  = 

000000 

SYSERR= 

104402 

T.WON  =  000010 

.CHARA= 

000000 

0PTMP5 

0051 OOR 

025 

RSX   = 

000115 

SYSTAT 

OOOOOOR 

024 

T.NIL  =  000004 

.DEF.  = 

000002 

0PTMP6 

0051 02R 

025  RTOP 

005070R 

025 

SY.aAD= 

000001 

T.NUM  =  002000 

.FLOAT= 

000006 

0PTMP7 

0051  OAR 

025 

RT11  = 

000000 

SY.BRK= 

100OOO 

T.OPFN=  000001 

.FSRCB= 

****** 

G 

0PTMP8 

0051 06R 

025  R.BITS= 

000003 

SY.8S  = 

000010 

T.OTHR=  040000 

.INTEG= 

000004 

0PTMP9 

00511 OR 

025  R.FIX  = 

000001 

SY.CLR= 

000040 

T.SOP  =  000002 

.MOLUN 

000404F 

\ 

023 

OPTWO 

0051 12R 

025 

R.LCT  = 

000002 

SY.ERP= 

000020 

T.SPOP=  000040 

.SORT  = 

****** 

GX 

OPTMU 

005026R 

025 

R.LN  = 

000002 

SY.NOU= 

000100 

T.TMP  =  000200 

...GBL= 

000000 

ORIGIN 

000030R 

025 

R.LNUW= 

000010 

SY.OPN= 

000002 

T.VAL  =  100000 

...TPC= 

000020 

CXJTPTR 

000066R 

025 

R.NEXT= 

000006 

SY.PriT= 

001000 

T.VAR  =  001000 

.  ABS. 

000000 
000000 

000 
001 

TAfllES 

000000 

002 

MONTB 

000000 

003 

DYDTB 

000000 

OOA 

BOPTB 

000000 

r' 

nONBTB 

000000 

0.- 

DYDBTB 

000000 

007 

COWTB 

000000 

010 

TTTT 
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SYMBa 

TABLE 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

003660 

020 

PATCH 

000000 

021 

$$FSR1 

000000 

022 

DEF$0 

000A06 

023 

DEF$1 

000006 

024 

DEF$2 

007400 

025 

ERRORS 

DETECTED 

:  1 

VIRTUAL 

MEMORY  I 

JSED:  13551  WORDS   (  53  PAGES) 

DYNAMIC 

MEMORY: 

14478  WORDS  (  55  PAGES) 

nTT 
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.TITLE  APL009 
.IDENT  \V02.03\ 

;THIS  IS  USED  WHEN  ASSEMBLING  APLOP  TO  DEFINE  A  NEW  OVERLAY  SEGMENT 
.•CONTAINING  OPERATOR  ROUTINES.   IN  THE  COMMON  DEFINITION  FILE, 
;'OVROPR*  IS  DEFINED  AS  ZERO.   IF  IT  IS  DEFINED  AS  ONE  BEFORE  APLOP 
;IS  ASSEMBLED,  ONLY  THE  CODE  DESIGNATED  FOR  THE  OPERATOR  OVERLAY  IS 
.-ASSEMBLED.   THEREFORE,  THE  COMMAND  TO  ASSEMBLE  APL009  IS: 

• 

;      APL009  <  ...,APL009, APLOP 

0 

000011  OVROPR=  9.  .-OVERLAY  SPECIFIED  OPERATORS 
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5 
6 

;++ 

7 

;  FUNCTIONAL  DESCRIPTION: 

8 

THIS  MODULE  CONTAINS  THE  CODE  FOR  MOST  APL  OPERATORS  WHICH 

9 

HAVE  BEEN  IMPLEMENTED  SO  FAR.  TWO  MACROS  ARE  USED  TO  OEflNE 

10 

OPERATOR  ROUTINES.   'DOPINS'  DEFINES  A  DYADIC  OPERATOR,  AND 

11 

'MOPINS'  DEFINES  A  MONADIC  OPERATOR.  THE  ARGUMENTS  TO  THE 

12 

MACROS  ARE  THE  NAME  OF  THE  OPERATOR  ROUTINE  AND  THE  OPERATOR 

13 

NUMBER  FOR  THE  OPERATOR  (WHICH  CAN  BE  FOUND  BY  LOOKING  IN 

14 

•VTAB').   FOR  DYADIC  SCALAR  OPS,  THE  LEFT  ARG  IS  IN  AC1,  THE 

15 

RIGHT  ARG  IS  IN  AC2,  AND  THE  RESULT  IS  RETURNED  IN  ACO.  FOR 

16 

MONADIC  SCALAR  OPS,  THE  ARGUMENT  IS   IN  AC1,  AND  THE  RESULT 

17 

IS  RETURNED  IN  ACO.  SCALAR  OPS  MUST  LEAVE  THEIR  ARGUMENTS 

18 

INTACT i 

19 

•  ••, 

2A 

27 

12A 

125 

; THESE  MACROS  ARE  FOR  OVERLAY  CODE.   THEY  ARE  USED  THE  SAME  AS 

126 

.•RESIDENT  MACROS.   THE  DIFFERENCE  COMES  IN  THE  WAY  THEY  WORK.   THE 

127 

.-•PRMRES'  MACRO,  FORCES  ALL  CODE  BETWEEN  IT  AND  THE  NEXT  MFTFVLIST' 

128 

;T0  NOT  BE  ASSEMBLED.   THE  'MOPINS'  AND  'DOPINS'  DON'T  PUT  ANYTHING  IN 

129 

;ANY  TABLES.  OTHER  THAN  THAT  THEY  WORK  BASICLY  THE  SAME  AS  THE  RESIDENT 

130 

.•MACROS. 

131 

.0 

132 

.MACRO  DOPINS  NAME,NUM,BITS,BOZO,NCv-ME 

133 

Alf         NDF  D.'NAME,  .ERROR  ;D.'NAME  IS  NOT  DEFINED  BY  OVROP! 

13A 

.If   EQ  OVROPR-D.'NAMt 

135 

.PSECT  CODE 

136 

DS'NAME:: 

137 

.ENDM 

138 

139 

.MACRO  MOPINS  NAME,NUM,BITS,BOZO,NOTME 

140 

Alf         NDF  M.'NAME,  .ERROR  ;M.'NAME  IS  NOT  DEFINED  BY  OVROP! 

141 

Af   EQ  OVROPR-M. 'NAME 

142 

.PSECT  CODE 

143 

Af   NE  NUM 

144 

MS'NAME:: 

145 

.ENDC 

146 

.ENDM 

147 

148 

.MACRO  LIST 

149 

.ENDC 

150 

.ENDM 

151 

152 

.MACRO  PRMRES 

153 

Af   EQ  1 

154 

.ENDM 

155 

159 

;*♦♦***♦**♦♦  ASSEMBLING  THE  FILE!!!!! 

160  007400 

PRMRES 

199  007400 

LIST 
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201  007400 

DOPINS 

PLUS,2,T.S0P,.INTEGER+CS.IDN+CS.ASS 

208  007400 

LIST 

209 

210  007400 

DOPINS 

$PLU,-2 

224  007400 

LIST 

225 

226  007400 

DOPINS 

SUB,4,T.S0P,.INTEGER*CS.IDN 

233  007400 

LIST 

234 

235  007400 

DOPINS 

$SUB,-4 

249  007400 

LIST 

250 

251 

252  007400 

DOPINS 

MUL,6,T.S0P,.INTEGER^-CS.B00L+CS.IDN+CS.0NE+CS.ASS 

264  007400 

LIST 

265 

266 

267  007400 

DOPINS 

$MUL,-6 

284  007400 

LIST 

285 

286  007400 

DOPINS 

DIVJ0,T.SOP,.FLOAT+CS.BOOL+CS.IDN+CS.ONE 

323  007400 

LIST 

324 

325 

326  007400 

DOPINS 

PWR,20,T.SOP,.FLOAT+CS.BOOL+CS.IDN+CS.ONE 

392  007400 

393 

394 

LIST 

395  007400 

DOPINS 

LOG,54,T.SOP,.FLOAT+CS.BOOL 

417  007400 

LIST 

418 

419 

420  007400 

DOPINS 

CIRC, 52, T. SOP, .FLOAT 

477  007400 

LIST 

478 

479 

480  007400 

DOPINS 

MINJ4,T.S0P,.INrEGER+CS.800L+CS.ASS 

490  007400 

LIST 

491 

492  007400 

DOPINS 

$MIN,-14 

516  007400 

517 

518 

LIST 

519  007400 

DOPINS 

MAXJ6,T.S0P,.INTEGER^-CS.800L+CS.ASS 

529  007400 

LIST 

530 

531  007400 

DOPINS 

$MAX,-16 

555  007400 

556 

557 

LIST 

558  007400 

DOPINS 

RES,12,T.S0P,.INTEGER+CS.800L^-CS.IDN 

589  007400 

LIST 

590 

591 

592  007400 

DOPINS 

$RES,-12 

616  007400 

LIST 

617 
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618 

619  007A00 

639  007400 
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K  14 


DOPINS  COMB,22,T.-SOP,.FLOAT+CS.BOOL+CS.JDN^-CS.ONE 
LIST 
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6A1  007400 

652  007400 

653 

654 

655  007400 

662  007400 

663 

664 

665  007400 

676  007400 

677 

678  007400 

687  007400 

688 

689 

690  007400 

700  007400 

701 

702  007400 

712  007400 

713 

714 

715  007400 

733  007400 

734 

735  007400 

745  007400 

746 

747 

748  007400 

758  007400 

759 

760 

761  007400 

780  007400 

781 
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TK 


DOPINS  AND,42,T.S0P,.BOOLEAN+CS.IDN+CS.0NE+CS.ASS 
LIST 


DOPINS  OR,40,T.SOP,.BOOLEAN^-CS.IDN+CS.ASS 
LIST 


DOPINS  NN, 46, T. SOP,. BOOLE AN 
LIST 

DOPINS  NR, 44, T. SOP,. BOOLEAN 
LIST 


DOPINS  LT,24,T.   T■^T.SOP,  .CHARACTER+CS.IDN 
LIST 

DOPINS  LE,26,T.LIT+T.S0P,.CHARACTER+CS.IDN-^CS.0NE 
LIST 


DOPINS  EQ,30,T.LIT+T.SOP,.CHARACTER+CS.IDN+CS.ONE 
LIST 

DOPINS  GE,36,T.LIT+T.S0P,.CHARACTER+CS.IDN+CS.0NE 
LIST 


DOPINS  GT,32,T.LIT+T.S0P,.CHARACTER+CS.IDN 
LIST 


DOPINS  NE,34,T.LIT■»■T.SOP,.CHARACTER■^CS„IDN 
LIST 


M  14 
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783  007A00 

MOPJNS 

FLRJ4, T. SOP,.  INTEGER^-CS.BOOL+CS. FLOAT, M$IDN 

786  007400 

LIST 

787 

788  007A00 

MOPINS 

CEIJ6,T.S0P,.INTEGER+CS.B00L-^CS.FL0AT,M$IDN 

791   007400 

LIST 

792 

793  007A00 

MOPINS 

IDN,2,T.S0P,.INTEGER+CS.B00L 

799  007400 

LIST 

800 

801 

802  007400 

MOPINS 

$IDN,-2 

808  007400 

LIST 

809 

810 

811   007400 

MOPINS 

$FLR,-14 

855  007400 

LIST 

856 

857 

858  007400 

MOPINS 

$CEI,-16 

868  007400 

LIST 

869 

870 

871   007400 

MOPINS 

NEG,4,T. SOP, .INTEGER 

878  007400 

LIST 

879 

880  007400 

MOPINS 

$NEG,-4 

887  007400 

LIST 

888 

889 

890  007400 

MOPINS 

SIGN, 6, T. SOP,. INTEGER+CS.BOOL+CS. FLOAT 

901   007400 

LIST 

902 

903  007400 

MOPINS 

$SIG,-6 

914  007400 

LIST 

915 

916 

917  007400 

MOPINS 

RCIP,10,T.SOP,.FLOAT+CS.BOOL 

928  007400 

LIST 

929 

930  007400 

MOPINS 

EXP, 20, T. SOP,. FLOAT 

939  007400 

LIST 

940 

941 

942  007400 

MOPINS 

LN,54,T.S0P,.FLOAT-»-CS.BOOL 

949  007400 

950 

951 

LIST 

952  007400 

MOPINS 

PITM, 52, T. SOP, .FLOAT 

959  007400 

LIST 

960 

961   007400 

PRMRES 

966  007400 

LIST 

967 

968 

969  007^00 

MOPINS 

ABS,12,T.S0P..INTEGERKS.800L 

977  007400 

LIST 

978 

bl      4  / 
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992  007400 

993 

994 

995  007400 
1002  007400 
-•003 
1004 

1005  007400 
1031  007400 
1032 
1033 

1034  007400 
1057  007400 
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N  14 


A 
D 


MOPINS  SABS, -12 
LIST 


MOPINS  FACT, 22, T. SOP,. FLOAT^CS. BOOL 
LIST 


MOPINS  NOT, 50 
LIST 


MOPINS  ROLL, 100 
LIST 
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1059  007A00 
1187  007A00 
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DOPINS  DEAL  J  00 
LIST 


TTT 


TTT 
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1189  007400 

MOPINS 

SNAP, 102 

1211   007A00 

LIST 

1212 

1213 

12K 

1215 

1216 

1217  007A00 

DOPJNS 

RHO,102 

1313  007A00 

LIST 
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1315  007400  MOPINS  RAVL,56 

1325  007A00  LIST 

1326 

1327 

1328 

1329 

1330 

1331  007400  DOPINS  CTLM,56,T.DIM 

1596  007400  LIST 


TTT 
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1S98  007A00 

MOP INS 

IOTA, 72 

1632  007400 

LIST 

1633 

163A 

1635 

1636 

1637 

1638  007400 

DOPINS 

IND,72 

1699  007A00 

LIST 

nr 


V.-»v 


TTT 

APL009     MACRO  M11 13     08-FEB-80  10:31     PAGE  54 
DEFINITIONS  ERRORS 

1701   007A00  DOPINS     1C0MJ24 

1709  007400  LIST 

1710 

1711 

1712 

1713 

1714 

1715  007400  DOPINS     COMP,60,T.DIM 

1789  007400  LIST 


gtt 
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1791  007400  DOPINS  1EXPJ30 

1799  007A00  LIST 

1800 

1801 

1802 

1803 

180A 

1805  007A00  DOPINS  EXPD,62,T.DIM 

186A  007A00  LIST 


HIT 
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1866  007400  DOPINS  DROPJOA 

1907  007400  LIST 

1908 

1909 

1910 

1911  007400  DOPINS  TAKE  J 14 

2149  007400  LIST 
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2151 

007400 

2160  007A00 

2161 

2162 

2163 

21 6A 

2165 

2166 

007A00 

220A 

007400 

nr 
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MOPJNS     1REV,K6 
LIST 


MOPINS  REVS, K4,T. DIM 
LIST 
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2206  007400  DOPINS  1R0T,U6 

221A  007A00  LIST 

2215 

2216 

2217 

2218 

2219 

2220  007400  DOPINS  ROT, 144, T. DIM 

2328  007400  LIST 


TIT 
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2330  007400 
2415  007A00 
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MOPINS  IRAN J  26 
LIST 


ITTT 
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2A17  007A00  DOPINS     TRANJ26 

265A  0O7A00  LIST 


ki    M  m 
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2656  007A00  DOPINS     ENCD,76 

2856  007400  LIST 


TF- 
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2858  007400 
2988  007A00 
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DOPINS  DECD,64 
LIST 


TTTT 


""  B  16 
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299C  007400  MOPINS  GDWN J36,T.DIM 

3001  007A00  LIST 

3002 

3003 

300A  007A00  '^lOPINS     GDUPJ40,T.DIM 

3219  007400  LIST 
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3221  007A00  MOPINS  MMDJ22 

3316  007400  LIST 


TW 


5^7 
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3318  007400  DOPINS  DMD J  22 
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386A  007A00 


LIST 
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3866  007400  DOPINS  MEM, 70 

3921  007A00  LIST 


— A  Ml 
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3923  007A00  MOPINS     NUB J  06 

3986  007400  LIST 

3987 

3988 

3989 

3990 

3991 

3992  007400  DOPINS     UNON,106 

4022  007400  LIST 

4023 

4024 

4025 

4026 

4027 

4028  007400  DOPINS     INTR,66 

4042  007400  LIST 

4043 

4044 

4045 

4046 

4047 

4048  007400  DOPINS     SDIF,50 

4161   007400  LIST 
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4163 
4179 
4180 
4181 
4182 
4200 
4201 
4202 
4203 
4209 
4210 
4211 
4212 
4288 


007400 
007400 


007400 
007400 


007400 
007400 


007400 
007400 
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DOPINS  SCON, 234 
LIST 


DOPINS  C0NTJ12 
LIST 


DOPINS  PSUB,236 
LIST 


DOPINS  SUBS  J 16 
LIST 


H  16 


TTF 
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4290  007A00  MOPINS  EXE, 70 

A336  007400  LIST 


J  16 
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A338  007AOO  MOPJNS  ENCD,76 

AA11  007A00  LIST 


rrz" 
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4A13  007AOO  MOPINS  FMTJ60 

4A23  007400  LIST 

AA24 

4425 

4426 

4427 

4428 

4429  007400  DOPINS  FMT,160 


MS" 
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A953  007400  LIST 
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4955  007400  MOPINS  I8M,132,, ,MONIBM 

4958  007400  LIST 

4959 

4960 

4%1  007400  DOPINS  IBM  J  32 

5046  007400  LIST 


B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

2 

C 

2 

0 

2 

E 

2 

F 

2 

G 

2 

H 

2 

1 

2 

J 

2 

K 

2 

L 

2 

M 

2 

N 

2 

6 

3 

C 

3 

0 

3 

E 

3 

F 

3 

G 

3 

H 

3 

I 

3 

J 

3 

K 

3 

3 

n 

3 

3 

B 

4 

C 

A 

D 

A 

E 

4 

F 

4 

G 

4 

H 

4 

I 

4 

J 

4 

K 

4 

L 

4 

M 

4 

N 

4 

B 

5 

C 

5 

D 

5 

E 

5 

F 

5 

G 

5 

H 

5 

I 

5 
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J  5 

E  10 

K  5 

F  10 

L  5 

G  10 

M  5 

H  10 

N  5 

I  10 

B  6 

J  10 

C  6 

K   10 

D  6 

L  10 

E  6 

M  10 

F  6 

N  10 

G  6 

B  11 

H  6 

C  11 

I  6 

D  11 

J  6 

E  11 

K     6 

F  11 

L  6 

G  11 

M  6 

H  1^ 

N  6 

I  11 

B  7 

J  11 

C  7 

K  11 

D  7 

L  11 

E  7 

M  11 

F  7 

N  11 

G  7 

B  12 

H  7 

C  12 

I  7 

D  12 

J  7 

E  12 

K  7 

F  12 

L  7 

G  12 

M  7 

H  12 

N  7 

I  12 

B  8 

J  12 

C  8 

K  12 

D  8 

L  12 

E  8 

M  12 

F  8 

N  12 

G  8  APL008 

B  13 

H  8 

C  13 

I  8 

D  13 

J  8 

E  13 

K     8 

F  13 

L  8 

G  13 

M  8 

H  13 

N  8 

I  13 

B  9 

J  13 

C  9 

K  13 

D  9 

L  13 

E  9 

M  13 

F  9 

N  13 

G  9 

B  14 

H  Q 

C  14 

I  9 

D  14 

J  9 

E  14 

K  9 

F  14 

L  9 

G  14 

M  9 

H  14 

N  9 

I  14 

B  10 

J  14 

C  10 

K  14 

D  10 

L  14 

APL009 


M  14 
N  14 
B  15 
C  15 
D  15 
E  15 
F  15 
G  15 
H  15 
I  15 
J  15 
K  15 
L  15 
M  15 
N  15 
B  16 
C  16 
D  16 
E  16 
F  16 
G  16 
H  16 
I  16 
J  16 
K  16 
L  16 
M  16 
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"FT 


5048 

5075 

5076 

5077 

5078 

5079 

5080 

5081 

5097 

5098 

5099 

5100 

5101 

5102 

5103 

5135 

5136 

5137 

5138 

5139 

5140 

5U1 

5152 

5153 

5154 

5155 

5156 

5157 

5158 

5192 

5193 

5194 

5195 

5196 

3199 


007400 
007400 


007400 
007400 


007400 
007400 


007400 
007400 


007400 
007400 


007400 
007400 


MOPINS     QUAD,74,T.NIL*T.SPOP 
LIST 


DOPINS     QUAD,74,T.NIL*T.SPOP 
LIS^ 


MOPINS     QQADJ42,T.NIL*T.SPOP 
LIST 


DOPINS     QQADJ42,T.NIL*T.SPOP 
LIST 


MOPINS     DQADJ34,T.NIL^T.SP0P 
LIST 


DOPINS     DQAD,134,T.NIL*T.SP0P,,D$QQAD 
LIST 


C  1 
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5201  007400 

MOPINS 

BXAV,162,T.NIL 

5219  007400 

LIST 

5220 

5221 

5222 

5223 

522A 

5225  007400 

MOPINS 

BXCTJ64,T.NIL*T.SP0P 

5234  007400 

LIST 

523' 

52i6 

5237  007400 

DOPINS 

BXCTJ64,T.NIL+T.SP0P 

5272  007400 

LIST 

5273 

5274 

5275 

5276 

5277 

r:  "^  007400 

MOPINS 

BXI0,166,T.NIL+T.SPOP 

528  007400 

LIST 

5288 

5289 

5290  007400 

DOPINS 

BXI0,166  T.NIL^T.SPOP 

5302  007400 

LIST 

5303 

5304 

5305 

5306 

5307  007400 

MOPINS 

BXLC,212,T.NIL 

5340  007400 

LIST 

5341 

5342 

5343 

5344 

5345 

5346 

5347  007400 

MOPINS 

BXPPJ70,T.NIL^T.SPOP 

5356  007400 

1  1ST 

5357 

5358 

5359  00740C 

DOPiNS 

BXPPJ70,T.NIL+T.SPOP 

5381  007400 

LIST 

5382 

5383 

5384 

5385 

5386 

5387 

5388  007400 

MOPINS 

BXPWJ72,T.NIL'^T.SP0P 

5397  007400 

LIST 

5398 

5399 

5400  007400 

DOPINS 

BXPWJ72,T.NIL^T.5P0P 

5417  007400 

LIST 

5418 

5419 

5420 

A 
0 
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5A21 

5A22 

5A23  007AOO 

5A32  007400 

5A33 

5A3A 

5A35  0O7A00 

54A7  007A00 

5A48 

5AA9 

5A50 

5A51 

5A52 

5A53  007400 

5562  007400 

5563 

5564 

5565 

5566 

5567 

5568 

5569  007400 

5592  007400 
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D  1 


MOPJNS  BXRLJ74,T.NIL>T.SP0P 
LIST 


DOPINS  BXRL,174,T.NIL^-T.SPOP 
LIST 


MOPINS  BXTS,200,T.NIL 
LIST 


MOPINS  BXWA,176,T.NIL 
LIST 
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559A  0O7A00 
5716  007400 
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MOPINS  BXCR,206 
LIST 


E  1 
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5718  007400  MOPINS     BXEX,202 

5775  007400  LIST 


F     1 


TT 
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5777  007400  MOPINS  BXFX,210 

5879  007400  LIST 


ITT 
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5881  007400  MOPINS  BXNC,204 

5950  007400  LIST 
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5952  007A00  MOPINS  BXNL,2U 

5963  007400  LIST 

596A 

5965 

5966  007A00  DOPINS  BXNL,214 

6104  007400  LIST 


rr 
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6106  007AOO  DOPINS     FGET, 150,7. DIM 

6330  007400  LIST 

6331 

6332 

6333 

6334 

6335 

6336  007400  DOPINS     FPUTJ52,T.DIM 

6485  007400  LIST 


J1 
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6487  007400  DOPINS     FPNT, 154,7. DIM 

6714  007400  LIST 


TT 
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6716  007AOO 

MOPINS  1SCNJ30 

6717 

.S8TTL  OPERATORS 

FIRST  COORDINATE  SCAN 

6718 

6719 

6720  000000 

CALL    RDSNC1 

.Set  up  for  first  coordinate 

6721  OOOOOA 

CALLR   SCAN1 

;Do  the  scan 

6723  000010 

LIST 

6724 

6725 

6726  000010 

MOPINS  SCAN, 62, T. DIM 

6727 

..SRTTL  OPERATORS 

SCAN 

6728 

6729  000010 

SCAN;:   CALL    RDSNCK 

;Do  error  checks 

6730  000014 

CALLR   SCAN1 

;Do  the  scan 

6732  000020 

LIST 

6733 

6734 

6735  000020 

MOPINS  1RDTJ24 

6736 

.S8TTL  OPERATORS 

FIRST  COORDINATE  REDUCTION 

6737 

6738  000020 

CALL    RDSNC1 

;Setup  for  first  coordinate  reduction 
;Do  tne  reduction 

6739  000024 

CALLR   REDCT 

6741  000030 

LIST 

6742 

6743 

6744  000030 

MOPINS  RDCT,60,T.DIM 

6745 

.SRTTL  OPERATORS 

REDUCTION 

6746 

6747  000030 

REDUCT::CALL    RDSNCK 

;Do  error  checks 

6748  000034 

CALLR   REDCT 

;And  reduce 

6749 

6750 

6751 

6752 

6753 

;The  SCAN  Operator  has  been 

added  in  such  a  way  to  share  a  good  part  of                 I 

6754 

[Reduction's  code. 

6755 

6756 

;  ADDED:  May  1978 

BY:  Peter  Haynes 

6757 

6758 

6759 
6760 
6761 

;  Use  of  temporary  register 

s: 

;      OPTMPO  -  Pointer  to 

dimension  being  reduced/ scanned 
temporary  used  by  SATAN 

6762 

f      0PTMP1  -  Dimension 

6763 

r      0PTMP2  -  Source  pointer 

offset  used  by  SATAN 

6764 

;              0PTMP3  -  Dimension 

to  be  Reduced/ Scanned 

6765 

;      0PTMP4  -  Pointer  to  bottom  of  SP  stack  (high  core)                           1 

6766 

;      0PTMP5  -  Reduction/ Scan 

flag 

6767 

;      OPTr^-6   -  Result  pointer 

offset/ increment  used  by  SATAN 

6768 

;      0PTMP7  thru  0PTM10 

-  Floating  point  identity  for  Reduction                    1 

6769 

;      0PTMP7  -  Also  used 

to  1 

^)old  result  store  routine  for  relational 

6770 

;             scans. 

6771 

6772 

■This  routine  sets  up  for  first 

coordinate  operations 

6773 

6774  000040 

013704 

003120' 

RDSNC1:  MOV     M0NBL>C,R4 

.-Point  to  argunent  block 

6775  000044 

0.2702 

000001 

MOV     M^,R2 

; Setup  for  reducing/ scanning  first  dimension 
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M  1 


6776 

6777 

6778 

6779 

6780 

6781 

6782 

6783 

6784 

6785 

6786 

6787 

6788 

6789 

6790 

6791 

6792 

6793 

6794 

6795 

6796 

6797 

6798 

6799 

6800 

6801 

6802 

6803 

6804 

6805 

6806 

6807 

6808 

6809 

6810 

6811 

6812 

6813 

6814 

6815 

6816 

6817 

6818 

6819 

6820 

682 

6822 

6823 

6824 

6825 

6826 

6827 

6828 

6829 

6830 

6831 

6832 


000050 
000054 


000137  000072' 


CALL 
JMP 


FIXDIM 
RDSNK1 


;Get  pointer  to  reduct/scan  dimension 
; Check  for  Legal  operation 
;Note  this  disallows  "f.CS  scalar",  to 
;  allow  this  form  branch  to  RDSN2 


000060 
000064 
000070 
000072 
000076 
000100 
000102 


000106 
000112 
000116 
000122 
000124 
000126 
000132 
000134 
000136 
000144 
000146 
000150 
000154 


000156 
000162 
000166 
000170 
000176 
000202 
000206 
000210 
000212 
000214 
000230 

UUU23^ 

00024 

00024s 

000250 

000254 

000256 


000262 
000266 


This  routine  gets  the  dimension  argtment  if  there  is  one  and  makes 
various  error  checks. 


005737 
001404 
105764 
001001 
104411 
010237 


016604 
016603 
032703 
001001 
104407 
032703 
001001 
104417 
026427 
001001 
104417 
010437 


003112* 
000002 

005066* 


000010 
000006 
000001 


000002 

OOOOOOG  104407 
005116* 


RDSNCK:  CALL 
TST 
BEQ 

RDSNK1:  TSTB 
BNE 
RANERR 

RDSNK2:  MOV 


MFXOIM 

DIMBLK 

RDSNIC2 

A.DIMS(R4) 

RDSNK2 


R2,0PTMP0 
Check  for  legality  of  Operation 


;6et  pointer  to  d"'mension  arg  if  any 

:1s   thv're  a  dimension  argument? 

;No,  Ok 

;Is  the  argument  a  scalar? 

;No,  Ok 

;Yes,  RANK  Error,   A  scalar  has  0  dimensions 

;Save  pointer  to  reduct/scan  dimension 


1$: 
2$: 
3$: 


MOV 

MOV 

BIT 

BNE 

SYNERR 

BIT 

BNE 

DOMERR 

CMP 

BNE 

DOMERR 

MOV 

RETURN 


10(SP),R4 
6(SP),R3 
*T.0PFN,R3 
1$ 


;Get  the  operation  number 

;And  its  bits 

;Is  it  an  operator? 

;Yes,  Ok 

;No,  SYNTAX  Error 

;Is  it  a  Primative  Scalar  Operator? 

;Yes,  Ok 

;No/D0MAIN  Error 
DYDTAB(R4),*SYNERR  ;Is  it  a  Monadic  Scalar  Operator? 
3$  ;No,  Ok 

;Yes,  DOMAIN  Error 
R4,BLZBUB      ;Save  the  Operator  NXjmber 


rr.S0P.R3 
2$ 


010237  005100* 


This  routine  handles  the  Reduction  Operator 


005416 
013766 
013701 
013703 
001410 
005303 
001406 

010302 
063702 
')13700 
05300 
J05037 

010406 


003152*  000012 

003140* 

005070* 


003122* 
005074  * 

005114* 


REDCT:  MOV  R2,OPTMP5 

CALL  RDSNGS 

NEC  (SP) 

MOV  RESCVT,12(SP) 

MOV  RESPTR,R1 

MOV  0PTMP1,R3 

BEQ  1$ 

DEC  R3 

BEQ  1$ 

MUL  0PTMP2,R3 

1$:     MOV  R3,R2 

ADD  M0NPTR,R2 

MOV  OPTMP3,R0 

DEC  RO 

CLR  DEVIL 

CALL  SATAN 

MOV  R4,SP 

CALLR  RDSNRT 


Set  Reduct/Scan  flag  for  Reduction 

Get  result  space  and  build  SP  frames 

Make  the  offset  for  Satan  negative 

So  copy  case  in  SATAN  works 

Point  to  result  data 

Get  ntmber  of  elements  in  Reduct  dimension 

None 

Cheat  for  Copy  case 

Still  none 

Compute  the  offset 

Put  in  correct  register 

Get  pointer  to  source  argunent 

Get  nimber  of  dimensions  to  process 

The  result  will  have  one  less  dimensions 

Don*t  increment  the  result  pointer 

Recursive  routine  SATAN  does  reduction 

Delete  the  SP  frames 

Clean  up  and  return 


005037  005100* 


This  routine  handles  the  Scan  operator 


SCAN1 


CLR 
CALL 


OPTMP*^ 
RDSNGS 


.•Reset  Reduct/Scan  flag  for 
;Get  result  space  and  build 


Scan 

SP  frames 
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N 


n 


6833 
6834 
6835 
6836 
6837 
6838 
6839 
6840 
6841 
6842 
6843 
6844 
6845 
6846 
6847 
6848 
6849 
6850 
6851 
6852 
6853 
6854 
6855 
6856 
6857 
6858 
6859 
6860 
o861 
<^US2 
6863 
6864 
6865 
6866 
6867 
6868 
6869 
6870 
6871 
6872 
6873 
6874 
6875 
6876 
6877 
6878 
6879 
6880 
6881 
6882 
6883 
6884 
6885 
6886 
6887 
6888 
6889 


000272 
000276 
000300 
000306 


000310 
000314 
000320 
000324 
000330 
000332 
000336 
000340 
000344 


000346 
000352 
000360 
000366 
000372 
000376 
000402 
000406 
000412 
000414 


013702 
006202 
132762 
001017 


013746 
013746 
016646 
012746 
011646 
013746 
005416 
005037 
000410 


005337 
013737 
013766 
013701 
013702 
013700 
0052^^ 

010406 


005116' 

000200  0000006 


005104' 
005102* 
000010 
000001 


005072' 
005114' 


005074 ' 

005102'  005114' 
003152'  000012 
003140' 
003122' 
005074 ' 
005074 • 


1$: 


2$: 


MOV 
ASR 
BITS 
8NE 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
NEC 
CLR 
BR 


DEC 

MOV 

MOV 

MOV 

MOV 

MOV 

INC 

CALL 

MOV 

CALLR 


BLZBUB.R2 
R2 


;6et  scalar  function  number 


R2  ; Convert  function  number  to  word  pointer 

#CS.ASS,DYDBTL(R5)  ;Is  the  function  associative? 
1$  ;Yes,  Then  don't  need  extra  SP   frame 


0PTMP7,-(SP) 

0PTMP6,-(SP) 

10(SP),-(SP) 

*1,-(SP) 

(SP),-(SP) 

0PTMP2,-(SP) 

(SP) 

DEVIL 

2$ 


0PTMP3 

0PTMP6,DEVIL 

RESCVTJ2(SP) 

RESPTR,R1 

M0NPTR,R2 

0PTMP3,R0 

0PTMP3 

SATAN 

R4,SP 

RDSNRT 


ion-associative  scan,  build  final  SP  frame 
Used  only  by  relational  scans 
Result  pointer  increment 
Stop  count  value 
Initial  count 

Copy  it  for  Count- limit  increment 
Offset  for  scan  dimension 

Make  it  negative  for  non-associative  functions 
Don't  increment  result  pointer 
Let  SATAN  do  the  work 

Associ'^t've  scan 

No  extrvi  frame  to  process 

Result  pointer  increment,  Assoc  funcs  are  fast 

So  copy  case  of  SATAN  works 

Point  to  result  data 

Point  to  starting  place 

Get  the  ntmber  or  frames  to  process 

Fixup  nunber  of  frames  (origin  one) 

Do  the  Scanning 

Delete  the  SP  frames 

Clean  up  and  return 


000420 
000424 
000430 
000434 
000436 
000442 
000446 
000452 
000454 
000460 
000462 
000464 
000466 

000472 
000476 
000500 
000512 
000514 


012701  000001 
013700  003  . 
116002  OOOcC 


r, 


010237  005074' 

005737  005100' 

001403 

013716     005074' 

005316 

005716 

001415 

062700  000006 

020037  005100' 
OOK'^5 

005720 


This  routine  sets  up  the  argument  fetch  routine  pointers,  gets 
space  for  the  result  and  builds  the  SP  stack  frames  for  the 
SATAN  routine- 


Compute  the  size  of  the  result  data 


Get  the  multiplicitive  identity 

Get  pointer  to  source  argtment 

Get  r\Lri,3r   of  dimensions  in  source  argunent 

Save  it  on  the  stack 

Cheat  for  scalars 

Save  it 

Are  we  Scanning? 

Yes 

Get  the  nunber  of  result 

Reduction  result  has  one 

Is  the   suit  a  seal  ir? 

Yes,  Thtn  we're  'one 

Point  to  first  d-'men.' 


RDSNGS: 

MOV 

#1,R1 

MOV 

MONBLIC,PO 

MOVB 

A.DIMS^  J),R2 

PUSH 

R2 

CONINC 

R2 

MOV 

R2,OPTMP5 

TST 

0PTMP5 

BEG 

3$ 

MOV 

0PTMP3,(SP) 

DEC 

(SP) 

3$: 

TST 

(SP) 

BEQ 

6S 

ADD 

/rA.DIM1,R0 

4$: 

CMP 

R0,OPTMP5 

BEQ 

5$ 

MUL 

(R0),R1 

5$: 

TST 

(RO)^ 

SOP 

R2,A$ 

dimensions 
less  di mens  ions 


elemei 


I-  «' 


000520     010103 


6$: 


MOV 


R1,R3 


;Is  this  "thp  diiDenM^  7 
,Yes,  Then  skip  it 
;No,  Factor  it  into  Che  result 
.'Increment  the  pointer 
;Lcop  for  all  dimensions 

;Save  the  nimber  or  elements  (ALEN) 
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B~T 


689C 

6891 

6892 

6893 

6894 

6895 

6896 

6897 

6898 

6899 

6900 

6901 

6902 

6903 

6904 

6905 

6906 

6907 

6908 

6909 

6910 

6911 

6912 

6913 

6914 

6915 

6916 

6917 

6918 

6919 

6920 

6921 

6922 

6923 

6924 

6925 

6926 

6927 

6928 

6929 

6''30 

6931 

6932 

6933 

6934 

6935 

6936 

6<?37 

6938 

6939 

6940 

6941 

6942 

6943 

6944 

6945 

6946 


000522 
000524 
000530 
000534 
000536 
000542 


000544 
0CO546 
000552 
000554 
000560 
000564 
000566 
000570 
000572 
000574 
000602 
000610 
000616 
000624 

000632 
000640 
000642 

000646 
000650 
000654 
000660 
000662 
000666 
000670 
000674 
000676 

000700 
000702 
000710 
000716 
000724 
000732 
000740 

000742 
000746 
000754 
000760 
000762 
000770 
000776 


001002 
00013:* 
005737 
001403 
005777 
001516 


006204 
116400 
006304 
013702 
010237 
010201 
006301 
006301 
060201 
016137 
012737 
016137 
016237 
016237 

003002 
000137 


042726 
001030 
005737 
001034 
013700 
001001 
104417 

060002 
016037 
016037 
016037 
016237 
016237 
000427 

063700 
016037 
010437 

060201 
016137 
013737 
000413 


001020* 
005100' 

005100* 


OOOOOOG 

003124' 
003144' 


OOOOOOG  003176' 
104402  003220' 
OOOOOOG  003152' 
000044'  003146' 
000054'  003150' 

005066'  000001 

001026' 


1 7777^ 

005100' 

003124' 


OOOOOOG  005104' 
000044'  003146' 
000054'  003150' 
OOOOOOG  003220' 
OOOOOOG  003152' 


003124' 

OOOOOOG  003176* 
005116' 

OOOOOOG  003220' 
003152'  00510^' 


10$: 


BNE 

JMP 
TST 

BEQ 

TST 

BEO 


10$ 

RDSN1 

0PTWP5 

1$ 

a0PTMP5 

2$ 


;The  result  is  null 

;Go  get  space  for  the  result 

;Are  we  Scanning? 

;Yes,  Skip  identity  code 

;Is  the  reduction  dimension  zero? 

;Yes,  Do  the  identity  code 


.'Compute  the  Result  type  and  fetch/store  routine  pointers  for  non  null  argunents 


1$: 


26$ 


27% 


28$: 

30$: 


ASR 

M0V8 

ASL 

MOV 

MOV 

MOV 

ASL 
ASL 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 

CMP 
BGT 
JMP 

PUSH 
CALL 

Bir 

BNE 
TST 
BNE 
MOV 
BNE 
DOMERR 

ADD 
MOV 
MOV 
MOV 
MOV 
MOV 


ADD 
MOV 

MOV 
ADD 
MOV 
MOV 


R4 

DYDBTL(R4),R0 

R4 

M0NTYP,R2 

R2.RESTYP 

R2.R1 

Rl 

Rl 

R2,R1 

LARGCT(R1),LARGCV 

fSYSERR.RARGCV 

RESCT(R1),RESCVT 

SJZTA8(R2),RESSFT 

LENTA8(R2),RESLEN 


.•Change  function  number  into  byte  table  pointer 

;Get  the  function's  bits 

.•Restore  the  function  '^jrto^r 

.-Get  the  source  type 

.•Assune  copy  case.  Result  type  equals  source 

;Copy  the  source  type 

.•Multiply  it  by  four 

.•Compute  the  fetch  routine  table  offset 
;6et  the  source  fetch  rcxjtine  pointer 
;Don't  use  the  right  fetch  routine 
;6et  the  result  store  roc4tine  pointer 
;Get  the  result  shift  count 
;6et  the  result  element  'eng^-h 


aOPTMP0.#l 

26$ 

RDSN2 


;Is  "the 
;No.  Not 
;Yes,  Go 


dimension' 
copy  case 
get  space 


one 


for  result 


RO  .-Save  the  function's  bits 

CMPTRT        .-Calculate  the  result  type 

#*C<A.NUM>,(SP)*  ;Js  the  function  a  relation? 

28$  ;No 

0PTMP5        ;Yes.  Are  we  scanning? 

30$  ;No 

MONTYP.RO      ;6et  toe  source  type 

27%  ;Js  the  source  type  character? 

.Yes.  Can't  mix  character  and  Boolean 

.'Relational  scans 


R0.R2 

BRESCT(R0).0PTMP7 

SIZTAa(RO).RESSFT 

LENTA8(R0),RESLEN 

RARGCT(R?).RARGCV 

RESCT(R2),RESCVT 

RDSNl 


MONTYP.RO 

LARGCT(RO).LARGCV 

R4.BLZBUB 

R2.R1 

RAPGCT(R1),RARGCV 

RESCVT,0PTMP7 

RDSN2 


Compute  offset 
For  relational 
Set  the  result 
Set  the  result 


types 
routine  tables 


to  fetch 

scans 

shift  count 

element  length 
Set  the  ri9ht  argunent  fetch  routine  pointer 
Set  the  initial  result  store  routine  pointer 
Go  get  some  space 
.'Normal  case 

Compute  the  source  fetch  routine  pointer 

Get  the  source  fetch  routine  pointer 

Save  the  function  ntir^ber,  it  may  have  changed 

Compute  the  right  fetch  routir>e  offset 

Get  the  right  Tetch  routine  pointer 

So  the  copy  case  in  SATAN  works 

Go  get  some  space  for  the  result 


;The  reduclion  dimension  is  zero.  Return  an  array  of  identity  elements 


001000  005003 


J$: 


CLR 


R3 


.'There  is  no  second  argument 
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6947  001002 

01 3702 

003120' 

MOV 

M0NBL<,R2 

;Get  pointer  to  argtinent 

;Get  an  array  of  identity  elements 

6948  001006 

CALL 

GETIDN 

6949  001012 

005726 

TST 

(SP)^ 

; Clean  result  rank  off  stack 

6950  001014 

6951 

6952 

CALLR 

RDSNRT 

;All  done,  go  clean  up 

6953 

•Calculate  the 

amount  of  space  needed  and  build  the  result  block 

6954 

6955  001020 

013737 

003124'  003144' 

RDSN1 : 

MOV 

MONTYP,RESTYP 

;Nothing  special.  Result  type  is  same 

as  source 

6956  001026 

013704 

005074 ' 

RDSN2: 

MOV 

0PTMP3,R4 

;6et  the  argument's  rank 

6957  001032 

013702 

003120' 

MOV 

M0N6LK.R2 

;6et  pointer  to  the  argument 

6958  001036 

CALL 

GET SPA 

;Get  space  for  the  result  and  fill  in 

the  header 

6959  001042 

013701 

003120' 

MOV 

MONBLK.RI 

;Get  pointer  to  the  argument 
^Anything  there? 

6960  001046 

005703 

TST 

R3 

6961  001050 

001002 

BNE 

17$ 

;Yes,  Create  SP  frames 

6962  001052 

CALLR 

RDSNRT 

;No,  then  return 

6963 

6964 

•Create 

special 

frames  on  the  SP 

stack  for  the  SATAN  routine 

6965 

6966  001056 

010637 

005076' 

17$: 

MOV 

SP,0PTMP4 

;Save  the  Stack  pointer 

6967  001062 

013737 

005074'  005114' 

MOV 

0PTMP3, DEVIL 

;Copy  the  ntinber  of  source  dimensions 

6968  001070 

016102 

000004 

MOV 

A.ALE"^(R1),R2 

;Get  the  source  size 

6969  001074 

062701 

000006 

ADD 

#A.DIM1,R1 

; Point  to  source  Dimension  List 

6970  001100 

013700 

003136' 

MOV 

RESULT, RO 

;Point  to  result  block 

6971  001104 

016004 

000004 

MOV 

A.ALEN(R0),R4 

;Get  the  result  size 

6972  001110 

6973 

6974  001114 

062700 

000006 

ADD 

#A.DIM1,R0 

jPoint  to  result  dimension  list 

010203 

18$: 

MOV 

R2,R3 

;Copy  current  length 

6975  001116 

005002 

CLR 

R2 

; Clear  for  Divide 

6976  001120 

020137 

005066' 

CMP 

R1.0PTMPO 

;]s  this  the  dimension? 

6977  001124 

001050 

B^€ 

2li 

;No 

6978  001126 

005711 

TST 

(Rl) 

;Is  it  zero? 

6979  001130 

001405 

BEO 

19$ 

;Yes,  don't  Divide 

698C  001132 

DIV 

(R1).R2 

rDivide  By  Size  of  this  dimension 

6961  001144 

010203 

19$: 

MOV 

R2,R3 

;Copy  the  source  c^imension  offset 

6982  001146 

ASH 

M0NSFT,R3 

; Convert  the  source  offset  to  bytes 
;Save  dimension  offset  (if  dim=0,  so  ' 

6963  001162 

010337 

005072' 

MOV 

R3,OPTMP2 

is  R2) 

6964  001166 

012137 

005070' 

MOV 

(R1)*.0PTMP1 

;Save  length  of  dimension 

6965  001172 

005737 

005100' 

TST 

0PTMP5 

;Are  we  Scanning? 

6966  001176 

001070 

BNE 

23$ 

;No 

6967  001200 

PUSH 

R2 

;Save  the  source  offset 

6968  001202 

005002 

CLR 

i<2 

; Setup  for  divide 

6969  001204 

010403 

MOV 

R4,R3 

;Get  the  result  pointer  offset 

6990  001206 

DIV 

(R0)^,R2 

; Divide  by  the  'esult  dimension 

6991  001220 

010204 

^JV 

R2  R4 

;Save  the  new  result  pointer  offset 

e992  ?0^222 

ASH 

RE1>SFT,R2 

;Convert  the  result  pointer  offset  to 

bvtes 

6993  OO: 2?b 

010237 

005102' 

f*10V 

R2,OPTMP6 

:Save  it 

6994  001242 

POP 

R2 

;Restore  the  source  offset 

6995  001244 

6996 

6997  001246 

0004'.5 

BR 

23$ 

;Go  see  if  we're  done 

21$: 

DJV 

fR1).R2 

;D1vio?  oy  Dimension  Size 

6998  001260 

PUSH 

R2 

;Save  the  source  offset 

6999  001262 

00^002 

CLR 

R2 

; Setup  for  divide 

7000  001264 

010403 

MCV 

R4.R3 

;Copy  result  offset 

7001  001266 

005^'^ 

TST 

(RO) 

; Dimension  zero" 

7002  001270 

00140b 

BEO 

22$ 

;Yes,  Then  don't  divide 

7003  001272 

DJV 

(R0)*,R2 

;Divide  by  next  dimension  size 

APL009  MACRO 
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TOGA 
7005 
7006 
7007 
7008 
7009 
7010 
7011 
7012 
7013 
701 A 
7015 
7016 
7017 
7018 
7019 
7020 
7021 
7022 
7023 
7024 
7025 
7026 
7027 
7028 
7029 
7030 
7031 
7032 
7033 
7034 
7035 
7036 
7037 
7038 
7039 
7040 
7041 
7042 
7044 


001304 
001306 
001310 
001312 
001314 
001330 
001332 
001334 
001336 
0C1340 
001342 
001356 
001360 
001364 
001366 
001370 
001374 
001376 
001402 
001404 
001406 
001410 
001414 
001420 
001422 
001426 
001432 
001436 
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22%: 


"TT 


005046 
010403 

010346 
005046 
012146 
005046 
010203 

010346 
005337 
001253 
005046 
005737 
001003 
013746 
000401 
005046 
005046 
013746 

0050^*6 
01 3746 

013704 


005114' 

005100' 
005102' 

005070' 

005072 ' 
005076* 


23$; 


24$; 
25$; 


MOV 

POP 

CLR 

MOV 

ASH 

MOV 

CLR 

MOV 

CLR 

MOV 

ASH 

MOV 

DEC 

BNE 

CLR 

TST 

BNE 

MOV 

BR 

CLR 

CLR 

MOV 

CONJNC 

CLR 

MOV 

piJSH 

MOV 

RETURN 


R2,R4 

R2 

-(SP) 

R4,R3 

RESSFT,R3 

R3,-(SP) 

-(SP) 

(R1)*,-(SP) 

'(SP) 

R2,R3 

M0NSFT,R3 

R3,-(SP) 

DEVIL 

18$ 

'(SP) 

0PTMP5 

24$ 

0PTMP6,-(SP) 

25$ 

-(SP) 

'(SP) 

0PTMP1,-(SP) 

<(SP)> 

-(SP) 

0PTMP2,-(SP) 

<aCPTMP4> 

0PTMP4  R4 


b)ftes 
dimension 


Copy  the  result  offset 

Restore  the  source  offset 

Clear  result  pointer 

Copy  the  offset 

Convert  the  result  offset  to  bytes 

Sto'^e  the  result  offset 

Clear  source  pointer 

Store  Count-limit 

Clear  Count 

Copy  the  offset 

Convert  the  source  offset  to 

Store  source  offset  for  this 

Used  all  the  dimensions  yet? 

No,  Loop 

Clear  result  pointer 

Are  we  scanning? 

No 

Yes,  Fill  in  the  result  pointer  increment 


.-Clear  the  result  pointer  increment 

; Clear  source  pointer 

.•Store  Count-limit 

.-Make  sure  SATAN  has  something  to  count 

.•Clear  Count 

;Store  source  offset  for  this  dimension 

;Get  return  address  from  under  SP  frames 

;Get  pointer  top  frci7>e 


001440 
001442 
001444 
001452 
001456 
001466 
001470 


005726 


;This  routine  cleans  up  after  completing  the  reduction/scan  and  returns 


;Get  rid  of  old  return  address  (from  RDSNGS) 

;Save  the  Return  address 

.•Restore  the  registers 

;Get  the  Next  Token 

;Put  the  arguments  back 

;And  Return 


RDSNRT: 

TST 

(SP)^ 

POP 

R1 

POP 

<R2.R3.R4> 

CALL 

GETNXT 

PUSH 

<R4.R3.R2.R1> 

RETURN 

LIST 

APL009    MACRO 
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LIST 
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7195  001470  MOPINS     SATAN, 0 

7404  001470  LIST 


F2 
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7A06  00U70  MOPINS  OUTRJ56 

7A76  001470  LIST 


TT 
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7478 
7504 
7505 
7506 
7507 
7508 
7509 
7510 
7564 
7565 
7566 
7567 
7568 
7569 
7570 
7612 


001470 
001470 


PAGE  88 


MOPINS     DOUTER,0 
LIST 


ITT 


001470 
001470 


MOPINS  PRDSET,0 
LIST 


001470 
001470 


MOPINS  INSPACO 
LIST 
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rr 


7614  00U70 


DOPINS  INNRJ56 


TT 
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7%0  001470  LIST 


TT 
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7%2  00U70  MOPINS  SUBR,0 
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r^ 


8725  001470 


LIST 


M — 2" 
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8727  001 A70  MOPINS  RAND.O 

8771  001470  LIST 


1 
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B  3 

SYMBa 

TABLE 

ACO   = 

XOOOOOO 

CHRFRO= 

000135 

C,ALOC= 

000162 

D.CONT= 

000006 

EDICNT 

005064R 

025 

AC1   = 

X000001 

CHRLBR= 

000073 

C.8L0K= 

000064 

D.CTLW= 

000000 

EDIFLG 

005062R 

025 

AC2   = 

X000002 

CHRLPR= 

OOOC72 

C.BLS2= 

000140 

D.DEAL= 

000003 

EDIT  = 

000003 

AC3   = 

X000003 

CHRMNS= 

000137 

C.BUFFr 

1 77760 

D.DECD= 

000002 

EIS   = 

000000 

ACA   = 

X000004 

CHRf1UL= 

000075 

C.8UFL= 

177762 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

ACS   = 

X000005 

CHRNEG= 

000100 

C.CCNT= 

177766 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

ALLINT 

003274R 

025 

CHRPOL= 

000271 

C.CPTR= 

1 77764 

D.DQAD= 

1 77777 

EOF   = 

104475 

ARYRET 

003276R 

025 

CHRPLU= 

000055 

C.CZ  = 

001000 

C.DROP= 

000002 

ERR«AX= 

000166 

ASCQUO=  0000A2 

CHRPWR= 

000120 

C.DJG  = 

000040 

D.ENCD= 

000002 

ERRNUW 

004772R 

025 

A.ALEN= 

000004 

CHRQST= 

000121 

C.FASW=  020000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

A.ARG  = 

000040 

CMROUO= 

000113 

C.FLEN= 

000010 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.ASB  = 

000200 

CHRRBR= 

000047 

C.FLSH= 

004000 

D.F6ET= 

000005 

EXEBUf 

005054R 

025 

A.BITS= 

000003 

CHRRPR= 

000042 

C.FRC  = 

000001 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A. CON  = 

000020 

CHRSE«= 

000074 

C.JDEN= 

000010 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.DIMS= 

000002 

CMRSWO= 

000112 

C.^A«E= 

000102 

D.FPUTr 

000005 

FA.APD= 

000100 

A.Dim  = 

000006 

CHRSPA= 

000040 

C.N0BF= 

000400 

D.GE  = 

000000 

FA.CRE= 

000010 

A.hO^  = 

000006 

CHRUPA= 

000131 

C.NUI  = 

000020 

D.GT  = 

000000 

FA.DLK= 

001000 

A.PTR  = 

000000 

CHR.BS= 

000010 

COP  = 

000004 

D.IBM  = 

000002 

FA.ENB= 

100000 

A.TMP  = 

000010 

CHR.CC= 

000003 

r.OPN  = 

010000 

D.IND  = 

000002 

FA.EXC= 

002000 

BADOIR= 

104463 

CHR.CR= 

000015 

C.RDLN= 

1 77776 

D.INNR= 

000013 

FA.EXT= 

000004 

BADERR= 

104437 

CHR.CZ= 

000032 

C.REWT= 

002000 

D.INTR= 

000006 

FA.NSP= 

000100 

BLZRlfi 

0051 16R 

025 

CHR.GTr 

000046 

C.RND  = 

000010 

D.LE  = 

000000 

FA.NSR= 

000200 

BRESCT= 

******  GX 

CHR.LF= 

000012 

C.S8IT= 

1 77756 

D.L06  = 

000001 

FA.POS= 

010000 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.SPFX= 

000100 

D.LT  = 

000000 

FA. 90  = 

000001 

CCNT 

005072P 

025 

CHR.SI= 

000017 

C.SPCL= 

000200 

D.MAX  = 

000000 

FA.RWD=-- 

004000 

CHA^€X 

005060R 

025 

CHR.SL= 

000057 

C.SPLX= 

000001 

D.MEM   = 

000002 

FA.SEQ= 

040000 

CNANOO 

0^^256R 

025 

CHR.SO= 

000016 

C.SPRS= 

000002 

D.WIN  = 

000000 

FA.SHR= 

000040 

CHAN01 

UO330R 

025 

CHR.TB= 

000011 

C.SRC  = 

1 7777^ 

D./1UL  = 

000000 

FA.TWPs 

000020 

CHAN02 

0005 12R 

025 

CHR.UL= 

000106 

C.SRCP= 

000024 

D.NE  = 

000000 

FA.WCIC= 

020000 

CHAN03 

000674R 

025 

CHR..A= 

000141 

C.TT  = 

000004 

D.NN  = 

000000 

FA.yRT= 

000002 

ChANDA 

001056R 

025 

CHR..E= 

000145 

C.WIDC= 

1 77770 

D.NR  = 

000000 

FD.8LK= 

000010 

CKAN05 

001240R 

025 

CHR..S= 

000163 

C.WJDR= 

1 77772 

D.OR  = 

000000 

FD.CCL= 

000002 

CH/06 

001422R 

025 

CHR..T= 

000164 

DEBUG  = 

000000 

D.PLUS= 

000000 

FD.COH= 

020000 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEFERR= 

104405 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEVJL 

005114F 

025  D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DEVNTFr 

104470 

D.OQAD= 

000000 

FD.FTN=  000001 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIGITS 

000006R 

025  D.OUAD= 

000000 

FD.F11= 

040000 

CHAN11 

0025 14R 

025 

CH.AND= 

000001 

DIMAX  = 

000020 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN12 

002676R 

025 

C«D6UF 

003250R 

025 

DIMBLK 

0031 12R 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CNAN13 

000022R 

023 

CMD«AX= 

000010 

DIMPTR 

0031 14R 

025  D.ROT  = 

000003 

FD.«NT= 

100000 

CHAN14 

000204R 

023 

C«PTRT= 

******  GX 

DIWTYP 

0031 16R 

025  D.SC0N= 

000006 

FD.0SP= 

004000 

CHNtJPN= 

104471 

CNTSJZ 

005130R 

025 

DIRFUL= 

104466 

D.SDIF= 

000006 

FD.PLC= 

000004 

CHRAND= 

000051 

comiN 

005076R 

025 

D0«ERR= 

104417 

D.SU8  = 

000000 

FD.PRN= 

000004 

CHRBEL= 

000007 

COWCNT 

005126R 

025 

DPTERR= 

104416 

D .  SUBS= 

000006 

FD.PSE= 

010000 

CHRBKR= 

000133 

CO«ERR= 

104425 

DVD8TL= 

******  GX 

D.TAKE= 

000002 

FD.PJ^H= 

000001 

CHRfla.-= 

000200 

CO«PTR 

005122R 

025 

DYDCNT 

003224R 

025  D.TRAN= 

000004 

FD.RAN= 

000002 

CHHBOX= 

000114 

COMRTN 

0031 56R 

025 

DYDTAB^ 

******  GX 

D.UNON= 

000006 

FD.REC= 

000001 

CHRCHA= 

000054 

CmSKP 

005124R 

025 

D.AND  = 

000000 

D.$«AX= 

000000 

FD.RVI^ 

000001 

CHRCa= 

000076 

CORPTR 

005120R 

025 

D.BXCT-- 

000007 

D.S«IN=  000000 

FD.SDI= 

000020 

CHROEL= 

000107 

CS.ASS= 

000200 

D.8XI0= 

000007 

D.$«JL= 

000000 

FD.SOD= 

000040 

CHRDJV= 

000053 

CS.800= 

000010 

D.8XNl  = 

000007 

D.SPLU= 

000000 

FD.TTYr 

000004 

CHRDLR= 

000176 

CS.FLO= 

000020 

D.8XPP= 

000007 

D.SRESr 

000000 

FD.yBHr 

000002 

CMRDLT= 

000110 

CS.10N= 

000040 

D.BXPW= 

000007 

D.$SUB= 

000000 

FF.CHR= 

000005 

CHRDOT= 

000056 

CS.ONE= 

000100 

D.8XRL= 

000007 

D.K0«= 

000001 

FF.NV  = 

000003 

CHREP  = 

000105 

CTEPS 

0001 52R 

025 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.POe= 

000002 

CHRERR= 

104431 

CTWAX 

0002 12R 

025 

D.C0«B= 

000001 

D.1R0T= 

000003 

FF. RgO= 

000001 

CHRFIL= 

0O0W7 

CTR«AX 

0001 72R 

025 

D.C0«P= 

000001 

EDICHR 

00506 3R 

025  FF.RWF= 

000006 
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FF.SPC=  OOOOOA 

•.FFBY= 

000014 

GETSPA= 

******  GX 

L.CNT  =  000002 

M.NEG  =  000000 

F HE ADR  00501 2R 

025  1 

'.FLAG= 

000002 

GNOME 

0031 02R 

025  L.PRNT=  000001 

M.NOT  =  000000 

FHRET   0050A0R 

025  1 

■.FLB  = 

000100 

HASHC 

0051 36R 

025  L.PTR  =  000000 

M.NU8  =  000006 

FILNTF=  104467 

•.FNAM=  000110 

HASHTB 

005140R 

025  L.PTR1=  000004 

M.NUM  =  000204 

FIS   =  000000 

■.FNB  = 

000102 

HSHMSK= 

177601 

L.SUBS=  000002 

M.0UTR=  000012 

FISCON=  046000 

■.FNDF= 

000010 

HSHSIZ= 

000200 

MACHIN=  000106 

M.PITM=  000000 

FIXDIM=  *♦**♦♦  GX 

•.FTYP= 

000116 

lASH  = 

******  GX 

MAXCHN=  000014 

M.PRDS=  000006 

FIXPTR  003074R 

025  1 

■.FUN  = 

000010 

KHAN 

0O505OR 

025  MFXDIM=  ******  GX 

M.OQAD=  000000 

FLAGS   004764R 

025  f 

■.FVER= 

000120 

IDIV  = 

******  GX 

MONBLK  0031 20R 

025  M.OUAD=  000000 

FLCBUF  003250R 

025  f 

•.HEAD= 

000006 

ILFNAM= 

10^h64 

MONCVT  0031 32R 

025  M.RAND=  000012 

FLINE   005014R 

025  f 

■.HIBK= 

000004 

ILLCHN= 

104540 

MONLEN  0031 30R 

025  M.RAVL=  000000 

FLOEXP  003270R 

025  » 

".LBL  = 

000020 

ILLSW  = 

104565 

MONPTR  0031 22R 

025  M.RC1P=  000000 

FLONEG  003272R 

025  f 

^LI^€= 

000012 

IMUL  = 

******  GX 

MONSFT  0031 26R 

025  M.RDCT=  000011 

FLSWTB  000222R 

025  1 

'.LOC 

000004 

INDERR= 

104410 

MONTYP  0031 24R 

025  M.REVS=  000003 

FLTLEN=  000010 

■.lst:= 

000004 

INNTMP 

003250R 

025  MONVAL  0031 34R 

025  M.ROLL=  000000 

FNINSI  005044R 

025  1 

•.Ll/i  = 

000042 

INNTM2 

00501 6R 

025  MSRDCT  000030RG 

020  M.SATA=  000001 

FORIGN  000032R 

025  1 

•.Mr'CT= 

000054 

INPTR 

000064R 

025  MSSCAN  00001 ORG 

020  M.SCAN=  000011 

FO.APO=  000106 

•.reci= 

000055 

INSNAM= 

104462 

MSIRDT  000020RG 

020  M.SHAP=  000000 

FO.MFY=  000002 

■.MBFG= 

000056 

lOERR  = 

104477 

MS1SCN  OOOOOORG 

020  M.SIGN=  000000 

FO.RO  =  000001 

-.MON  = 

000002 

I.CNT  = 

1 77776 

M.ABS  =  000000 

M.SUBR=  000001 

FO.UPO=  000006 

".NIL  = 

000001 

I. DIM  = 

\77772 

M.80L  =  000200 

M.SYM  =  000203 

FO.WRT=  000016 

■.NR80= 

000024 

I.LEN  = 

000012 

M.BXAV=  000007 

M.SVN  =  000201 

FPMOOE  000042R 

025  1 

■.NREC= 

000030 

I.OERR= 

000062 

M.BXCR=  000007 

M.TRAN=  000012 

FPP   =  000000 

'.OPN  = 

000010 

I. OLD  = 

177770 

M.BXCT=  000007 

M.$ABS=  000000 

FPPLEN=  000004 

■.OVBS= 

000030 

I.PTR  = 

^77771, 

M.BXEX=  000007 

M.$CEI=  000000 

FREBLK  007400R 

025  1 

■.PREV= 

000000 

I.STR  = 

177766 

M.aXFX=  000007 

M.$FLR=  000000 

.-UZZ    0001 42R 

025  f 

•.PRNT= 

100000 

LA8ERR= 

104406 

M.8XI0=  000007 

M.$IDN=:  000000 

FXPTR1  003076R 

025  1 

■.PROT= 

010000 

LABLPT 

005042R 

025  M.aXLC=  000003 

M.$NEG=  000000 

F$EVAL=  000100 

■.RACC= 

000016 

LARGBL 

0031 62R 

025  M.8XNC=  000007 

M.$SIG=  000000 

FSEVI  =  000200 

•.RATT= 

000001 

LARGCT= 

******  GX 

M.8XNL=  000007 

M.1RDT=  000011 

F$EXEC=  000400 

''.RCm= 

000034 

LARGCV 

0031 76R 

025  M.BXPP=  000007 

M.1REV=  000003 

F$FUNC=  001000 

'.RCTL--= 

000017 

LARGFL 

0031 60R 

025  M.BXPW=  000007 

M.1SCN=  000011 

F.ACTL=  000076 

■.REAO= 

004000 

LARGLE 

0031 74R 

025  M.aXRL=  000007 

NAMBUF  003240R    025 

F.ALOC=  000040 

•.REDF= 

000040 

LARaN 

0031 66R 

025  M.BXTS=  000007 

NB.DEV=  000200 

F.BBFS=  000062 

'.RES  = 

000040 

LARGPT 

0031 64R 

025  M.8XyA=  000007 

NB.DIR=  000100 

F.aOB  =  000070 

'.RET  = 

1 77772 

LARGSF 

0031 72R 

025  M.CEI  =  ^77777 

NB.NAM=:  000004 

F.BGBC=  000057 

\RS12= 

000002 

LARGTY 

0031 70R 

025  M.CHR  r  000202 

NB.SDU  000400 

F.B1TS=  1////4 

■.RTYP= 

000000 

LARGVA 

003200R 

025  M  CMT  =  000206 

NB.SD2=  001000 

F.B«)N=  000026 

■.R2  = 

000014 

LBINC 

005100R 

025  M.D0UT=  000006 

NB.S^#*=  000040 

F.aKDS=  000020 

\R3  = 

000016 

LBUFF 

00331 6R 

025  M.DQAD=  000006 

NB.STP=  000020 

F.BKEF=  000050 

■.R4  = 

000020 

L8UFLN= 

000621 

M.ENCD=  000004 

NB.SVR=  000010 

F.BKP1=  00^:31 

'.SEQN= 

000100 

LlOUNT 

005106R 

025  M.EXE  =  000000 

^6.TYP=  000002 

F.a«:ST=  000024 

• . SPOV= 

000072 

LENERR= 

104412 

M.txo  =  000001 

NB.VER=  000001 

F.»CVB=  000064 

' .  SPUN-- 

000074 

LENTA6 

000054R 

025  M.FACT=  000001 

ND.DFV=  000200 

F.BR  =  000020 

•.STGK= 

0O0036 

LEXPTR 

0031 OOR 

025  M.FIL  =  000177 

ND.EXT=  000002 

F.CHR  :.  000075 

•.STK  = 

000CV2 

L-^TOP 

005066R 

025  M.FLk  =  ^77777 

NO.NAM=  000004 

F.CNT6=  000034 

•.510P= 

00000^ 

LINC 

005102R 

025  M.FMT  r  000004 

ND.PPN=  000100 

F.COOE=  000010 

'.STP  = 

000001 

LINE 

00501 6R 

025  M.GDUP=  000003 

ND.SEX^  000000 

F.DF^e=  000046 

' . SUSP= 

000002 

LININC 

005026R 

025  M.GDyN=  000003 

ND.SES=  000020 

F.DSPT=  000044 

■.TRC  = 

000002 

LIS]ZE= 

000C20 

M.GET]=  000006 

rjO.SM^  000000 

F.DV^#I=  00013^ 

■.UNIT= 

000136 

LITOP 

005072R 

025  M.IBM  =  000003 

ND.SNS^  000040 

F.EFBK=  000010 

•.ii«o= 

000020 
1 77776 

LNLNG  = 

104541 

M.IDN  =  000000 

NO. $PN=  001400 

r.E^N   =  000050 

'.VAL  = 

LOCLCT 

005036R 

025  M.INSP=  000006 

NEGSGN  005063R    025 

F.END  =  0C2000 

.va^  = 

000064 

LOWCOR 

000002R 

025  H.I0TA=  000000 

NINPT1  003302R    025 

F.Eapa=  000032 

.V8SZ= 

000060 

LSTERP 

004766R 

025  M.LIT  =  000205 

NINPT2  003300R    025 

f.EPj^  =   000052 

",ET]DN= 

••♦•*•  GX 

LWIDTH 

000070R 

025  M.LN  =  000001 

NINSTK  003304R     025 

F.FACC=  000043 

5ETNXT= 

••••••  GX 

L.8jrs= 

000003 

M.MMD  =  000010 

NINTMP  00331  OR    025 

A 
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NINTYP 

003306R 

025  0PTM14 

005026R 

025 

RINC 

0051 04R 

025 

SYMPT1 

005346R 

025 

TYPE  = 

000166 

NOTA\/L= 

104A72 

ORIGIN 

000030R 

025 

RLTBAS 

005066R 

025 

SYMTAB 

005352R 

025 

T.BOL  = 

020000 

NOTOPN= 

104A73 

OUTPTR 

000066R 

025 

ROTINC 

005070R 

025 

SYMTBF= 

104404 

T.CON  = 

004000 

NPRT1 

004762R 

025  0VR0PR= 

000011 

ROUND 

00001  OR 

025 

SYMTOP 

005350R 

025 

T.DIM  = 

000100 

NULL 

007364R 

025  PATCH 

007344R 

025 

ROVER 

00331 2R 

025 

SYMTP 

006272R 

025 

T.FUN  = 

010000 

NUMCHN=  000020 

PRECSN 

000052R 

025 

RSTS  = 

000000 

SYMURN=  000054 

J.Ll^Tr-. 

000400 

NUMDFL 

003230R 

025  RANDAC 

003064R 

025 

RSX   = 

0001 1 5 

SYNERR= 

104407 

T.LIT  = 

OOOUkC 

NUMEFL 

003233R 

025  RANDY 

003062R 

025  RTOP 

005070R 

025 

SYSERR= 

104402 

T.MON  = 

000010 

NLf€SN 

003236R 

025  RANERR= 

104411 

RT11  = 

000000 

SYSTAT 

OOOOOOR 

024 

T.NIL  = 

000004 

NUMFLG 

003230R 

025  RARGBL 

003204R 

025 

R.5ITS= 

0COOO3 

SY.aAD= 

000001 

T.NUM  = 

002000 

NUMLEN 

000062R 

025  RARGCT= 

******  Gx 

R.FIX  = 

000001 

SY.BRK= 

100000 

T.0PFN=  000001 

rov€G 

003232R 

025  RARGCV 

003220R 

025  R.LCT  = 

000002 

SY.BS  = 

000010 

T.0THR= 

040000 

NLf«FL 

003234R 

025  RARGFL 

003202R 

025 

R.LN  = 

000002 

SY.CLR= 

000040 

T.SOP  = 

000002 

NUMRIG 

003231 R 

025  RARaE 

00321 6R 

025  R.LNUM=  000010 

SY. ERP= 

000020 

T.SPOP= 

000040 

Njmio 

003226R 

025  RARGLN 

00321 OR 

025 

R.NEXT= 

000006 

SY.NOU=  000100 

T.TMP  = 

000200 

NUM2FL 

003235R 

025  RARGPT 

003206R 

025 

R.OFF  = 

000000 

SY.0PN= 

000002 

T.VAL  = 

100000 

NYIERR= 

104A32 

RARGSF 

00321 4R 

025  R.PREV= 

000004 

SY.PMT= 

001 000 

T.VAR  = 

001000 

N.BLSZ= 

000036 

RARGTY 

00321 2R 

025 

R.PTR  = 

000000 

SY.SRT= 

000400 

UPPER  = 

177400 

N.DESC= 

000020 

RAR6VA 

003222R 

025  R.SEQ  = 

000003 

SY.SVC= 

000004 

UTNAME 

000344R 

023 

N.DEV  = 

000032 

RBASE 

005074R 

025 

R.VAR  = 

000002 

SY.SVL= 

000200 

VALERR= 

104413 

N.DEVN=  00003A 

RCOUNR 

0051 12R 

025 

R6 

X000006 

S.A6  = 

1 77776 

VARBLE 

007400R 

025 

N.DID  = 

00002A 

RCOUNT 

00511 OR 

025  R7 

X000007 

S.ASB  = 

100000 

VARBLS 

OOOOOOR 

025 

N.DV^«=  000032 

RDSNCK 

000060R 

020 

SATAN  = 

******  GX 

S.8FHD= 

000020 

VERNUM 

OOOOOOR 

025 

N.EXT  ::. 

000014 

RDSNC1 

000040R 

020  SCAN 

00001  ORG 

020 

S.8ITS= 

000002 

VRSI0N=  000002 

N.FID  = 

OOOCX 

RDSNGS 

000420R 

020 

SCAN1 

000262R 

020  S.CHR1= 

000003 

WIDTH 

000072R 

025 

N.FNAM=  000006 

RDSNK1 

000072R 

020 

SI 

X000005 

S.FATT= 

000016 

UROUND 

000020R 

025 

N.FTYP=  OOOOK 

RDSNK2 

0001 02R 

020 

SIDA«N= 

104433 

S.FDB  = 

000140 

WSDATE 

0001 36R 

025 

N.FVER= 

000016 

RDSNRT 

001440R 

020 

SIFRAM 

00331 4R 

025 

S.FLB  = 

040000 

WSFULL= 

104403 

N.^4AME= 

000006 

RDSN1 

001020R 

020 

SISTAK 

006350R 

025 

S.FNAM= 

000006 

USNAME 

000074R 

025 

N.NEXT= 

000022 

RDSN2 

001026R 

020 

SI  TOP 

006346R 

025 

S.FNB  = 

000036 

WSTIME 

0001 32R 

025 

N.PPN  = 

00002A 

REDCNT 

005070R 

025 

SITP 

0071 44R 

025 

S.FNBW= 

000017 

$FIS  = 

******  G 

N.STAT= 

000020 

REDCT 

0001 56R 

020 

5IWARN=  000200 

S.FNTY= 

000004 

%fPP     = 

******  G 

N.UNIT= 

000034 

REDIGN 

005066R 

025 

SIZTAB 

000044R 

025 

S.FTYP= 

000002 

%fP^H= 

******  G 

ntt;FLN=  001000 

REDOFF 

005072R 

025 

SI.BIT= 

1 7777^ 

S.LEN  = 

000002 

$MACHN= 

******  G 

OCHAN 

005052R 

025  REDUCT 

000030R6 

020 

SI.LEN= 

1 77772 

S.LINK= 

1 7777^ 

$RSTS  = 

******  G 

GMODE 

000402R 

023  REENTR 

003060R 

025 

SI.RET= 

1 77772 

S.NFEN=  000020 

SRS.X  = 

******  G 

OPT«PO 

005066R 

025  REGTYP= 

000003 

SI.VAL= 

1 77776 

S.TYPE= 

140000 

$RT11  = 

******  G 

OPTWPI 

005070R 

025  RES8IT 

0031 42R 

025 

SKPSIZ 

005134R 

025 

S.VAL  = 

000000 

.BOOLE= 

)00002 

GPTMP2 

005072R 

025  RESCT  = 

******  (5x 

SPHOLD 

000004R 

024 

TKDIMS 

005072R 

025 

.CHARA= 

000000 

0PTMP3 

005074R 

025  RESCVT 

0031 52R 

025 

SPINIT 

000002R 

024 

TKFRAM 

005066R 

025 

.DEF.  = 

00COO2 

OPTMPA 

005076R 

025  RESERR= 

104440 

STKINC= 

000774 

TKLEFT 

005070R 

025 

.FLOAT= 

000006 

aPTMP5 

005100R 

025  RESLEN 

0031 50R 

025 

STOP  = 

1044.1 

TMODE 

000403R 

023 

.FSRCB= 

******  G 

aPTMP6 

0051 02R 

025  RESPTR 

003140R 

025 

SUBCNT 

0031 04R 

025 

TMPTA6= 

000166 

.INTEG= 

000004 

OPTMP? 

0051 04R 

025  RESSFT 

0031 46R 

025 

SIBDCT 

0031 06R 

025 

TTYBUF 

004140R 

025 

.MOLUN 

000404R 

023 

0PTMP8 

0051 06R 

025  RESTYP 

0031 44R 

025 

StflPTR 

00311  OR 

025 

TTYLEN= 

000622 

...G8L= 

000000 

GPT«P9 

005110R 

025  RESULT 

003136R 

025 

SYMB1 

005344R 

025 

TURKEY= 

104436 

...TPC= 

000020 

opimo 

0051 12R 

025  RESVAL 

0031 54R 

025 

SYMF 

005340R 

025 

■  Aob« 

000000 
000000 

000 
001 

TABLES 

000000 

00? 

nClNTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

nONBTB 

000000 

006 

DYDBTB 

000000 

007 

CO«TB 

000000 

010 
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016 

MNTRTL 

000000 

017 
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001470 

020 
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000000 
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SSFSRI 

000000 

022 
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000406 

023 

DEFSI 
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024 
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007400 

025 
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.TITLE 
.IDENT 


rr 


APL010 
\V02.03\ 


THIS  IS  USED  UHEN  ASSEMBLING  APLOP  TO  DEFINE  A  NEW  OVERLAY  SEGMENT 
CONTAINING  OPERATOR  ROUTINES.  IN  THE  COMMON  DEFINITION  FILE, 
•OVROPR'  IS   DEFINED  AS  ZERO.  IF  IT  IS  DEFINED  AS  ONE  BEFORE  APLOP 
IS  ASSEMBLED,  ONLY  THE  CODE  DESIGNATED  FOR  THE  OPERATOR  OVERLAY  IS 
ASSEMBLED.  THEREFORE,  THE  COMMAND  TO  ASSEMBLE  APL010  IS; 

APL010  <  ...,APL010, APLOP 


000012 


OVROPR=  10. 


.-OVERLAY  SPECIFIED  OPERATORS 


M  3 

APL010 
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5 
6 

;-f+ 

7 

;  FUNCTIONAL  DESCRIPTION: 

8 

;      THIS  MODULE  CONTAINS  THE  CODE  FOR  MOST  APL  OPERATORS  WHICH 

9 

;      HAVE  BEEN  IMPLEMENTED  SO  FAR.  TWO  MACROS  ARE  USED  TO  DEFINE 

10 

;      OPERATOR  ROUTINES.   'DOPINS*  OEflNES   A  DYADIC  OPERATOR,  AND 

11 

;       'MOPINS'  DEFINES  A  MONADIC  OPERATOR.  THE  ARGUMENTS  TO  THE 

12 

;      MACROS  ARE  THE  NAME  OF  THE  OPERATOR  ROUTINE  AND  THE  OPERATOR 

13 

r      NUMBER  FOR  THE  OPERATOR  (WHICH  CAN  BE  FOUND  BY  LOOKING  IN 

1A 

;                'VTAB').  FOR  DYADIC  SCALAR  OPS,  THE  LEFT  ARG  IS  IN  ACI,  THE 

15 

r      RIGHT  ARG  IS  IN  AC2,  AND  THE  RESULT  IS  RETURNED  IN  ACO.  FOR 

16 

;               MONADIC  SCALAR  OPS,  THE  ARGUMENT  IS  IN  ACI,  AND  THE  RESULT 

17 

J       IS  RETURNED  IN  ACO.   SCALAR  OPS  MUST  LEAVE  THEIR  ARGUMENTS 

18 

;      INTACT! 

19 

.— 

24 

27 

124 

125 

< 

•THESE  MACROS  ARE  FOR  OVFRLAY  CODE.   THEY  ARE  USED  THE  SAME  AS 

126 

< 

^RESIDENT  MACROS.   THE  DIFFERENCE  COMES  IN  THE  WAY  THEY  WORK.   THE 

127 

t 

; 'PRMRES'  MACRO,  FORCES  ALL  CODE  BETWEEN  IT  AND  THE  NEXT  ' .IFTF'/'LIST' 

128 

1 

;T0  NOT  BE  ASSEMBLED.   THE  'MOPINS'  AND  'DOPINS'  DON'T  PUT  ANYTHING  IN 

129 

1 

;ANY  TABLES.  OTHER  THAN  THAT  THEY  WORK  BASICLY  THE  SAME  AS  THE  RESIDENT 

130 

( 

: MACROS. 

131 

132 

.MACRO  DOPINS  NAME,NUM,BITS,BOZO,NOTME 

133 

Alf         NDF  D.'NAME,  .ERROR  ;D.'NAME  IS  NOT  DEf INED  BY  OVROPI 

134 

AF   EQ  OVROPR-D.'NAME 

135 

.PSECT  CODE 

136 

DS'NAME:: 

137 

.ENDM 

138 

139 

.MACRO  MOPINS  NAME, NUM, BITS, BOZO, NOTME 

140 

Alf         NDF  M.'NAME,  .ERROR  ;M.'NAME  IS  NOT  DEFINEO  BY  OVROP! 

141 

Af   EQ  OVROPR-M.'NAME 

142 

.PSECT  CODE 

143 

.IF  NE  NUW 

144 

MS'NAME:: 

145 

.ENDC 

146 

.ENDM 

147 

148 

.MACRO  LIST 

149 

.ENDC 

150 

.ENDM 

151 

152 

.MACRO  PRMRES 

153 

Af   EQ  1 

154 

.ENDM 

155 

159 

;***«*******  ASSEMBLING  THE  FILE!!  I 'I 

160  007400 

PRMRES 

199 

007400 

LIST 

N  S 
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201  007400 

DOPINS 

PLUS,2,T.S0P,.INTEGER+CS.IDN+CS.ASS 

208  007400 

LIST 

209 

210  007400 

DOPINS 

SPLU,-2 

224  007400 

LIST 

225 

226  007400 

DOPINS 

SUB,4,T.S0P,.INTEGER+CS.IDN 

233  007400 

LIST 

234 

235  007400 

DOPINS 

$SUB,-4 

249  007400 

LIST 

250 

251 

252  007400 

DOPINS 

MUL,6,T.S0P,.INTEGER^CS.B00L+CS.IDN+CS.0NE^CS.ASS 

264  007400 

LIST 

265 

266 

267  007400 

DOPINS 

$MUL,-6 

284  007400 

LIST 

235 

286  007400 

DOPINS 

DIVJO,T.SOP,.FLOAT^CS.BOOL'»-CS.IDN"^CS.ONE 

323  007400 

LIST 

324 

325 

326  007400 

DOPINS 

PWR,20,T.SOP,.FLOATKS.BOOL^-CS.IDN*CS.ONE 

392  007400 

LIST 

393 

394 

395  007400 

DOPINS 

L06,54,T.SOP,.FLOAT^CS.BOOL 

417  007400 

LIST 

418 

419 

420  007400 

DOPINS 

CIRC, 52, T. SOP, .FLOAT 

4//  007400 

LIST 

478 

479 

480  007400 

DOPINS 

MIN,K,T.SOP,.INTEGER^CS.BOOL*CS.ASS 

490  007400 

LIST 

491 

492  007400 

DOPINS 

$WIN,-14 

516  007400 

LIST 

517 

518 

519  007400 

DOPINS 

MAX,16.T.S0P,.INTEGERKS.B00L*CS.ASS 

529  007400 

LIST 

530 

531  007400 

DOPINS 

$«AX,-16 

555  007400 

LIST 

556 

557 

558  007400 

DOPINS 

RES,12,T.S0P,.INTEGERKS.800L+CS.IDN 

589  007400 

LIST 

590 

591 

592  007400 

DOPINS 

$RES,-12 

616  007400 

LIST 

617 

APL010     MACRO 
DEFINITIONS 

618 

619  007400 

639  007AOO 
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DOPINS 


TT 


A 
D 


COMB, <?2,T.  SOP,.  FLOAT^CS.BOOL^CS.IDN^CS. ONE 
LIST 


C  4 
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ERRORS 

641  007400 

DOPINS 

AND,42,T.SOP,.BOOLEANKS.IDN*CS.ONE^CS.ASS 

652  007400 

LIST 

653 

654 

655  007400 

DGPINS 

OR,40,T.SOP,.BOOLEAN*CS.IDN*CS.ASS 

662  007400 

LIST 

663 

664 

665  007400 

DOPINS 

NN, 46, T. SOP,. BOOLEAN 

676  007400 

LIST 

677 

678  007400 

DOPINS 

NR, 44, T. SOP,. BOOLEAN 

687  007400 

LIST 

688 

689 

690  007400 

DOPINS 

LT,24.T.LIT^T.SOP,.CHARACTER*CS.IDN 

700  007400 

LIST 

701 

702  007400 

DOPINS 

LE,26,T.LIT^T.SOP,.CHARACTER+CS.IDN*CS.ONE 

712  007400 

LIST 

713 

714 

715  007400 

DOPINS 

EQ,30,T.LIT^T.SOP,.CHARACTER*CS.IDN>CS.ONE 

733  007400 

LIST 

734 

735  007400 

DOPINS 

GE,36,T.LIT^T.SOP,.CHARACTER*CS.IDN>CS.ONE 

745  007400 

LIST 

746 

747 

748  007400 

DOPINS 

GT,32,T.LIT*T.SOP,.CHARACTER^CS.IDN 

758  007400 

LIST 

759 

760 

761  007400 

DOPINS 

NE,34,T.LIT*T.SOP,.CHARACTER*CS.IDN 

780  007400 

LIST 

781 

D  4 
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783  007400 

MOPINS 

FLR^U.T.SOP^.INTEGER^CS.BOOL-^CS.FLOAT.MSIDN 

786  007400 

LIST 

787 

788  007400 

MOPINS 

CEIJ6/r.SOP,.INTEGER+CS.800L*CS.FLOAT,M$IDN 

791  007400 

LIST 

792 

793  007400 

MOPINS 

IDN,2,T.S0P,.INTEGER^CS.B00L 

799  007400 

LIST 

800 

801 

802  007400 

MOPINS 

$IDN,-2 

808  007400 

LIST 

809 

810 

811  007400 

MOPINS 

$FLR,-14 

855  007400 

LIST 

856 

857 

858  007400 

MOPINS 

$CEI,-16 

868  007400 

LIST 

869 

870 

871  007400 

MOPINS 

NEG,4,T. SOP, .INTEGER 

878  007400 

LIST 

879 

880  007400 

MOPINS 

$NEG,-4 

887  007400 

LIST 

888 

889 

890  007400 

MOPINS 

SIGN, 6, T. SOP,. INTEGER^CS.ROOL^CS. FLOAT 

901  007400 

LIST 

902 

903  007400 

MOPINS 

$SIG,-6 

914  007400 

LIST 

915 

916 

917  007400 

MOPINS 

RCIPJ0,T.SOP,.FLOAT+CS.BOOL 

928  007400 

LIST 

929 

930  007400 

MOPINS 

EXP, 20, T. SOP,. FLOAT 

939  007400 

LIST 

940 

941 

942  007400 

MOPINS 

LN,54,T.SOP,.FLOAT+CS.BOOL 

949  007400 

LIST 

950 

951 

952  007400 

MOPINS 

PITM, 52, T. SOP, .FLOAT 

959  007400 

LIST 

960 

961  007400 

PRMRES 

966  007400 

LIST 

967 

968 

969  007400 

MOPINS 

AflS,12,T.S0P,.INTEGER^CS.800L 

977  007400 

LIST 

978 

A 
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979  007400 

992  007400 

993 

994 

995  007400 
1002  007400 
1003 
1004 

1005  007400 
1031  007400 
1032 
1033 

1034  007400 
1057  007400 


ERRORS 


MOPINS  SABS, -12 
LIST 


MOPINS 


MOPINS 


MOPINS 


FACT, 22, T. SOP,. FLOAT^CS.BOOL 
LIST 


NOT, 50 
LIST 


ROLL, 100 
LIST 


APL010  MACRO 
DEFINITIONS 

1059  007400 
1187  007400 
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DOPINS 


F  A 


DEAL  J  00 
LIST 
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1189  007400  MOPINS     SHAPJ02 

1211  007400  LIST 

1212 

1213 

121A 

1215 

1216 

1217  007400  DOPINS     RHOJ02 

1313  007400  LIST 


6    4 
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1315  007A00  MOPINS  RAVL,56 

1325  007400  LIST 

1326 

1327 

1328 

1329 

1330 

1331  007400  DOPINS  CTLM,56,T.DIM 

1596  007400  LIST 


H  4 
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1598  007400  MOPINS  IOTA, 72 

1632  007400  LIST 

1633 

1634 

1635 

1636 

1637 

1638  007400  DOPINS  IND,72 

1699  007400  LIST 


TT 


J     4 
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1701   007A00 

DOPINS 

1C0MJ24 

1709  007400 

LIST 

1710 

1711 

1712 

1713 

1714 

1715  007400 

DOPINS 

C0MP,60, 

1789  007400 

LIST 

K    4 
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1791  007400 

DOPINS 

1  EXP J  30 

1799  007400 

LIST 

1800 

1801 

1802 

1803 

1804 

1805  007400 

DOPINS 

EXPD,62, 

1864  007400 

LIST 

L  4 
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1866  007400  DOPINS  DROPJOA 

1907  007400  LIST 

1908 

1909 

1910 

1911  007400  DOPINS  TAKE, 114 

2149  007400  LIST 
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2151  007A0O  MOPINS  1 REV, 146 

:'160  007400  LIST 

«:161 

2.62 

2163 

2164 

2165 

2166  007400  MOPINS  REVS J44,T. DIM 

2204  007400  LIST 


M  4 


hT 
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2206  007400 

DOPINS 

1R0T,146 

22K  007400 

LIST 

2215 

2216 

2217 

2218 

2219 

2220  007400 

DOPINS 

R0TJ44, 

2328  007400 

LIST 

APL010     MACRO 
DEF  INITIO'S 
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23iO 
2331 
2332 
2333 

233A 
2335 
2336 
2337 
2338 
2339 
23A0 
2341 
23A2 
23A3 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2570 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2584 
2585 
2386 


007^00 


000000 
000004 
000010 
000014 
000016 
000020 

000024 
000030 
000032 
000034 
000040 
000044 
000050 
000064 
000072 
000106 
000114 
000122 
000130 
000132 
000136 
000144 
000146 
000154 
000156 
000162 
000164 
000166 
000170 
000174 
000176 
000200 
000202 
000204 
000210 
000212 
000216 


000222 
000224 
000226 
000230 
000242 
000244 
000260 
000264 

000266 
000270 
000274 
000276 
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MOPINS  IRAN, 126 
.S8TTL  MIXED  FUNCTION 


B~r 


A 

M 


01 3702 
116203 
020327 
003003 
010204 
000137 

012704 
060304 
060304 
016200 
013701 
010137 


003120' 

000002 

000001 


OOOOOOG 
000006 


000004 

003124' 

003144' 


1$: 


016137     000054'   005114' 


016137 
016137 
012737 
060400 

132762 
001003 
042765 
010001 
010337 
060421 
005722 
012211 
042721 
012200 
010021 
060302 
060302 
010637 
010604 
010337 
013703 


OOOOOOG  003176' 
OOOOOOG  003152' 
104402  003220' 


000006  000003 
002000  1 777H, 
005066' 

074400 


2$: 


005070' 

005072' 
005114* 


Build 


010001 
005000 

010001 

010137 


00S046 
013746 
005046 
011246 


h: 


005074' 


005074 • 


MOV 

M0NBLK,R2 

Move 

A.DI«S(R2),R3   ; 

CMP 

R3,#1 

BGT 

1$ 

MOV 

R2,R4 

JMP 

SAME 

MOV 

#A.DIM1,R4 

ADD 

R3,R4 

ADD 

R3,R4 

MOV 

A.ALEN(R2),R0   ; 

MOV 

M0NTYP,R1 

MOV 

R'"  RESTYP 

ASH 

Sii.iAB(R1),R0   ; 

MOV 

LENTAB(RI), DEVIL; 

MUL 

#5,R1 

MOV 

LARGCT(R1),LARGCV 

MOV 

RESCT(R1),RESCVT 

MOV 

#SySERR,RARGCV 

ADD 

R4,RC 

CALL 

6ETFRA 

BITS 

*A.NUM,A.BITS(R2) 

BNE 

2$ 

BIC 

#T.NUM,SI.BIT(SI) 

MOV 

R0,R1 

MOV 

R3,0PTMP0 

ADD 

R4.(R1)* 

TST 

(R2)^ 

MOV 

(R2)^,  (R1)      ;l 

BIC 

#*C<A.ASBM.NUM>* 

MOV 

(R2)*, RO 

MOV 

R0,(R1)* 

ADD 

R3,R2 

ADD 

R3,R2 

MOV 

SP,0PTMP1 

MOV 

SP,R4 

MOV 

R3,0PTMP2 

MOV 

DEVIL, R3 

d  SAT  AM 

stack  frames 

PUSH 

R1 

MOV 

R0,R1 

CLR 

RO 

DIV 

-(R2),R0 

MOV 

R0,R1 

ASH 

M0NSFT,R1 

MOV 

R1,0PTMP3 

POP 

R1 

.1 

CLR 

-(SP) 

MOV 

0PTMP3,-(SP) 

CLR 

-(SP) 

MOV 

(R2),-(SP) 

MONADIC  TRANSPOSE 


Point  to  araument 

Get  the  numoer  of  dimensions 

Is  there  more  than  one  dimension? 

Yes? 

No,  Argument  is  a  scalar  or  vector 

So  the  result  is  the  same  as  the  argiment 

Compute  the  size  of  the  header 
Plus  Ntmber  of  Dimensions 

(Word  Offsets) 
Get  the  size  of  the  data 
Get  the  Source  type 
Now  it's  the  Result  type 
Convert  data  size  to  bytes 
Get  the  Item  Size 
Typt?  times  5  to  index  fetch  routine  tables 

Setup  Left  argument  fetch  routine 

Setup  Result  store  routine 

Just  in  case 

Add  in  the  header  size 

Get  result,  and  build  the  SI  frame  for  it 

Is  the  type  nLiT»eric? 

Yes 

No,  It  is  literial 
Copy  the  result  pointer 
Save  the  number  of  dimensions 
Add  in  offset 

Increment  Pointer  to  Source 
.Bits  &  Rank 

♦400, (RD*  ; Clear  Garbage 
Save  ALEN  for  later 
ALEN 
Point  to  end 

of  source  dimensions 
Save  SATAN  frame  pointer 
Copy  it 

Copy  the  nunber  of  dimensions 
Get  Size  of  one  element 


Save  a  register  today 

Copy  the  current  result  pointer  offset 

Setup  for  divide 

Divide  by  current  dimension  size 

Copy  the  new  result  pointer  offset 

Convert  it  to  bytes 

Save  it  for  later 

Get  back  the  register 

Build  a  SATAN  frame 

Result  pointer 

Result  pointer  offset 

Source  pointer 

Count  limit 
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TT 


A 
M 


2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2A00 
2A01 
2A02 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2415 


0003C 
0003C 

000304 
000306 
000320 
000324 

000326 
000332 
000336 

000340 
000344 
000346 
000350 
000354 
000356 

000360 
000364 
000366 
000370 

000374 
000400 
000404 
000406 


005046 
010346 

011221 

005337 
003336 

013700 
005760 
001420 

013746 
005046 
005046 
01 2746 
005046 
005046 

116000 
060002 
060002 
013704 


013706 


005072* 


003120* 
000004 


003152' 
000001 

000002 

005070' 

005070' 


5$: 


CLR 
MOV 

-(SP) 
R3,-(SP) 

MOV 
MUL 
DEC 
BGT 

(R2),(R1)^ 
(R2),R3 
0PTMP2 
3$ 

MOV 
TST 
BEQ 

MONBLK,R0 

A.ALEN(RO) 

5$ 

MOV 
CLR 
CLR 
MOV 
CLR 
CLR 

RESCVT,-(SP) 

-(SP) 

'(SP) 

#1,-(SP) 

'(SP) 

'(SP) 

MOVE 
ADD 
ADD 
MOV 

A.DIMS(RO),RO 
R0,R2 
R0,R2 
0PTMP1,R4 

CALL 
MOV 
RETURN 
LIST 

SATAN 
0PTMP1,SP 

Count 

Source  pointer  offset 

Transposed  dimension 
Accumulate  size  for  offset 
Count  this  dimension 
Loop  for  all  the  dimensions 

Point  to  aroLinent  array  block 

Is  it  a  Null  array? 

Yes,  Then  don't  feed  it  to  Satan 

Final  SATAN  frame.  Result  routine  pointer 

Result  pointer  offset 

Source  pointer 

This  last  frame  forces  a  copy  operation 

Count 

Source  pointer  offset 

Get  the  number  of  dimensions 
Point  to  the  first  source  element 

all  the  way  there 
Point  to  top  level  SATAN  frame 

SATAN  does  the  transpose 
Scrap  the  SI  frames 
And  Return 
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FT 


^ 
P 


2417  0OOA06 
2654  000406 


DOPINS 


TRAN, 
LIST 


26 
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TT 


^ 


2656  000^06 
2856  000A06 


DOPINS 


ENCD,76 
LIST 
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7~T 


2858  0OOA06 
2988  000406 


DOPINS 


DECD,6A 
LIST 
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2990  000A06  MOPINS  GDWNJ36,T.DIM 

3001  000406  LIST 

3002 

3003 

300A  0O0A06  MOPINS  GDUPJ40,T.DIM 

3219  000A06  LIST 


■g~T 
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3221  000A06  MOPINS  MMDJ  22 

3316  000A06  LIST 


hT 
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TT 


3318  000A06 


DOPINS  DMDJ22 


TT 
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3864  000406  LIST 


icT 
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3866  000A06  DOPINS  MEM, 70 

3921  0^)0406  LIST 
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3923  000A06  MOPINS  NUB J  06 

3986  000A06  LIST 

3987 

3988 

3989 

3990 

3991 

3992  000406  DOPINS  UNON,106 

4022  000406  LIST 

4023 

4024 

4025 

4026 

4027 

4028  000406  DOPINS  INTR,66 

4042  000406  LIST 

4043 

4044 

4045 

4046 

4047 

4048  000406  DOPINS  SDIF,50 

4161  000406  LIST 
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A163  000A06  DOPINS  SCON, 234 

4179  000406  LIST 

4180 

4181 

4182  000406  DOPINS  C0NTJ12 

4200  000406  LIST 

4201 

4202 

4203  000406  DOPINS  PSUB,236 

4209  000406  LIST 

4210 

4211 

4212  000406  DOPINS  SUBS, 116 

4288  000406  LIST 


NT 
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4290  000A06  MOPINS  EXE. 70 

A336  0OOA06  LIST 
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TT 


A 

M 


A338  000A06 
AA11  000A06 


MOP INS 


ENCD,76 
LIST 
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C  6 


K 


AA13  000406 

AA23  000A06 

AA2A 

AA25 

AA26 

AA27 

AA28 

AA29  000A06 


MOPINS 


FMTJ60 
LIST 


DOPINS  FMT,160 
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4953  OOOA06 


DT 


LIST 
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TT 


4955  000406 

4958  000406 

4959 

4%0 

4961  000406 

5046  000406 


MOP INS 


DOPINS 


I8MJ32,,,MONIB« 
LIST 


IBM, 132 
LIST 


r  6 
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5048  000406 

MOPINS 

QUAD,74,T.NIL*T.SP0P 

5075  000406 

LIST 

5076 

5077 

5078 

5079 

5080 

5081  000406 

DOPINS 

QUAD,74,T.NIL*T.SP0P 

5097  000406 

LIST 

5098 

5099 

5100 

5101 

5102 

5103  000406 

MOPJNS 

QQADJ42,T.NIL*T.SP0P 

5135  000406 

LIST 

5136 

5137 

5138 

5139 

5140 

5141  000406 

DOPINS 

QQADJ42,T.NIL^T.SP0P 

5152  000406 

LIST 

5153 

5154 

5155 

5156 

5157 

5158  000406 

MOPINS 

DQADJ34,T.NIL+T.SP0P 

5192  000406 

LIST 

5193 

5194 

5195 

5196  000406 

DOPINS 

DQADJ34,T.rJIL*T.SP0P,,D$QQAD 

5199  000406 

LIST 

G  6 
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5201  000A06 

MOPINS 

BXAVJ62,T.NIL 

5219  000406 

LIST 

5220 

5221 

5222 

5223 

522A 

5225  000A06 

MOPINS 

BXCT,164,T.NIL^-T.SP0P 

523A  000406 

LIST 

5235 

5236 

5237  000406 

DOPINS 

BXCTJ64,T.NIL*T.SP0P 

5272  000406 

LIST 

5273 

5274 

5275 

5276 

52// 

5278  000406 

MOPINS 

BXI0J66,T.NIL^'T.SP0P 

5287  000406 

LIST 

5288 

5289 

5290  000406 

DOPINS 

BXI0,166,T.NIL*T.SP0P 

5302  000406 

LIST 

5303 

5304 

5305 

5306 

5307  000406 

MOPINS 

BXLC,212,T.NIL 

5340  000406 

LIST 

5341 

5342 

5343 

5344 

5345 

5346 

5347  000406 

MOPINS 

BXPPJ70,T.NIL+T.SPOP 

5356  000406 

LIST 

5357 

5358 

5359  000406 

DOPINS 

BXPPJ70,T.NIL>T.SPOP 

5381  000406 

LIST 

5382 

5383 

5384 

5385 

5386 

5387 

5388  000406 

MOPINS 

BXPWJ72,T.NIL  +  T.SP0P 

5397  000^^06 

LIST 

5398 

5399 

5400  000406 

DOPINS 

BXPWJ72,T.NIL^T.SP0P 

5417  000406 

LIST 

5418 

5419 

5420 
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5421 

5422 

5423  000406 

5432  000406 

5433 

5434 

5435  000406 

5447  0004C6 

5448 

5449 

5450 

5451 

5452 

5453  000406 

5562  000406 

5563 

5564 

5565 

5566 

5567 

5568 

5569  000406 

5592  000406 


MONADIC  TRANSPOSE 


MOPINS  BXRLJ74,T.NIL^-T.SP0P 
LIST 


DOPINS     BXRLJ74,T.NIL*T.SP0P 
LIST 


MOPINS  BXTS,200,T.NIL 
LIST 


MOPINS  BXWA,176,T.NIL 
LIST 
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5594  000A06  MOPINS  BXCR,206 

5716  000406  LIST 


I  6 


J  6 
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5718  000A06  MOPINS  BXEX,202 

5775  0OOA06  LIST 


K  6 
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5777  000A06  MOPINS  BXFX,210 

5879  000406  LIST 


L  6 
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5881  G00A06  MOPINS  BXNC,204 

5950  0OOA06  LIST 
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5952  0OOA06  MOPINS  BXNL,2U 

5%3  000406  LIST 

5964 

5965 

5966  000406  DOPINS     BXNL,214 

6104  000406  LIST 


TTT 
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6106  000A06  DOPINS  FGETJ50,T.DIM 

6330  000A06  LIST 

6331 

6332 

6333 

633A 

6335 

6336  000A06  DOPINS  FPUT,152,T.DIM 

6A85  OOOA06  LIST 


ITT 
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TT 


; 

<; 


6487  000A06 
67K  OOOA06 


DOPINS 


FPNTJ5A,T.DIM 
LIST 
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r^ 


A 
S 


6716 
6723 
672A 
6725 
6726 
6732 
6733 
673A 
6735 
67A1 
6742 
67A3 
67AA 
704A 


000A06 
000406 


000406 
000406 


000406 
000406 


000406 
000406 


MOPINS  1SCNJ30 
LIST 


MOPINS  SCAN, 62, T. DIM 
LIST 


MOPINS  1RDT,124 
LIST 


MOPINS  RDCT,60,T.DIM 
LIST 
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07 


7046  000A06 
7193  000A06 


MOPINS 


GETIDN,0 
LIST 
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7195  000406 
7A0A  000A06 


MOPINS 


SATAN, 0 
LIST 
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MIXED  FUNCTION 

MONADIC  TRANSPOSE 

7406  000406 

MOPINS 

0UTRJ56 

7A07 

.S8TTL 

OPERATORS             OUTER  PRODUCT                                       1 

7408 

7409  000406 

016503 

1 77762 

MOV 

2*SI.LEN^SI.VAL(SI),R3  ;Get  pointer  to  right  argument                  I 

7410  000412 

016504 

1 77770 

MOV 

SI.LEN+SI.VAL(SI. 

),R4    ;Get  the  function  number 

7411  000416 

CALL 

PRDSET 

.-Setup  parameters  for  outer  product 

7412 

;  + 

7413 

;  Get 

space  for  the  result 

7414 

;-. 

7415  000422 

013702 

003162* 

MOV 

LARGBL,R2 

;LEFT  AR6  POINTER 

7416  000426 

013703 

003204' 

MOV 

RARGBL,R3 

;RIGHT  ARG  POINTER 

7417  000432 

116201 

000002 

MOVB 

A.DIMS(R2),R1 

;GET  #  OF  DIMS  ON  LEFT 

7418  000436 

116300 

000002 

MOVB 

A.DIMS(R3),R0 

;M   OF  DIMS  ON  RIGHT 

7419  000442 

060001 

ADD 

R0,R1 

;#  OF  DIMS  IN  RESULT 

7420  000444 

022701 

000020 

CMP 

#DIMAX,R1 

;T00  MANY? 

7421  000450 

003427 

BLE 

2$ 

;YUP 

7422  000452 

010100 

MOV 

R1,R0 

;COPY  DIM  COUNT 

7423  000454 

CONINC 

RO 

;INC  FOR  SCALAR 

7424  000460 

006300 

ASL 

RO 

; CONVERT  FOR  WORDS 

7425  000462 

062700 

000006 

ADD 

#A.D1M1,R0 

;GET  HEADER  SIZE 

7426  000466 

PUSH 

<R1,R0> 

;#  OF  DIMS,  OFFSET  TO  DATA 

7427  000472 

016201 

000004 

MOV 

A.ALEN(R2),R1 

; LENGTH  OF  LEFT  ARG 

7428  000476 

010137 

003166' 

MOV 

RULARGLN 

;SAVE 

7429  000502 

016304 

000004 

MOV 

A.ALEN(R3),R4 

; LENGTH  OF  RIGHT  ARG 

7430  000506 

010437 

003210' 

MOV 

R4«RARGLN 

;SAVE 

7431  000512 

MUL 

R4,R1 

: LENGTH  OF  RESULT 

7432  000524 

103002 

see 

3$ 

;T00  LONG,  ERROR 

7433  000526 

104403 

1$: 

WSFULL 

;No  Space  Left 

7434  000530 

104417 

2$: 

DOMERR 

;Too  many  dimensions 

7435  000532 

3$: 

PUSH 

R1           ! 

;Save  Length  (ALEN) 

7436  000534 

ASH 

RESSFT,R1 

;Get  Size  in  Bytes 

7437  000550 

102766 

BVS 

IS 

;T00  BIG 

7438  000552 

POP 

R4 

; Res tore  "ALEN" 

7439  000554 

060100 

ADD 

R1,R0 

; TOTAL  LENGTH  OF  RESULT 

7440  000556 

CALL 

GETFRA 

;Ge*  result,  SI  frame  for  it 

7441  000562 

010037 

003136' 

MOV 

RO, RESULT 

;Sawe  pointer  to  result  block 
;ADD  IN  OFFSET  TO  DATA 

7442  000566 

062620 

ADD 

(SP)^, (R0)> 

7443  000570 

112620 

MOVB 

(SP)+, (RO)^ 

;#  OF  DIMS  IN  RESULT 

7444  000572 

113710 

003144' 

MOVB 

RESTYP,(RC) 

;GET  RESULT  TYPE 

7445  000576 

152720 

000200 

BIS6 

#A.ASB-(RO)* 

;FLAG  AS  DATA  ARRAY 

7446  000602 

010420 

MOV 

R4,(R0)^ 

;ALEN 

7447  000604 

012710 

000001 

MOV 

#1 , (RO) 

\U   SCALAR,  HACK  IT 

7448  000610 

116204 

000002 

MOVB 

A.DI«S(R2),R4   . 

;#  OF  LEFT  DIMS 

7449  000614 

001405 

BEO 

7$ 

■NO... 

7450  000616 

062702 

000006 

ADD 

#A.DIM1,R2 

•POINT  TO  LEFT  DIM  LIST 

7451  000622 

012220 

6$: 

MOV 

(R2)^,(R0)* 

;COPY  DIM  LIST 

7452  000624 

SOB 

R4,6S 

7453 

7454  000630 

116304 

000002 

7$; 

MOVB 

A.DIMS(R3),R4   . 

'M   OF  RIGHT  DIMS 

7455  000634 

001405 

BEO 

9$ 

•NOTHING  BUT  A  SCALAR 

7456  000636 

0627C3 

000006 

ADD 

#A.DIM1,R3 

;POINT  TO  DIM  LIST 

7457  000642 

012320 

8$: 

MOV 

(R3)^,(R0)^ 

•COPY  DIM  LIST 

7458  000644 

SOB 

R4,8$ 

7459 

7460  000650 

013701 

003136' 

9$: 

MOV 

RESULT, R1 

•POINT  TO  RESULT 

7461  000654 

005761 

000004 

TST 

A.ALEN(R1) 

•ANYTHING  THERE? 

7462  000660 

001407 

BEO 

13$ 

•NO,  STOP  THE  WAR  NOW! 
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7463 
7464 
7465 
7466 
7467 
7468 
7469 
7470 
7471 
7472 
7473 
7474 
7476 


000662 
000664 
000670 
000674 
000700 
000704 
000710 
000714 
000720 
000724 
000730 
000740 
000742 


011101 

013702  003164* 

013704  005116' 

016502  177776 

062705  1 77772 

062705  1 77772 

016504  ^77772 


13$: 


MOV 

(R1),R1 

;POINT  TO  HONEST-TO-GOD  DATA 

MOV 

LARGPT,R2 

;POINT  TO  LEFT  ARG 

MOV 

BLZBUB.R4 

;GET  OP  NUMBER 

CALL 

DOUTER 

;Now  do  the  outer  product 
;SAVE  POINTER  TO  RESULT 

MOV 

SI.VAL(SI),R2   . 

ADD 

#SI.LEN,S1 

;BACK  UP  A  FRAME 

CALL 

KILL 

;ALL  DONE.  KILL  LEFT  ARG 

ADD 

/rSI.LEN,SI 

;KILL  OP 

MOV 

SI.RE1(SI),R4  . 

;SAVE  RETURN 

CALL 

KILL 

;KILL  RIGHT  ARG 

SIFRAM 

R2,,R4 

;Restore  Return,  Stack  bits.  Pointer 

RETURN 

;NOW  CONTINUE  TO  CONTINUE 

LIST 

FT 
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7A78  0007A2  MOPINS  DOUTER.O 

7504  000742  LIST 

7505 

7506 

7507 

7508 

7509 

7510  0007A2  MOPINS  PRDSET^O 

7564  000742  LIST 

7565 

7566 

7567 

7568 

7569 

7570  000742  MOPINS  INSPACO 

7612  000742  LIST 


FT 

APL010  MACRO  Ml 113  08-FEB-80  10:35  PAGE  89 
OPERATORS  OUTER  PRODUCT 

76H  000742  DOPINS  INNRJ56 


TT" 
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7960  000742  LIST 


TT 
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7%2  0007A2  MOPINS     SUBR,0 


rr 
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8725  0007A2  LIST 


AFH-OIO  MACRO  Ml  113  08-FEB-80  10:35 

PAGE  93 

M  r 

OPERATORS 

OUTER  PRODUCT 

8727  0007A2 

MOPINS 

RAND.G 

8728 

.S8TTL 

SUBROUTINES 

.RAND   RANDOM  NUMBER  GENERATOR 

8729 

8730 

l-f-f 

8731 

;  FUNCTIONAL  DESCRIPTION: 

8732 

GENERATES  A  RANDOM  INTEGER  IN  THE  RANGE  OF  .10  ACO.  RETURNS  WITH                I 

8733 

INTEGER 

IN  ACO.  RANDOM  ! 

SEQUENCE  COEFFICIENTS  SELECTED  ACCORDING 

8734 

TO  KNUTH,  "SEMI-NUMERICAL  ALGORITHMS".                                      1 

8735 

NOTE: 

THIS  ROUTINE  HAS  BEEN  TUNED  TO  GIVE  A  VERY  LONG  CYCLE  OF  NUMBERS.           1 

8736 

^  — 

8737 

8/38  0007A2 

.PSECT 

CODE 

8739 

87A0  000742 

.RAND:: 

8741  000742 

STF 

AC1,-(SP) 

;SAVE  AC1  FOR  CALLER 

8742  000750 

PUSH 

R1 

;AND  R1 

8743  000752 

013701 

003062' 

MOV 

RANDY.RI 
/(f1452$.,R1 

',GEJ   RANDOM  SEED 

8744  000756 

MUL 

; TIMES  MAGIC  FACTOR  (14525  MOD  8  =  5) 

8745  000//2 

062701 

033031 

ADD 

4f13849.,Rl 

rPLUS  CONSTANT  (1/2-SQR(3)/6)*2*16 

8746  000//6 

010137 

003062* 

MOV 

R1, RANDY 

;SAVE  SEED 

8747  001002 

000301 

SUAB 

R1 

;CLEAR  CARRY,  SWAP  SIGNIFICANT  DIGITS 

8748  001004 

006001 

ROR 

R1 

;MAKE  POSITIVE 

8749  001006 

010137 

003064* 

MOV 

RURANDAC 

;AND  SAVE  AS  FIRST  WORD  OF  NUMBER 

8750  001012 

MUL 

RANDAC+6,R1 

;GET  LAST  WORD  OF  RANDOM  NUMBER 

8751  001026 

MUL 

#2981 3., R1 

; TIMES  ANOTHER  MAGIC  FACTOR 

8752  001042 

062701 

033031 

ADD 

*13849.,R1 

;PLUS  TRUSTY  CONST.ANT 

8753  001046 

010137 

003066' 

MOV 

R1.RANDAC^2; 

;SAVE  NEW  SECOND  WORD 

8754  001052 

MUL 

#2^81 3., R1 

;  CYCLE  AGAIN 

8755  001066 

062701 

033031 

ADD 

#13849., R1 

8756  001072 

010137 

003070' 

MOV 

R1.RANDAC^4 

;T0  GET  THIRD  WORD 

8757  001076 

MUL 

#2$813.,R1 

;ONCE  MORE 

8758  001112 

062701 

033031 

ADD 

#13849., R1 

:FOR  LAST  WORD 

8759  001116 

010137 

003072 ' 

MOV 

R1,RANDAC^o 

8760  001122 

LDF 

RANDACACI 

;LOAD  THE  RANDOM  NUMBER 

8761  001132 

LDEXP 

#1,AC1 

;1  <=  AC1  <  2 

8762  001142 

SIRF 

#^F1.0.AC1 

;0  <=  AC1  <  1 

8763  001152 

MULF 

AC1,AC0 

;0  <=  ACO  <  ARG 

8764  001160 

MODF 

#V  1.0.  ACO 

;MAKE  INTEGER 

8765  001170 

STF 

AC1,AC0 

iRETURN  INTEGER  PART 

8766  001 1 76 

ADDF 

FORIGN^ACO 

;SCALE  BY  ORIGIN 

8767  001206 

POP 

R1 

;RESTORE  R1 

8768  001210 

LDF 

(SP)^,AC1 

;RESTORE  AC1 

8769  001216 

RETURN 

8^/1  001220 

LIST 

STT 
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B  d 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

C.BLSZ= 

000140 

D.DECD= 

000002 

EIS      = 

000000 

AC1   = 

X000001 

CHRLPR= 

000072 

C.BUFF= 

1 77760 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

AC2   = 

X000002 

CHRMNS= 

000137 

C.8UFL= 

1 77762 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

AC3   = 

X000003 

CHRMUL= 

000075 

C.CCNT= 

1 77766 

D.DQAD= 

1 77777 

EOF   = 

104475 

ACA   = 

XOOOOOA 

CHRNEG= 

000100 

C.CPTR= 

1 77764 

D.DR0P= 

000002 

ERRMAX= 

000166 

ACS   = 

XGOOOOS 

CHRPOL= 

000271 

C.CZ  = 

001000 

D.ENCD= 

000002 

ERRNUW 

004772R 

025 

ALLINT 

003274R 

025 

CHRPLU=  000055 

C.DIG  = 

000040 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C.FASW= 

020000 

D.EXPD= 

000002 

ERRO 

004774R 

025 

ASCQUO=  0000A2 

CHRQST= 

000121 

C.FLEN=  000010 

D.FGETr 

000005 

EXEBUF 

005054R 

025 

A.ALEN=  OOOOOA 

CHRCHJO= 
CHRRBR= 

000113 

C.FISH= 

004000 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.ARG  = 

000040 

000047 

C.FRC  = 

000001 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.AS8  = 

000200 

CHRRPR= 

000042 

C.IDEN=  000010 

D.FPUT= 

000005 

FA.APD= 

000100 

A.BITS= 

000003 

CHRSEM= 

000074 

C.NAME= 

000102 

D.GE  = 

000000 

FA.CRE= 

000010 

A. CON  --= 

000020 

CHRS«0= 

000112 

C.N0BF= 

000400 

D.GT  = 

000000 

FA.DLK= 

001000 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.NUM  = 

000020 

D.I8M  = 

000002 

FA.ENB= 

100000 

A.Dim  = 

000006 

CHRUPA= 

000131 

COP  = 

000004 

D.IND  = 

000002 

FA.EXC= 

002000 

A.NUM  = 

000006 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.INNR= 

000013 

FA.EXT= 

000004 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.RDLN= 

1 77776 

D.INTR= 

000006 

fAMSP= 

000100 

A. IMP  = 

000010 

CHR.CR= 

000015 

C.REWT= 

002000 

D.LE  = 

000000 

FA.NSR= 

000200 

3ADDIR= 

104A63 

CHR.CZ= 

000032 

C.RND  = 

000010 

D.LOG  = 

oooo: . 

FA.POS= 

010000 

BADERR= 

104A37 

CHR.6T= 

000046 

C.S8IT= 

177756 

D.LT  = 

000000 

FA.RD  = 

000001 

BLZBUB 

00S116R 

025 

CHR.LF= 

00001 2 

C.SPFX= 

000100 

D.MAX  = 

000000 

FA.RWD= 

004000 

BRSELF 

00S046R 

025 

CHR.LT= 

000043 

C . SP6L= 

000200 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C.SPLX= 

000001 

D.MIN  = 

000000 

FA.sm^ 

000040 

CHA^€X 

003060R 

025 

CHR.SL= 

000057 

C.SPRS= 

000002 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C.SRC  = 

1 77774 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN01 

000330R 

025 

CHR.TB= 

000011 

C.SRCP= 

000024 

D.NN  = 

000000 

FA.WRT= 

000002 

CHAN02 

00051 2R 

025 

CHR.LIL= 

000106 

err  = 

000004 

D.NR  = 

000000 

FD.BLIC= 

000010 

CHAN03 

000674R 

025 

L  Hn • • A~ 

000141 

C.WIDC= 

1 77770 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.WIDR= 

1 77772 

D.PLUS= 

000000 

FD.COM=  020000 

CHANGS 

0012A0R 

025 

CHR..S= 

000163 

DEBUG  = 

000000 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN06 

0GH22R 

025 

CHR..T= 

000164 

OEFERR= 

104405 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN07 

0G1604R 

025 

CHR..U= 

000165 

DEVIL 

005114R 

025  D.QQAD= 

000000 

FD.FTN= 

000001 

CHANGS 

0G1766R 

025 

CHR..Z= 

000172 

DEVNTF= 

104470 

D.OUAD= 

000000 

FD.F11= 

040000 

CHANG9 

0021 50R 

025 

CHR..0= 

000060 

DIGITS 

000006R 

025  D.RES  = 

000000 

FD.INS= 

000010 

CHAN10 

0G2332R 

025 

CHR..1= 

000061 

DIMAX  = 

000020 

D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN11 

0025HR 

025 

CH.AND= 

000001 

OimLK 

0031 12R 

025  D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN12 

002676R 

025 

CMD8UF 

003250R 

025 

DIMPTR 

0031 14R 

025  D.SC0N= 

000006 

FD.0SP= 

004000 

CHAN13 

000022R 

023 

CMDMAX= 

000010 

DIMTYP 

0031 16R 

025  D.SDIF= 

000006 

FD.PLC= 

000004 

CHANU 

000204R 

023  CNTSIZ 

005130R 

025 

DIRFUL= 

104466 

D.SUB  = 

000000 

FD.PRN=  000004 

CHNOPN= 

104471 

COMBIN 

005076R 

025 

DOMERR= 

104417 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRAND= 

00G0S1 

COMCNT 

005126R 

025 

DOUTER= 

******  GX 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRBEL= 

000007 

C0MERR= 

104425 

DPTERR= 

104416 

D.TRAN=  000004 

FD.RAN= 

000002 

CHRBKR- 

000133 

COMPTR 

0051 22R 

025 

DYDCNT 

003224R 

025  D.UNON=  000006 

FD.REC= 

000001 

CHRBa= 

000200 

COflRTN 

0031 56R 

025 

D.AND  = 

000000 

D.$WAX= 

000000 

FD.RWH=  000001 

CHRBOX= 

000114 

COMSKP 

0051 24R 

025 

D.8XCT= 

000007 

D.$MIN=  000000 

FD.SDI= 

000020 

CHRC«A= 

000054 

CORPTR 

005120R 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRCOL= 

000076 

CS.ASS= 

000200 

D.BXNL= 

000007 

D.$PLU=  000000 

FD.TTYr 

000004 

CHRDEL= 

000107 

CS.B00= 

000C10 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.yBH= 

000002 

CHRDIV= 

000053 

CS.FL0= 

000020 

D.8XPW= 

000007 

D.$SUB= 

000000 

FF.CHR= 

000005 

CHRDLR= 

000176 

CS.IDN= 

000040 

D.BXRL= 

000007 

D.1C0M=  000001 

FF.NV  = 

000003 

CHROLT= 

000110 

CS.0NE= 

000100 

D.CIRC= 

000001 

D.I EXP= 

000002 

FF.POE= 

000002 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.RWD"= 

000001 

CHREP  = 

000105 

CTMAX 

00021 2R 

025 

D.COMP= 

000001 

EDICHR 

005063R 

025  FF.RWF= 

000006 

CHRERR= 

104431 

CTRMAX 

0001 72R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF.SPC= 

000004 

CHRML= 

000177 

C.AL0C= 

000162 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  F HE ADR 

00501 2R 

025 

CHRrRO= 

000135 

C.BL0K= 

000064 

D.DEAL= 

000003 

EDIT  = 

000003 

FHRET 

005040R 

025 
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F1LNTF=  104467 

F.FNB  = 

000102 

lASH  = 

******  GX 

MACHIN=  000106 

M.QUAD=  000000 

FIS   =  000000 

F.FNDF= 

000010 

I  CHAN 

005050R 

025  MAXCHN=  000014 

M.RAND=  000012 

FISCON=  046000 

F.FTYP= 

000116 

IDIV  = 

******  GX 

MONBLK  0031 20R 

025  M.RAVL=  000000 

FIXPTR  003074R 

025 

F.FUN  = 

000010 

ILFNAM= 

104464 

MONCVT  0031 32R 

025  M.RCIP=  000000 

FLAGS   004764R 

025 

F.FVER= 

000120 

ILLCHN= 

104540 

MONLEN  0031 30R 

025  M.RDCT=  000011 

FLCBUF  003250R 

025 

F.HEAD= 

000006 

ILLSW  = 

104565 

MONPTR  0031 22R 

025  M.REVS=  000003 

FLINE   00501 4R 

025 

F.HIBK= 

000004 

IMUL  = 

******  GX 

MONSFT  0031 26R 

025  M.R0LL=  000000 

FLOEXP  003270R 

025 

F.LBL  = 

000020 

INDERR= 

104410 

MONTYP  0031 24R 

025  M.SATA=  000001 

FLONEG  003272R 

025 

F.LINE= 

000012 

INNTMP 

003250R 

025  MONVAL  0031 34R 

025  M.SCAN=  000011 

FLSWTB  000222R 

025 

F.LOC  = 

000004 

INNTM2 

00501 6R 

025  MSOUTR  000406RG 

020  M.SHAP=  000000 

FLTLEN=  000010 

F.LSTC= 

000004 

INPTR 

000064R 

025  MSTRAN  OOOOOORG 

020  M.SIGN=  000000 

FNINSI  005044R 

025 

F.LUN  = 

000042 

INSNAM=  104462 

M.ABS  =  000000 

M.St,aR=  000001 

FORIGN  000032R 

025 

F.MBCT= 

000054 

lOERR  = 

104477 

M.BOL  =  000200 

M.SYM  =  000203 

FQ.APO=  000106 

F.MBC1= 

000055 

I.CNT  = 

1 77776 

M.BXAV=  000007 

M.SYN  =  000201 

FQ.MFY=  000002 

F.MBF6= 

000056 

I. DIM  = 

\77772 

M.BXCR=  000007 

M.TRAN=  000012 

FO.RO  =  000001 

F.MON  = 

000002 

I.LEN  = 

000012 

M.BXCT=  000007 

M.$ABS=  000000 

F0.UP0=  000006 

F.NIL  = 

000001 

I.OERR= 

000062 

M.8XEX=  000007 

M.$CEI=  000000 

F0.WRT=  000016 

F.NRBO= 

000024 

I. OLD  = 

177770 

M.BXFX=  000007 

M.$FLR=  000000 

FPMOOE  000042R 

025 

F.NREC= 

000030 

I.PTR  = 

1 77771, 

M.BXIO=  000007 

M.$IDN=  000000 

fPP      =  000000 

F.OPN  = 

000010 

I. SIR  = 

177766 

M.BXLC=  000003 

M.$NEG=  000000 

FPPLEN=  000004 

F.oves= 

000030 

KILL  = 

******  GX 

M.BXNC=  000007 

M.$SIG=  000000 

FREBLK  007400R 

025 

F.PREV= 

000000 

LABERR= 

104406 

M.BXNL=  000007 

M.1RDT=  000011 

FUZZ    0001 42R 

025 

F.PRNT= 

100000 

LABLPT 

005042R 

025  M.BXPP=  000007 

M.1REV=  000003 

FXPTR1  003076R 

025 

F.PROT= 

010000 

LARQBL 

0031 62R 

025  M.BXPW=  000007 

M.1SCN=  000011 

F$EVAL=  000100 

F.RACC= 

000016 

LARGCT= 

******  GX 

M.BXRL=  000007 

NAMBUF  003240R 

025 

F$EVI  =  000200 

F.RATT= 

000001 

LARGCV 

0031 76R 

025  M.BXTS=  000007 

NB.DEV=  000200 

F$EXEC=  000400 

F.RCNM=  000034 

LARGFL 

0031 60R 

025  M.BXUA=  000007 

NB.D!R=  000100 

F$fUNC=  001000 

F.RCTL= 

000017 

LARGLE 

0031 74R 

025  M.CEI  =  \77777 

NB.NAM=  000004 

F.ACTL=  000076 

F.READ= 

004000 

LARGLN 

0031 66R 

025  M.CHR  =  000202 

NB.SD1=  000400 

F.AL0C=  000040 

F.REDF= 

000040 

LARGPT 

0031 64R 

025  M.CMT  =  000206 

NB.SD2=  001000 

F.BBFS=  000062 

F.RES  = 

000040 

LARGSF 

0031 72R 

025  M.DOUT=  000006 

NB.SI^n=  000040 

F.ROR  =  000070 

F.RET  = 

U7772 

LARGTY 

0031 70R 

025  M.DQAD=  000006 

NB.STP=  000020 

F.BGBC=  000057 

F.RSIZ= 

000002 

LARGVA 

003200R 

025  M.ENCD=  000004 

NB.SVR=  000010 

F.BITS=  l/Z/A 

F.RTYP= 

000000 

L8INC 

0051 OOR 

025  M.EXE  =  000000 

NB.TYP=  000002 

F.BKDN=  000026 

F.R2  = 

000014 

L8UFF 

00331 6R 

025  M.EXP  =  000001 

NB.VER=  000001 

F.BICOS=  000020 

F.R3  ^ 

000016 

LBUFLN=  000621 

M.FACT=  000001 

ND.DEV=  000200 

F.BICEF=  000050 

F.R4  = 

000020 

L COUNT 

005106R 

025  M.FIL  =  000177 

ND.EXT=  000002 

F.BKP1=  000051 

F.SEQN=  000100 

LENERR= 

104412 

M.FLR  =  ^77777 

ND.NAM=  000004 

F.BKST=  000024 

F.SPOV= 

000072 

LENTAB 

000054R 

025  M.FMT  =  000004 

\^,P^'^   000100 

F.BKVB=  000064 

F.SPUN=  000074 

LEXPTR 

0031 OOR 

025  M.GDUP=  000003 

ND.$EX=  000000 

F.BR  =  000020 

F.STBK= 

000036 

LFTOP 

005066R 

025  M.GDWN=  000003 

ND.$E$=  000020 

F.CHR  =  000075 

F.STK  = 

000022 

LINC 

005102R 

025  M.GETI=  000006 

ND.$^f1=  000000 

F.CNT6=  000034 

F.ST0P= 

000004 

LINE 

00501 6R 

025  M.IBM  =  000003 

ND.$N$=  000040 

F.CODE=  000010 

F.STP  = 

000001 

LININC 

005026R 

025  M.IDN  =  000000 

NO. $PN=  001400 

f.Ofm=^   000046 

F . SUSP= 

000002 

LISIZE= 

000020 

}^.mSP^   000006 

NFGSGN  005063R 

025 

F.DSPT=  000044 

F.TRC  = 

000002 

LI  TOP 

005072R 

025  M.IOTA=  000000 

NINPT1  003302R 

025 

F.DVNMs  000134 

F.UNIT= 

000 i36 

LNLNG  = 

104541 

M.LIT  =  000205 

NINPT2  003300R 

025 

F.EFBK=  000010 

F.URBD^ 

000020 

LOCLCT 

005036R 

025  M.LN  =  000001 

NINSTK  003304R 

025 

f.EfU=   000050 

F.VAL  = 

1 77776 

LOUCOR 

000002R 

025  M.MMD  =  000010 

NINTMP  00331 OR 

025 

F.END  =  002000 

F.VBN  = 

000064 

iSTERP 

004766R 

025  M.NEG  =  000000 

NINTYP  003306R 

025 

F.EORR=  000032 

F . VBSZ= 

000060 

LWIDTH 

000070R 

025  M.NOT  =  000000 

N0TAVL=  104472 

F.ERR  =  000052 

GETFRA= 

******  GX 

L.8ITS= 

000003 

M.NUB  ==  000006 

NOTOPN=  ] 04473 

F.FACC=  000043 

GNOME 

0031 02R 

025  L.CNT  = 

000002 

M.NL^  ^  000204 

NPfiTI   004762R 

025 

F.FFeY=  000014 

HASHC 

005136R 

025  L.PRNT= 

000001 

M.01ITR=  000012 

NULL    007364R 

025 

F.FLA6=  000002 

HASHTB 

005i40R 

025  L.PTR  = 

000000 

M.PITM=  000000 

NUHCHN=  000020 

F.FL8  =  000100 

HSHMSK= 

1 77601 

L.PTR1= 

000004 

M.PRDS=  000006 

NUMDFL  003230R 

025 

F.F;'Mrt=  000110 

HSHSIZ= 

000200 

L.SUBS= 

000002 

ri.QQAD=  000000 

NUMEFL  003233R 

025 

D 
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NUMESN 

003236R 

025 

PRECSN 

000052R 

025 

R.NEXT= 

000006 

SY.CLR=  000040 

T.0PFN= 

000001 

NUMFLG 

003230R 

025 

RANDAC 

003064R 

025  R.OFF  = 

000000 

SY.ERP=  000020 

T.0THR= 

040000 

NUMLEN 

000062R 

025 

RANDY 

003062R 

025  R.PREV= 

000004 

SY.N0U=  000100 

T.SOP  = 

000002 

NUMNEG 

003232R 

025 

RANERR- 

104411 

R.PTR  = 

000000 

SY.OPN=  000002 

T.SPOP= 

000040 

rOIQFL 

00323AR 

025 

RARGBL 

003204R 

025 

R.SEQ  = 

000003 

SY.PMT=  001000 

T.TMP  = 

000200 

NUMRIG 

003231 R 

025 

RARGCV 

003220R 

025  R.VAR  = 

000002 

SY.SRT=  000400 

T.VAL  = 

100000 

NUMUID 

003226R 

025  RARGFL 

003202R 

025 

R6 

X000006 

SY.SVC=  000004 

T.VAR  = 

001000 

NLUZFL 

003235R 

025 

RARaE 

00321 6R 

025  R7 

X000007 

SY.SVL=  000200 

UPPER  = 

177400 

NYIERR= 

104432 

RARaN 

00321 OR 

025 

SAME  = 

**«i^«*  GX 

S.AB  =  177776 

UTNAME 

000344R 

023 

N.RLSZ= 

000036 

RARGPT 

003206R 

025 

SATAN  = 

******  GX 

S.AS8  =  100000 

VALERR= 

104413 

N.DESC= 

000020 

RARGSF 

00321 4R 

025 

SI 

X000005 

S.BFHD=  000020 

VARBLE 

007400R 

025 

N.DEV  = 

000032 

RARGTY 

00321 2R 

025 

SIDAMN= 

104433 

S.BITS=  000002 

VARBLS 

OOOOOOR 

025 

N.DEVN=  00003A 

RARGVA 

003222R 

025 

SIFRAM 

00331 4R 

025 

S.CHR1=  000003 

VERNUM 

OOOOOOR 

025 

N.DID  = 

000024 

RBASE 

005074R 

025 

SISTAK 

006350R 

025 

S.FATT=  000016 

M\<%\Ot^   000002 

N.DV^M=  000032 

RCOUNR 

0051 12R 

025 

SI  TOP 

006346R 

025 

S.FD6  =  000140 

WIDTH 

000072R 

025 

N.EXT  = 

000014 

RCOUNT 

0051',  OR 

025 

SITP 

0071 44R 

025 

S.FIR  =  040000 

WROUND 

000020R 

025 

N.FID  = 

000000 

REDCNT 

005070R 

025 

SIUARN=  000200 

S.FNAM=  000006 

WSDATE 

0001 36R 

025 

N.FNA«=  000006 

REDIGN 

005066R 

025 

SIZTAB 

000044R 

025 

S.FNB  =  000036 

WSFULL= 

104403 

N.FTYP=  OOOOK 

REDOFF 

005072R 

025 

SI.BIT= 

1 7777^ 

S.FNBW=  000017 

USNAME 

000074R 

025 

N.FVER= 

000016 

REENTR 

003060R 

025 

SI.LEN= 

1 77772 

S.FNTY=  000004 

WSTIME 

0001 32R 

025 

N.NAME^ 

000006 

REGTYP= 

000001 

SI.RET= 

\77772 

S.FTYP=  000002 

$ADDF  = 

******  GX 

N.NEXT= 

000022 

RESBIT 

0031 42R 

025 

SI.VAL= 

1 7777b 

S.LEN  =  000002 

%^\%     = 

******  G 

N.PPN  — 

000024 

RESCT  = 

nitnn^n   GX 

SKPSIZ 

0051 34R 

025 

S.LINK=  177774 

%^P9     = 

******  G 

N.STAT= 

000020 

RESCVT 

0031 52R 

025 

SPNOLD 

000004R 

024 

S.NFEN=  000020 

$FPPLN= 

******  G 

N.UNIT= 

000034 

RESERR= 

104440 

SPINIT 

000002R 

024 

S.TYPE=  140000 

$LDEXP= 

******  GX 

OBUFLN=  001000 

RESLEN 

0031 50R 

025 

STKINC= 

000774 

S.VAL  =  OOOOOO 

$LDF  = 

******  GX 

OCHAN 

005052R 

025 

RESPTR 

0031 40R 

025 

S^OP  = 

104420 

TKDIMS  0O5O72R 

025  $MACHN= 

******  G 

cnooE 

000402R 

023  RESSFT 

0031 46H 

025 

SUBCNT 

0031 04R 

025 

TKFRAM  005066R 

025  SMODF  = 

******  GX 

OPTMPO 

005066R 

025  RESTYP 

0031 44R 

025 

SUBDCT 

0031 06R 

025 

Tidtrr  005070R 

025  SMULF  = 

******  GX 

0PTHP1 

005070R 

025  RESULT 

0031 36R 

025 

SUBPTR 

00311 OR 

025 

:M0DE   000403R 

023  SRSTS  = 

******  G 

0PTMP2 

005072R 

025 

RESVAL 

0031 54R 

025 

SVMB1 

005344R 

025 

TMPTAG=  000166 

$RSX  = 

******  G 

0PTMP3 

005074R 

025  PINC 

005104R 

025 

SYMF 

005340R 

025 

TTYRUF  0041 40R 

025  $RT11  = 

******  G 

0PTHP4 

005076R 

025  RLTBAS 

005066R 

025 

SYMPT1 

005346R 

025 

TTYLEN=  000622 

$STF  = 

******  GX 

0PTHP5 

0051 OOR 

025  ROTINC 

005070R 

025 

SYMTAB 

005352R 

025 

TURKEY=  104436 

$SUBF  = 

******  GX 

0PTMP6 

0051 02R 

025 

ROUND 

00001 OR 

025 

SVMTBF= 

104404 

TYPE  =  000166 

.B00LE= 

000002 

0PTMP7 

005104R 

025  ROVER 

00331 2R 

025 

SYMTOP 

005350R 

OcJ 

T.BOL  =  020000 

.CHARA= 

000000 

0PTMP8 

005106R 

025  RSTS  = 

000000 

SYMTP 

006272R 

025 

T.CON  =  004000 

.DEF.  = 

000002 

0PTHP9 

00511 OR 

025  RSX   = 

000115 

SYMURN= 

000054 

T.DIM  =  000100 

.FLOATr 

000006 

OPTHIO 

0051 12R 

025  RTOP 

005070R 

025 

SYNERR= 

104407 

T.FUN  =  010000 

.FSRCB= 

******  G 

OPimA 

005026R 

025 

RT11  = 

000000 

SYSERR= 

104402 

T.LIST=  000400 

.INTEG= 

000004 

ORIGIN 

000030R 

025  R.BITS= 

000003 

SYSTAT 

OOOOOOR 

024 

T.LIT  =  000020 

.MOLUN 

000404R 

023 

OUTPTR 

000066R 

025 

R.FIX  = 

000001 

SY.8AD= 

000001 

T.MON  =  000010 

.RAND 

000742R6 

020 

OVROPR= 

000012 

R.LCT  = 

000002 

SY.8RK= 

100000 

T.NIL  =  000004 

...GBL= 

000000 

PATCH 

007344R 

025 

R.LN  = 

000002 

SY.BS  = 

000010 

T.NUM  =  002000 

...TPC= 

000020 

PRDSET= 

♦♦♦♦♦♦  GX 

R.LNUM=  000010 

•  Aob« 

000000 
000000 

000 

001 

TABLES 

000000 

002 

NONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

NONBTB 

000000 

006 

DYD6TB 

000000 

007 

COWTB 

000000 

010 

CHRTBL 

000000 

o^^ 

VTBL 

000000 

012 

— — r 
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ASCTBL  000000    013 

OVRTBL  000000    014 

TRNTBL  000000    01 5 

MNTBL   000000    016 

MNTRTL  000000    017 

CODE    001220    020 

PATCH   000000    021 

WFSR1  000000    022 

DEFSO   000406    023 

DEFSI   000006    024 

DEF$2   007400    025 
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DEFINITIONS 

ORDERING  PSECTS 

8- 

426 

DEFINITIONS 

SI  PARSE  FRAMES 

9- 

474 

DEFINITIONS 

TOKEN  DESCRIPTION  BITS 

10- 

515 

DEFINITIONS 

SI  EXECUTION  FRAMES 

11- 

580 

DEFINITIONS 

SPECIAL  ?hR%^   CHARACTERS 

12- 

607 

DEFINITIONS 

CHPTAB  BITS 

12- 

624 

DEFINITIONS 

SYSTEM  STATUS  BITS 

13- 

640 

DEFINITIONS 

F-FRAMES 

K- 

724 

DEFINITIONS 

FUNCTION  LINE  BLOCKS 

16- 

807 

DEFINITIONS 

ARRAY  STORAGE  BLOCK 

17- 

869 

DEFINITIONS 

LIST  STORAGE  BLOCK 

18- 

911 

DEFINITIONS 

INDEXING  STACK  FRAME 

19- 

940 

^IflHUlWS 

SYMBa  TABLE  ENTRY 

20- 

969 

DEFINITIONS 

CHANNEL  BLOCK 

22' 

1085 

^^^lHlMy\% 

RSX  DATA 

23- 

1110 

DEFINITIONS 

NAME  BLOCKS 

33- 

1612 

DEFINITIONS 

MACROS 

35- 

1905 

DEFINITIONS 

APL  CHARACTERS 

36- 

1967 

DEFINITIONS 

ERRORS 

89- 

7615 

OPERATOR 

INNER  PRODUCT 
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1 

000000 

2 

000000 

3 

000115 

A 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

^ 

0 

0 

•M 

EIS 
FIS 
FPP 

— 

0 
0 
0 

FPPLEN 

- 

4 

DEBUG 

- 

0 

ITT 


;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

.•SINGLE  PRECISION 

; DON'T  DISPLAY  REGISTERS  ON  ERRORS 


TT 
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APLDEF 

1  .S8TTL  APLDEF 

2  . I DENT  \V02.03\ 
3 
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2513  .LIST     SEQ,SRC,LOC,BIN,BEX,MEB 
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TT 


.TITLE     APL011 
. I DENT     \V02.03\ 

;THIS  IS  USED  WHEN  ASSEMBLING  APLOP  TO  DEFINE  A  NEW  OVERLAY  SEGMENT 
.•CONTAINING  OPERATOR  ROUTINES.     IN  THE  COMMON  DEFINITION  FILE, 
;'OVROPR'    IS  DEFINED  AS  ZERO.     IF   IT  IS  DEFINED  AS  ONE  BEFORE  APLOP 
;IS  ASSEMBLED,  ONLY  THE  CODE  DESIGNATED  FOR  THE  OPERATOR  OVERLAY  IS 
.-ASSEMBLED.     THEREFORE,   THE  COMMAND  TO  ASSEMBLE  APL011    IS: 

m 

;  APL011    <   APL011, APLOP 

000013  OVROPR=  11.  .-OVERLAY  SPECIFIED  OPERATORS 


L  i                                                                                                      1 
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5 
6 

;■••+ 

7 

;  FUNCTIONAL  DESCRIPTION: 

1 

THIS  MODULE  CONTAINS  THE  CODE  FOR  MOST  APL  OPERATORS  WHICH 

HAVE  BEEN  IMPLEMENTED  SO  FAR.  TWO  MACROS  ARE  USED  TO  DEFINE 

10 

OPERATOR  ROUTINES.   'DOPINS*  DEFINES   A  DYADIC  OPERATOR,  AND 

11 

'"WINS*   DEFINES  A  MONADIC  OPERATOR.  THE  ARr^UMENTS  TO  THE 

12 

MACROS  ARE  THE  NAME  OF  THE  OPERATOR  ROUTINE  AND  THE  OPERATOR 

13 

NUMBER  FOR  THE  OPERATOR  (WHICH  CAN  BE  FOUND  BY  LOOKING  IN 

H 

•VTAB*).  FOR  DYADIC  SCALAR  OPS,  THE  LEFT  ARG  IS  IN  AC1 ,  THE 

15 

RIGHT  ARG  IS  IN  AC2,  AND  THE  RESULT  IS  RETURNED  IN  ACO.  FOR 

]^ 

MONADIC  SCALAR  OPS,  THE  ARGUMENT  IS  IN  AC1 ,  AND  THE  RESULT 

IS  RETURNED  IN  ACO.  SCALAR  OPS  MUST  LEAVE  THEIR  ARGUMENTS 

18 

;       INTACT! 

19 

;-- 

24 

27 

124 

^?5 

•THESE  MACROS  ARE  FOR  OVERLAY  CODE.   THEY  ARE  USED  THE  SAME  AS 

^?6 

:RESIDENT  MACROS.   THE  DIFFERENCE  COMES  IN  THE  WAY  THEY  WORK.   THE 

127 

; 'PRMRES*  MACRO,  FORCES  ALL  CODE  BETWEEN  IT  AND  THE  NEXT  MFTFV'LIST' 

^28 

;T0  NOT  BE  ASSEMBLED.   THE  'MOPINS'  AND  'DOPINS'  DON'T  PUT  ANYTHING  IN 

129 

;ANY  TABLES.  OTHER  THAN  THAT  THEY  WORK  BASICLY  THE  SAME  AS  THE  RESIDENT 

130 

; MACROS. 

131 

132 

.MACRO  DOPINS  NAME,NUM,BITS,BOZO,NOTME 

133 

.IIF         NDF  D.'NAME,  .ERROR  ;D.*NAME  IS  NOT  DEFINED  BY  OVROP! 

134 

.IF  EQ  OVROPR-D.'NAME 

135 

.PSECT  CODE 

136                            DS'NAME::                                                                      1 

137 

.ENDM 

138 

139 

.MACRO  MOPINS  NAME,NUM,BITS,BOZO,NOTME 

140 

AlF         NDF  M. 'NAME,  .ERROR  ;M.'NAME  IS  NOT  DEFINED  BY  OVROP! 

141 

.IF   EQ  OVROPR-M. 'NAME 

142 

.PSECT  CODE 

143 

AF   NE  NUM 

144                             MS'NAME::                                                                        1 

145 

.ENDC 

146 

.ENDM 

147 

148 

.MACRO  LIST 

149 

.ENDC 

150 

.ENDM 

151 

152 

.MACRO  PRMRES 

153 

AF   EQ  1 

154 

.ENDM 

155 

159 

;**«*««•«*•*  ASSEMBLING  THE  FILE!!!!! 

160  007400                     PRMRES                                                                      1 

199  007400 

LIST 

s — w 
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201  007 A 00 

DOPINS 

PLUS,2,T.S0P,.INTEGERKS.IDN+CS.ASS 

208  007^00 

LIST 

209 

210  007AOO 

DOPINS 

$PLU,-2 

22A  0O7A00 

LIST 

225 

226  007A00 

DOPINS 

SUB,4,T.S0P,.INTEGER+CS.IDN 

233  007AOO 

LIST 

234 

235  007A00 

DOPINS 

$SUB,-4 

2A9  007400 

LIST 

250 

251 

252  007400 

DOPINS 

MUL,6,T.S0P,.INTEGER+CS.BOOL+CS.IDN+CS.ONE+CS.ASS 

264  007400 

LIST 

265 

266 

267  007400 

DOPINS 

$MUL,-6 

284  007400 

LIST 

285 

286  007400 

DOPINS 

DIV,10,T.SOP,.FLOAT+CS.BOOL-^CS.IDN+CS.ONE 

323  007400 

LIST 

324 

325 

326  007400 

DOPINS 

PWR,20,T.S0P,.FLOAT+CS.BOOL+CS.IDN+CS.ONE 

392  007400 

LIST 

393 

394 

395  007400 

DOPINS 

LOG,54,T.SOP,.FLOAT^CS.BOOL 

417  007400 

LIST 

418 

419 

420  007400 

DOPINS 

CIRC, 52, T. SOP,. FLOAT 

4//  007400 

LIST 

478 

479 

480  007400 

DOPINS 

MIN,14,T.S0P,.INTEGER^-CS.800L-^CS.ASS 

490  007400 

LIST 

491 

492  007400 

DOPINS 

$MIN,-14 

516  007400 

LIST 

517 

518 

519  007400 

DOPINS 

MAX,16,T.S0P,.INTEGERKS.800L^-CS.ASS 

529  007400 

LIST 

530 

531  007400 

DOPINS 

$MAX,-16 

555  007400 

LIST 

556 

557 

558  007400 

DOPINS 

RES,12,T.S0P,.INTEGER+CS.800L>CS.IDN 

589  007400 

LIST 

590 

591 

592  007400 

DOPINS 

$RES,-12 

616  007^00 

LIST 

617 

APL011  MACRO 
DEFINITIONS 

618 

619  007400 

639  007400 
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DOPINS 


N8 


COMB, 22,7. SOP,. FLOAH-CS.BOOL^CS.IDN+CS. ONE 
LIST 


B  ^ 
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6A1  007A00 

DOPINS 

AND, 42,7. SOP,. BOOLEAN+CS.IDN+CS.ONE+CS. ASS 

652  007A0O 

LIST 

653 

654 

655  007AOO 

DOR INS 

OR,40,T.SOP,.BOOLEANKS.IDN+CS.AS$ 

662  007400 

LIST 

663 

664 

665  007400 

DOPINS 

NN, 46, T. SOP,. BOOLE AN 

676  007400 

LIST 

677 

678  007400 

DOPINS 

NR, 44, T. SOP,. BOOLE AN 

687  007400 

LIST 

688 

689 

690  007400 

DOPINS 

LT,24,T.LIT+T.SOP,.CHARACTER+CS.IDN 

700  007400 

LIST 

701 

702  007400 

DOPINS 

LE,26,T.LIT+T.S0P,.CHARACTER+CS.IDN->-CS.0NE 

712  007400 

LIST 

713 

714 

715  007400 

DOPINS 

EQ,30,T.LIT+T.SOP,.CHARACTER'^CS.IDN+CS.ONE 

733  007400 

LIST 

734 

735  007400 

DOPINS 

6E,36,T.LIT+T.S0P,.CHARACTER+CS.IDN'^CS.0NE 

745  007400 

LIST 

746 

747 

748  007400 

DOPINS 

GT,32,T.LIT"^T.S0P,.CHARACTER+CS.IDN 

758  007400 

LIST 

759 

760 

761  007400 

DOPINS 

NE,34,T.LIT-»-T.S0P,.CHARACTER+CS.IDN 

780  007400 

LIST 

781 

7~5" 


C  ^ 
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783  007400 

MOPINS 

FLRJ4,T.S0P,.INTEGER*CS.B00LKS.FL0AT,M$IDN 

786  007400 

LIST 

787 

788  007400 

MOPINS 

CEIJ6,T.S0P,.INTEGERKS.B00L+CS.FL0AT,M$IDN 

791  007400 

LIST 

792 

793  007400 

MOPINS 

IDN,2,T.S0P,.INTEGER+CS.B00L 

799  007400 

LIST 

800 

801 

802  007400 

MOPINS 

SIDN,-2 

808  007400 

LIST 

809 

810 

811  007400 

MOPINS 

$FLR,-14 

855  007400 

LIST 

856 

857 

858  007400 

MOPINS 

$CEI,-16 

868  007400 

LIST 

869 

870 

871  007400 

MOPINS 

NEG, 4, T. SOP,. INTEGER 

878  007400 

LIST 

879 

880  007400 

MOPINS 

$NEG,-4 

887  007400 

LIST 

888 

889 

890  007400 

MOPINS 

SIGN, 6, T. SOP,.  INTEGER+CS.BOOL^-CS. FLOAT 

901  007400 

LIST 

902 

903  007400 

MOPINS 

$SIG,-6 

914  007400 

LIST 

915 

916 

917  007400 

MOPINS 

RCIP,10,T.SOP,.FLOAT+CS.BOOL 

928  007400 

LIST 

929 

930  007400 

MOPINS 

EXP, 20, T. SOP,. FLOAT 

939  007400 

LIST 

940 

941 

942  007400 

MOPINS 

LN,54,T.SOP,.FLOAT+CS.BOOL 

949  007400 

LIST 

950 

951 

952  007400 

MOPINS 

PITM, 52, T. SOP,. FLOAT 

959  007400 

LIST 

960 

961  007400 

PRMRES 

966  007400 

LIST 

967 

968 

969  007400 

MOPINS 

A8S,12,T..S0P,.INTPGER*CS.B00L 

977  007^00 

LIST 

978 

Al 
DE 


r^     O 
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979  007A00 

992  0O7A00 

993 

994 

995  007A00 
1002  0O7A00 
1003 
100A 

1005  007AOO 
1031  007A00 
1032 
1033 

103A  00/^400 
1057  007400 
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MOPINS  SABS, -12 
LIST 


D  9 


A 
Dl 


MOPINS  FACT, 22, T. SOP,. FLOAT^-CS.BOOL 
LIST 


MOPINS  NOT, 50 
LIST 


MOPINS  ROLL, 100 
LIST 


T-y 
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E9 


D 


1059  007A00 
1187  007400 


DOPINS  DEAL, 100 
LIST 


F     9 
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1189  007A00 

MOPINS  SHAPJ02 

1211  007A00 

LIST 

1212 

1213 

12K 

1215 

1216 

1217  007A00 

DOPINS  RHO,102 

1313  007400 

LIST 

T"?' 


69 
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1315  007400 

MOPINS 

RAVL , 56 

1325  007400 

LIST 

1326 

1327 

1328 

1329 

1330 

1331  007400 

DOPINS 

CTLM,56 

1596  007400 

LIST 

I 


ITT 
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1598  007A00 

MOPINS  IOTA, 72 

1632  007A00 

LIST 

1633 

1634 

1635 

1636 

1637 

1638  007400 

DOPINS  IND,72 

1699  007400 

LIST 

TT 


I    9 
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1701   007400 

DOPINS 

icon J  24 

1709  007400 

LIST 

1710 

1711 

1712 

1713 

1714 

1715  007400 

DOPINS 

COMP,60, 

1789  007400 

LIST 

J     9 
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1791  007400 

DOPINS 

1EXPJ30 

1799  007400 

LIST 

1800 

1801 

1802 

1803 

1804 

1805  007400 

DOPINS 

EXPD,62, 

1864  007400 

LIST 

K     9 
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1866  007A00 

1907  007400 

1908 

1909 

1910 

1911  007400 

2149  007400 

DOPINS 
DOPINS 

DROP, 104 
LIST 

TAKE, 114 
LIST 

L    9 
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2151  0O7A00 

MOPINS 

1REV,K6 

2160  007A00 

LIST 

2161 

2162 

2163 

21 6A 

2165 

2166  007A00 

MOPINS 

REVS, 144 

220A  007A00 

LIST 

M      0 
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M  9 


2206  007AOO 

221 A  007400 

2215 

2216 

2217 

2218 

2219 

2220  0O7A00 

2328  007A00 


DOPINS 


1R0TJA6 
LIST 


DOPINS 


ROT, 144, T. DIM 
LIST 


u 


rTT 
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2330  007400  MOPINS  IRAN J  26 

2A15  007400  LIST 


APL01 1  P1ACR0 
DEFINITIONS 

2A17  007A00 
265A  007400 
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DOPINS 


TW 


AP 
DE 


IRAN, 126 
LIST 


TW 


r 
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2656  007A00 
2856  007400 
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DOPINS 


ns- 


Af 
DE 


ENCD,76 
LIST 


"Fnr 


r 
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2858  007A00 
2988  007A00 
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DOPINS 


TW 


A 
Dl 


DECD,64 
LIST 


rw 


r 
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2990  007400 

3001  007400 

3002 

3003 

3004  007400 

3219  007400 


PA3E  63 


MOPINS  6DWNJ36,T.DIM 
LIST 


MOPINS  GDUPJ40,T,DIM 
LIST 


rw 


A 
D 


TT5" 
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3221  007400  MOPINS 

3316  007400 


"TRT 


MMDJ22 
LIST 


TW 


APL01 1     MACRO 
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3318  007^00 
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DOPINS     DMD,1 22 


TT7 


HlO 


[ 
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386A  007A00 
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LIST 


TW 


no 
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3866  007A00  DOPINS  MEM, 70 

3921  007400  LIST 


T17 
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3923 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
4022 
4023 
402A 
4025 
4026 
4027 
4028 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4161 


007400 
007400 


PAGE  68 


MOPINS  NUB, 106 
LIST 


TW 


007400 
007400 


DOPINS  UNONJ06 
LIST 


007400 
007400 


DOPINS  INTR,66 
LIST 


007400 
007400 


DOPINS  SDIF,50 
LIST 


imr 


irnr 
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41 63  007A00 

DOPINS 

SCON, 234 

4179  007400 

LIST 

4180 

4181 

4182  007400 

DOPINS 

C0NTJ12 

4200  007400 

LIST 

4201 

4202 

4203  007400 

DOPINS 

PSUB,236 

4209  007400 

LIST 

4210 

4211 

4212  007400 

DOPINS 

SUBSJ16 

4288  007400 

LIST 

1 


n7 


APL011  MACRO  Ml 113  08-FEB-80  10:38  PAGE  70 
DEFINITIONS     ERRORS 


no 


4290  007400 
4336  007400 


MOPINS 


EXE, 70 
LIST 


Ml7 
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A338  007400 
4A11  007A00 
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MOPINS 


TW 


ENCD,76 
LIST 


n 


TW 
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A413  007400 

A423  007400 

4424 

4425 

4426 

4427 

4428 

4429  007400 


PAGE  72 


MOPINS 


imy" 


FMT,160 
LIST 


DOPINS  FMTJ60 
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B  11 


AP 
DEI 


LIST 


m 
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C  11 


AF 
DE 


A955  007400 

4958  007400 

4959 

4960 

4961  007400 

5046  007400 


MOPINS 


DOPINS 


I8MJ32,,,M0NIBM 
LIST 


IBM  J  32 
LIST 


yTT" 


r 


D  11 
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50A8  007400 

MOPINS 

QUAD,74,T.NIL^-T.SPOP 

5075  007A00 

LIST 

5076 

5077 

5078 

5079 

5080 

5081  007400 

DOPINS 

QUAD,74,T.NIL+T.SPOP 

5097  007400 

LIST 

5098 

5099 

5100 

5101 

5102 

5103  007400 

MOPir'S 

QQAD,142,T.NIL+T.SPOP 

5135  007400 

LIST 

5136 

5137 

5138 

5139 

5140 

5141   007400 

DOPINS 

QQADJ42,T.NIL+T.SP0P 

5152  007400 

LIST 

5155 

5154 

5155 

5156 

5157 

5158  007400 

MOPiNS 

DQADJ34,T.NIL+T.SPQP 

5192  007400 

LIST 

5193 

5194 

5195 

5196  007400 

DOPINS 

DQADJ34,T.NIL+T.SP0P,,D$QQAD 

5199  007400 

LIST 

Al 
Dl 


E  11 


r 


E  11 
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5201  007A00 

MOPINS 

BXAVJ62,T.NIL 

5219  007400 

LIST 

5220 

5221 

5222 

5223 

5224 

5225  007A00 

MOPINS 

BXCTJ64,T.NIL+T.SP0P 

5234  007400 

LIST 

5235 

5236 

5237  007400 

DOPINS 

BXCT,164,T.NIL+T.SP0P 

5272  007400 

LIST 

52 /i 

5274 

5275 

5276 

52// 

5278  007400 

MOPINS 

BXI0,166,T.NIL+T.SP0P 

5287  007400 

LIST 

5288 

5289 

5290  007400 

DOPINS 

BXI0,166,T.NIL+T.SP0P 

5302  007400 

LIST 

5303 

5304 

5305 

5306 

5307  007400 

MOPINS 

BXLC.212,T.NIL 

5340  007400 

LIST 

5341 

5342 

5343 

5344 

5345 

5346 

5347  007400 

MOPINS 

BXPPJ70,T.NIL+T.SPOP 

5356  007400 

LIST 

5357 

5358 

5359  007400 

DOPINS 

BXPPJ70,T.NIL+T.SPOP 

5381  007400 

LIST 

5382 

5383 

5384 

5385 

5386 

5387 

5388  007400 

MOPINS 

BXPWJ72,T.NIL^-T.SP0P 

5397  007400 

LIST 

5398 

5399 

5400  007400 

DOPINS 

BXPWJ72,T.NIL+T.SP0P 

5417  007400 

LIST 

5418 

5419 

5420 

A 
D 


F   11 


r 
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F   11 


/ 
C 


5421 

5A22 

5A23  007400 

5432  007400 

5433 

5434 

5435  007400 

5447  007400 

5448 

5449 

5450 

5451 

5452 

5455  007400 

5562  007400 

5563 

5564 

5565 

5566 

5567 

5568 

5569  007400 

5592  007400 


MOPINS     BXRLJ74,T.NIL+T.SP0P 
LIST 


DOPINS     BXRL,174,T.NIL+T.SP0P 
LIST 


MOPINS  BXTS,200,T.NIL 
LIST 


MOPINS     BXWAJ76,T.NIL 
LIST 


AFM   r\^  ■i 


IMA  fl^rs    aa^  117 


AO_rrp_or\    m.'lO 


DArc    77 


TTT 


[ 
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559A  007400  MOPINS 

5716  007400 


TTT 


BXCR,206 
LIST 


¥TT 


[ 


APL01 1  MACRO 
DEFINITIONS 

5718  007AOO 
5775  007400 
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MOPINS 


H  11 


BXEX,202 
LIST 


rrr 
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5777  007A00 
5879  007400 
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PAGE  79 


MOPINS 


TTT 


BXFX,210 
LIST 


TTT 
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5881  007A00  MOPINS 

5950  007400 


JlT 


BXNC,204 
LIST 


1 


rrr 
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TIT 


5952  007400 

5963  007A00 

596A 

5965 

5966  007400 

6104  007400 


MOPINS 


DOPINS 


BXNL,214 
LIST 


BXNL,214 
LIST 


1 


L  11 


L  11 
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DEFINITIONS 

ERRORS 

6106  007400 

DOPINS 

FGETJSCT.DIM 

6330  007A00 

LIST 

6331 

6332 

6333 

6334 

6335 

6336  007400 

DOPINS 

FPUTJ52,T.DIM 

6485  007400 

LIST 

1 


I     •  ^^*     ^4   4  AM  A  ^^k^N       mM 


^   A    A    •» 


/NO      r  r^^^     or\     in.  TO 


r»A/-r      Ot 


WTT 


J 
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6A87  007AOO 
671 A  007A00 
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DOPINS 


TTTT 


FPNTJ54,T.DII>1 
LIST 


1 


m: 


^m^^*.       >^«<    4    4    *9 


in      ^  ^ ^ 


r»/\     ^  r\  _  ^o 


N~TT 


r\  M  ^r      O  J 


frrr 
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6716  007400  MOPINS  1SCNJ30 

6723  007400  LIST 

6724 

6725 

6726  007400  MOPINS  SCAN, 62, T. DIM 

6732  007400  LIST 

6733 

6734 

6735  007400  MOPINS  1RDT,124 

6741  007400  LIST 

6742 

6743 

6744  007400  MOPINS  RDCT,60,T.DIM 

7044  007400  LIST 
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70A6 
7193 


007400 
007A00 


PAGE  85 


MOPJNS 


TIT 


API 
OPE 


GETIDN,0 
LIST 


»r>i  r>l  1        MArr^o    m1  1  1  7 


no-rcD-QA    in.7Q      da^c    q^:. 


TIT 


AP 
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7195  007400  MOPINS 

7A0A  0O7A00 


Cl2 


AP 
OP 


SATAN, 0 
LIST 


T17 


i:. 


Ar*t  n^^       M*r&r>    Ml  ll  •?       AQ— ccD_Qn    m  .  70       DArC    07 
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7A06  007400 
7A76  007A00 
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MOPINS 


TIT 


0UTRJ56 
LIST 


AF 
S> 

AC 
A( 
A( 
A( 
A( 
A( 
AL 
AF 
AJ 
A. 
A. 
A. 
A. 
A. 
A. 
A. 
A. 
A. 
A. 
B/ 
B/ 
Bl 
BF 


r 


TIT 


Al 


AD«Aii  MArOn    M1117         fiQ_CCD— an     1  ft .  7Q         DA/tC      fifi 


TT7 
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7478  0O7A00 

MOPINS 

DOUTER,0 

750A  0O7A00 

LIST 

7505 

7506 

7507 

7508 

7509 

7510  007A00 

MOPINS 

PRDSET,0 

756A  007A00 

LIST 

7565 

7566 

7567 

7568 

7569 

7570  0O7A00 

mPlNS 

INSPACO 

7612  007A00 

LIST 

Al 
S^ 
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TIT 


r. 
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7614 

7615 

7616 

7617 

7618 

7619 

7620 

7621 

7622 

7623 

762A 

7625 

7626 

7627 

7628 

7629 

7630 

7631 

7632 

7633 

7634 

7635 

7636 

7637 

7638 

7639 

7640 

7641 

7642 

7643 

7644 

7645 

7646 

7647 

7648 

7649 

7650 

7651 

7652 

7653 

7654 

7655 

7656 

7657 

7658 

7659 

7660 

7661 

7662 

7663 

7664 

7665 

7666 

7667 

7668 

7669 

7670 


007400 


PAGE  89 


DOPINS  INNRJ56 
.SBTTL  OPERATOR 

+4- 


m 


INNER  PRODUCT 


000000 
000004 
000010 


000014 
000022 
000026 
000032 
000036 
000042 
000044 
000046 
000052 
000056 


016503 
016504 


1 77754 
177762 


GENERALIZED  INNER  PRODUCT  (MATRIX  MULTIPLICATION  IS  A  SPECIAL  CASE) 

This  routine  is  ^Aled  by  the  •T)OT"  routine  durinq  expression 
evaluation,  so  we  have  to  do  more  bookkeeping  than  usual. 

Note  that  the  right  function  must  be  performed  from  the  end  of 
the  arrays  as  in  reduction,  but  it  is  not  necessary  that  the  left 
function  be  performed  in  that  order.  Hence  the  elements  of  the 
result  can  be  produced  in  ravel  order,  and  DYDEXP  could  be  used  to 
handle  integer  overflow  with  some  additional  bookkeeping. 

TEMPORARY  USAGE: 

OPTMPO  -  Right  argument  size  minus  first  dimension  reset 

0PTMP1  -  Right  function  Result  type 

0PTMP2  -  Left  function  Left  argtment  fetch  routine 

0PTMP3  -  Left  function  Right  argunent  fetch  routine 

0PTMP4  -  Left  function  Result  store  routine 

0PTMP5  -  Left  function  number 

0PTMP6  -  Right  argument  data  pointer 

0PTMP7  -  Combining  dimension  size 

0PTMP8  -  Left  argument  data  pointer 

0PTMP9  -  Left  argument  size  minus  last  dimension 

OPTM10  -  Right  argument  size  minus  first  dimension 

0PTM14  -  Final  result  store  routine 

INNTMP  -  Temporary  for  Right  function  result 

INNTM2  -  Temporary  for  Lett  function  result 

LARGCV  -  Right  function  Left  argument  fetch  routine 

RARGCV  -  Right  function  Right  argtinent  fetch  routine 

RESCVT  -  Right  function  Result  store  routine 

BLZBUB  -  Right  function  ntmber 


HRSJ   OBTAIN  POINTERS  TO  THE  ARGUMENTS  AND  THE  FUNCTION  ROUTINES. 

MOV    3*SI.LEN+SI.VAL(SI),R3  ;Get  pointer  to  rignt  argument 

MOV    2*SI.LEN4-SI.VAL(SI),R4  ;Get  right  function  number 

CALL    PRDSET  ; Setup  parameters  for  inner  product 

Check  for  special  case  of:    Left  last  dim  =  Right  first  dim  =  1 


013703 
013702 
116200 

006300 
060200 
016000 
020063 
001033 


003204 • 
003162* 
000002 


000004 
000006 


PUSH  <R0,R3,R4> 

MOV  RARGBL,R3 

MOV  LARGBL,R2 

M0V8  A.DIMS(R2),R0 

CONINC  RO 

ASL  RO 

ADD  R2,R0 

MOV  A.DIM1-2(R0),R0 

CMP  R0,A.DIM1(R3) 

BNE  1$ 


;Save  some  registers 

;Get  pointer  to  Right  argument 

;Get  pointer  to  Left  argument 

;Left  argument's  rank 

; Cheat  in  case  of  a  scalar 

; Convert  to  byte  offset 

;Add  in  Left  pointer 

;Get  last  dimension  of  Left  argument 

;Does  Left  last  dim  =  Right  first  dim? 

;No,  Not  special  case 
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7671  000060 

020027 

000001 

CMP 

R0,^1 

;Is  the  combining  dimension  one? 

7672  000064 

001030 

BNE 

1$ 

;No 

7673  000066 

016337 

000004  003210' 

MOV 

A.ALEN(R3),RARGLN 

;Get  number  of  elements  in  Right  argument 

7674  000074 

016337 

000004  005112' 

MOV 

A.ALEN(R3),OPTM10 

;Make  another  copy 

7675  000102 

016237 

000004  003166' 

MOV 

A.ALEN(R2),LARGLN 

;Get  number  of  elements  in  Left  argument 

7676  000110 

016237 

000004  005110' 

MOV 

A.ALEN(R2),0PTMP9 

;Copy  It  too 

7677  000116 

CALL 

INSPAC 

;Get  space  for  result 

;Get  the  function  number  back 

7678  000122 

POP 

R4 

7679  000124 

022626 

CMP 

(SP)+, (SP)+ 

;Pop  off  other  two  registers 

7680  000126 

013701 

003140' 

MOV 

RESPTR,R1 

;Point  to  Result  data 

7681  000132 

013702 

003164' 

MOV 

LARGPT,R2 

;Point  to  Left  argument  data 

7682  000136 

CALL 

DOUTER 

;Use  outer  product  to  find  result 

7683  000142 

7684 

7685  000146 

000137 

001274' 

JMP 

INNRET 

;Go  clean  up 

1$: 

POP 

<R4,R3,0PTMP1> 

;Get  registers  back 
;INTEMEDIATE  TYPE 

7686  000156 

010102 

MOV 

R1,R2 

7687  000160 

016504 

1 1111^ 

MOV 

SI.LEN+SI.VAL(SI),R4 

;GET  LEFT  FUNCTION 

7688  000164 

006204 

ASR 

R4 

;8YTE  ACCESS 

7689  000166 

116400 

OOOOOOG 

M0V8 

DYDeTL(R4),R0 

;GET  BITS 

7690  000172 

006304 

ASL 

R4 

;BACK  TO  NORMAL 

7691  000174 

CALL 

CMPTRT 

;Compute  Left  function  result  type 

7692  000200 

010437 

005100' 

MOV 

R4,0PTMP5 

;Save  the  Left  function  ntmber 

7693  000204 

010204 

MOV 

R2,R4 

;Copy  Left  fnc  source  intermediate  type  *  4 
;Make  another  copy 

7694  000206 

010203 

MOV 

R2,R3 
/lf-2,R4 

7695  000210 

ASH 

;Get  the  Left  fnc  source  intermediate  type 

7696  000224 

060403 

ADD 

R4,R3 

;Left  fnc  source  type  index 

7697  000226 

016337 

OOOOOOG  005072' 

MOV 

LARGCT(R3),OPTMP2 

;Left  function  left  argument  fetch  routine 

7698  000234 

016337 

OOOOOOG  005074' 

MOV 

RARGCT(R3),OPTMP3 

;Left  function  right  argument  fetch  routine 

7699  000242 

010403 

MOV 

R4,R3 

;Copy  Left  fnc  source  intermediate  type 
; Right  fnc  result  store  index 

7700  000244 

063703 

005070' 

ADD 

0PTMPUR3 

7701  000250 

016337 

OOOOOOG  003152' 

MOV 

RESCT(R3),RESCVT 

; Right  function  result  store  routine 

; Index  for  Left  function  result  store  routine 

7702  000256 

060004 

ADD 

R0,R4 

7703  000260 

016437 

OOOOOOG  005076' 

MOV 

RESCT(R4),0PT«P4 

;Left  function  result  store  routine 

7704  000266 

060102 

ADD 

R1,R2 

; Index  for  Final  result  store  routine 

7705  000270 

016237 

OOOOOOG  005026' 

MOV 

RESCT(R2),0PTM14 

; Final  result  store  routine 

7706  000276 

013703 

003204' 

MOV 

RARGBL,R3 

;POINT  TO  RIGHT  ARG 

7707  000302 

013702 

003162' 

MOV 

LARGBL,R2 

:AND  TO  LEFT  ARG 

7708  000306 

016301 

000004 

MOV 

A.ALEN(R3),R1 

;GET  LENGTH  OF  RIGHT  ARG 

7709  000312 

016200 

000004 

MOV 

A.ALEN(R2),R0 

;AND  LENGTH  OF  LEFT  ARG 

7710  000316 

005301 

DEC 

R1 

;MINUS  1  BECAUSE 

7711  000320 

005300 

DEC 

RO 

;WE  MUST  POINT  TO  LAST  ELEMENT 

7712  000322 

ASH 

RARGSF,R1 

;N0.  ADJUST  LENGTH  BY  SIZE  OF 

7713  000336 

ASH 

LARGSF.RO 

; FLOATING  POINT  DATA 

7714  000352 

060137 

003206' 

ADD 

R1,RARGPT 

; POINT  TO  END  OF  RIGHT  ARRAY 

7715  000356 

060037 

003164' 

ADD 

RO,LARGPT 

;POINT  TO  END  OF  LEFT  ARRAY 

7716  000362 
//1 7 
7718 

013737 

003206'  005102' 

MOV 

RARGPT,0PTMP6 

;INITIALIZE  RIGHT  BASE  POINTER 

•SET  UP 

'  LEFT 

SIDE  COUNTERS 

7719 

•  . 

7720  000370 

005437 

003160' 

NEG 

LARGFL 

•INCREMENT  IS  NEGATIVE 

7721  000374 

016201 

000004 

MOV 

A.ALEN(R2),R1 

;GET  ARRAY  LENGTH 

1722  000400 

116204 

000002 

M0V8 

A.DIMS(R2),R4 

;GET  NUMBER  OF  DIMENSIONS 

7723  000404 

006304 

ASL 

R4 

; CONVERT  TO  BYTE  COUNT 

7724  000406 

060204 

ADD 

R2,R4 

;MAKE  POINTER  ABSOLUTE 

7725  000410 

016404 

000004 

MOV 

A.DIM1-2(R4),R4 

;GET  LAST  DIMENSION  IN  LEFT  ARG 

7726  000414 

010437 

005104' 

MOV 

R4,0PTMP7 

■SAVE  AS  LENGTH  OF  COMBINING  DIM 

fm  000420 

010400 

MOV 

R4,R0 

;COPY  COUNT 

[ 
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HIT 


7728 

7729 

7730 

7731 

7732 

7733 

773A 

7735 

7736 

7737 

7738 

7739 

7740 

7741 

7742 

7743 

7744 

7745 

7746 

7747 

7748 

7749 

7750 

7751 

7752 

7753 

7754 

7755 

7756 

7757 

7758 

7759 

7760 

7761 

7762 

7763 

7764 

7765 

7766 

7767 

7768 

7769 

7770 

7771 

7772 

7771 

777^ 

7775 

7776 

7777 

777^ 

7779 

7780 

7781 

7782 

7783 

7784 


000422 
000436 
000440 
000444 
000450 
000452 
000454 
000460 
000462 
000466 
000470 
000472 
000476 
000500 
000504 
000510 
000514 
000516 
000520 
000532 
000536 
000542 
000546 
000552 
000554 
000560 
000562 
000564 
000570 
000602 
000606 
000612 
000614 
000630 
000632 
000636 

000642 
000646 
000650 
000662 


000666 
000672 
000674 
000700 
000702 
000706 
000710 
000712 
000714 
000720 
000732 
000736 
000742 


005400 
010037 
022704 
001474 
002475 
005763 
001403 
105763 
001154 

013704 
010203 
062703 
012701 
116200 
005300 
003407 


010337 
010137 
012701 
011603 
116300 
005300 
003411 
062703 


005106* 
000001 


000006 
000002 

005100' 

000006 
000001 
000002 


005100' 
005110* 
000001 

000002 


000010 


010137    005112' 


001476 

000137 

005037 
005000 


001 274 ' 
003160' 


010037  005110' 


016301 
001007 
105762 
001673 
005737 
001670 
000443 
005000 
016304 

010037 
010037 
020^27 


000004 
000002 
005104' 

000006 

005112' 
005066' 
000001 


ASH 

LARGSF,RO 

NEG 

RO 

MOV 

R0,0PTMP8 

CMP 

M^M 

BEQ 

20$ 

BLT 

10$ 

TST 

A.DIM1(R3) 

BEQ 

5$ 

TSTB 

A.DIMS(R3) 

BNE 

12$ 

5$: 

PUSH 

R3 

MOV 

OPTMP5,R4 

MOV 

R2,R3 

ADD 

/lfA.DIM1,R3 

MOV 

/)f1,R1 

M0V8 

A.DIMS(R2),R0 

DEC 

RO 

BLE 

7$ 

6$: 

MUL 

(R3)+,R1 

SOB 

R0,6$ 

7$: 

MOV 

R3,OPTMP5 

MOV 

R1,0PTMP9 

MOV 

*1,R1 

MOV 

(SP), R3 

MOVB 

A.DIMS(R3),R0 

DEC 

RO 

BLE 

9$ 

ADD 

*A.DIM1+2,R3 

8$: 

MUL 

(R3)-^,R1 

SOB 

R0,8$ 

9$: 

MOV 

R1,OPTM10 

POP 

R3 

MUL 

0PTMP9,R1 

BEQ 

14$ 

CALL 

GETIDN 

JMP 

INNRET 

20$: 

CLR 

LARGFL 

10$: 

CLR 

RO 

DIV 

R4,R0 

•  X 

MOV 

R0,OPTMP9 

;SET 

UP  RIGHT 

SIDE  COUNTERS 

MOV 

A.ALEN(R3),R1 

BNE 

21$ 

TSTB 

A.DIMS(R2) 

BEQ 

5$ 

TST 

0PTMP7 

BEQ 

5$ 

BR 

12$ 

21$: 

CLR 

RO 

MOV 

A.DIM1(R3),R4 

DIV 

R4,R0 

MOV 

R0,OPTM10 

MOV 

RO.OPTMPO 

CMP 

R4,*1 

LEFT  ARG  SHIFT 

H'E^n   TO  MOVE  BACKWARDS 

LEFT  ARG  BASE  INCREMENT 

LAST  DIM  =1?  (SPECIAL  CASE:  ALWAYS  CONFORMS) 

Yes 

Not  null  either 

Is   the  right  dimension  zero  too? 

Yes 

Is  the  Riaht  argument  a  scalar? 

No,  Length  error 

Save  pointer  to  right  argument 

Get  Left  function  number 

Copy  Left  argument  pointer 

Point  to  its  first  dimension 

Get  multiplicative  identity 

Get  rank  of  left  argtfnent 

Minus  one  for  deleted  dimension 

Skip  if  zero 

Compute  size  of  left  argument 

Loon  through  dimension  list 

Sa.  pointer  to  last  dimension 

Save  left  argunent  size 

Get  multiplicative  identity  again 

Get  right  argument  pointer 

Get  its  rank 

Minus  one  for  deleted  dimension 

Skip  if  zero 

Point  to  second  dimension  of  right  argument 

Compute  size  of  right  argument 

Loop  thru  dimension  list 

Save  size  of  right  argument 

Restore  pointer  to  right  argument 

Get  size  of  result 

Nothing  there.  Use  normal  method 

Go  get  array  of  identity  elements 

All  done  at  last 

LEFT  ARG  REPEATS  TO  MATCH  RIGHT  ARG 
CLEAR  FOR  DIVIDE 

CALCULTE  PRODUCT  OF  ALL  BUT  LAST  DIM 
TO  GET  LEFT  ITERATION  COUNT 


GET  ITS  SIZE 

It's  not  NulU  Great 

Is  the  Left  argument  a  scalar? 

Yes 

Is  the  Left  argument's  last  dimension  zero? 

Yes 

Fail  all  the  tests.  Go  to  LENGTH  Error 

CLEAR  FOR  DIVIDE 

GET  FIRST  DIM 

COMPUTE  RIGHT  ARG  W/O  1ST  DIM 

RIGHT  ARG  COUNT  RESET 

TWO  OF  THEM 
IS  IT  A  SINGLE  ELEMENT 


DIM? 


n? 


f 
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7785 
7786 
7787 
7788 
7*^89 
7790 
7791 
7792 
7793 
779A 
7795 
7796 
7797 
7798 
7799 
7800 
7801 
7802 
7803 
780A 
7805 


0007A6 
000750 
00075A 

000756 
000760 
000774 
000776 
001002 
001004 
001010 
001012 
001016 
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001003 

005037  003202' 

000424 


TlT 


005400 

010037  003202' 

020037  005104' 

001406 

005737  003160' 

001401 


001020  104412 

010037  005104' 

005304 

060437  003140' 


001022 
001026 
001032 
001034 
001050 


BNE 

11$ 

CLR 

RARGFL 

BR 

14$ 

11$: 

PUSH 

R4 

ASH 

RARGSF,RO 

NE6 

RO 

MOV 

RO, RARGFL 

POP 

RO 

CMP 

R0,0PTMP7 

BEQ 

14$ 

TST 

LARGFL 

BEQ 

13$ 

12$: 

LENERR 

13$: 

MOV 

R0,OPTMP7 

14$: 

CALL 

INSPAC 

DEC 

R4 

ASH 

RESSFT,R4 

ADD 

R4,RESPTR 

NO 

YES,  DO  NOTHING 

AND  GO 

SAVE  COUNT 

SHlfJ   IT 

NEGATE  IT 

IT  IS  THE  RIGHT  ARG  INCREMENT 

RESTORE  COUNT 

CHECK  FOR  COMFORM 

IT  DOES 

LEFT  ARG  SCALAR? 

YES,  IS   ALLRIGHT 

LENGTH  ERROR 

NEW  COUNT 

Get  space  for  Result 
Origin  0  offset  to  Result  data 
Convert  it  to  a  byte  offset 
;Get  pointer  to  end  of  Result  data 


ACMfMl       UMArCkn    Mint       AQ^CCD-Qn    in .  7Q       DAnC    Qf\ 


TTT 
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7807 

."f 

7808 

.-PERFOT' 

1  INNER  PRODUCT  (FINALLY! 

!) 

7809 

•  - 

7810  001054 

DOJNNR: 

• 
• 

7811  001 054 

013700 

005104' 

MOV 

OPTMP7,R0 

;GET  LENGTH  OF  COMBINING  DIM 

7812  001060 

013702 

003164* 

MOV 

LARGPT,R2 

; RESET  LEFT  POINER 

7813  001064 

013703 

003206' 

MOV 

RARGPT-R3 

;RESET  RIGHT  POINTER 

7814  001070 

012701 

005016* 

MOV 

*INNTM2,R1 

; POINT  TO  RESULT 

7815  001074 

CALL 

INNOP 

;PERFORM  FIRST  (RIGHT)  OP 

7816  001100 

7817 

7818  001102 

000516 

BR 

INNOVR 

;NOT  READY  YET 

005300 

1$: 

DEC 

RO 

;DONE  WITH  THIS  ROW/COLUMN? 

7819  001104 

003432 

BLE 

2$ 

;YES 

7820  001106 

012701 

003250* 

MOV 

*INNTMP,R1 

;  INTERMEDIATE  AREA 

7821  001112 

CALL 

INNOP 

;D0  FIRST  OPERATION 

7822  001116 

000507 

BR 

INNOVR 

;NOT  READY  YET 

7823  001120 

PUSH 

<R2, R3> 

;SAVE  DATA  POINTERS 

7824  001124 

012701 

0C5016* 

MOV 

#INNTM2,R1 

;POINT  TO  RESULT 

7825  001130 

012702 

003250* 

MOV 

XfINNTMP,R2 

; TEMPORARY  AREA 

7826  001134 

010103 

MOV 

R1,R3 

;RESULT  TO  RESULT 

7827  001136 

CALL 

aOPTMP2 

;LEFT  ARG  FETCH 

7828  001142 

CALL 

aOPTMP3 

;RIGHT  ARG  FETCH 

7829  001146 

POP 

<R3,R2> 

;RESTORE  REGISTERS 

7830  001152 

013704 

005100* 

MOV 

OPTMP5,R4 

;LEFT  ARG  OP 

7831  001156 

CALL 

aDYDTAB(R4) 

; PERFORM  OP 

7832  001162 

CALL 

aOPTMP4 

; STORE  RESULT 

7833  001166 

000463 

BR 

INNOVR 

; ERROR 

7834  001170 

000744 

BR 

1$ 

:AND  LOOP  ON  THIS  ROW/COLUMN 

7835 

1 

7836  001172 

013701 

003140* 

2$: 

MOV 

RESPTR,R1 

;Point  to  location  in  result  array 

7837  001176 

013737 

005016* 

003154* 

MOV 

INNTM2,RESVAL 

;Copy  t emperor y  result 

7838  001204 

LDF 

INNTM2,AC0 

; Floating  form  too 
jStore  the  result  away 

7839  001214 

CALL 

aOPTM14 

7840  001220 

104402 

SYSERR 

;Overflow  should  have  happened  before  this 

7841  001222 

163737 

003150* 

003140* 

SUB 

RESLEN^RESPTR 

;SAVE  POINTER 

7842  001230 

163737 

003216* 

003206* 

SUB 

RARGLE,RARGPT 

;BACK  UP  POINTER 

7843  001236 

005337 

005112* 

DEC 

OPTM10 

; DECREMENT  COUNT 

7844  001242 

003304 

B6T 

DOINNR 

;LOOP 

7845  001244 

013737 

005102* 

003206* 

MOV 

0PTMP6,RARGPT 

;DONE,  RESET  RIGHT  BASE 

7846  001252 

013737 

005066* 

005112* 

MOV 

OPTMPO^OPTMIO 

;RESET  RIGHT  COUNT 

7847  001260 

063737 

005106* 

003164* 

ADD 

0PTMP8,LARGPT 

; INCREMENT  LEFT  BASE 

7848  001266 

005337 

005110* 

DEC 

0PTMP9 

;DONE  ON  LEFT  YET? 

7849  001272 

7850 

7851 

003270 

BGT 

DOINNR 

;N0,  PROCESS  NEXT  ROW/COLUMN 

;"f 

7852 

;  Kill 

the  arqument  and  function  frames  on  the  SI  stack  and  replace                   1 

7853 
7854 

;  them 

with  tne 

Result  par*i8  frame 

7855  001274 

016502 

177776 

INNRET: 

MOV 

SI.VAL(SI),R2 

;Sav/e 

value  pointer  in  the  Result  frame 
over  the  Result  frame 

7856  001300 

062705 

M7772 

ADD 

*SI.LEN,SI 

;Skip 

7857  001304 

CALL 

KILL 

;KUI 

the  Left  argument  frame 

7858  001310 

062705 

1 77764 

ADD 

<f2*SI.LEN,SI 

;KUl 

the  function  frames 

7859  001314 

016504 

1 17772 

MOV 

SI.RET(SI),R4 

;Sa\/e 

the  return  address 

7860  001320 

CALL 

KILL 

;Kill 

the  Right  argument  frame 

7861  001324 

SIFRAM 

R2,,R4 

;BuUd  a  new  Result  frame 

7862  001334 

RETURN 

; Return  from  Inner  product  routine 

7863 

TIT 
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ITlT 


786A 
7865 
7866 
7867 
7868 
7869 
7870 
7871 
7872 
7873 
7874 
7875 
7876 
7877 
7878 
7879 
7880 
7881 
7882 
7883 
788A 
7885 
7886 
7887 
7888 
7889 
7890 
7891 
7892 
7893 
7894 
7895 
7896 
7897 
7898 
7899 
7900 
7901 
7902 
7903 
7904 
7905 
7906 
7907 
7908 
7909 
7910 
7911 
7912 
7913 
7914 
7915 
7916 
7917 
7918 
7919 
7920 


001336 
001344 
001346 
001350 
001362 
001366 
001372 
001376 
001402 
001416 
001420 
001424 
001426 
001432 
001434 
001442 
001450 
001452 
001454 
001460 
001464 
001470 
001474 
001510 
001512 
001520 
001534 
001542 
001550 
001556 
001564 
001572 
001576 
001600 
001602 
001606 
001610 
001612 
001616 
001624 
001626 
001630 
001632 
001636 
001642 
001644 
001646 
001650 
001660 


023727 
001400 
104402 

016500 
012701 


003144'  000004 


177776 
000006 


ERROR  ROUTINE  -  FIXUP  AND  CONITNUE  FOR  "OOINNR"     (INNER  PRODUCT  ROUTINE) 


INNOVR; 
1$: 


016002  000004 


000004 
1 77770 


060201 
016002 
006302 
067502 


020200 
001370 
010137 
012703 
010337 
013702 

060302 
016237 

016337 
016337 
016337 
013737 
013737 
013700 
002405 
005400 
005760 
001001 
005400 
010037 
013737 
014504 
014503 
005745 
016502 

010225 
010325 
010425 


000137  001054' 


4$; 


003140' 
000006 
003144' 
005070' 


OOOOOOG  003152' 


OOOOOOG 
OOOOOOG 
OOOOOOG 
005076' 
000062' 
005100' 


OOOOOOG 


005072 ' 
005074 ' 
005076' 
005026' 
003150' 


005100'        5$; 
005066'  005112' 


1 77772 


CMP 

BEO 

SYSERR 

PUSH 

MOV 

MOV 

CALL 

MOV 

ASH 

ADD 

MOV 

ASL 

ADD 

POP 

LDCIF 

STF 

CMP 

BNE 

MOV 

MOV 

MOV 

MOV 

ASH 

ADD 

MOV 

MUL 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BLT 

NEG 

TST 

BNE 

NEG 

MOV 

MOV 

MOV 

MOV 

TST 

MOV 

CALL 

MOV 

MOV 

MOV 

POP 

JMP 


RESTYP,#. INTEGER 
1$ 

<R0.R2,R3,R4-R1> 

SI. VAL( SI ),R0 

*. FLOAT, R1 

GETSM3 

A.ALEN(R0),R2 

PRECSN,R2 

R2,R1 

A.ALEN(R0),R2 

R2 


MUST  BE  INTEGER! 

It  IS 

Not  integer  function 

SAVE  REGISTERS 

POINT  TO  RESULT 

NEW  STUFF  IS   FLOAT 

GET  NEW  DATA  SPACE 

GET  THE  LENGTH 

MULTIPLY  FOR  BYTES 

POINTER  TO  END  OF  NEW  STUFF 

GET  LENGTH  AGAIN 

IN   BYTES,  NOT  WORDS 


aSI.LEN+SI.VAL(SI),R2   .'POINTER  TO  DAT 


RO 

-(R2),AC3 

AC3,-(R1) 

R2,R0 

4$ 

RURESPTR 

*. FLOAT, R3 

R3,RESTYP 

0PTMP1 ,R2 

*2,R2 


R3,R2 
RESCT(R2),RESCVT 

LARGCT(R3),OPTMP2  ;LEFT  FETCH 
RARGCT(R3),OPTMP3  ;RIGHT  FETCH 


RESTORE  (OLD)  RESULT  POINTER 

GET  OLD  VALUE 

STORE  IT 

STOP  WHEN  I  FINISH 

NOT  YET,  MY  FRIEND 

SAVE  NEW  POINTER 

RESULT  IS   FLOAT 

I  SAID  SO... 

GET  RESULT  TYPE  OF  1ST  OP 

Times  4 

INDEX  FOR  STORE  ROUTINE 

SO  LOOK  IT  UP 

LOOK  ALONG  DIAGONAL 


RESCT(R3),0PTMP4 

0PTMP4,0PTM14 

NUMLEN,RESLEN 

OPTMP5,R0 

5$ 

RO 

DYDTAB(RO) 

5$ 

RO 

R0,OPTMP5 

OPTMP0,OPTM10 

-(SI),R4 

-(SI),R3 

-(SI) 

SI.RET(SI),R2 

KILL 

R2,(SI)+ 

R3,(SI)^' 

R4,(SI)+ 

<R4,R3,R2,R0> 

DOINNR 


RESULT  STORE 

Final  result  store  routine 

RESULT  LENGTH  FOR  LOOP 

GET  OPERATOR 

ALREADY  NEGATIVE 

NEGATE  IT 

ROUTINE  EXISTS? 

YES 

NO,  REVERSE  IT 

SAVE  •  >iE\4' '  VALUE 

RESET  COUNT 

SAVE 

SI 
INFO 
—RETURN  INFO 
KILL  OLD  VALUE 
NOW 

RESTORE 
THE  DATA 
RESTORE  REGISTERS 
START  AGAIN! 


SUBROUTINE  Jf^   P'R^ORM  FIRST  (RIGHT)  OPERATION 


rrr 
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7921  001 66A 

INNOP: 

CALL 

aLARGCV        ; FETCH  LEFT  ARG 

7922  001670 

CALL 

aRARGCV 

; FETCH  RIGHT  ARG 

7923  001674 

013704 

005116* 

MOV 

BLZBUB.R4 

;GET  OP  NUMBER 

792A  001700 

CALL 

aDYDTAB(R4) 

; PERFORM  OP 

7925  001 70A 

CALL 

iRESCVT 

; STORE  RESULT 

7926  001710 

000403 

BR 

1$ 

; ERROR  ON  't)VERFLOW" 

7927  001712 

062716 

000002 

ADD 

*2,(SP) 

; NORMAL  RETURN 

7928  001716 

RETURN 

:TRY  IT,  YOU'LL  LIKE  IT 

7929 

;  + 

7930 

;  ERROR 

ROUTINE 

FOR  OVERFLOW  -  IF  IT'S  REALLY  BAD,  WE 

7931 

;  DO  SOME  OF  IT 

AND  LET  THE  MAIN  ROUTINE  ALSO  TAKE  SOME. 

7932 

•  - 

7933  001720 

1$; 

PUSH 

<R0,R1>       ;Save  a  couple  of  registers 

7934  001724 

013700 

003170' 

MOV 

LARGTY,R0      ;LEFT  ARG  TYPE 

7935  001/30 

016037 

OOOOOOG  003176' 

MOV 

FLARGC(RO),LARGCV  ;LEFT  ARG  FETCH  ROUTINE 

7936  001/36 

013700 

003212* 

MOV 

RARGTY.RO        ;RI6HT  ARG  TYPE 

7937  001742 

016037 

OOOOOOG  003220' 

MOV 

FRARGC(RO),RARGCV  ;RI6HT  ARG  FETCH  ROUTINE 

7938  001750 

012700 

000006 

MOV 

*. FLOAT, RO     ;Get  new  result  type 

7939  001754 

010037 

005070' 

MOV 

R0,0PTMP1      ;Sav/e  it 

7940  001760 

016037 

OOOOOOG  003152' 

MOV 

FRESCT(RO),RESCVT  ;RESULT  STORE  ROUTINE 

7941  001766 

013701 

003144' 

MOV 

RESTYP,R1      ;Get  old  result  type 

7942  001 //2 

016137 

OOOOOOG  005026' 

MOV 

FRESCT(R1),0PTM14;Get  new  final  result  store  routine 

7943  002000 

ASH 

#2,R1 

; Result  type  times  4 

7944  002014 

060100 

ADD 

R1,R0 

;Add  to  left  argument  type 

;New  Left  function  result  store  routine 

7945  002016 

016037 

OOOOOOG  005076' 

MOV 

RESCT(R0),OPTMP4, 

7946  002024 

013700 

005116' 

MOV 

BLZBUB,RO 

;GET  OP  NUMBER 

7947  002030 

003406 

BLE 

2$ 

;ALREADY  NEGATIVE 

7948  002032 

005400 

NE6 

RO 

; NEGATE  IT 

7949  002034 

022760 

OOOOOOG  OOOOOOG 

CMP 

4fSYNER,DYDTAB(R0);Check  to  see  if  floating  routine  exists 

7950  002042 

001001 

BNE 

2$ 

;IT  IS 

7951  002044 

005400 

NEG 

RO 

;BACK  TO  NORMAL 

7952  002046 

010037 

005116' 

2$: 

MOV 

RO,BLZBUB 

;SAVE  ROUTINE 

/^>53  002052 

POP 

<R1 ,R0> 

;RESTORE  REGISTERS 

7954  002056 

163702 

003160' 

SUB 

LARGFL,R2 

;BACK  UP  BOTH 

7955  002062 

163703 

003202' 

SUB 

RARGFL,R3 

;  ARGUMENTS 

7956  002066 

023727 

003144'  000004 

CMP 

RESTYP,*. INTEGER. 

;RESULT  TYPE  INTEGER? 

7957  002074 

001273 

BNE 

INNOP 

•YES,  TRY  AGAIN 

7958  002076 

RETURN 

•NO,  ERROR  RETURN 

7960  002100 

LIST 

fnr 


API  mi     MArpn  MiiiT^    nft-FFR-Rf)  in.-'^a    PAr^p  91 


WTT 


¥17 


APL011  MACRO  Ml 113  08-FEB-80  10:38  PAGE  91 
OPERATOR  INNER  PRODUCT 


7%2  002100 
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8727  002100 
8771   002100 


MOPINS 


RAND,0 
LIST 


API 
API 
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000001 


MT 


AP 
AP 


.END 


L 


■FIT 


C 
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D  l! 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR=  000073 

C.BLOK= 

000064 

D.COMB= 

000001 

D.1R0T= 

000003 

AC1   = 

%000001 

CHRLPR=  000072 

C.8LSZ= 

000140 

D.COMP= 

000001 

EDICHR 

005063R 

025 

AC2   = 

X000002 

CHRMNS=  000137 

C.BUFF= 

1 77760 

D.CONT= 

000006 

EDICNT 

005064R 

025 

AC3   = 

X000003 

CHRMUL=  000075 

C.8UFL= 

177762 

D.CTLM=  000000 

EDIFLG 

005062R 

025 

ACA   = 

X000004 

CHRNE6=  000100 

C.CCNT= 

177766 

D.DEAL= 

000003 

EDIT  = 

000003 

ACS   = 

X000005 

CHRPDL=  000271 

C.CPTR= 

177764 

D.DECD= 

000002 

UZ       = 

000000 

ALLINT 

003274R 

025 

CHRPLU=  000055 

C.CZ  = 

001000 

D.DIV  = 

000000 

l\Ji%\l 

005132R 

025 

ARYRET 

003276R 

025 

CHRPWR=  000120 

C.DI6  = 

000040 

D.DMD  = 

000010 

ENDCOR 

0O0004R 

025 

ASCQUO=  000042 

CHRQST=  000121 

C.FASW=  020000 

D.DQAD= 

M7117 

EOF   = 

104475 

A.ALEN=  000004 

CHRQUO=  000113 

C.FLEN=  000010 

D.DROP= 

000002 

ERRMAX= 

000166 

A.AR6  = 

000040 

CHRRBR=  000047 

C.FLSH= 

004000 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

A.ASB  = 

000200 

CHRRPR=  000042 

C.FRC  = 

000001 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

A.BITS= 

000003 

CHRSEM=  000074 

C.IDEN=  000010 

D.EXPD= 

000002 

ERRO 

004 /'/4R 

025 

A.CON  = 

000020 

CHRSMO=  000112 

C.NAME= 

000102 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

A.DIMS= 

000002 

CHRSPA=  000040 

C.N0BF= 

000400 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.Dim  = 

000006 

CHRUPA=  000131 

C.NUM  = 

000020 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.NUW  = 

000006 

CHR.BS=  000010 

COP  = 

000004 

D.FPUT= 

000005 

FA.APD= 

000100 

A.PTR  = 

000000 

CHR.CC=  000003 

C.OPN  = 

010000 

D.GE  = 

000000 

FA.CRE= 

000010 

A.TMP  = 

000010 

CHR.CR=  000015 

C.RDLN= 

177776 

D.GT  = 

000000 

FA.DLK= 

001000 

BADDIR= 

104463 

CHR.CZ=  000032 

C.REWT= 

002000 

D.I8M  = 

000002 

FA.E^e= 

100000 

BADERR= 

104437 

CHR.6T=  000046 

C.RND  = 

000010 

D.IND  = 

000002 

FA.EXC= 

002000 

BLZBUB 

0051 16R 

025 

CHR.LF=  000012 

C.S8IT= 

177756 

D.INMR= 

000013 

FA.EXT= 

000004 

BRSELF 

005046R 

025 

CHR.LT=  000043 

C.SPFX= 

000100 

D.INTR= 

000006 

FA.NSP= 

000100 

CCNT 

005072R 

025 

CHR.SI=  000017 

C.SPGL= 

000200 

D.LE  = 

000000 

FA.NSR= 

000200 

CHANEX 

003060R 

025 

CHR.SL=  000057 

C.SPLX= 

000001 

D.LOG  = 

000001 

FA.POS= 

010000 

CHANOO 

000256R 

025 

CHR.SO=  000016 

C.SPRS= 

000002 

D.LT  = 

000000 

FA.RD  = 

000001 

CHAN01 

000330R 

025 

CHR.TB=  000011 

C.SRC  = 

177774 

D.MAX  = 

000000 

FA.RWD= 

004000 

CHAN02 

00051 2R 

025 

CHR.UL=  000106 

C.SRCP= 

000024 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CHAN03 

000674R 

025 

CHR..A=  000141 

C.TT  = 

000004 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHAN04 

001056R 

025 

CHR..E=  000145 

C.WIDC= 

177770 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHANOS 

001240R 

025 

CHR..S=  000163 

C.WIDR= 

177772 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN06 

001422R 

025 

CHR..T=  000164 

DEBUG  = 

000000 

D.NN  = 

000000 

FA.WRT= 

000002 

CHAN07 

001604R 

025 

CHR..U=  000165 

DEFERR= 

10440: 

D.NR  = 

000000 

FD.BLK= 

000010 

CKAN08 

001766R 

025 

CHR..Z=  000172 

DEVIL 

0051 14R 

025 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN09 

0021 50R 

025 

CHR..O=  000060 

DEVNTF= 

104470 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN10 

002332R 

025 

CHR..1=  000061 

DIGITS 

000006R 

025 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN11 

00251 4R 

025 

CH.AND=  000001 

DIMAX  = 

000020 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN12 

002676R 

025 

CMD8UF  003250R 

025 

DIMBLK 

0031 12R 

025 

D.QQAD= 

000000 

FD.FTN=  000001 

CHAN13 

000022R 

023 

CMDMAX=  000010 

DIMPTR 

0031 14R 

025  D.QUAD= 

000000 

FD.F11= 

040000 

CHANU 

000204R 

023 

CMPTRT=  ♦♦♦♦♦*  GX 

DIMTYP 

0031 16R 

025 

D.RES  = 

000000 

FD.INS= 

000010 

CHNOP^^ 

104471 

CNTSIZ  0051 30R 

025 

DIRFUL= 

104466 

D.RHO  = 

000000 

FD.ISP= 

002000 

CHRAM)= 

000051 

COMBIN  005076R 

025 

DOINNR 

001054RG 

020  D.ROT  = 

000003 

FD.MNT= 

100000 

CHHBtL= 

000007 

COMCNT  0051 26R 

025 

DOMERR= 

104417 

D.SCON=  000006 

FD.0SP= 

004000 

CHRBICR= 

000133 

C0MERR=  104425 

DOUTER= 

**•♦*♦  GX 

D.SDIF= 

000006 

FD.PLC= 

000004 

CHRBOL= 

000200 

COMPTR  0051 22R 

025 

DPTERR= 

104416 

D.SUB  = 

000000 

FD.PRN=  000004 

CHR80X= 

000114 

COMRTN  0031 56R 

025 

DYDBTL= 

****••  GX 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRC«A= 

000054 

COMSKP  0051 24R 

025 

DYDCNT 

003224R 

025  D.TAKE= 

000002 

FD.RAH= 

000001 

CHRCOL= 

000076 

CORPTR  0051 20R 

025 

DYDTAB= 

***•♦♦  GX 

D.TRAN=  000004 

FD.RAN=  000002 

CHRDEL= 

000107 

CS.ASS=  000200 

D$INNR 

OOOOOORG 

020  D.UN0N=  000006 

FD.REC= 

000001 

CHRDIV= 

000053 

CS.800=  000010 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RUM=  000001 

CHRDLR= 

000176 

CS.FL0=  000020 

D.BXCT= 

000007 

D.$MIN=  000000 

FD.SDI= 

000020 

CHRDLT= 

000110 

CS.10H=   000040 

D.BXIO=  000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRDOT= 

000056 

CS.ONE^  000100 

D.BXNL= 

000007 

D.$PLU=  000000 

FD.TTY= 

000004 

CHREP  = 

000105 

CTEPS   0001 52R 

025 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHRERR= 

104431 

CTMAX   0002 I2R 

025 

D.8XPW=  000007 

D.$SIB=  000000 

FF.CHR= 

000005 

CHRFIL= 

000177 

CTRMAX  0001 72R 

025 

D.8XRL= 

000007 

D.1C0M=  000001 

FF.NV  = 

000003 

CHRFRO=  000135 

C.ALOC=  000162 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.POE= 

000002 

nr 
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FF.RWD=  000001 

F.END  = 

002000 

F.VBN  = 

000064 

L1S1ZE=   000020 

M.LIT  =  000205 

FF.RWF=  000006 

F.EnRR= 

000032 

F.VBSZ= 

000060 

LI  TOP   005072R 

025  M.LN  =  000001 

FF.SPC=  OOOOOA 

F.ERR  = 

000052 

GETIDN= 

****••  GX 

LNLNG  =  104541 

M.MMD  =  000010 

FHEADR  00501 2R 

025 

F.FACC= 

000043 

GETSM3= 

******  GX 

LOCLCT  005036R 

025  M.NEG  =  000000 

FHRET   0050A0R 

025 

F.FFBY= 

000014 

GNOME 

0031 02R 

025  LOWCOR  000002R 

025  M.NOT  =  000000 

FILNTF=  104467 

F.FLAG= 

000002 

HASHC 

005136R 

025  LSTERP  004766R 

025  M.NUB  =  000006 

FIS   =  000000 

F.FLB  = 

000100 

HASHTB 

005140R 

025  LWIDTH  000070R 

025  M.NUM  =  000204 

FISCON=  046000 

F.FNAM=  000110 

HSHMSK= 

177601 

L.8ITS=  000003 

M.0UTR=  000012 

FIXPTR  003074R 

025 

F.F^B  = 

000102 

HSHSIZ= 

000200 

L.CNT  =  000002 

M.PITM=  000000 

FLAGS   004764R 

025 

F.FNDF= 

000010 

lASH  = 

******  GX 

L.PRNT=  000001 

M.PRDS=  000006 

FLARGC=  ♦♦♦♦♦♦  GX 

F.FTYP= 

000116 

I  CHAN 

005050R 

025  L.PTR  =  000000 

M.QQAD=  000000 

FLCBUF  003250R 

025 

F.FUN  = 

000010 

IDIV  = 

******  GX 

L.PTR1=  000004 

M.QUAD=  000000 

FLINE   005014R 

025 

F.FVER= 

000120 

ILFNAM= 

104464 

L.SUBS=  000002 

M.RAND=  0000(2 

FLOeXP  003270R 

025 

F.HEAD= 

000006 

ILLCHN= 

104540 

MACHIN=  000106 

M.RAVL=  000000 

FLONEG  003272R 

025 

F.HIBK= 

000004 

ILLSW  = 

104565 

MAXCHN=  000014 

M.RCIP=  000000 

FLSWTB  000222R 

025 

F.LBL  = 

000020 

IMUL  = 

******  GX 

MONBLK  0031 20R 

025  M.RDCT=  000011 

FLTLEN=  000010 

F.LINE= 

000012 

INDERR= 

104410 

MONCVT  0031 32R 

025  M.REVS=  000003 

FNINSI  005044R 

025 

F.LOC  = 

000004 

INNOP 

001664R 

020  MONLEN  0031 30R 

025  M.R0LL=  000000 

FDRIGN  000032R 

025 

F.LSTC= 

000004 

INNOVR 

001336R 

020  MONPTR  0031 22R 

025  M.SATA=  000001 

FO.APO=  000106 

F.LUN  = 

000042 

INNRET 

001274R 

020  MONSFT  0031 26R 

025  M.SCAN=  000011 

FO.MFY=  000002 

f.mcj= 

000054 

INNTMP 

003250R 

025  MONTYP  0031 24R 

025  M.SHAP=  000000 

FO.RO  =  000001 

F.MBC1  = 

000055 

INNTM2 

00501 6R 

025  MONVAL  0031 34R 

025  M.SIGN=  000000 

FO.UPO=  000006 

F.MBFG= 

000056 

INPTR 

000064R 

025  M.ABS  =  000000 

M.S18R=  000001 

FO.URT=  000016 

F.MON  = 

000002 

INSNAM= 

104462 

M.BOL  =  000200 

M.SYM  =  000203 

FPMOOE  000042R 

025 

F.NIL  = 

000001 

INSPAC= 

******  GX 

M.BXAV=  000007 

M.SYN  =  000201 

FPP   =  000000 

F.NRBD= 

000024 

lOERR  = 

104477 

M.BXCR=  000007 

M.TRAN=  000012 

FPPLEN^  000004 

F.NREC= 

000030 

l.CNT  = 

177776 

M.8XCT=  000007 

M.$ABS=  000000 

FRARGC=  ******  GX 

F.OPN  = 

000010 

I. DIM  = 

177772 

M.BXEX=  000007 

M.$CEI=  000000 

FREBLK  007400R 

025 

F.OVBS= 

000030 

I.LEN  = 

000012 

M.8XFX=  000007 

M.$FLR=  000000 

FRESCT=  ******  GX 

F.PREV= 

000000 

I.OERR= 

000062 

M.BXIO=  000007 

M.$IDN=  000000 

FUZZ    0001 42R 

025 

F.PRNT= 

100000 

I. OLD  = 

177770 

M.8XLC=  000003 

M.$NEG=  000000 

FXPTR1  003076R 

025 

F.PR0T= 

010000 

I.PTR  = 

1 7777^ 

M.BXNC=  000007 

M.$SIG=  000000 

F$EVAL=  000100 

F.RACC= 

000016 

I.STR  = 

177766 

M.BXNL=  000007 

M.1RDT=  000011 

F$EVI  =  000200 

F.RATT= 

000001 

KILL  = 

******  GX 

M.BXPP=  000007 

M.1REV=  000003 

F$EXEC=  000400 

F.RCNM=  000034 

LABERR= 

104406 

M.BXPW=  000007 

M.1SCN=  000011 

F$FI>IC=  001000 

F.RCTL= 

000017 

LABLPT 

005042R 

025  M.BXRL=  000007 

NAMBUF  003240R 

025 

F.ACTL=  000076 

F.READ= 

004000 

LARGBL 

0031 62R 

025  M.BXTS=  000007 

NB.DEV=  000200 

F.ALOC=  000040 

F.REDF= 

000040 

LAR6CT= 

******  GX 

M.BXUA=  000007 

NB.DIR=  000100 

F.aBFS=  000062 

F.RES  = 

000040 

LAR6CV 

0031 76R 

025  M.CEI  =  ^77777 

NB.NAM=  000004 

F.BDB  =  000070 

F.RET  = 

1 77772 

LAR6FL 

0031 60R 

025  M.CHR  =  000202 

NB.SD1=  000400 

F.BGBC=  000057 

f.RS12= 

000002 

LARGLE 

0031 74R 

025  M.CMT  =  000206 

NB.SD2=  001000 

F.BITS=  177//4 

F.RTYP= 

000000 

LARGLN 

0031 66R 

025  M.D0UT=  000006 

NB.SM1=  000040 

F.BKDN=  000026 

F.R2  = 

000014 

LARGPT 

0031 64R 

025  M.DQAD=  000006 

NB.STP=  000020 

F.Bia)S=  000020 

F.R3  = 

000016 

LARGSF 

0031 72R 

025  M.ENCD=  000004 

NB.SVR=  000010 

F.BKEF=  000050 

F.R4  = 

000020 

LARGTY 

0031 70R 

025  M.EXE  =  000000 

NB.TYP=  000002 

F.BKP1=  000051 

F.SEQN=  000100 

LARGVA 

003200R 

025  M.EXP  =  000001 

NB.VER=  000001 

F.BICST=  000024 

F.SPDV= 

000072 

LBINC 

0051 OOR 

025  M.FACT=  000001 

ND.DEV=  000200 

F.BK\/B=  000064 

F.SPUN= 

000074 

LBUFF 

00331 6R 

025  M.FIL  =  000177 

ND.EXT=  000002 

F.BR  =  000020 

F.STBK= 

000036 

LBUFLN=  000621 

M.FLR  =  ^77777 

ND.NA«=  000004 

F.CHR  =  000075 

F.STK  = 

000022 

LCOUNT 

0051 06R 

025  M.FMT  =  000004 

ND.PPN=  000100 

F.CNTG=  000034 

F.ST0P= 

000004 

LENERR= 

104412 

M.6DUP=  000003 

ND.$EX=  000000 

F.COOE=  000010 

F.STP  = 

000001 

LENTAB 

000054R 

025  M.6DUN=  000003 

ND.$E$=  000020 

F.DF^e=  000046 

F . SUSF- 

000002 

LEXPTR 

0031 OOR 

025  M.6ETI=  000006 

ND.$^#1=  000000 

F.DSPT=  000044 

F.TRC  = 

000002 

LFTOP 

005066R 

025  M.IBM  =  000003 

ND.$N$=  000040 

F.DVNM=  000134 

F.UNIT= 

000136 

LINC 

005102R 

025  M.IDN  =  000000 

ND.$PN=  001400 

F.EFac=  000010 

F.URBD= 

000020 

LINE 

00501 6R 

025  M.INSP=  000006 

NEGSGN  005063R 

025 

F.EfN  =   000050 

F.VAL  = 

1 77776 

LININC 

005026R 

025  M.I0TA=  000000 

NINPT1  003302R 

025 

A 

Al 


TU 
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TABLE 

NINPT2 

003300R 

025  0PTMP7 

005104R 

025 

ROVER 

00331 2R 

025 

SYNER  =  ******  GX 

T.FUN  = 

010000 

NINSTK 

00330AR 

025  0PTMP8 

005106R 

025 

RSTS  = 

000000 

SYNERR=  104407 

T.LIST= 

000400 

NINTMP 

00331  OR 

025  0PTMP9 

00511  OR 

025 

RSX   = 

0001 1 5 

SYSERR=  104402 

T.LIT  = 

000020 

NINTYP 

003306R 

025 

OPTM10 

0051 12R 

025 

RTOP 

005070R 

025 

SYSTAT  OOOOOOR 

024  T.MON  = 

000010 

NOTAVL= 

104A72 

0PTM14 

005026R 

025 

RT11  = 

000000 

SY.BAD=  000001 

T.NIL  = 

000004 

NOTOPN= 

10A473 

ORIGIN 

000030R 

025 

R.BITS= 

000003 

SY.BRK=  100000 

T.NUM  = 

002000 

NPRT1 

00A762R 

025 

OUTPTR 

000066R 

025 

R.FIX  = 

000001 

SY.BS  =  000010 

T.OPFN= 

000001 

NULL 

007364R 

025 

OVROPR= 

000013 

R.LCT  = 

000002 

SY.CLR=  000040 

T.OTHR= 

040000 

NUMCHN=  000020 

PATCH 

007344R 

025 

R.LN  = 

000002 

SY.ERP=  000020 

T.SOP  = 

000002 

NUMDFL 

003230R 

025  PRDSET= 

****•♦  GX 

R.LNUM=  000010 

SY.NOU=  000100 

T.SPOP= 

000040 

NUMEFL 

003233R 

025 

PRECSN 

000052R 

025 

R.NEXT= 

000006 

SY.OPN=  000002 

T.TMP  = 

000200 

NUHESN 

003236R 

025  RANDAC 

003064R 

025 

R.OFF  = 

000000 

SY.PMT=  001000 

T.VAL  = 

100000 

NUMFLG 

003230R 

025  RANDY 

003062R 

025  R.PREV= 

000004 

SY.SRT=  000400 

T.VAR  = 

001000 

NUMLEN 

000062R 

025 

RANERR= 

104411 

R.PTR  = 

000000 

SY.SVC=  000004 

UPPER  = 

177400 

NUMNEG 

003232R 

025 

RARGBL 

003204R 

025 

R.SEQ  = 

000003 

SY.SVL=  000200 

UTNAME 

000344R 

023 

NUMQFL 

003234R 

025 

RARGCT= 

iritltitli*    6X 

R.VAR  = 

000002 

S.AB  =  177776 

VALERR= 

104413 

NUMRIG 

003231 R 

025 

RARGCV 

003220R 

025  R6 

X000006 

S.ASB  =  100000 

VARBLE 

007400R 

025 

NUMUID 

003226R 

025 

RARGFL 

003202R 

025  R7 

X000007 

S.BFHD=  000020 

VARBLS 

OOOOOOR 

025 

NUMZFL 

003235R 

025 

RARGLE 

00321 6R 

025 

SI 

X000005 

S.BITS=  000002 

VERNUM 

OOOOOOR 

025 

NYIERR= 

104432 

RARGLN 

00321 OR 

025 

SIDAMN= 

104433 

S.CHR1=  000003 

VRSION=  000002 

N.BLSZ= 

000036 

RARGPT 

003206R 

025 

SlFRm 

00331 4R 

025 

S.FATT=  000016 

WIDTH 

000072R 

025 

N.DESC= 

000020 

RARGSF 

00321 4R 

025 

SISTAK 

006350R 

025 

S.FDB  =  000140 

UROUND 

000020R 

025 

N.DEV  = 

000032 

RARGTY 

00321 2R 

025 

SI  TOP 

006346R 

025 

S.FLB  =  040000 

WSDATE 

000136R 

025 

N.DEVN=  00003A 

RARGVA 

003222R 

025 

SITP 

0071 44R 

025 

S.FNAM=  000006 

WSFULL= 

104403 

N.DID  = 

000024 

RBASE 

005074R 

025 

SIUARN=  000200 

S.FNB  =  000036 

USNAME 

000074R 

025 

U.D\/m=   000032 

RCOUNR 

0051 12R 

025 

SIZTAB 

000044R 

025 

S.FNBW=  000017 

WSTIME 

0001 32R 

025 

N.EXT  = 

000014 

RCOUNT 

00511 OR 

025 

SI.8IT= 

1 7777^ 

S.FNTY=  000004 

$FIS  = 

******  G 

N.FID  = 

000000 

REDCNT 

005070R 

025 

SI.LEN= 

\77772 

S.FTYP=  000002 

%F?9     = 

******  G 

N.FNAM=  000006 

REDIGN 

005066R 

025 

SI.RET= 

-[77772 

S.LEN  =  000002 

%fPPLH=^ 

******  G 

N.FTYP=  OOOOU 

REDOFF 

005072R 

025 

SI.VAL= 

1 7777 t 

S.LINK=  177774 

$LDCIF= 

******  GX 

N.FVER= 

000016 

REENTR 

003060R 

025 

SKPSIZ 

0051 34R 

025 

S.NFEN=  000020 

$LDF  = 

******  GX 

N.NAME= 

000006 

REGTYP= 

000001 

SPHOLD 

000004R 

024 

S.TYPE=  140000 

$MACHN= 

******  G 

N.NEXT= 

000022 

RESBIT 

0031 42R 

025 

SPINIT 

000002R 

024 

S.VAL  =  000000 

$RSTS  = 

******  G 

N.PPN  = 

000024 

RESCT  = 

******  GX 

S7KINC= 

000774 

TKDIMS  005072R 

025  $RSX  = 

******  G 

N.STAT= 

000020 

RESCVT 

0031 52R 

025 

STOP  = 

104420 

TKFRAM  005066R 

025  $RT11  = 

******  G 

N.UNIT= 

000034 

RESERR= 

104440 

SUBCNT 

0031 04R 

025 

TKLEFT  005070R 

025  $STF  = 

******  GX 

UBUFLN= 

001000 

RESLEN 

0031 50R 

025 

SIRDCT 

0031 06R 

025 

TMODE   000403R 

023  .BOOLr= 

000002 

OCHAN 

005052R 

025 

RESPTR 

0031 40R 

025 

SUBPTR 

00311  OR 

025 

TMPTA6=  000166 

.CHARA= 

000000 

fWlDE 

000402R 

023  RESSFT 

0031 46R 

025 

SYMB1 

005344R 

025 

TTYBUF  0041 40R 

025  .DEF.  = 

000002 

OPFMPO 

005066R 

025  RESTYP 

0031 44R 

025 

SYMF 

005340R 

025 

TTYLEN=  000622 

.FLOAT= 

000006 

0PTMP1 

005070R 

025  RESULT 

0031 36R 

025 

SYMPT1 

005346R 

025 

TURKEY=  104436 

.FSRCB= 

******  G 

0PTMP2 

005072R 

025 

RESVAL 

0031 54R 

025 

SYMTAB 

005352R 

025 

TYPE  =  000166 

.INTEG= 

000004 

0PTI1P3 

005074R 

025 

RINC 

005104R 

025 

SYMTBF= 

104404 

T.BOL  =  020000 

.MOLUN 

000404R 

023 

0PTMP4 

005076R 

025  RLTBAS 

005066R 

025 

SYMTOP 

005350R 

025 

T.CON  =  004000 

...GBL= 

000000 

0PTMP5 

0051 OOR 

025  ROTINC 

005070R 

025 

SYMTP 

006272R 

025 

T.DIM  =  000100 

...TPC= 

000020 

0PTMP6 

0051 02R 

025 

ROUND 

00001  OR 

025 

SYMWRN= 

000054 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

00? 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

fCNBTB 

000000 

006 

DYDBTB 

000000 

007 

COMTB 

000000 

010 

CHRTBL 

000000 

011 

A 
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VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

OH 

TRNTBL 

000000 

015 

ffJTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

002100 

020 

PATCH 

000000 

021 

SSFSR1 

000000 

022 

DEF$0 

000406 

023 

DEFSI 

000006 

024 

DEF$2 

007A00 

025 

ERRORS 

DETECTED: 

0 

VIRTUAL 

MEMORY  USED:  13336  WORDS  (  53  PAGES) 

DYNAMIC 

MEMORY: 

14478  WORDS  (  55  PAGES) 

ELAPSED  TIME:  00:03:18 
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1 

000000 

2 

000000 

3 

000115 

A 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

i 

0 

0 

•M 

EIS 
FIS 
FPP 

i 

0 
0 
0 

FPPLEN 

= 

A 

DEBUG 

^ 

0 
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.S8TTL 
. I  DENT 


FTT 


APLDEF 
\V02.03\ 


1 


nr 


APL 
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APL  MACRO 

DEFINITIONS 

2513 
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ERRORS 


PAGE  42 


TT5- 


.LIST     SEQ,SRC,LOC,BIN,BEX,MEB 


1 


mr 
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inr 


1 


4 
5 
6 
7 

8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
"•4 
5 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39  000000 


.TITLE 
.IDENT 


APRINT 
\V02.03\ 


S8TTL  APRINT 


PRINT  AN  ARRAY 


+4- 

FUNCTIONAL  DESCRIPTION: 

'APRINT'  prints  an  array  in  the  standard  APL  format- 

an  extra  blank  Line  for  each  different  dimension. 

(understand?)  All  'APRINT*  does  is  set  up  parameters 

for  the  'NPRINT'  routine.   'NPRINT'  is  a  beautiful 

little  recursive  routine  which  actually  does  the 

printing  by  calling  'FLOUT'  or  'OUTCHR^  for  each  element  in  the 

array,  and  by  inserting  blank  lines  when  necessary. 


REGISTER 

ASSIGNMENTS: 

RO 

-  Scratch 

R1 

-  Current 

R2 

-  Pointer 

R3 

-  Pointer 

R4 

-  Flag  for 

level  in  recursion  (current  dimensio  i) 
to  element  to  print  next 
to  array  dimension  list 
literal /numeric  array  printing 


CALLING  SEQUENCE: 

MOV    /)^<Array  to  be  printed>,RO 
CALL    APRINT 


INPUTS: 
RO 

OUTPUTS: 

NONE 


-  Array  to  be  printed. 


IMPLICIT  OUTPUTS: 

The  array  is  output  on  the  current  output  channel. 

ROUTINES  CALLED: 

NPRINT  -  The  recursive  print  routine 

.PSECJ     CODE 


nTT 
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ITfT 


41 

42  000000 

43  000000 

44  000004 

45  000010 

46  000012 

47  000016 

48  000020 

49  000024 
50 

51  000026 

52  000026 

53  000032 

54  000034 

55  000044 

56  000050 

57  000052 

58  000056 

59  000062 

60  000066 

61  000070 

62  000072 

63  000074 

64  000102 

65  000104 

66  000106 

67  000110 

68  000116 

69  000122 

70  000124 

71  000130 

72  000132 

73  000136 

74  000142 

75  000146 

76  000150 

77  000152 

78  000154 

79  000156 

80  000162 
SI  000170 
?2   000176 

83  000202 

84  000204 

85  000206 

86  000210 

87  000212 
^  000216 

89  000220 

90  000232 

91  000236 

92  000250 

93  000254 

94  000262 

95  000266 

96  000302 
97 


APRNT1 


022704 
001403 
022704 
001005 
012703 
000403 


005003 

005760 
001506 
010537 
116004 
042704 
001415 

060403 
016337 
006304 
006304 
062604 
016437 
012704 
010003 
062703 
011002 
116001 

122701 
103001 
104402 
060103 
060103 
010237 
052737 
012737 
105037 
005716 
001023 
005704 
001417 
020127 
003416 


005037 
042737 


OOOOOOG 
0000006 
00001 0 


1$; 


APRINT 


000004 

003274* 
000003 
1 7777\ 


000000'  003152' 


OOOOOOG  003132' 
000010 

000006 

000002 

000020 


2$: 
3$: 


4$: 


5$: 


00476?' 

000100  000000' 
000001  003226* 
003233' 


000001 


003274'        6$: 
000100  000000'  7$: 

8$: 


.ENABL  LSB 


PUSH 

CMP 

BEQ 

CMP 

BNE 

MOV 

BR 


PUSH 

CLR 

PUSH 

TST 

BEQ 

MOV 

M0V8 

BIC 

BEQ 

PUSH 

ADD 

MOV 

ASL 

ASL 

ADD 

MOV 

MOV 

MOV 

ADD 

MOV 

MOVB 

CONINC 

CMP8 

BHIS 

SYSERR 

ADD 

ADD 

MOV 

BIS 

MOV 

CLRB 

TST 

BNE 

TST 

BEQ 

CMP 

BLE 

PUSH 

CALL 

POP 

CLR 

BIC 

CALL 

POP 

RETURN 

.DSA/iL 


<R4,R3> 

4fOP.FMT,R4 

1$ 

#0P.ENC,R4 

2$ 

/jno,R3 

3$ 


;Save  a  coupLe  of  registers 

;Is  the  function  Format? 

;Yes 

;Is  the  function  Encode? 

;No 

; Setup  for  alternate  NUMOUT  entry  points 

;And  go 


<R4,R3> 

R3 

<R2, R1,ALLINT> 

A.ALEN(RO) 

8$ 

SI,ALLINT 

A.8ITS(R0),R4 

/(f*C<A.NUM>,R4 

4$ 

R4 

R4,R3 

0UTCT(R3),RESCVT 

R4 

R4 
(5P)+  p4 

M0NCT(R4),M0NCVT 

WPRT0,R4 

R0,R3 

#A.DIM1,R3 

aR0.R2 

A.DIMS(R0),R1 

R1 

/!fDIMAX,R1 

5$ 

R1,R3 

R1,R3 

R2,NPRT1 

4fSY.N0U,SYSTAT 

/!f1,NUMWID 

NUMEFL 

asp 

7$ 

R4 

6$ 

R1,#1 

7$ 

<R0,R1,R2,R3,R4> 

NPRINT 

<R4,R3,R2,R1,R0> 

ALLINT 

*SY.NOU,SYSTAT 

NPRINT 

<ALLINT,R1,R2,R3 

LSB 


Save  a  coupLe  of  registers 

Normal  NUMOUT  entry  points 

SAVE  REGISTERS,  OUTPUT  PACKING 

NULL  ARRAY? 

YES  EXIT 

FUDGE  FOR  SEMI-CLOSE  PACKING 

GET  TYPE  OF  SOURCE 

CLEAR  GARBAGE  BITS 

CHARACTER  SPECIAL  CASE 

Sav/e  the  data  type 

Normal  or  alternate  Numout  entry  point 

Output  routine 

TIMES  2 

TIMES  4 

TIMES  5 

FETCH  ROUTINE 

NO,  GET  OFFSET  FOR  LITERAL  HANDLING 

COPY  POINTER  TO  ARRAY 

POINT  TO  DIMENSION  LIST 

COPY  POINTER  AGAIN 

GET  n   OF  DIMS  (LEVEL) 

CHEAT  FOR  SCALAR 

TOO  MANY? 

NO 

TOO  MANY  DIMS! 

BYTES  NOT  WORDS?!! 

POINT  TO  END  OF  DIMENSION  LIST 

SAVE  INITIAL  POINTER 

KILL  ALL  OUTPUT 

ASSUME  SMALL  NUMBERS 

MARK  NO  EXPONENT  FOUND 

CLOSE  PACKING? 

YES,  DON'T  PRE-TREAT 

CHARACTER  MODE? 

YES,  EXPAND  IT  IF  NECESSARY 

VECTOR  OR  SCALAR  ? 

YES,  DON'T  PRE-SCAN 

SAVE  ALL  REGS 

FIGURE  OUT  NUMERIC  FIELD  WIDTH 

RESTORE  ALL  REGS 

NO,  FANCY  FORMATTING 

ALLOW  OUTPUr  AGAIN 

PRINT  ARRAY 

R4>;REST0RE  REGISTERS 

AND  EXIT 


APR  INT 
APR  I  NT 
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API 
DEI 


96 
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CUT 


AR 
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100  000304 
101 

102  000304 

103  000304 

104  000310 

105  000312 

106  000314 

107  000316 

108  00032? 

109  000324 

110  000326 

111  000332 

112  000336 

113  000342 

114  000344 

115  000350 

116  000352 

117  000356 

118  000362 

119  000364 

120  000370 

121  000372 

122  000374 

123  000400 

124  000404 

125  000410 

126  000412 

127  000414 

128  000416 

129  000422 

130  000426 

131  000432 

132  000434 
133 

134  000440 

135  000442 

136  000444 

137  000450 

138  000454 

139  000460 
140 

141  000462 

142  000464 
143 

144 

145  000466 

146  000470 

147  000474 
148 

149 

150  000476 

151  000502 

152  000506 

153  000514 

154  000516 

155  000520 

156  000524 


005701 
001110 

012700 
005704 
001411 
013700 
062700 
105737 
001402 
062700 

013700 
022660 
101437 
005760 
001434 


012703 
005737 
001013 
005704 
001413 
013703 
062703 
105737 
001404 
062703 

005704 
001406 
012700 


000001 


003226' 

000003 

003233' 

000004 

005052' 
177770 

177772 


000006 
003274 • 


003226' 

000002 

003233' 

000004 


000040 


060407 

112200 
000437 
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.PSECT  CODE 


M7 


AR 
DE 


NPRINT:; 


1$: 


2$: 
3$: 

4$: 
5$: 


CALL 

TST 

BNE 

PUSH 

MOV 

TST 

BEQ 

MOV 

ADD 

TSTB 

BEQ 

ADD 

PUSH 

MOV 

CMP 

BLOS 

TST 

BEQ 

PUSH 

CALL 

MOV 

TST 

BNE 

TST 

BEQ 

MOV 

ADD 

TSTB 

BEQ 

ADD 

TST 

BEQ 

MOV 

CALL 

SOB 

POP 

POP 
ADD 


BRKCHK 
R1 
8$ 
RO 

R4 

1$ 

NUMWID,RO 

#3,R0 

NUMEFL 

1$ 

*4,R0 

RO 

OCHAN.RO 

(SP)^, C.WIDC(RO) 

5$ 

C.WIDR(RO) 

5$ 

R3 

NEWLIN 

*6,R3 

ALLINT 

2$ 

R4 

3$ 

NUMWID,R3 

NUMEFL 

3$ 

#4,R3 

R4 

4$ 

4fCHRSPA,R0 

OUTCHR 

R3,3$ 

R3 


;  PRINT 
6$: 


LITERAL 
MOVB 
CALL 
BR 


RO 
R4,PC 

ARRAY 
(R2)+,R0 
OUTCHR 
10$ 


PRINT  NUMERIC  ARRAY 


?$: 


000002  000001 
112700  000040 


026627 
003427 


CALL  aMONCVT 

CALL  iRESCVT 

CMP  2(SP),*1 

BLE  10$ 

PUSH  RO 

MOVB  #CHRSPA,RO 

CALL  OUTCHR 


CHECK  TO  SEE  IF  HE  WANT'S  TO  STOP 

LEVEL  =0? 

NO,  KEEP  RECURSIN6 

SAVE  RO 

ASSUME  CHR  OUTPUT 

CHR  OUTPUT? 

YES 

NUMBER  WIDTH 

PLUS  SIGN,  DECIMAL  POINT,  TRAILING  SPACE 

EXPONENTS  BEING  PRINTED? 

NO 

YES,  SAVE  ROOM  FOR  THEM 

SAVE  COUNT 

POINT  TO  OUTPUT  CHANNEL 

ENOUGH  ROOM  ON  LINE? 

YES! 

Line  width  in  force? 

Nope,  ignore  it 

SAVE  R3 

No,  skip  a  line 

SPACE  IN  6 

SHORT  STUFF  ? 

YES,  SHORT... 

CHARACTER? 

YES  -  6  SPACES 

GET  NUMBER  FIELD  WIDTH 

PLUS  SPACE  AND  SIGN 

EXPONENT  BEING  PRINTED? 

NO 

YES,  SAVE  ROOM  FOR  IT 

NUMERIC? 

NO,  NO  SPACES 

PRINT  SPACES 

TO  MARK  CONTINUED 

LINE  (LONG  VECTOR) 

RESTORE  R3 


'RESTORE  RO 

; BRANCH  TO  ARRAY  TYPE  ROUTINE 


;GET  NEXT  CHAR 

.-PRINT  IT 

;AND  RETURN  FROM  THIS  LEVEL 


ELSE  GET  NEXT  ELEMENT  IN  ARRAY 

PRINT  THE  NUMBER 

LAST  IN  LINE? 

YES,  NO  SPACE 

SAVE  RO 

GET  A  SPACE 

PRINT  IT 
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AF 

AC 
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157  000530 

158  000532 
159 

160 
161 

162  00053A 

163  000536 

164  000540 

165  000542 

166  000544 

167  000546 

168  000552 

169  000554 

170  000560 

171  000562 

172  000566 

173  000570 

174  000*^72 

175  OOOiT'i 

176  000576 


000420 

000010 

010300 
160100 
160100 
011000 

020237  004762* 
001402 

005301 

005316 
003373 

005201 


PAGE  46-1 

POP 

RO 

BR 

10$ 

NPRT0:--7$-6$ 

8$: 

MOV 

R3,R0 

SUB 

R1.R0 

SUB 

Rl.RO 

MOV 

aRO.RO 

PUSH 

RO 

CMP 

R2,NPRT1 

BEQ 

9$ 

CALL 

NEWLIN 

9$: 

DEC 

R1 

CALL 

NPRINT 

DEC 

asp 

BGT 

9$ 

POP 

RO 

10$: 

INC 

R1 

Af 
Af 


RETURN 


'RESTORE  RO 

•AND  RETURN  FROM  THIS  LEVEL 

;OFFSET  FOR  PRINTING  LITERAL  ARRAYS 


GET  DIMS  POINTER 

POINT  TO  DIM  FOR  THIS  LEVEL 

COUNT  IS  IN   WORDS  NOT  BYTES! 

GET  THE  DIM  COUNT 

SAVE  COUNT  FOR  THIS  LEVEL 

INITIAL  RECURSION? 

YES,  NO  LINES   SKIPPED  THEN 

Else  skip  a  Line  for  the  new  Level 

BUMP  DOWN  ONE  LEVEL 

RECURSE  TO  PRINT  THIS  LEVEL 

COUNT  RECURSION  ON  THIS  LEVEL 

NOT  DONE,  KEEP  PRINTING 

CLEAN  UP  STACK 

INCREASE  LEVEL  COUNT  TO  RESET  COUNT 

RETURN  FROM  THIS  LEVEL 


Tv: 
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178  000000 

179 

180 

181  000000  OUTCTi 

182  000000  OOOOOOG  OOOOOOG  OOOOOOG 
000006  OOOOOOG 

183  000010  OOOOOOG  OOOOOOG  OOOOOOG 
000016  OOOOOOG 


TIT" 


Al 


,PSECT     TABLES 
,EVEN 


,WORD       SYSER,     BOLOUT,    INTOUT,   FLOUT 
,WORD       SYSER,     BOLOUT,   INT0U1 ,   FLOUl 
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M7 


A 


1 


000001 


.END 


TT7" 


APR INT 
cvMom 


MACRO 

TADI  C 
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G  U 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHREP  =  000105 

CTMAX 

00021 2R 

025  D.C0NT= 

000006 

EDICNT 

005064R 

025 

AC1   = 

X000001 

CHRERR=  104«f31 

CTRMAX 

0001 72R 

025  D.CTLM= 

000000 

EDIFL6 

005062R 

025 

AC2   = 

X000002 

CHRF1L=  000177 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

AC3   = 

X000003 

CHRFR0=  000135 

C.BLOK= 

000064 

D.DECD= 

000002 

EIS   = 

000000 

AC4   = 

X000004 

CHRLBR=  000073 

C.BLSZ= 

000140 

D.DIV  = 

000000 

l.\Ji%\l 

0051 32R 

025 

ACS   = 

X000005 

CHRLPR=  000072 

C.BUFF= 

177760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

ALLINT 

003274R 

025 

CHRMNS=  000137 

C.BUFL= 

177762 

D.DQAD= 

-[71777 

EOF   = 

104475 

APRINT 

000026RG 

020  CHRMUL=  000075 

C.CCNT= 

177766 

D.DROP= 

000002 

ERRMAX= 

000166 

APRNT1 

OOOOOORG 

020  CHRNEG=  000100 

C . CPTR= 

177764 

D.ENCD= 

000002 

ERRNUM 

004 //2R 

025 

ARYRET 

003276R 

025 

CHRPDL=  000271 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

ASCQUD=  0000A2 

CHRPLU=  000055 

C.DI6  = 

000040 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.ALEN=  000004 

CHRPgR=  000120 

C.FASW=  020000 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

A.APG  = 

000040 

CHRQST=  000121 

C.FLEN=  000010 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.AS8  = 

000200 

CHRQU0=  000113 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.BiTS= 

000003 

CHRRBR=  000047 

C.FRC  = 

000001 

D.FPUT= 

000005 

FA.APD= 

000100 

A.  CON  = 

000020 

CHRRPR=  000042 

C.IDEN=  000010 

D.GE  = 

000000 

FA.CRE= 

000010 

A.DIMS= 

000002 

CHRSEM=  000074 

C.NAME= 

000102 

D.GT  = 

000000 

FA.DLK= 

001000 

A.Dim  = 

000006 

CHRSMO=  000112 

C.N0BF= 

000400 

D.IBM  = 

000002 

FA.ENB= 

100000 

A.NUW  = 

000006 

CHRSPA=  000040 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.EXC= 

002000 

A.PTR  = 

000000 

CHRUPA=  000131 

COP  = 

000004 

D.INNR= 

000013 

FA.EXT= 

000004 

A. IMP  = 

000010 

CHR.BS=  000010 

C.OPN  = 

010000 

D.INTR= 

000006 

FA. NSP= 

000100 

BADDIR= 

104463 

CHR.CC=  000003 

C.RDLN= 

177776 

D.LE  = 

000000 

FA.NSR= 

000200 

BADERR= 

104437 

CHR.CR=  000015 

C.REW1= 

002000 

D.LOG  = 

000001 

FA.POS= 

010000 

BLZBUB 

0051 16R 

025 

CHR.CZ=  000032 

C.RND  = 

000010 

D.LT  = 

000000 

FA.RD  = 

000001 

BOLOUT= 

*♦*♦♦*  GX 

CHR.6T=  000046 

C..SBIT= 

177756 

D.MAX  = 

000000 

FA.RWD= 

004000 

BRICCHK= 

HH-klt-kit    GX 

CHR.LF=  000012 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.SEQ= 

040000 

BRSELF 

005046R 

025 

CHR.LT=  000043 

C.SP6L= 

000200 

D.MIN  = 

000000 

FA.SHR= 

000040 

CCNT 

005072R 

025 

CHR.SI=  000017 

C.SPLX= 

000001 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHANEX 

003060R 

025 

CHR.SL=  000057 

C.SPRS= 

000002 

D.NE  = 

000000 

FA.WCK= 

020000 

CHANOO 

000256R 

025 

CHR.S0=  000016 

C.SRC  = 

177774 

D.NN  = 

000000 

FA.yRT= 

000002 

CHAN01 

000330R 

025 

CHR.TB=  000011 

C.SRCP= 

000024 

D.NR  = 

000000 

FD.RIK= 

000010 

CHAN02 

00051 2R 

025 

CHR.UL=  000106 

C.TT  = 

000004 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN03 

000674R 

025 

CHR..A=  000141 

C.WIDC= 

177770 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN04 

001056R 

025 

CHR..E=  000145 

C.WIDR= 

177772 

D.PSUB=  000006 

FD.CR  = 

000002 

CHAN05 

001240R 

025 

CHR..S=  000163 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN06 

001422R 

025 

CHR..T=  000164 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.FTN=  000001 

CHAN07 

001604R 

025 

CHR..U=  000165 

DEVIL 

0051 14R 

025  D.QUAD= 

000000 

FD.F11= 

040000 

CHANOR 

001766R 

025 

CHR..Z=  000172 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.INS= 

000010 

CHANOV 

0021 50R 

025 

CHR..O=  000060 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.ISP=  002000 

CHAN10 

002332R 

025 

CHR..1=  000061 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHANI^ 

00251 4R 

025 

CH.AND=  000001 

DIMBLK 

0031 12R 

025  D.SCON= 

000006 

FD.OSP= 

004000 

CHAN12 

002676R 

025 

CMD6UF  003250R 

025  DIMPTR 

0031 14R 

025  U.SDIF= 

000006 

FD.PLC= 

000004 

CHAN13 

000022R 

023  CMD«AX=  000010 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN=  000004 

CHANU 

000204R 

023  CNTSIZ  005130R 

025  DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHNOPN= 

104471 

COMBIN  005076R 

025  D0MERR= 

104417 

D.TAKE= 

000002 

FD.RAH=  000001 

CHRAND= 

000051 

COMCNT  0051 26R 

025  DPTERR= 

104416 

D.TRAN=  000004 

FD.RAN=  000002 

CHRBbL= 

000007 

C0MERR=  104425 

DYDCNT 

003224R 

025  D.UNON=  000006 

FD.REC= 

000001 

CHHBKR= 

000133 

COMPTR  0051 22R 

025  D.AND  = 

000000 

D.$MAX= 

000000 

FD.RVW=  000001 

CHR8a= 

000200 

COMRTN  0031 56R 

025  D.BXCT= 

000007 

D.$MIN=  000000 

FD.SDI= 

000020 

CHRBOX= 

000114 

COMSKP  0051 24R 

025  D.BXIO=  000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRC«A= 

000054 

CORPTR  0051 20R 

025  D.8XNL= 

000007 

D.$PLU=  000000 

FD.TTY= 

000004 

CHRCaL= 

000076 

CS.ASS=  000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHRDEL= 

000107 

CS.800=  000010 

D.8XPW=  000007 

D.$SUB=  000000 

FF.CHR= 

000005 

CHRDIV= 

000053 

CS.FL0=  000020 

D.BXRL= 

000007 

D.1C0M=  000001 

FF.NV  = 

000003 

CHRDLR= 

000176 

CS. IDN=  000040 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.P0E= 

000002 

CHRDLT= 

000110 

CS.0NE=  000100 

D.C0MB=  000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHRDOT= 

000056 

CTEPS   0001 52R 

025  D.C0MP= 

000001 

EDICHR 

005063R 

025  FF.RWF= 

000006 

in7 
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FF.SPC=  000004 

F.FACC=  000043 

HASHC 

0051 36R 

025  L.SUBS=  000002 

M.QUAD=  000000 

F HE ADR  00501 2R 

025 

F.FFBY=  000014 

HASHTB 

005140R 

025  MACHIN=  000106 

M.RAND=  000012 

FHRET   0050A0R 

025 

F.FLAG=  000002 

HSHMSK= 

177601 

MAXCHN=  000014 

M.RAVL=  000000 

F1LNTF=  104467 

F.FLB  =  000100 

HSHSIZ= 

000200 

MOf^BLK  0031 20R 

025  M.RCIP=  000000 

FIS   =  000000 

F.FNAM=  000110 

KHAN 

005050R 

025  MONCT  =  ******  6X 

M.RDCT=  000011 

FISCON=  046000 

^.fNB  =   000102 

ILFNAM= 

104464 

MONCVT  0031 32R 

025  M.REVS=  000003 

FIXPTR  003074R 

025 

F.FNDF=  000010 

ILLCHN= 

104540 

MONLEN  0031 30R 

025  M.R0LL=  000000 

FLAGS   004764R 

025 

F.FTYP=  000116 

ILLSW  = 

104565 

MDNPTR  0031 22R 

025  M.SATA=  000001 

FLCBUF  003250R 

025 

F.FUN  =  000010 

INDERR= 

104410 

MONSFT  0031 26R 

025  M.SCAN=  000011 

FLINE   005014R 

025 

F.F VER=  000120 

INNTMP 

003250R 

025  MONTYP  0031 24R 

025  M.SHAP=  000000 

FLOEXP  003270R 

025 

F.HEAD=  000006 

INNTM2 

00501 6R 

025  MONVAL  0031 34R 

025  M.SIGN=  000000 

FLO^G  003272R 

025 

F.HIBK=  000004 

INPTR 

000064R 

025  M.ABS  =  000000 

M.SI.BR=  000001 

FLOUT  =  ♦♦*♦**  GX 

F.LBL  =  000020 

INSNAM= 

104462 

M.BOL  =  000200 

M.SYM  =  000203 

FL0U1  =  ♦♦*♦♦♦  GX 

F.LINE=  000012 

INTOUT= 

******  GX 

M.BXAV=  000007 

M.SYN  =  000201 

FLSWTB  000222R 

025 

F.LOC  =  000004 

INT0U1= 

******  GX 

M.8XCR=  000007 

M.TRAN=  000012 

FLTLEN=  000010 

F.LSTC=  000004 

lOERR  = 

104477 

M.BXCT=  000007 

M.$ABS=  000000 

FNINSI  005044R 

025 

F.LUN  =  000042 

I.CNT  = 

177776 

M.BXEX=  000007 

M.$CEI=  000000 

FORIGN  000032R 

025 

F.MBCT=  000054 

l.DIM  = 

177772 

M.BXFX=  000007 

M.$FLR=  000000 

FO.APO=  000106 

F.MBC1=  000055 

I.LEN  = 

000012 

M.BXIO=  000007 

M.$IDN=  000000 

F0.MFY=  000002 

F.MBFG=  000056 

I.OERR= 

000062 

M.BXLC=  000003 

M.$NEG=  000000 

FO.RD  =  000001 

F.MON  =  000002 

I. OLD  = 

177770 

M.8XNC=  000007 

M.$SIG=  000000 

FO.UPO=  000006 

F.NIL  =  000001 

I.PTR  = 

177774 

M.BXNL=  000007 

M.1RDT=  000011 

FQ.URT=  000016 

F.NRBD=  000024 

I.STR  = 

177766 

M.8XPP=  000007 

M.1REV=  000003 

FPMHDE  000042R 

025 

F.NREC=  000030 

LABERR= 

104406 

M.BXPW=  000007 

M.1SCN=  000011 

^PP      =  000000 

F.OPN  =  000010 

LABLPT 

005042R 

025  M.BXRL=  000007 

NAMBUF  003240R 

025 

FPPLFN=  000004 

F.OVBS=  000030 

LARGBL 

0031 62R 

025  M.BXTS=  000007 

NB.DEV=  000200 

FREBLK  007400R 

025 

F.PREV=  000000 

LARGCV 

0031 76R 

025  M.BXWA=  000007 

NB.DIR=  000100 

FUZZ    0001 42R 

025 

F.PRNT=  100000 

LAR6FL 

0031 60R 

025  M.CEI  =  ^77777 

NB.NAM=  000004 

FXPTR1  003076R 

025 

F.PR0T=  010000 

LARGLE 

0031 74R 

025  M.CHR  =  000202 

NB.SD1=  000400 

F$EVAL=  000100 

r.RACC=  000016 

LARGLN 

0031 66R 

025  M.CMT  =  000206 

NB.SD2=  001000 

F$EVI  =  000200 

F.RATT=  000001 

m^GPT 

0031 64R 

025  M.D0UT=  000006 

NB.SNM=  000040 

F$EXEC=  000400 

F.RCNM=  000034 

LARGSF 

0031 72R 

025  M.DQAD=  000006 

NB.STP=  000020 

F$FUNC=  001000 

F.RCTL=  000017 

LARGTY 

0031 70R 

025  M.ENCD=  000004 

NB.SVR=  000010 

F.ACTL=  000076 

F.READ=  004000 

LARGVA 

003200R 

025  M.EXE  =  000000 

NB.TYP=  000002 

F.ALOC=  000040 

F.REDf=   000040 

I.RINC 

0051 OOR 

025  M.EXP  =  000001 

NB.VER=  000001 

F.RBFS=  000062 

F.RES  =  000040 

LBUFF 

00331 6R 

025  M.FACT=  000001 

ND.DEV=  000200 

F.BOB  =  000070 

F.RET  =  ^77772 

LBUFLN=  000621 

M.FIL  =  000177 

ND.EXT=  000002 

F.BGBC=  000057 

f.RSlZ=   000002 

LCOUNT 

0051 06R 

025  M.FLR  =  1//777 

ND.NAM=  000004 

F.BITS=  177//4 

F.RTYP=  000000 

LENERR= 

104412 

M.FMT  =  000004 

ND. PPN=  000100 

F.BICDN=  000026 

F.R2  =  000014 

LENTAB 

000054R 

025  M.6DUP=  000003 

ND.$EX=  000000 

F.BKDS=  000020 

F.R3  =  000016 

LEXPTR 

0031  OOR 

025  M.GDUN=  000003 

ND.$E$=  000020 

F.BKEF=  000050 

F.R4  =  000020 

LFTOP 

005066R 

025  M.GETI=  000006 

ND.$NM=  000000 

F.BICP1=  000051 

F.SEQN=  000100 

LINC 

0051 02R 

025  M.IBM  =  000003 

ND.$NS=  000040 

F.BICST=  000024 

F.SPDV=  000072 

LINE 

00501 6R 

025  M.IDN  =  000000 

ND.$PN=  001400 

F.BKVB==  000064 

F.SPUN=  000074 

IINIHC 

005026R 

025  f^.lNSP^   000006 

NEGSGN  005063R 

025 

F.BR  =  000020 

F.STBK=  000036 

LISIZE= 

000020 

M.IOTA=  000000 

NEWLIN=  ******  GX 

F.CHR  =  000075 

F.STK  =  000022 

LI  TOP 

005072R 

025  M.LIT  =  000205 

NINPT1  003302R 

025 

F.CNTG=  000034 

f.SJOP=  000004 

LNLNG  = 

104541 

M.LN  =  000001 

NINPT2  003300R 

025 

F.CODE=  000010 

F.STP  =  000001 

LOCLCT 

005036R 

025  M.MMD  =  000010 

NINSTK  003304R 

025 

F.DF^B=  000046 

f.SUSP=   000002 

LOUCOR 

000002R 

025  M.NEG  =  000000 

NINTWP  00331 OR 

025 

F.DSPT=  000044 

F.TRC  =  000002 

LSTERP 

004766R 

025  M.NOT  =  000000 

NINTYP  003306R 

025 

F.DV»#1=  000134 

F.UNIT=  000136 

LWIDTH 

000070R 

025  M.NUB  =  000006 

N0TAVL=  104472 

f.EfBK=   000010 

F.URRf)=  000020 

L.BITS= 

000003 

M.NUM  =  000204 

N0T0PN=  1044/3 

f.EfH=   000050 

F.VAL  =  177776 

L.CNT  = 

000002 

M.0UTR=  000012 

NPRINT  000304RG 

020 

F.END  =  002000 

F.V8N  =  000064 

L.PRNT= 

000001 

M. PI TM=  000000 

NPRTO  =  000010 

F.EnRR=  000032 

F.VBSZ=  000060 

L.PTR  = 

000000 

M.PRDS=  000006 

NPRT1   004762R 

025 

F.ERR  =  000052 

GNOME   0031 02R 

025  L.PTR1= 

000004 

M.QQAD=  000000 

NULL    007364R 

025 
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NUMCHN=  000020 

0P.FMT= 

•**«**  GX 

RT11  = 

000000 

SYSER  =  ******  GX 

T.DIM  = 

000100 

NUMDPL 

003230R 

025  ORIGIN 

000030R 

025  R.BITS= 

000003 

SYSERR=  104402 

T.FUN  = 

010000 

NUMEFL 

003233R 

025  0UTCHR= 

*i^*i^««  GX 

R.FIX  = 

000001 

SYSTAT  OOOOOOR 

024  T.LIST= 

000400 

NUMESN 

003236R 

025  OUTCT 

OOOOOORG 

002  R.LCT  = 

000002 

SY.8AD=  000001 

T.LIT  = 

000020 

NUMFLG 

003230R 

025  OUTPTR 

000066R 

025  R.LN  = 

000002 

SY.BRK=  100000 

T.MON  = 

000010 

NUMLEN 

000062R 

025  0VR0PR= 

000000 

R.LNUM=  000010 

SY.BS  =  000010 

T.NIL  = 

000004 

NUMNEG 

003232R 

025  PATCH 

007344R 

025  R.NEXT= 

000006 

SY.CLR=  000040 

T.NUM  = 

002000 

NUMQFL 

00323AR 

025  PRECSN 

000052R 

025  R.OFF  = 

000000 

SY.ERP=  000020 

T.0PFN= 

000001 

NIM^IG 

003231 R 

025  RANDAC 

003064R 

025  R.PREV= 

000004 

SY.NOU=  000100 

T.0THR= 

040000 

NLMJID 

003226R 

025  RANDY 

003062R 

025  R.PTR  = 

000000 

SY.OPN=  000002 

T.SOP  = 

000002 

NUMZFL 

003235R 

025  RANERR= 

104411 

R.SEQ  = 

000003 

SY.PMT=  001000 

T.SP0P= 

000040 

NYIERR= 

104A32 

RARGBL 

003204R 

025  R.VAR  = 

000002 

SY.SRT=  000400 

T.TMP  = 

000200 

N.BLSZ= 

000036 

RARGCV 

003220R 

025  R6 

X000006 

SY.SVC=  000004 

T.VAL  = 

100000 

N.DESC= 

000020 

RARGFL 

003202R 

025  R7 

X000007 

SY.SVL=  000200 

T.VAR  = 

001000 

N.DEV  = 

000032 

RARGLE 

00321 6R 

025  SI 

X000005 

S.AB  =  177776 

UPPER  = 

177400 

N.DEVN=  00003A 

RARGLN 

00321 OR 

025  SIDAMN= 

104433 

S.ASR  =  100000 

UTNAME 

000344R 

023 

N.DID  = 

000024 

RARGPT 

003206R 

025  SIFRAM 

00331 4R 

025 

S.BFHD=  000020 

VALERR= 

104413 

N.DVhf1=  000032 

RARGSF 

00321 4R 

025  SISTAK 

006350R 

025 

S.BITS=  000002 

VARBLE 

007400R 

025 

N.EXT  = 

OOOOH 

RARGTY 

00321 2R 

025  SI TOP 

006346R 

025 

S.CHR1=  000003 

VARBLS 

OOOOOOR 

025 

N.FID  = 

000000 

RARGVA 

003222R 

025  SITP 

0071 44R 

025 

S.FATT=  000016 

VERNUW 

OOOOOOR 

025 

N.FNAW=  000006 

RBASE 

005074R 

025  SIUARN=  000200 

S.FDB  =  000140 

VRSI0N=  000002 

N.FTYP=  OOOOH 

RCOUNR 

0051 12R 

025  SI ZTAB 

000044R 

025 

S.FLB  =  040000 

WIDTH 

v)00072R 

025 

N.FVER= 

000016 

RCOUNT 

00511  OR 

025  SI.BIT= 

177774 

S.FNA«=  000006 

UROUND 

000020R 

025 

N.NAME= 

000006 

REDCNT 

005070R 

025  SI.LEN= 

177772 

S.FNB  =  000036 

WSDATE 

0001 36R 

025 

N.NEXT= 

000022 

REDIGN 

005066R 

025  SI.RET= 

177772 

S.FNBW=  000017 

WSFULL= 

104403 

N.PPN  = 

000024 

REDOFF 

005072R 

025  SI. VAL= 

177776 

S.FNTY=  000004 

WSNAME 

000074R 

025 

N.STAT= 

000020 

REENTR 

003060R 

025  SICPSIZ 

0051 34R 

025 

S.FTYP=  000002 

WSTIME 

0001 32R 

025 

N.UNIT= 

000034 

RESBIT 

0031 42R 

025  SPHOLD 

000004R 

024 

S.LEN  =  000002 

%flS     = 

******  G 

CBUFLN=  001000 

RESCVT 

0031 52R 

025  SPINIT 

000002R 

024 

S.LINK=  177774 

%fPP     = 

******  G 

OCHAN 

005052R 

025  RESERR= 

104440 

STKINC= 

000774 

S.NFEN=  000020 

$FPPLN= 

******  G 

nMDDE 

000402R 

023  RESLEN 

0031 50R 

025  STOP  = 

104420 

S.TYPE=  140000 

$MACHN= 

******  G 

oprwpo 

005066R 

025  RESPTR 

0031 40R 

025  SUBCNT 

0031 04R 

025  S.VAL  =  000000 

$RSTS  = 

******  G 

0PTMP1 

005070R 

025  RESSFT 

0031 46R 

025  SIBDCT 

0031 06R 

025 

TKDIMS  005072R 

025  $RSX  = 

******  G 

0PT«P2 

005072R 

025  RESTYP 

0031 44R 

025  SUBPTR 

00311 OR 

025 

TKFRAM  005066R 

025  $RT11  = 

******  G 

0PTMP3 

005074R 

025  RESULT 

0031 36R 

025  SYMB1 

005344R 

025 

TKLEFT  005070R 

025  .B00LE= 

000002 

0PTMP4 

005076R 

025  RESVAL 

0031 54R 

025  SYMF 

005340R 

025 

TMODE   000403R 

023  .CHARA= 

000000 

0PTMP5 

0051 OOR 

025  RINC 

0051 04R 

025  SYMPT1 

005346R 

025 

TMPTAG=  000166 

.DEF.  = 

000002 

0PTMP6 

0051 02R 

025  RLTBAS 

005066R 

025  SYMTAB 

005352R 

025 

TTYBUF  0041 40R 

025  .FLaAT= 

000006 

0PTMP7 

0051 04R 

025  ROTINC 

005070R 

025  SYMTBF= 

104404 

TTYLEN=  000622 

.FSRCB= 

******  G 

0PTMP8 

0051 06R 

025  ROUND 

00001 OR 

025  SYMTOP 

005350R 

025 

TURKEY=  104436 

.INTEG= 

000004 

0PTMP9 

00511 OR 

025  ROVER 

00331 2R 

025  SYMTP 

006272R 

0?5 

TYPE  =  000166 

.MOLUN 

000404R 

023 

OPTMIO 

0051 12R 

025  RSTS  = 

000000 

SYMyRN=  000054 

T.BOL  =  020000 

...GBL= 

000000 

OPTWIA 

005026R 

025  RSX   = 

000115 

SYNERR= 

104407 

T.CON  =  004000 

...TPC= 

000020 

OP.ENC= 

♦*♦♦**  GX 

RTOP 

005070R 

025 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000020 

002 

MONTB 

000000 

003 

OYDTB 

000000 

004 

BOPTB 

000000 

005 

^10^6T6 

000000 

006 

OYDBTB 

000000 

007 

COMTB 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 
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OVRTBL 

000000 

014 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

000600 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEF$0 

000406 

023 

DEF$1 

000006 

024 

DEF$2 

007400 

025 

ERRORS  DETECTED:  0 

VIRTUAL  MEMORY  USED:  13064  WORDS  (  52  PAGES) 

DYNAMIC  MEMORY:  14478  WORDS  (  55  PAGES) 

ELAPSED  TIME:  00:01:57 

APRINT,DM1 :C305,3013APRINT/-SP=APLRX1 ,APLDEF,APRINT,END 
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000000 
000000 
000115 

000000 
000000 
000000 

000004 

000000 


RT11 
RSTS 
RSX 

• 

0 

0 

'M 

EIS 
FIS 
FPP 

r 

0 
0 
0 

FPPLEN 

= 

4 

DEBUG 

* 

0 

Ml? 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

.•SINGLE  PRECISION 

; DON'T  DISPLAY  REGISTERS  ON  ERRORS 


1 
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APLDEF 

1  .S8TTL  APLDEF 

2  .IDENT  \V02.03\ 
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DEFINITIONS  ERRORS 


TIT 


AP 
DEI 


t5M 


.LIST     SEQ,SRC,LOC,BIN,BEX,MEB 
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TIT 


Ai 
DE 


1 
2 
3 

A 
5 
6 
7 
8 
9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 


TITLE  ARYStT 
I DENT  \V02.03\ 

S8TTL  ARYSET 


SET  UP  ARRAY  SUBSCRIPT  POINTERS 


FUNCTIONAL  DESCRIPTION: 

This  routine  sets  up  a  list  of  index  frames 
on  the  sp  stack  and  initializes  the  pointers  for 
the  'NXTIND'  routine.  These  index  frames  are  used 
for  subscripting  arrays  by  the  'VAL*  and  'ASSIGN'  routines, 

CALLING  SEQUENCE: 

CALL    ARYSET 


INPUTS: 
RO 


-  Points  into  SI  stack  at  frame  containg  the 
array  to  be  subscripted.  This  frame  must 
follow  a  list  frame  containing  the  subscript 
list 


IMPLICIT  INPUTS: 
NONE 


OUTPUTS : 
R2 
R3 
RA 


-  Points  to  1st  element  in  array  to  subscript 

-  Contains  level  count  (^  of  dimensions  in  array) 

-  Points  to  top  of  index  frame  list 


000000 


IMPLICIT  OUTPUTS: 

All  index  frames  are  initialize  for  the  'NXTIND*  routine. 

ROUTINES  CALLED: 
NONE 

SIDE  EFFECTS: 
NONE 


PSECT     CODE 


yiT 
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4 

ARYSET 

SET  UP  ARRAY  SLFISCRIPT 

POINTERS 

42  000000 

ARYSET; 

• 

43  000000 

012637 

003276* 

*MOV 

(SP) +.ARYRET 
<R2,R3,R4> 

;SAVE  RETURN 

44  000004 

PUSH 

;SAVE  REGISTERS 

45  000012 

010004 

MOV 

R0,R4 

;SAVE  ARRAY  POINTER 

46  000014 

014000 

MOV 

-(RO),RO 

; POINT  TO  ARG 

47  000016 

011001 

MOV 

aRO.RI 

:POINT  TO  FIRST  ELEMENT 

48  000020 

116037 

000003 

003306' 

MOVB 

A.BITS(RO),NINTYP;GET  BITS 

49  000026 

042737 

177771 

003306' 

BIC 

**C<A.NU«>,NINTYP;CLEAR  GARBAGE 

50  000034 

010137 

003310' 

MOV 

R1 ,NINTMP 

;SAVE  ARRAY  VALUE  PTR 

51  000040 

116003 

000002 

MOVB 

A.DIMS(R0),R3 

;GET  DIM  COUNT 

52  000044 

001403 

BEQ 

1S 

; CAN'T  SUBSCRIPT  SCALARS 

53  000046 

022703 

000020 

CMP 

/lfDIMAX,R3 

;T00  MANY  DIMS? 

54  000052 

003001 

BGT 

2$ 

;N0,  GOOD 

55  000054 

104410 

1$: 

INDERR 

;YES,  INDEX  ERROR 

56  000056 

062700 

000006 

2$: 

ADD 

#A.DIM1,R0     ; 

;POINT  TO  FIRST  DIM 

57  000062 

010037 

003300' 

MOV 

R0,NINPT2 

;SAVE  DIM  LIST  POINTER 

58  000066 

062704 

M7772 

ADD 

#SI.LEN,R4 

;POINT  TO  SUBSCRIPT  LIST 

59  000072 

014401 

MOV 

-(R4),R1 

;POINT  TO  LIST  BLOCK 

60  000074 

126103 

000002 

CMP8 

L.CNT(R1),R3 

;CORRECT  NUMBER  OF  INDICES?? 

61  000100 

001365 

BNE 

1$ 

;NOPE,  INDEX  ERROR 

62  000102 

011100 

MOV 

aR1  ,R0 

;POINT  TO  LIST  POINTER  LIST 

63  000104 

060300 

ADD 

R3,R0 

;ADD  ^  OF  PTRS 

64  000106 

060300 

ADD 

R3,R0 

;WORDS  NOT  BYTES 

65  000110 

010037 

003302 • 

MOV 

RO.NINPTI 

;AND  SAVE  PTR  TO  CALCULATE  POINERS 

66  000114 

010300 

MOV 

fi3,R0 

;COPY  DIM  COUNT 

67  000116 

001756 

BEQ 

1$ 

:NEVER  HAPPENS? 

68  000120 

013701 

003300* 

MOV 

NINPT2,R1 

;POINT  TO  FIRST  DIM 

69  000124 

006300 

ASL 

RO 

[MULTIPLY  »   OF  DIMS  BY  2 

70  000126 

060037 

003300' 

ADD 

R0,NINPT2 

;POINT  PAST  END  OF  DIM  LIST 

71  000132 

010300 

MOV 

R3,R0 

;GET  BACK  »   OF  DIMS 

72  000134 

010637 

003304 ' 

MOV 

SP^NINSTK 

;SAVE  POINTER  TO  KILL  INDEX  FRAMES 

73  000140 

013704 

003302' 

MOV 

NINPT1,R4 

;POINT  TO  LIST  OF  POINTERS 

a: 
C( 


TIT 


ARYSET     MACRO  M1113     08-FEB-80  10:44     PAGE  46 
adv<:pt  <;pt  iipappay  <;iR«:r.PTPT  PniNTFR?; 


A 
S 


ARYSET  MACRO  Ml 113  08-FEB-80  10:4A  PAGE  A6 
ARYSET         SET  UP  ARRAY  SUBSCRIPT  POINTERS 


TIT 


75 
76 
71  0001 AA 

78  0001 A6 

79  000150 

80  000152 

81  0001 5A 

82  000156 

83  000160 
8A  000162 

85  000170 

86  000172 

87  0001 7A 
88 

89  000200 

90  000202 

91  000206 

92  000212 

93  000220 
9A  00022A 
95 

96 
97 

98  000226 

99  000232 

100  00023A 

101  000236 

102  000252 

103  00025A 
10A  000260 
105 

106  000262 

107 

108 

109 

110 

111 

112  00026A 

113  000270 
11A  00027A 

115  000276 

116  000300 

117  000306 

118  000312 


;SET  UP  INDEX  FRAMES  ON  STACK 


0050A6 
0050A6 

0050A6 

0050A6 

01AA02 

001 A05 

132762  000006  000003 

001001 

10AA17 


01060A 

06270A  00001 2 

013702  003310' 

012701  000001 
010300 


01016A  177766 

005300 

001 A1 2 

103700 

06270A  00001 2 

000762 

01160A 


3$; 


7$; 


CLR 

CLR 

PUSH 

CLR 

CLR 

MOV 

BEQ 

BITS 

BNE 

DOMERR 

SOB 

MOV 

ADD 

MOV 

PUSH 

MOV 

MOV 


-(SP) 

-{%?) 

(RD* 

-(SP) 

-(SP) 

-(RA),R2 

7$ 


CLEAR  COUNT 

CLEAR  ARRAY  POINTER 

SET  MAX  DIM 

CLEAR  OLD  VALUE 

CLEAR  STRIDE 

POINT  TO  NEXT  SUBSC  ARG 

SKIP  IF  INDEX  OMITTED 


#A.NUM,A.BITS(R25;INDEX  NUMERIC?? 
7$ 

R0,3$ 

SP.RA 

4fI.LEN,RA 

NINTMP,R2 

<R2,R3,RA> 

#1,R1 

R3,R0 


YES,  IT  MUST  BE 

LITERAL  INDEX  ARG  ILLEGAL 

AND  SET  FRAME  FOR  EACH  DIM 

COPY  POINTER  PAST  TOP  FRAME 
POINT  TO  REF  PT  OF  TOP  FRAME 
GET  BACK  PTR  TO  ARRAY  VALUES 
SAVE  INITIALIZATION  REGISTERS 
GET  INITIAL  STRIDE 
GET  DIM  COUNT 


CALCULATE  STRIDE  VECTOR  AND  PLACE  IN  INDEX  FRAMES 


A$:     MOV  RIJ.STR(RA) 

DEC  RO 

BEQ  5$ 

MUL  I.DIM(RA),R1 

BCS  1$ 

ADD  />I.LEN,RA 

BR  A$ 

5$:     MOV  aSP,RA 


FILL  IN  STRIDE 

DONE? 

YES 

NO,  MULTIPLY  STRIDE  BY  MAX  DIM 

CHECK  FOR  DIM  TOO  BIG 

BACK  UP  ONE  FRAME 

AND  PROCESS  NEXT  FRAME 


;GET  BACK  INITIAL  STACK  POINTER 


012703  000001 

102A01 
10AA02 

01370A  00330A' 
000177  003276' 


INITIALIZE  VALUES  IN  INDEX  FRAMES  BY  CALLING 
•NXTIND'  ROUTINE  WHICH  EXITS  IMMEDIATELY  AFTER 
INITIALIZING  VALUES 


6$: 


MOV 

#1,R3 

CALL 

NXTIND 

BVS 

6$ 

SYSERR 

POP 

<RA,R3,R2> 

MOV 

NINSTK,RA 

JMP 

aARYRET 

FAKE  COUNT  TO  INITIALIZE  FRAMES 

SET  UP  POINTER 

DONE  (WE  HAD  BETTER  BE!) 

NO,  INCORRECT  INITIALIZATION 

GET  BACK  INITIALIZATION  REGS 

START  ON  INNERMOST  INDEX  FRAME 

AND  RETURN 
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1 


000001 


.END 


TJT 
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SYMBa 

TABLE 

ACO   = 

XOOOOOO 

CHRFR0=  000135 

C.BL0K= 

000064 

D.DECD= 

000002 

EIS      = 

000000 

AC1   = 

X000001 

CHRI  RR=  000073 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

AC2   = 

X000002 

CHRLPR=  000072 

C.BUFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

AC3   = 

X000003 

CHRMNS=  000137 

C.BUFL= 

177762 

D.DQAD= 

1 77777 

EOF   = 

104475 

AC4   = 

X000004 

CHRMUL=  000075 

C.CCNT= 

177766 

D.DR0P= 

000002 

ERRMAX= 

000166 

ACS   = 

X000005 

CHRf€6=  000100 

C . CPTR= 

177764 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

ALLINT 

003274R 

025 

CHRPOL=  000271 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

ARYRET 

003276R 

025 

CHRPLU=  000055 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRO 

004774R 

025 

ARYSET 

OOOOOORG 

020 

CHRPWR=  000120 

C.FASW=  020000 

D.FGET= 

000005 

EXEBUF 

C05054R 

025 

ASCQUO  000042 

CHRQST=  000121 

C.FLEN=  000010 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.ALEN=  000004 

CHRQUO=  000113 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.ARG  = 

000040 

CHRR8R=  000047 

C.FRC  = 

000001 

D.FPUT= 

000005 

FA.APD= 

000100 

A.ASB  = 

000200 

CHRRPR=  000042 

t.IDEN= 

000010 

D.GE  = 

000000 

FA.CRE= 

000010 

A.BITS= 

000003 

CHRSEM=  000074 

C.NAME= 

000102 

D.GT  = 

000000 

FA.DLK= 

001000 

A.CON  = 

000020 

CHRSMO=  000112 

C.N0BF= 

000400 

D.IBM  = 

000002 

FA.E)«= 

100000 

A.DIMS= 

000002 

CHRSPA=  000040 

C.NUW  = 

000020 

D.IND  = 

000002 

FA.EXC= 

002000 

A.DIM1  = 

000006 

CHRUPA=  000131 

COP  = 

000004 

D.INNR= 

000013 

FA.EXT= 

000004 

A.NUW  = 

000006 

CHR.BS=  000010 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.NSP= 

000100 

A.PTR  = 

000000 

CHR.CC=  000003 

C.RDLN= 

177776 

D.LE  = 

000000 

FA.NSR= 

000200 

A.TMP  = 

000010 

CHR.CR=  000015 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.POS= 

010000 

BADDIR= 

104463 

CHR.CZ=  000032 

C.RND  = 

000010 

D.LT  = 

000000 

FA.RD  = 

000001 

BAOERR= 

104437 

CHR.GT=  000046 

C.S8IT= 

177756 

D.MAX  = 

000000 

FA.RWD= 

004000 

BLZBUB 

0051 16R 

025 

CHR.LF=  000012 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.SEQ= 

040000 

BRSELF 

005046R 

025 

CHR.LT=  000043 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.SHR= 

000040 

CCNT 

005072R 

025 

CHR.SI=  000017 

C.SPLX= 

000001 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHAr€X 

003060R 

025 

CHR.SL=  000057 

C.SPRS= 

000002 

D.NE  = 

000000 

FA.WCK= 

020000 

CHANOO 

000256R 

025 

CHR.S0=  000016 

C.SRC  = 

177774 

D.NN  = 

000000 

FA.WRT= 

000002 

CHAN01 

000330R 

025 

CHR.TB=  000011 

C.SRCP= 

000024 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN02 

00051 2R 

025 

CHR.UL=  000106 

C.TT  = 

000004 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN03 

000674R 

025 

CHR..A=  000141 

C.WIDC= 

177770 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN04 

001056R 

025 

CHR..E=  000145 

C.WIDR= 

1 77772 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHANOS 

001240R 

025 

CHR..S=  000163 

DEBUG  = 

000000 

D.PUR  = 

000001 

FD.DIR= 

000010 

CHAN06 

001422R 

025 

CHR..T=  000164 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.FTN=  000001 

CHAN07 

001604R 

025 

CHR..U=  000165 

DEVIL 

0051 14R 

025  D.QUAD= 

000000 

FD.F11= 

040000 

CHANOS 

001766R 

025 

CHR..Z=  000172 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN09 

0021 50R 

025 

CHR..O=  000060 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN10 

002332R 

025 

CHR..1=  000061 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN11 

00251 4R 

025 

CH.A^M>=  000001 

DIMBLK 

0031 12R 

025  D.SCON=  000006 

FD.OSP= 

004000 

CHAN12 

002676R 

025 

CMDBUF  003250R 

025 

DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.PLC= 

000004 

CHAN13 

000022R 

023  CMW1AX=  000010 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN=  000004 

CHAN14 

000204R 

023 

CNTSIZ  005130R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHNUPN= 

104471 

COMBIN  005076R 

025 

DOMERR= 

104417 

D.TAKE= 

000002 

FD.RAH=  000001 

CHRAM>=  000051 

COMCNT  0051 26R 

025  DPTERR= 

104416 

D.TRAN=  000004 

FD.RAN=  000002 

CHHBtL= 

000007 

C0MERR=  104425 

DYDCNT 

003224R 

025  D.UN0N=  000006 

FD.REC= 

000001 

CHRBKR= 

000133 

COMPTR  0051 22R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RVJM=  000001 

CHRBOL= 

000200 

COMRTN  0031 56R 

025  D.8XCT= 

000007 

D.$MIN=  000000 

FD.SDI= 

000020 

CHRBOX= 

000114 

COMSKP  0051 24R 

025 

D.BXIO=  000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRC«A= 

000054 

CDRPTR  0051 20R 

025 

D.BXNL= 

000007 

D.$PLU=  000000 

FD.TTY= 

000004 

CHRCa= 

000076 

CS.ASS=  000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHRDEL= 

000107 

CS.BOO=  000010 

D.BXPW= 

000007 

D.$SUB=  000000 

FF.CHR= 

000005 

CHROIV= 

000053 

CS.FLO=  000020 

0.8XRL= 

000007 

D.1C0M=  000001 

?fM   = 

000003 

CHRDLR= 

000176 

CS.IDN=  000040 

U.CIRC= 

000001 

D.1EXP= 

000002 

FF.P0E= 

000002 

CHRDLT= 

000110 

CS.0NE=  000100 

D.C0MB=  000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHRDOT= 

000056 

CTEPS   0001 52R 

025  D.C0MP= 

000001 

EDICHR 

005063R 

025  FF.RWF= 

000006 

CHREP  = 

000105 

CTMAX   00021 2R 

025 

D.C0NT= 

000006 

EDICNT 

005064R 

025  FF.SPC= 

000004 

CHRERR= 

104431 

CTRMAX  0001 72R 

025 

D.CTLM=  000000 

EDIFL6 

005062R 

025  F HE ADR 

00501 2R 

025 

CHRFIL= 

0001// 

C.ALOC=  000162 

D.DEAL= 

000003 

EDIT  = 

000003 

FHRET 

005040R 

025 

Tmr 
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symbCk.  table 

FILNTF=  104A67 

F.FNB  = 

000102 

ILFNAM= 

104464 

MONPTR  0031 22R 

025  M.SATA=  000001 

FIS   =  000000 

F.FNDF= 

000010 

ILLCHN= 

104540 

MONSFT  0031 26R 

025  M.SCAN=  000011 

FISCON=  046000 

F.FTYP= 

000116 

ILLSW  = 

104565 

MONTYP  0031 24R 

025  M.SHAP=  000000 

FIXPTR  003074R 

025 

F.FUN  = 

000010 

IMUL  = 

***i^**  QX 

MONVAL  0031 34R 

025  n,%\Qi^   000000 

FLAGS   00476AR 

025 

F.FVER= 

000120 

INDERR= 

104410 

M.ABS  =  000000 

M.SUBR=  000001 

FLCBUF  003250R 

025 

F.HEAD= 

000006 

INNTMP 

003250R 

025  M.BOL  =  000200 

M.SYM  =  000203 

FLINE   0050HR 

025 

F.HIBK= 

000004 

II^TM2 

00501 6R 

025  M.BXAV=  000007 

M.SYN  =  000201 

FLOEXP  003270R 

025 

F.LBL  = 

000020 

INPTR 

000064R 

025  M.8XCR=  000007 

M.TRAN=  000012 

FLONEG  003272R 

025 

F.LINE= 

000012 

INSNAM= 

104462 

M.BXCT=  000007 

M.$ABS=  000000 

FLSWTB  000222R 

025 

F.LOC  = 

000004 

lOERR  = 

104477 

M.BXEX=  000007 

M.$CEI=  000000 

FLTLEN=  000010 

F.LSTC= 

0000C4 

I.CNT  = 

177776 

M.BXFX=  000007 

M.$FLR=  000000 

FNINSI  005044R 

025 

F.LUN  = 

000042 

I. DIM  = 

177772 

M.BXIO=  000007 

M.$IDN=  000000 

FORIGN  000032R 

025 

F.MBCT= 

000054 

I.LEN  = 

000012 

M.BXLC=  000003 

M.$NE6=  000000 

F0.AP0=  000106 

F.MBC1  = 

000055 

I.OERR= 

000062 

M.BXNC=  000007 

M.$SI6=  000000 

F0.MFY=  000002 

F.MBF6= 

000056 

I. OLD  = 

177770 

M.BXNL=  000007 

M.1RDT=  000011 

FO.RD  =  000001 

F.MON  = 

000002 

I.PTR  = 

177774 

M.8XPP=  000007 

M.1REV=  000003 

FO.UPO=  000006 

F.NIL  = 

000001 

I. SIR  = 

177766 

M.BXPW=  000007 

M.1SCN=  000011 

F0.WRT=  000016 

F.NRBD= 

000024 

LABERR= 

104406 

M.BXRL=  000007 

NAMBUF  003240R 

025 

FPMODE  000042R 

025 

F.NREC= 

000030 

LABLPT 

005042R 

025  M.BXTS=  000007 

NB.DEV=  000200 

FPP   =  000000 

F.OPN  = 

000010 

LARGBL 

0031 62R 

025  M.BXUA=  000007 

NB.DIR=  000100 

FPPLEN=  000004 

F.OVBS= 

000030 

LARGCV 

0031 76R 

025  M.CEI  =  M7777 

NB.NAM=  000004 

FREBLK  007400R 

025 

F.PREV= 

000000 

LARGFL 

0031 60R 

025  M.CHR  =  000202 

NB.SD1=  000400 

FUZZ    0001 42R 

025 

F.PRNT= 

100000 

LARGLE 

0031 74R 

025  M.CMT  =  000206 

NB.SD2=  001000 

FXPTR1  003076R 

025 

F.PROT= 

010000 

LARGLN 

0031 66R 

025  M.DOUT=  000006 

NB.SNM=  000040 

F$EVAL=  000100 

F.RACC= 

000016 

LARGPT 

0031 64R 

025  M.DQAD=  000006 

NB.STP=  000020 

FSEVI  =  000200 

F.RATT= 

000001 

LARGSF 

0031 72R 

025  M.ENCD=  000004 

NB.SVR=  000010 

F$EXEC=  000400 

F.RCNM=  000034 

LAR6TY 

0031 70R 

025  M.EXE  =  000000 

NB.TYP=  000002 

F$FUNC=  001000 

F.RCTL= 

000017 

LARGVA 

003200R 

025  M.EXP  =  000001 

NB.VER=  000001 

F.ACTL=  000076 

F.READ= 

004000 

LBINC 

0051 OOR 

025  M.FACT=  000001 

ND.DEV=  000200 

F.ALOC=  000040 

F.REDF= 

000040 

LBUFF 

00331 6R 

025  M.FIL  =  000177 

ND.EXT=  000002 

F.BBFS=  000062 

F.RES  = 

000040 

LBUFLN=  000621 

M.FLR  =  y77777 

ND.NAM=  000004 

F.BOB  =  000070 

F.RET  = 

M7772 

LCOUNT 

0051 06R 

025  M.FMT  =  000004 

ND.PPN=  000100 

F.BGBC=  000057 

F.RSIZ= 

000002 

LENERR= 

104412 

M.6DUP=  000003 

ND.$EX=  000000 

F.BITS=  V/ZA 

F.RTyP= 

000000 

LENTAB 

0OO054R 

025  M.6DWN=  000003 

ND.SE$=  000020 

F.BICDN=  000026 

F.R2  = 

000014 

LEXPTR 

0031 OOR 

025  M.6ETI=  000006 

ND.$»#1=  000000 

F.BICDS=  000020 

F.R3  = 

000016 

LFTOP 

005066R 

025  M.IBM  =  000003 

ND.$NS=  000040 

F.BICEF=  000050 

F.R4  = 

000020 

LINC 

0051 02R 

025  M.IDN  =  000000 

ND.$PN=  001400 

F.BICP1=  000051 

F.SE(»i=   000100 

LINE 

00501 6R 

025  }^.lH%?^   000006 

NEGSGN  005063R 

025 

F.BICST=  000024 

F.SPDV= 

000072 

LINING 

005026R 

025  M.IOTA=  000000 

NINPT1  003302R 

025 

F.»CVB=  000064 

F.SPUN=  000074 

LISIZE= 

000020 

M.LIT  =  000205 

NINPT2  003300R 

025 

F.BR  =  000020 

F.ST»C= 

000036 

LITOP 

005072R 

025  M.LN  =  000001 

NINSTK  003304R 

025 

F.CHR  =  000075 

F.STK  = 

000022 

LNLNG  = 

104541 

M.MMD  =  000010 

NINTMP  00331 OR 

025 

F.CNT6=  000034 

F.STOP= 

000004 

LOCLCT 

005036R 

025  M.NEG  =  000000 

NINTYP  003306R 

025 

F.CODE=  000010 

F.STP  = 

000001 

LOUCOR 

000002R 

025  M.NOT  =  000000 

N0TAVL=  104472 

F.DF^B=  000046 

F.SUSP= 

000002 

LSTERP 

004766R 

025  M.NLB  =  000006 

N0T0PN=  104473 

F.DSPT=  000044 

F.TRC  = 

000002 

LWIDTH 

000070R 

025  M.NUM  =  000204 

NPRT1   004762R 

025 

F.DVNM=  000134 

F.UN1T= 

000136 

L.BITS= 

000003 

M.0UTR=  000012 

NULL    007364R 

025 

F.EFBK=  000010 

F.URBD= 

000020 

L.CNT  = 

000002 

M.PITM=  000000 

NUMCHN=  000020 

F.EFN  =  000050 

F.VAL  = 

177776 

L.PRNT= 

000001 

M.PRDS=  000006 

NUMDFL  003230R 

025 

F.END  =  002000 

F.VBN  = 

000064 

L.PTR  = 

000000 

M.QQAD=  000000 

NUMEFL  003233R 

025 

F.EnRR=  000032 

F.VBSZ= 

000060 

L.PTR1= 

000004 

M.QUAD=  000000 

NUMESN  003236R 

025 

F.ERR  =  000052 

G^J0f1E 

0031 02R 

025  L.SLBS= 

000002 

M.RANO=  000012 

NUMFLG  003230R 

025 

F.FACC=  000043 

HASHC 

005136R 

025  MACHIN=  000106 

M.RAVL=  000000 

NUMLEN  000062R 

025 

F.FFBY=  000014 

HASHTB 

0051 40R 

025  MAXCHN=  000014 

M.RCIP=  000000 

NUMNEG  003232R 

025 

F.FLAG=  000002 

HSHMSK= 

177601 

MONBLK 

0031 20R 

025  M.RDCT=  000011 

NUMQFL  003234R 

025 

F.FIR  =  000100 

HSHS1Z= 

000200 

MONCVT 

0031 32R 

025  M.REVS=  000003 

NUMRIG  003231 R 

025 

F.FNA«=  OOOilO 

KHAN 

005050R 

025  MONL EN 

0031 30R 

025  M.ROLL=  000000 

.>JUMWID  003226R 

025 

TTT 
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NUMZFL 

003235R 

025  RANERR= 

104411 

R.NEXT= 

000006 

SY.BS  =  000010 

T.LIT  = 

000020 

NXTIND= 

«i^«***  GX 

RARGBL 

003204R 

025  R.OFF  = 

000000 

SY.CLR=  000040 

T.MON  = 

000010 

NY1ERR= 

104432 

RARGCV 

003220R 

025  R.PREV= 

000004 

SY.ERP=  000020 

T.NIL  = 

000004 

N.BLSZ= 

000036 

RARGFL 

003202R 

025 

R.PTR  = 

000000 

SY.N0U=  000100 

T.NUM  = 

002000 

N.DESC= 

000020 

RARGLE 

00321 6R 

025 

R.SEQ  = 

000003 

SY.OPN=  000002 

T.OPFN= 

000001 

N.DEV  = 

000032 

RARGLN 

00321 OR 

025  R.VAR  = 

000002 

SY.PMT=  001000 

T.OTHR= 

040000 

N,DE\/N=  000034 

RARGPT 

003206R 

025  R6 

X000006 

SY.SRT=  000400 

T.SOP  = 

000002 

N.DID  = 

000024 

RARGSF 

00321 4R 

025  R7 

X000007 

SY.SVC=  000004 

T.SPOP= 

000040 

N.D\/M1=  000032 

RARGTY 

00321 2R 

025 

SI 

X000005 

SY.SVL=  000200 

T.TWP  = 

000200 

N.EXT  = 

000014 

RARGVA 

003222R 

025 

SIDAWN= 

104433 

S.AB  =  177776 

T.VAL  = 

100000 

N.FID  = 

000000 

RBASE 

005074R 

025 

SIFRAM 

00331 4R 

025 

S.ASB  =  100000 

T.VAR  = 

001000 

N.FNAM=  000006 

RCOUNR 

0051 12R 

025 

SISTAK 

006350R 

025 

S.BFHD=  000020 

UPPER  = 

177400 

N.FTYP=  000014 

RCOUNT 

00511 OR 

025 

SITOP 

006346R 

025 

S.BITS=  000002 

UTNAWE 

000344R 

023 

N.FVER= 

000016 

REDCNT 

005070R 

025 

SITP 

0071 44R 

025 

S.CHR1=  000003 

VALERR= 

104413 

N.NAME= 

000006 

REDIGN 

005066R 

025 

SIWARN= 

000200 

S.FATT=  000016 

VARBLE 

007400R 

025 

N.NEXT= 

000022 

REDOFF 

005072R 

025 

SIZTAB 

000044R 

025 

S.FDB  =  000140 

VARBLS 

OOOOOOR 

025 

N.PPN  = 

000024 

REENTR 

003060R 

025 

SI.BIT= 

177774 

S.FLB  =  040000 

VERNUM 

OOOOOOR 

025 

N.STAT= 

000020 

REGTYP= 

000001 

SI.LEN= 

177772 

S.FNAri=  000006 

VRSION=  000002 

N.UNIT= 

000034 

RES8IT 

0031 42R 

025 

SI.RET= 

177772 

S.FNB  =  000036 

WIDTH 

000072R 

025 

fB.IFLN=  001000 

RESCVT 

0031 52R 

025 

SI.VAL= 

177776 

S.FNBW=  000017 

UROUND 

000020R 

025 

OCHAN 

005052R 

025  RESERR= 

104440 

SKPS12 

0051 34R 

025 

S.FNTY=  000004 

WSDATE 

0001 36R 

025 

OMODE 

000402R 

023  RESLEN 

0031 50R 

025 

SPHOLD 

000004R 

024 

S.FTYP=  000002 

WSFULL= 

104403 

OPTMPO 

005066R 

025  RESPTR 

0031 40R 

025 

SPINIT 

000002R 

024 

S.LEN  =  000002 

WSNAME 

000074R 

025 

0PTMP1 

005070R 

025  RESSFT 

0031 46R 

025 

STKINC= 

000774 

S.LINK=  177774 

WSTIME 

0001 32R 

025 

OPTMP? 

005072R 

025  RESTYP 

0031 44R 

025 

STOP  = 

104420 

S.NFEN=  000020 

%F1S     = 

**<f***  G 

OPTMP:> 

005074R 

025  RESULT 

0031 36R 

025 

SUBCNT 

0031 04R 

025 

S.TYPE=  140000 

$FPP     = 

*•*•••  G 

0PTMP4 

005076R 

025  RESVAL 

0031 54R 

025 

SUBDCT 

0031 06R 

025 

S.VAL  =  000000 

%fPPLH= 

»**•*•  G 

0PTMP5 

0051 OOR 

025  RINC 

0051 04R 

025 

SUBPTR 

00311 OR 

025 

TKDIWS  005072R 

025  $MACHN= 

*•**••  G 

0PTMP6 

0051 02R 

025  RLTBAS 

005066R 

025 

SYMB1 

005344R 

025 

TKFRAM  005066R 

025  SRSTS  = 

*«<(^«**  G 

0PTMP7 

0051 04R 

025  ROTINC 

005070R 

025 

SYMF 

005340R 

025 

TKLEFT  005070R 

025  %RSX     = 

******  G 

0PTWP8 

0051 06R 

025  ROUND 

00001 OR 

025 

SYMPTl 

005346R 

025 

TWODE   000403R 

023  $RT11  = 

♦♦***•  G 

0PTMP9 

00511 OR 

025  ROVER 

00331 2R 

025 

SYWTAB 

005352R 

025 

TMPTAG=  000166 

.B00LE= 

000002 

OPTWIO 

0051 12R 

025  RSTS  = 

000000 

SYWTBF= 

104404 

TTYBUF  004140R 

025  .CHARA= 

000000 

0PTm4 

005026R 

025  RSX   = 

000115 

SYMTOP 

005350R 

025 

TTYLEN=  000622 

.DEF.  = 

000002 

ORIGIN 

000030R 

025  RTOP 

005070R 

025 

SYWTP 

006272R 

025 

TURKEY=  104436 

.FL0AT= 

000006 

OUTPTR 

000066R 

025  RT11  = 

000000 

SYWURN=  000054 

TYPE  =  000166 

.FSRCB= 

******  G 

OVROPR= 

000000 

R.BITS= 

000003 

SYNERR= 

104407 

T.BOL  =  020000 

.INTEG= 

000004 

PATCH 

00/i44R 

025  R.FIX  = 

000001 

SYSERR= 

104402 

T.CON  =  004000 

.MOLUN 

000404R 

023 

PRECSN 

000052R 

025  R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.DIW  =  000100 

...GBL= 

000000 

RANDAC 

003064R 

025  R.LN  = 

000002 

SY.8AD= 

000001 

T.FUN  =  010000 

. . . TPC= 

000020 

RANDY 

003062R 

025  R.LNUM= 

000010 

SY.BRK= 

100000 

T.LIST=  000400 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYD6TB 

000000 

007 

CQWTB 

000000 

010 

CHRTBL 

000000 

011 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 
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000000 

017 

CODE 

000316 

020 

PATCH 

000000 

021 

SSFSR1 

000000 

022 

DEFSO 

000A06 

023 

DEF$1 

000006 

02A 

DEFS2 

007A00 

025 
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1 

000000 

2 

000000 

3 

000115 

A 

5 

000000 

f 

000000 

000000 

8 

9 

000004 

10 

11 

000000 

RT11 
RSTS 
RSX 

- 

0 

0 

•M 

EIS 
FIS 
FPP 

— 

0 
0 
0 

FPPLEN 

- 

4 

DEBUG 

^ 

0 

M  15 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

.•SINGLE  PRECISION 

;DUN'T  DISPLAY  REGISTERS  ON  ERRORS 
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1  .S8TTL  APLDEF 

2  . J DENT  \V02.03\ 


p  1A 
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DEFINITIONS     ERRORS 

2513  .LIST  l.J,SRC,LOC,BIN,BEX,MEB 
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DEFINITIONS 
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ERRORS 


1 

2 

3 

A 

5 

6 

7 

8 

9 
10  000000 
11 

12  000000 

13  000000 
1A  OOOOOA 
15  000006 
16 

17  000010 

18  000016 

19  000020 

20  000024 

21  000026 

22  000030 

23  000034 

24  000040 

25  000044 

26  000046 
27 

28  000052 
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.TJTLE     ASSFIL 
. I DENT     \V02.03\ 

.S8TTL     COI^WANDS 


"MS" 


ASSIGN 


FUNCTIONAL  DESCRIPTION: 

ASSIGN  A  FILE  TO  A  PARTICULAR  CHANNEL 


(DO  NOT  CREATE  U   NOT  THERE!!) 


.PSECT  CODE 


ASSFIL: 


001401 
104464 

032762 
001015 

010200 
010201 
062701 
012702 

005001 


104471 


010000  177756  1$ 


000102 
OOOOOOG 


CALL 

CMDCHN 

BEQ 

1S 

ILFNAM 

1$: 

BIT 

/(fC.0PN,C.SBIT(R2) 

BNE 

2$ 

CALL 

RESCHN 

MOV 

R2,R0 

MOV 

R2,R1 

ADD 

*C.NAME,R1 

MOV 

WFLTEX,R2 

CALL 

DECNAM 

CLR 

R1 

CALLR 

OPNSET 

2$: 

CHNOPN 

GET  CHANNEL  NUMBER 
MUST  BE  SPACE  DELIMETER 
ILLEGAL  FILE  NAME 

.•CHANNEL  OPEN? 
CHANNEL  IN  USE 
Reset,  just  in  case 
Copy  theFDB  pointer 
Create  a  pointer 

to  the  name  block 
Default  File  Nawie  Block 
Get  the  file  name 
CLEAR  'CREATE*  FLAG 
SET  UP  OPEN 

CHANNEL  ALREADY  OPEN 


"dI? 
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commands  assign 

1  000001  .END 


E16 

ASSFIL     MACRO  M1113     08-FEB-80  10:46     PAGE  46-1 
SYMBOL  TABLE 


ASSFIL 
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E  16 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRFR0=  000135 

C.ALOC= 

000162 

D.C0NT= 

000006 

EDICNT 

005064R 

025 

AC1   = 

X000001 

CHRLBR=  000073 

C.8L0K= 

000064 

D.CTLM= 

000000 

EDIFLG 

005062R 

025 

AC2   = 

X000002 

CHRLPR=  000072 

C.BLSZ= 

000140 

D.DEAL= 

000003 

EDIT  = 

000003 

AC3   = 

X000003 

CHRMNS=  000137 

C.BUFF= 

177760 

D.DECD= 

000002 

EIS   = 

000000 

ACA   = 

X000004 

CHRMUL=  000075 

C.BUFL= 

1 77762 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

ACS   = 

X000005 

CHRNEG=  000100 

C.CCNT= 

1 77766 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

ALLINT 

00327AR 

025 

CHRPOL=  000271 

C.CPTR= 

1 77764 

D.DQAD= 

1 77777 

EOF   = 

104475 

ARYRET 

003276R 

025 

CHRPLU=  000055 

C.CZ  = 

001000 

D.DR0P= 

000002 

ERRMAX= 

000166 

ASCQUO=  000042 

CHRPWR=  000120 

C.DIG  =- 

000040 

D.ENCD= 

C00002 

ERRNUM 

004772R 

025 

ASSFIL 

OOOOOORG 

020 

CHRQST=  000121 

C.FASW= 

020000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

A.ALEN=  000004 

CHRQU0=  000113 

C.FLEN=  000010 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.ARG  = 

000040 

CHRRBR=  000047 

C.FLSH= 

004000 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

A.AS8  = 

000200 

CHRRPR=  000042 

C.FRC  = 

000001 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.BITS= 

000003 

CHRSEM=  000074 

C.IDEN= 

000010 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.CON  = 

000020 

CHRSM0=  000112 

C.NAME= 

000102 

D.FPUT= 

000005 

FA.APD= 

000100 

A.DIMS= 

000002 

CHRSPA=  000040 

C.NOBF= 

000400 

D.GE  = 

000000 

FA.CRE= 

000010 

A.Dim  = 

000006 

CHRUPA=  000131 

C.NUM  = 

000020 

D.6T  = 

000000 

FA.DLK= 

001000 

A.NUM  = 

000006 

CHR.BS=  000010 

COP  - 

000004 

D.IBM  = 

000002 

FA.EI«= 

100000 

A.PTR  = 

000000 

CHR.CC=  000003 

C.OPN  ■■ 

010000 

D.IND  = 

000002 

FA.EXC= 

002000 

A.TMP  = 

000010 

CHR.CR=  000015 

C.RDLN= 

1 77776 

D.INNR= 

000013 

FA.EXT= 

000004 

BADDIR= 

104463 

CHR.CZ=  000032 

C.REWT= 

002000 

D.INTR= 

000006 

FA.NSP= 

000100 

BADERR= 

104437 

CHR.GT=  000046 

C.RND  = 

000010 

D.LE  = 

000000 

FA.NSR= 

000200 

BL7RIR 

0051 16R 

02.S 

CHR.LF=  000012 

C.S8IT= 

177756 

D.LOG  = 

000001 

^IK.?^%^ 

010000 

BRSELF 

005046R 

025 

CHR.LT=  000043 

C.SPFX= 

000100 

D.LT  = 

000000 

FA.RD  = 

000001 

CCNT 

005072R 

025 

CHR.SI=  000017 

C.SPGL= 

000200 

D.MAX  = 

000000 

FA.RWD= 

004000 

CHANEX 

003060R 

025 

CHR.SL=  000057 

C.SPLX= 

000001 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CHANOO 

000256R 

025 

CHR.SO=  000016 

C.SPRS= 

000002 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHAN01 

000330R 

025 

CHR.TB=  000011 

C.SRC  = 

17777^ 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHAN02 

00051 2R 

025 

CHR.UL=  000106 

C.SRCP= 

000024 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN03 

000674R 

025 

CHR..A=  000141 

C.TT  = 

000004 

D.NN  = 

000000 

FA.WRT= 

000002 

CHANOA 

001056R 

025 

CHR..E=  000145 

C.WIDC= 

177770 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN05 

001240R 

025 

CHR..S=  000163 

C.WIDR= 

^77772 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN06 

001422R 

025 

CHR..T=  000164 

DEBUG  = 

000000 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN07 

001604R 

025 

CHR..U=  000165 

DECNAM= 

******  GX 

D.PSUB=  000006 

FD.CR  = 

000002 

CHAN08 

001766R 

025 

CHR..Z=  000172 

DEFERR= 

104405 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN09 

0021 50R 

025 

CHR..0=  000060 

DEVIL 

0051 14R 

025  D.QQAD= 

000000 

FD.FTN=  000001 

CHAN10 

002332R 

025 

CHR..1=  000061 

DEVNTF= 

104470 

D.QUAD= 

000000 

FD.F11= 

040000 

CHAN11 

00251 4R 

025 

CH.AND=  000001 

DFLTEX= 

******  GX 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN12 

002676R 

025 

CMDBUF  003250R 

025  DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.ISP=  002000 

CHAN13 

000022R 

023 

CMDCHN=  ******  6X 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN1A 

000204R 

023 

CMDMAX=  000010 

DIMBLK 

0031 12R 

025  D.SCON=  000006 

FD.0SP= 

004000 

CHNOPN= 

104471 

CNTSIZ  0051 30R 

025  OlffPJR 

0031 14R 

025  D.SDIF= 

000006 

FD.PLC= 

000004 

CHRAND= 

000051 

COMBIN  005076R 

025  DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN=  000004 

CHRBFI  = 

000007 

COMCNT  0051 26R 

025  DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRBKR=  000133 

C0MERR=  104425 

D0MERR= 

104417 

D.TAKE= 

000002 

FD.RAH=  000001 

CHRBOL= 

000200 

COMPTR  0051 22R 

025  DPTERR= 

104416 

D.TRAN=  000004 

FD.RAN=  000002 

CHRBOX= 

000114 

COMRTN  0031 56R 

025  DYDCNT 

003224R 

025  D.UNON=  000006 

FD.REC= 

000001 

CHRCWA= 

000054 

COMSKP  0051 24R 

025  D.AND  = 

000000 

D.$WAX= 

000000 

FD.RVf1=  000001 

CHRCOL= 

000076 

CORPTR  0051 20R 

025  D.BXCT= 

000007 

D.$MIN=  000000 

FD.SDI= 

000020 

CHRDEL= 

000107 

CS.ASS=  000200 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRDIV= 

000053 

CS.800=  000010 

D.8XNL= 

000007 

D.$PLU=  000000 

FD.TTY= 

000004 

CHRDLR= 

000176 

CS.FL0=  000020 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHRDLT= 

000110 

CS.1DN=  000040 

D.BXPW=  000007 

D.$SUB=  000000 

FF.CHR= 

000005 

CHRDOT= 

000056 

CS.0NE=  000100 

D.8XRL= 

000007 

D.1C0M=  000001 

FF.NV  = 

000003 

CHREP  = 

000105 

CTEPS   0001 52R 

025  D.CIRC= 

000001 

D.1EXP= 

000002 

FF.POE= 

000002 

CHRERR= 

104431 

CTMAX   00021 2R 

025  D.COMB= 

000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHRFIL= 

000177 

CTRMAX  0001 72R 

025  D.C0MP= 

000001 

EDICHR 

005063R 

025  FF.RWF= 

000006 

ASSFIL     MACRO  Ml 113     08-FEB-80  10:46     PAGE  46-2 
SYMBOL  TABLE 


F1F 


ASSFIL  MACRO  Ml  113 

08-FEB-80 

10:46  PAGE 

46-2 

F  16 

SYMBOL  TABLE 

FF.SPC=  OOOOGA 

F.FLAG= 

000002 

HSHMSK= 

177601 

MONCVT  0031 32R 

025  M.REVS=  000003 

F HE ADR  00501 2R 

025 

F.FLB  = 

000100 

HSHSIZ= 

000200 

MONLEN  0031 30R 

025  M.R0LL=  000000 

FHRET   0050A0R 

025 

F.FNAM=  000110 

KHAN 

005050R 

025  MONPTR  0031 22R 

025  M.SATA=  000001 

FILNTF=  10A467 

F.FNB  = 

000102 

ILFNAM= 

104464 

MONSFT  0031 26R 

025  M.SCAN=  000011 

FIS   =  OOOOOC 

F.FNDF= 

000010 

ILLCHN= 

104540 

MONTYP  0031 24R 

025  M.SHAP=  000000 

FISCON=  046000 

F.FTYP= 

000116 

ILLSW  = 

104565 

MONVAL  0031 34R 

025  M.SIGN=  000000 

FIXPTR  003074R 

025 

F.FUN  = 

000010 

INDERR= 

104410 

M.ABS  =  000000 

M.SURR=  000001 

FLAGS   004764R 

025 

F.FVER= 

000120 

INNTMP 

003250R 

025  M.BOL  =  000200 

M.SYM  =  000203 

FLCBUF  003250R 

025 

F.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.BXAV=  000007 

M.SYN  =  000201 

FLINE   00501 4R 

025 

F.H1BK= 

000004 

INPTR 

000064R 

025  M.BXCR=  000007 

M.TRAN=  000012 

FLOEXP  003270R 

025 

F.LBL  = 

000020 

1NSNAM= 

104462 

M.BXCT=  000007 

M.$ABS=  000000 

FLONEG  003272R 

025 

F.LINE= 

000012 

lOERR  = 

104477 

M.BXEX=  000007 

M.$CEI=  000000 

FLSWTB  000222R 

025 

F.LOC  = 

000004 

l.CNT  = 

177776 

M.BXFX=  000007 

M.$FLR=  000000 

FLTLEN=  000010 

F.LSTC= 

000004 

I. DIM  = 

177772 

M.BXIO=  000007 

M.$IDN=  000000 

FNINSI  005044R 

025 

F.LUN  = 

000042 

I.LEN  = 

000012 

M.BXLC=  000003 

M.$NEG=  000000 

FORIGN  000032R 

025 

F.MBCT= 

000054 

I.OERR= 

000062 

M.BXNC=  000007 

M.$SIG=  000000 

F0.APD=  000106 

F.MBC1  = 

000055 

I. OLD  = 

177770 

M.BXNL=  000007 

M.1RDT=  000011 

F0.MFY=  000002 

F.MBFG= 

000056 

I.PTR  = 

177774 

M.BXPP=  000007 

M.1REV=  000003 

FO.RO  =  000001 

F.MON  = 

000002 

I.STR  = 

177766 

M.BXPW=  000007 

M.1SCN=  000011 

FO.UPO=  000006 

F.NIL  = 

000001 

\j^^m=^ 

104406 

M.BXRL=  000007 

NAMBUF  003240R 

025 

F0.URT=  000016 

F.NRBD= 

000024 

LABLPT 

005042R 

025  M.BXTS=  000007 

NB.DEV=  000200 

FPMOOE  000042R 

025 

F.NREC= 

000030 

LARG8L 

0031 62R 

025  M.BXyA=  000007 

NB.DIR=  000100 

FPP   =  000000 

F.OPN  = 

000010 

LARGCV 

0031 76R 

025  M.CEI  =  M7777 

NB.NAM=  000004 

FPPLEN=  000004 

F.OVBS= 

000030 

LARGFL 

0031 60R 

025  M.CHR  =  000202 

NB.SD1=  000400 

FREBLK  007400R 

025 

F.PREV= 

000000 

LARGLE 

0031 74R 

025  M.CMT  =  000206 

NB.SD2=  001000 

FUZZ    0001 42R 

025 

F.PRNT= 

100000 

LARGLN 

0031 66R 

025  M.DOUT=  000006 

NB.SMi=  000040 

FXPTR1  003076R 

025 

F.PROT= 

010000 

LARGPT 

0031 64R 

025  M.DQAD=  000006 

NB.STP=  000020 

F$EVAL=  000100 

F.RACC= 

000016 

LARGSF 

0031 72R 

?5  M.ENCD=  000004 

NB.SVR=  000010 

F$EVI  =  000200 

F.RATT= 

000001 

LARGTY 

0031 70R 

:5  M.EXE  =  000000 

NB.TYP=  000002 

F$EXEC=  000400 

F.RCNM=  000034 

LARGVA 

003200R 

0^5  M.EXP  =  000001 

NB.VER=  000001 

FSFUNC=  001000 

F.RCTL= 

000017 

LBINC 

0051 OOR 

025  M.FACT=  000001 

ND.DEV=  000200 

F.ACTL=  000076 

F.READ= 

004000 

LBUFF 

00331 6R 

025  M.FIL  =  000177 

ND.EXT=  000002 

F.ALOC=  000040 

F.REDF= 

000040 

L8UFLN=  000621 

M.FLR  =  ^77777 

ND.NAM=  000004 

F.BBFS=  000062 

F.RES  = 

000040 

LCOUNT 

0051 06R 

025  M.FMT  =  000004 

ND.PPN=  000100 

F.BDB  =  000070 

F.RET  = 

M7772 

LENERR= 

104412 

M.GDUP=  000003 

ND.$EX=  000000 

F.BGBC=  000057 

F.RSIZ= 

000002 

LENTAB 

000054R 

025  M.6DUN=  000003 

ND.$E$=  000020 

F.BITS=  177774 

F.RTYP= 

000000 

LEXPTR 

0031  OOR 

025  M.6ETI=  000006 

ND.$^#1=  000000 

F.BKDN=  000026 

F.R2  = 

000014 

LFTOP 

005066R 

025  M.IBM  =  000003 

ND.$N$=  000040 

F.BKDS=  000020 

K.R3  = 

000016 

LINC 

0051 02R 

025  M.IDN  =  000000 

ND.$PN=  001400 

F.BICEF=  000050 

F.R4  = 

000020 

LINE 

00501 6R 

025  M.INSP=  000006 

NEGSGN  005063R 

025 

F.aiCP1=  000051 

F.SEQN=  000100 

LINING 

005026R 

025  M.IOTA=  000000 

NINPT1  003302R 

025 

F.BKST=  000024 

F.SPDV= 

000072 

LISIZE= 

000020 

M.LIT  =  000205 

NINPT2  003300R 

025 

F.BKVB=  000064 

F.SPUN=  000074 

LI  TOP 

005072R 

025  M.LN  =  000001 

NINSTK  003304R 

025 

F.BR  =  000020 

F.SJBK= 

000036 

LNLNG  = 

104541 

M.MMD  =  000010 

NINTMP  00331  OR 

025 

F.CHR  =  000075 

F.STK  = 

000022 

LOCLCT 

005036R 

025  M.NEG  =  000000 

NINTYP  003306R 

025 

F.CNT6=  000034 

F.STOP= 

000004 

LOUCOR 

000002R 

025  M.NOT  =  000000 

N0TAVL=  104472 

F.COOE=  000010 

F.STP  = 

000001 

LSTERP 

004766R 

025  M.NUB  =  000006 

N0T0PN=  104473 

F.DF^B=  000046 

F.SUSP= 

000002 

LWIDTH 

000070R 

025  M.NUM  =  000204 

NPRT1   004762R 

025 

F.DSPT=  000044 

F.TRC  = 

000002 

L.BITS= 

000003 

M.OUTR=  000012 

NULL    00/364R 

025 

F.O\/m=   000134 

F.UNIT= 

000136 

L.CNT  = 

000002 

M.PITM=  000000 

NUMCHN=  000020 

F.EFB»C=  000010 

F.URBD= 

000020 

L.PRNT= 

000001 

M.PRDS=  000006 

NUMDFL  003230R 

025 

F.EFN  =  000050 

F.VAL  = 

1 //776 

L.PTR  = 

000000 

M.QQAD=  000000 

NUMEFL  003233R 

025 

F.END  =  002000 

F.VBN  = 

000064 

L.PTR1= 

000004 

M.QUAD=  000000 

NUMESN  003236R 

025 

F.EnRB=  000032 

F . VBSZ= 

000060 

L.SUBS= 

000002 

M.RAND=  000012 

NUMFLG  003230R 

025 

F.ERR  =  000052 

GNOME 

0031 02R 

025  MACHIN=  000106 

M.RAVL=  000000 

NUMLEN  000062R 

025 

F.FACC=  000043 

HASHC 

005136R 

025  MAXCHN=  000014 

M.RCIP=  000000 

NUMNEG  003232R 

025 

F.FFBY=  000014 

HASHT8 

0051 40R 

025  MONBLK 

0031 20R 

025  M.RDCT=  000011 

NUMQFL  003234R 

025 
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SYMBOL 

TABLE 

NUMRIG 

003231 R 

025 

RANDY 

003062R 

025 

R.LNUM=  000010 

SY.BRK= 

100000 

T.LIST= 

000400 

NUMUID 

003226R 

025  RANERR= 

104411 

R.NEXT= 

000006 

SY.8S  = 

000010 

T.LIT  = 

000020 

NUMZFL 

003235R 

025 

RARGBL 

003204R 

025 

R.OFF  = 

000000 

SY.CLR= 

000040 

T.MON  = 

000010 

NYIERR= 

104432 

RARGCV 

003220R 

025 

R.PREV= 

000004 

SY.ERP= 

000020 

T.NIL  = 

000004 

N.FM  SZ= 

000036 

RARGFL 

003202R 

025 

R.PTR  = 

000000 

SY.NOU= 

000100 

T.NUM  = 

002000 

N.DESC= 

000020 

RARGLE 

00321 6R 

025  R.SEQ  = 

000003 

SY.OPN= 

000002 

T.OPFN= 

000001 

N.DEV  = 

000032 

RARGLN 

00321 OR 

025 

R.VAR  = 

000002 

SY.PMT= 

001000 

T.OTHR= 

040000 

N.DEVN=  000034 

RARGPT 

003206R 

025 

R6 

X000006 

SY.SRT= 

000400 

T.SOP  = 

000002 

N.DID  = 

000024 

RARGSF 

00321 4R 

025 

R7 

X000007 

SY.SVC= 

000004 

T.SPOP= 

000040 

N.DVFf*=  000032 

RARGTY 

00321 2R 

025 

SI 

X000005 

SY.SVL= 

000200 

T.TMP  = 

000200 

N.EXT  = 

000014 

RARGVA 

003222R 

025 

SI  DAMN= 

104433 

S.AB  = 

177776 

T.VAL  = 

100000 

N.FID  = 

000000 

RBASE 

005074R 

025 

SIFRAM 

00331 4R 

025 

S.AS8  = 

100000 

T.VAR  ^ 

001000 

N.FNAW=  000006 

RCOUNR 

0051 12R 

025 

SISTAK 

006350R 

025 

S.8FHD= 

000020 

UPPER  = 

177400 

N.FTYP=  000014 

RCOUNT 

00511  OR 

025 

SI  TOP 

006346R 

025 

S.BITS= 

000002 

UTNAME 

000344R 

023 

N.F\/ER= 

000016 

REDCNT 

005070R 

025 

SITP 

0071 44R 

025 

S.CHR1= 

000003 

VALERR^^ 

104413 

N.NAME= 

000006 

REDIGN 

005066R 

025 

SIUARN=  000200 

S.FATT= 

000016 

VARBLF 

007400R 

025 

N.NEXT= 

000022 

REDOFF 

005072R 

025 

SIZTAB 

000044R 

025 

S.FDB  = 

000140 

VARBLS 

OOOOOOR 

025 

N.PPN  = 

000024 

REENTR 

003060R 

025 

SI.8IT= 

1 7777^ 

S.FLB  = 

040000 

VER^XJM 

OOOOOOR 

025 

N.STAT= 

000020 

RE SRI T 

0031 42R 

025 

SI.LEN= 

^77772 

S.FNAM= 

000006 

VRSION=  000002 

N.UNIT= 

000034 

RESCHN= 

******  6X 

SI.RET= 

1 77772 

S.FNB  = 

000036 

WIDTH 

000072R 

025 

CBUFLN=  001000 

RESCVT 

0031 52R 

025 

SI.VAL= 

^7777t 

S.FNBW= 

000017 

WROUND 

000020R 

025 

OCHAN 

005052R 

025 

RESERR= 

104440 

SKPSIZ 

0051 34R 

025 

S.FNTY= 

000004 

WSDATE 

0001 36R 

025 

OMODE 

000402R 

023  RESLEN 

0031 50R 

025 

SPHOLD 

000004R 

024 

S.FTYP= 

000002 

WSFULL= 

104403 

OPNSET= 

imt-k-kifk   6X 

RESPTR 

0031 40R 

025 

SPINIT 

000002R 

024 

S.LEN  = 

000002 

USNAME 

000074R 

025 

OPTMPO 

005066R 

025 

RESSFT 

0031 46R 

025 

STKINC= 

000774 

S.LINK= 

177774 

WSTIME 

0001 32R 

025 

0PTMP1 

005070R 

025 

RESTYP 

0031 44R 

025 

STOP  = 

104420 

S.NFEN= 

000020 

$FIS  = 

«*«*•*  G 

0PTMP2 

005072R 

025 

RESULT 

0031 36R 

025 

SUBCNT 

0031 04R 

025 

S.TYPE= 

140000 

%^??     = 

it-k-k-k-k-k    G 

0PTMP3 

005074R 

025 

RESVAL 

0031 54R 

025 

SUBDCT 

0031 06R 

025 

S.VAL  = 

000000 

%^9?\J^ 

******  G 

0PTMP4 

005076R 

025 

RINC 

0051 04R 

025 

SifiPTR 

00311 OR 

025 

TKDIMS 

005072R 

025  $MACHN= 

******  G 

0PTMP5 

0051 OOR 

025 

RLTBAS 

005066R 

025 

SYMB1 

005344R 

025 

TKFRAM 

005066R 

025  SRSTS  = 

******  G 

0PTMP6 

0051 02R 

025 

ROTINC 

005070R 

025 

SYMF 

005340R 

025 

TKLEFT 

005070R 

025  V<%X     = 

******  G 

0PTMP7 

0051 04R 

025 

ROUND 

000010R 

025 

SYMPT1 

005346R 

025 

TMODE 

000403R 

023  $RT11  = 

******  G 

0PTMP8 

0051 06R 

025  ROVER 

00331 2R 

025 

SYMTAB 

005352R 

025 

TMPTA6= 

000166 

.BOOLE= 

000002 

0PTMP9 

00511 OR 

025  RSTS  = 

000000 

SY^lTBF= 

104404 

TTYBUF 

0041 40R 

025  .CHARA= 

000000 

OPTMIO 

0051 12R 

025 

RSX   = 

000115 

SYMTOP 

005350R 

025 

TTYLEN=  000622 

.DEF.  = 

000002 

aPTm4 

005026R 

025  RTOP 

005070R 

025 

SYMTP 

006272R 

025 

TURKEY= 

104436 

.FLOAT= 

000006 

ORIGIN 

000030R 

025  RT11  = 

000000 

SYMURN=  000054 

TYPE  = 

000166 

.FSRCB= 

******  G 

OUTPTR 

000066R 

025 

R.BITS= 

000003 

SYNERR= 

104407 

T.80L  = 

020000 

.INTEG= 

000004 

OVROPR= 

000000 

R.FIX  = 

000001 

SYSERR= 

104402 

T.CON  = 

004000 

.MOLUN 

000404R 

023 

PATCH 

00/544R 

025 

R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.DIM  = 

000100 

. . . GBL= 

000000 

PRECSN 

000052R 

025 

R.LN  = 

000002 

SY.BAD= 

000001 

T.FUN  = 

010000 

...TPC= 

000020 

RANDAC 

003064R 

025 

.  AQS. 

000000 
000000 

000 
001 

TABLCS 

000000 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

nONBTB 

000000 

006 

DYDBTB 

000000 

007 

COMTB 

000000 

010 

CHRTBL 

000000 

011 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 
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SYMBOL 

TABLE 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CCDDE 

00005A 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEFSO 

000406 

023 

DEF$1 

000006 

024 

DEF$2 

007400 

025 

ERRORS  DETECTED: 

0 
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000000 

2 

000000 

3 

000115 

5 

000000 

^ 

000000 

000000 

8 

9 

000004 

10 

11 

000000 

RT11 
RSTS 
RSX 

i 

0 

0 

•M 
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FIS 

FPP 

; 

0 
0 
0 

FPPLEN 

= 

A 

DEBUG 

• 

0 

K   16 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

.•SINGLE  PRECISION 

; DON'T  DISPLAY  REGISTERS  ON  ERRORS 
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.TITLE 
. I DENT 


ASSIGN 
\V02.03\ 


.SeTTL  ASSIGN 


B  1 


BIND  VALUES  TO  VARIABLE :^ 


FUNCTIONAl  DESCRIPTION: 

'ASSIGN'  assigns  values  to  variables.  A  syntax 
error  results  if  the  value  is  not  a  val  or  if  the 
symbol  is  not  a  variable  (a  function  perhaps?).  If 
the  variable  had  a  previous  value,  it  is  deallocated, 
if  the  val  is  not  temporary  or  is  a  codes t ring  nnstar.t, 
the  array  is  copied  so  that  if  a  subscripted  as.  gnment 
(which  is  what  this  routine  also  does)  is  m^dt 
nothing  else  gets  ncewed  up. 

CALLING  SEQUENCE: 

MOV    #<SI  frame>,R1 

MOV    /lf<Variable  name>,R4 

CALL    ASSIGN 


INPUTS: 
R1 


-  Points  to  SI  frame  containing  value, 

-  Points  to  variable  name 


IMPLICIT  INPUTS: 
NONE 

OUTPUTS: 

NONE 

IMPLICIT  OUTPUTS: 
NONE 

ROUTINES  CALLED: 

RETCOR  -  Used  to  delete  old  value 

GETSAM  -  Used  to  get  room  for  new  array 

ACOPY   -  Used  to  copy  the  new  value  to  the  var-able 

SIDE  EffECJS: 

Assigns  the  value  in  the  frame  pointed  to  by  R1 
to  the  variable  pointed  to  by  R4. 


45  000000 
46 

47  000000 

48  000000 

49  000006 

50  000014 

51  000016 

52  000020 

53  000022 

54  000024 

55  000026 

56  000032 

57  000034 


.PSECT  CODE 


042737  10C000 
032761  100000 
001001 
104407 

011400 

001422 

005760  000002 

002371 

020061  1 7777t 


004764' 
1 7777^ 


ASSIGN; 


1$: 
2$: 


6IC 

BIT 

BNE 

SVNERR 

PUSH 

MOV 

BEO 

Tsr 

BGF 
CMP 


/TF.PRNT, FLAGS   ;DON'T  PRINT  RESULT 
♦T.VAL,SI.BIT(R1);VAL  ON  SI? 


2$ 

R2 

aR4,R0 

3S 

A.DIMovRO) 

1$ 
R0,SI.VAL(R1) 


YES,  GOOD 

NO,  BAD 

SAVE  INPUT  CHAR  POINTER 

GET  OLD  VALUE 

IF  IT  HAD  ANY 

CHECK  FOR  TYPE 

YES,  CAN'T  KILL  FUNCTION  OR  GROUP 

ASSIGNING  SELF  TO  SELF?? 
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58  000040 

59  000042 

60  000046 

61  000052 

62  000054 

63  000060 

64  000064 

65  000066 

66  000072 

67  000074 

68  000100 

69  000106 

70  000110 

71  000112 

72  000114 

73  000116 

74  000124 
75 

76 
77 
78 
79 
80 
81 


001424 
116002 
1 32702 
001 043 
142702 
1 32702 
001002 

005014 
016100 
1 32760 
001007 
010014 

011400 
1 52760 


000003 
000020 

000010 
000040 


1 7777 t 
000070 


3$: 


000003 


4$: 


000010  000003 


BEQ 

MOVB 

BITB 

BNE 

BIC6 

BITB 

BNE 

CALL 

CLR 

MOV 

BITB 

BNE 

MOV 

POP 

MOV 

BISB 

RETURN 


4$ 

A.BITS(RO),RZ 

#A.C0N,R2 

6$ 

/ifA.TMP,R2 

#A.ARG,R2 

3$ 

RETCOR 

(R4) 

SI.VAL(R1),R0 


YES,  HANDLE  SPECIAL  CASE! i i ! ! I (GASPi ) 

Get  BITS  Field 

A  Label? 

Yes,  IS  an  Error 

VALUE  IS   NOW  TEMPORARY 

IS   THIS  A  FUNCTION  ARGUMENi ? 

YES,  SO  DON'T  KILL  IT! 

RELEASE  OLD  VALUE 

NOTHING  THERE 

POINT  TO  NEW  VALUE 


#A.CON+A.TMP+A.ARG,A.BITS(R0);NICE  VALUE? 
5$  ;N0,  COPY  IT 

R0,5)R4         ;SET  NEW  VALUE  FUR  VAR 
R2  ;GET  BACK  INPUT  POINTER 

aR4,R0         ;GET  REAL  POINTER  TO  SYMBOL'S  VALUE 
/(fA.TMP,A.BITS(RO);MARK  AS  NOT  A  TEMP 

;ALL  DONE 


;VAL  IS  NOT  A  TEMP  OR  IS  ^   CQDEJ^ING  CONSTANT. 
; ALLOCATE  A  NEW  BLOCK  '\ND  CCrv  JN  THE  ARRAY. 


OOC126 
000132 
000134 

82  000140 

83  000144 
000146 
000150 
000154 
000160 


84 
85 
86 
87 
88 
89 


000162 


01610U 

062705 
010014 

016200 

000754 

104406 


1 77776 
1 77772 
000004 


5$; 


6$; 


MOV 

PUSH 

CALL 

ADD 

MOV 

POP 

MOV 

CALL 

BR 

LABERR 


SI.VA^;:<1),R0 

RO 

GET SAM 

/ffSI.LEN,SI 

R0,aR4 

R2 

A.ALEN(R2),R0 

ACOPY 

4$ 


POINT  TO  VAL 

SAVE  PTR   TO  ARRAY 

GET  ROO'I  FOR  NEW  ARRAY 

POP  POINTER  TO  NEW  BLOCK 

SET  NEW  VALUE  FOR  VARIABLE 

POINT  TO  ARRAY  TO  COPY 

GET  LENGTH  TO  COPY 

COPY  ARRAY 

ALL  DONE 


;Label  ^rror 
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000001 


ENf 
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E  1 

SYMBOL 

TABLE 

ACOPY  = 

*•••••  GX 

CHRFIL= 

0001 77 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

ACQ   = 

XOOOOOO 

CHRFR0= 

0001 35 

C.8L0K= 

000064 

D.DECD= 

000002 

EIS   = 

000000 

AC1   = 

X000001 

CHRLBR= 

000073 

C.8LSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

AC2   = 

X000002 

CHRLPR= 

000072 

C.BUFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

AC3   = 

X000003 

CHRMNS= 

000137 

C.BUFL= 

1 77762 

D.DQAD= 

1 77777 

EOF   = 

104475 

ACA   = 

X000004 

CHRMUL= 

00007S 

C.CCNT= 

1 77766 

D.DROP= 

000002 

ERRMAX= 

000166 

ACS   = 

xooooos 

CHRNE6= 

000100 

C.CPTR= 

1 77764 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

ALL INT 

00327AR 

02S 

CHRPDL^ 

000271 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

ARYRET 

003276R 

02S 

CHRPLU= 

OOOOSS 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRO 

004774R 

025 

ASCQU0=  000042 

CHRPWR= 

000120 

C.FASW= 

020000 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

ASSIGN 

OOOOOORG 

020 

CHRQST= 

000121 

C.FLEN= 

000010 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.ALEN= 

OOOOOA 

CHRQUO=  000113 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.ARG  = 

000040 

CHRRBR= 

000047 

C.FRC  = 

000001 

D.FPUT= 

000005 

FA.APD= 

000100 

A.ASB  = 

000200 

CHRRPR= 

000042 

C.IDEN= 

000010 

D.GE  = 

000000 

FA.CRE= 

000010 

A.BITS= 

000003 

CHRSEM= 

000074 

C.NAME= 

000102 

D.6T  = 

0000C)0 

FA.DL»C= 

001000 

A. CON  = 

000C20 

CHPSMO= 

0001 1 2 

C.NnBF= 

000400 

D.IBM  = 

000002 

FA.ENB= 

100000 

A.DIMS= 

000002 

CHRSFA= 

000040 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.EXC= 

002000 

A.DIM1= 

000006 

CMRUPA= 

000131 

COP  = 

000004 

D.INNR= 

000013 

FA.EXT= 

000004 

A.NUM  = 

000006 

ChR.B5= 

000010 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.NSP= 

000100 

A.PTR  = 

000000 

l.nr  .  L  w 

000003 

C.RDLN= 

1 77776 

D.LE  = 

000000 

FA.NSR= 

000200 

A.TMP  = 

000010 

CHR.G^= 

00001 S 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.POS= 

010000 

BADDIR= 

104463 

CHR.:2= 

000032 

C.RND  = 

000010 

D.LT  = 

000000 

FA.RD  = 

000001 

BADERR= 

104437 

CKR.G7= 

000046 

C.S8IT= 

1 77756 

D.MAX  = 

000000 

FA.RWD= 

004000 

BLZWJR 

00S116R 

02S 

CHR.LF= 

000012 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.SEQ= 

040000 

BRSELF 

00S046R 

02S 

CHR.LT= 

000043 

C . SPGL= 

000200 

D.MIN  = 

000000 

FA.SHR= 

000040 

CCNT 

00S072R 

02S 

CHR.SI= 

00001 7 

C.SPLX= 

000001 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHANEX 

003060R 

02S 

CHR.SL= 

0000S7 

C.SPRS= 

000002 

D.NE  = 

000000 

FA.UICK= 

020000 

CHANOO 

0002S6R 

02S 

CHR.S0= 

000016 

C.SRC  = 

1 7777ii 

D.NN  = 

000000 

FA.UIRT= 

000002 

CHAN01 

000330R 

02S 

CHR.TB= 

00001 1 

C.SRCP= 

000024 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN02 

000S12R 

02S 

CHR.UL= 

000106 

C.TT  = 

000004 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN03 

000674R 

02S 

CHR..A= 

000141 

C.WIDC= 

1 77770 

D.PLUS= 

000000 

FD.CaM=  020000 

CHAN04 

0010S6R 

02S 

CHR..E= 

000145 

C.WIDR= 

1 77772 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHANGS 

001240R 

025 

CHR..S= 

000163 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN06 

001422R 

02S 

CHR..T= 

000164 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.FTN= 

000001 

CHAN07 

001604R 

02S 

CHR..U= 

000165 

DEVIL 

0051 14R 

025  D.QUAD= 

000000 

FD.F11= 

040000 

CHAN08 

001766R 

02S 

CHR..Z= 

000172 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN09 

0021 SOR 

025 

CHR..O= 

000060 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN11 

002S14R 

025 

CH.AND= 

OOCOol 

DIMBLK 

0031 12R 

025  D.SCON= 

000006 

FD.OSP= 

004000 

CHAN12 

002676R 

025 

CMDBUF 

0032S0R 

025  DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.PLC= 

000004 

CHAN13 

000022R 

023 

CMDMAX= 

000010 

DIMTYP 

003i16R 

025  D.SUB  = 

000000 

FD.PRN=  000004 

CHANU 

000204R 

023 

CNTSI? 

00:>130R 

025  DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHNOPN= 

104471 

COMBIN 

00S076R 

025 

DOMERR= 

104417 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRAND= 

0000S1 

COMCNT 

005126R 

025 

DPTERR= 

104416 

D.TRAN= 

000004 

FD.RAN=  000002 

CHRBEL= 

000007 

COMERR= 

10<»42S 

DVDCNT 

003224R 

025  O.UNON= 

000006 

FD.REC= 

000001 

CHRBKR= 

000133 

COWPTR 

0051 22R 

025  D.AND  = 

000000 

D.$MAX= 

000000 

FD.RWM=  000001 

CHRflOL= 

000200 

COMRTN 

0031  SCR 

025  D.BXCT= 

000007 

D.$MIN=  000000 

FD.SDI= 

000020 

CH«BUX= 

000114 

COMSKP 

0051 24R 

025  D.BXI0= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRCMA= 

0O00S4 

CGRPTR 

005120R 

025  D.8XNL= 

000007 

D.$PLU= 

000000 

FD.TTY= 

000004 

CHRCa=-- 

000076 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHRDEL= 

000107 

CS.BOO= 

000010 

D.BXPW= 

000007 

D . $SUB= 

000000 

FF.CHR= 

000005 

CHRDIV= 

0000S3 

CS.FLO= 

000020 

D.BXRL= 

000007 

D.1C0M= 

000001 

FT.NV  = 

000003 

CI  »RDLR= 

000176 

CS.IDN= 

000040 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.POE= 

000002 

CHRDLT= 

000110 

CS.ONE= 

000100 

D.CG«B=  000001 

D.1R0T= 

000003 

FF. RWD= 

000001 

CHRD0T= 

0000S6 

CTEPS 

0001 52R 

025 

D.COMP= 

COOOO'. 

EDICNR 

005063R 

025  FF.RWFr 

000006 

CHREP  = 

00010S 

CTMAX 

00021 ?R 

025 

D.CONT^ 

0000 J6 

EDICNT 

005064R 

025  FF.SPC= 

000004 

CHRERR= 

104431 

CTRMAX 

U00172R 

0-^5 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  FHEADR 

00501 2R 

025 
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F  1 

SY(>«OL  ' 

FABLE 

FHRET 

0050AOR 

025 

F.FNAM= 

000110 

HSHSIZ= 

000200 

MONLEN 

0031 30R 

025  M.R0LL=  000000 

FILNTF= 

104467 

F.FNB  = 

000102 

KHAN 

005050R 

025 

MONPTR 

0031 22R 

025  M.SATA=  000001 

FIS   = 

000000 

F.FNDF= 

000010 

ILFNAM= 

1 04464 

MONSFT 

0031 26R 

025  M.SCAN=  000011 

F1SC0N= 

046000 

F.FTYP= 

000116 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP=  000000 

FIXPTR 

003074R 

025 

F.FUN  = 

000010 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SIGN=  000000 

FLAGS 

004764R 

025 

F.FVER= 

000120 

INDERR= 

104410 

M.ABS  = 

000000 

M.SUBR=  000001 

FLCBUF 

003250R 

025 

F.HEAD= 

000006 

INNTMP 

003250R 

025 

M.80L  = 

000200 

M.SYM  =  000203 

FLINE 

00501 4R 

025 

F.HIBK= 

000004 

INNTM2 

00501 6R 

025 

M.8XAV= 

000007 

M.SYN  =  000201 

FLOEXP 

003270R 

025 

F.LBL  = 

000020 

INPTR 

000064R 

025 

M.8XCR= 

000007 

M.TRAN=  000012 

FLUNE6 

003272R 

025 

F.LINE= 

00001 2 

INS.NAM= 

1 04462 

M.BXCT= 

000007 

M.$ABS=  000000 

FLSWIB 

000222R 

025 

F.LOC  = 

000004 

lOERR  ^- 

104477 

M.BXEX= 

000007 

M.$CEI=  000000 

FLTLEN= 

000010 

F.LSTC= 

000004 

I.CNT  = 

1 77776 

M.BXFX= 

000007 

M.$FLR=  000000 

FNINSI 

005044R 

025 

F.LUN  = 

000042 

I. DIM  = 

1 77772 

M.BXIO= 

000007 

M.$IDN=  000000 

FORIGN 

000032R 

025 

F.MBCT= 

000054 

I.LEN  = 

000012 

M.BXLC= 

000003 

M.$NEG=  000000 

FO.AP0= 

000106 

F.MBC1  = 

000055 

I.OERR= 

000062 

M.8XNC= 

000007 

M.$SI6=  000000 

FO.MFY= 

000002 

F.^BFG= 

000056 

I. OLD  = 

1 77770 

M.BXNL= 

000007 

M.1RDT=  000011 

FO.RD  = 

000001 

F.MON  = 

000002 

I.PTR  = 

1 7777^ 

M.BXPP= 

000007 

M.1REV=  000003 

FO.UP0= 

000006 

F.NIL  = 

000001 

I. SIR  = 

1 77766 

M.BXPW= 

000007 

M.1SCN=  000011 

FO.WRT= 

000016 

F.NRBD= 

000024 

LABERR= 

104406 

M.BXRL= 

000007 

NAMBUF  003240R 

025 

FPflOOE 

000042R 

025 

F.NREC= 

000030 

LABLPT 

005042R 

025 

M.BXTS= 

000007 

NB.DEV=  000200 

FPP   = 

000000 

F.OPN  = 

000010 

LARGBL 

0031 62R 

025 

M.BXWA= 

000007 

NB.DiR=  000100 

FPPLEN= 

000004 

F.0V8S= 

000030 

LARGCV 

0031 76R 

025 

M.CEI  = 

1 77777 

NB.NAM=  000004 

FREBLK 

007400R 

025 

F.PREV= 

000000 

LAR6FL 

003160R 

025 

M.CHR  = 

000202 

NB.SD1=  000400 

FUZZ 

0001 42R 

025 

F.PRNT= 

100000 

LARGLE 

0031 74R 

025 

M.CMT  = 

000206 

NB.SD2=  001000 

FXPTR1 

003076R 

025 

F.PR0T= 

010000 

LAR6LN 

0031 66R 

025 

M.DOUT= 

000006 

NB.SNM=  000040 

F$EVAL= 

000100 

F.RACC= 

000016 

LARGPT 

0031 64R 

025 

M.DQAD= 

000006 

NB.STP=  000020 

FSEVI  = 

000200 

F.RATT= 

000001 

LAR6SF 

0031 72R 

025 

M.ENCD= 

000004 

NB.SVR=  000010 

F$EXEC= 

000400 

F.RCNM= 

000034 

LAR6TY 

0031 70R 

025 

M.EXE  = 

000000 

NB.TYP=  000002 

FSFUNC= 

001000 

F.RCTL= 

00001 7 

LAR6VA 

003200R 

025 

M.EXP  = 

000001 

NB.VER=  000001 

F.ACTL= 

000076 

F.READ= 

004000 

LBINC 

0051 OOR 

025 

M.FACT= 

000001 

ND.DEV=  000200 

F.ALOC= 

000040 

F.REDF= 

000040 

LBUFF 

00331 6R 

025 

M.FIL  = 

0001 77 

ND.EXT=  000002 

F.BBFS= 

000062 

F.RES  = 

000040 

LBUFLN=  000621 

M.FLR  = 

1 77777 

ND.NAM=  000004 

F.BOB  = 

000070 

F.RET  = 

1 77772 

LCOUNT 

005106R 

025 

M.FMT  = 

000004 

ND.PPN=  000100 

F.BGBC= 

000057 

F.RSIZ= 

000002 

LENERR= 

104412 

M.GDUP= 

000003 

ND.$EX=  000000 

F.BITS= 

177774 

F.RTYP= 

000000 

LENTAB 

000054R 

025 

M.GDUN=  000003 

ND.$E$=  000020 

F.BICDN= 

000026 

F.R2  = 

000014 

LEXPTR 

0031 OOR 

025 

M.GETI= 

000006 

ND.$NM=  000000 

F.BICDS= 

000020 

F.R3  = 

000016 

LFTOP 

005066R 

025 

M.IBM  = 

000003 

ND.$NS=  000040 

F.BKEF= 

000050 

F.R4  = 

000020 

LINC 

0051 02R 

025 

M.IDN  = 

000000 

ND. $PN=  001400 

F.BKP1  = 

000051 

F.SEQN= 

000100 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN  005063R 

025 

F.BKST= 

000024 

F . SPDV= 

000072 

LININC 

005026R 

025 

M.IOTA= 

000000 

NINPT1  003302R 

025 

F.BK\/B= 

000064 

F.SPUN= 

000074 

iis:/E= 

000020 

M.LIT  = 

000205 

NINPT2  003300R 

025 

F.BR  = 

000020 

F.STBK= 

000036 

LITOP 

005072R 

025 

M.LN  = 

000001 

NINSTK  003304R 

025 

F.CHR  = 

000075 

F.STK  = 

000022 

LNLNG  = 

104541 

M.MMD  - 

000010 

NINTMP  00331 OR 

025 

F . CNTG= 

000034 

F.ST0P= 

000004 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINTYP  003306R 

025 

F .  CtX)E= 

000010 

F.STP  = 

000001 

LOWCOR 

000002R 

025 

M.NOT  = 

000000 

NOTAVL=  104472 

F.DF^B= 

000046 

F . SUSP= 

000002 

LSTERP 

004766R 

025 

M.NUB  = 

000006 

N0T0PN=  104473 

F.DSPT= 

000044 

F.TRC  = 

000002 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

NPRT1   004762R 

025 

F.DVM1= 

000134 

F.UNIT= 

000136 

L.BITS= 

000003 

M.OUTR= 

000012 

NULL    007364R 

025 

F.EfBK= 

000010 

F.URBD= 

000020 

L.CNT  = 

000002 

M.PITM= 

000000 

NUMCHN=  000020 

F.EFN  = 

OOC^X 

F.VAL  = 

1 77776 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL  003230R 

025 

F.END  = 

002u:c 

F.VBN  = 

000064 

L.PTR  = 

000000 

M.QQAD= 

000000 

NUMEFL  003233R 

025 

F.EI)HB= 

000032 

F.VBSZ= 

000060 

L.PTR1= 

000004 

M.OUAD= 

000000 

NUMESN  003236R 

025 

F.ERR  = 

000052 

GETSA«= 

♦**♦•*  GX 

L.S(flS= 

000002 

M.RAND= 

000012 

NUMFLG  003230R 

025 

F.FACC= 

000043 

GNOME 

003102R 

025  MACHIN= 

000106 

M.RAVL= 

000000 

NUMLEN  000062R 

025 

F.FFBY= 

000014 

HASHC 

005136R 

025  MAXCHN= 

000014 

M.RCIP= 

000000 

NUMNEG  003232R 

025 

F.F LAG= 

000002 

HASHTB 

005140R 

025  MONBLK 

0031 20R 

025 

M.RDCT= 

00001 1 

NUMQFL  003234R 

025 

F.FLB  = 

000100 

HSHMSK= 

177601 

MONCVT 

0031 32R 

025 

M.REVS= 

000003 

NUMRIG  003231R 

025 
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TABLE 

NUMUID 

003226R 

025 

RANERR= 

104411 

R.NEXT= 

000006 

SY.BS  = 

000010 

T.LIT  = 

000020 

NUMZFL 

003235R 

025 

RARGBL 

003204R 

025 

R.OFF  = 

000000 

SY.CLR= 

000040 

T.MON  = 

000010 

NYIERR= 

10AA32 

RARGCV 

003220R 

025 

R.PREV= 

000004 

SY.ERP= 

000020 

T.NIL  = 

000004 

N.BLSZ= 

000036 

RARGFL 

003202R 

025  R.PTR  = 

000000 

SY.NOU= 

000100 

T.NUM  = 

002000 

N.DESC= 

000020 

RARGLE 

00321 6R 

025  R.SEQ  = 

000003 

SY.OPN= 

000002 

T.OPFN= 

000001 

N.DEV  = 

000032 

RARGLN 

00321  OR 
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FUNCTIONAL  DESCRIPTION: 

This  routine  is  used  by  FIXLIN  to  find  Mneunonics 
for  characters  in  TTY  mode  and  overs trikes  in  APL 
mode.  It  does  a  sequential  sea'^ch  to  find  the  value 
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-  Value  to  find  in  the  table 

-  Beginnir.g  of  rhe  table 

-  End  of  the  table+2 


-  Off?--t  in  the  table  (in  words) 

-  Clear  if  not  found 
Set  if  found 
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10AA71 

cnfeiN 

005076R 

025 

DOMERR= 

10AA17 

D.TAKE= 

000002 

Ff).RAH= 

000001 

:»L'm= 

000051 

CUWCNT 

005126R 

025 

DPTERR= 

10AA16 

D.TRAN=  OOOOOA 

FD.PAN= 

000002 

CHRRF'  = 

00000/ 

CO{ERR= 

10AA25 

DYDCNT 

00322AR 

025  D.UNON=  000006 

FD.REC= 

000001 

CHRBKR= 

000133 

COMPTR 

005122R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RVI1= 

000001 

CHRBa^' 

000200 

COfiRTN 

0031 56R 

025 

D.6XCT-- 

000007 

D.$MIN=  000000 

FD.SDI^ 

0C0020 

CHRGOX^ 

C0011A 

COWSKP 

00512AR 

025 

D.axio= 

000007 

D.$MUL= 

000000 

FD.SQD= 

OOOOAO 

CHRCMA= 

00005A 

CORPTR 

005120R 

(-25 

D.BXNL= 

000007 

D.$PLU= 

ooocoo 

FD.TTY= 

OOOOOA 

CHRCOL  ^ 

000076 

CS.ASS^ 

000200 

D.8XPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHRDEL= 

000107 

CS.800= 

0000 ;0 

D.8XPW= 

000007 

D.$SUB= 

000000 

FF.CHR= 

000005 

CHRDIV= 

000053 

CS.FLO= 

000020 

D.8XRL= 

000007 

D.1C0M=  000001 

FF.NV  = 

000003 

CHRDLR= 

000176 

CS.JDN= 

OOOOAO 

D.CIRC-- 

000001 

D.I EXP= 

000002 

FF.P0E= 

0000C2 

CHRDLT= 

00011C 

CS.ONE= 

000100 

D.COf«= 

000001 

D.1R0T= 

000003 

FF. RWD= 

000001 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D.C0I1P= 

000001 

ED! CHR 

005063R 

025  FF.RWF= 

000006 

CHREP  = 

000105 

CTMAX 

0002 12R 

025 

D.CONT= 

000006 

EDICNT 

00506AR 

025  FF.SPC= 

OOOOOA 

CHRERR= 

10AA31 

CTRMAX 

0001 72R 

025 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  F HE ADR 

00501 2R 

025 

CHRFIL= 

000^77 

C.ALOC= 

000162 

D.DFAL= 

000003 

EDIT  = 

000003 

FHRET 

0050A0R 

025 
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SYMBOL 

rABLE 

FILNTF= 

1C4467 

F.Ff^B  = 

000102 

ILFNAM= 

1 04464 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

FIS   = 

000000 

F.FNDF= 

000010 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FISC0N= 

0A6000 

F.FTYP= 

000116 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  t^.SlGN= 

000000 

FIXPTR 

003074R 

025 

F.FUN  = 

000010 

INDERR= 

104410 

M.A8S  = 

000000 

M.SUBR= 

000001 

FLAGS 

00476AR 

025 

F.FVER= 

000120 

INNTMP 

003250R 

025  M.80L  = 

000200 

M.SYM  = 

000203 

FLCBUF 

003250R 

025 

F.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FLINE 

0050UR 

025 

F.HIBK= 

000004 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN= 

000012 

FLOEXP 

003270R 

025 

F.LBL  ^ 

000020 

INSNAM= 

104462 

M.BXCT= 

000007 

M.$ABS= 

000000 

FLONEG 

003272R 

025 

F.LINE= 

000012 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI= 

000000 

FLSWTB 

0OO222R 

025 

F.LOC  = 

000004 

l.CNT  = 

1 77776 

M.BXFX= 

000007 

M.$FLR= 

000000 

FLTLEN= 

000010 

F.LSTC= 

000004 

I. DIM  = 

1 77772 

M.BXI0= 

000007 

M.$IDN= 

000000 

FNINSI 

005044R 

025 

F.LUN  = 

000042 

I.LEN  = 

00001 2 

M.BXLC= 

000003 

M.$NEG= 

000000 

FORIGN 

000032R 

025 

F.^BCT= 

000054 

I.OERR= 

000062 

M.BXNC= 

000007 

M.$SI6= 

000000 

FO.APD= 

000106 

F.^BC1  = 

000055 

I. OLD  = 

1 77770 

M.BXNL= 

000007 

M.1RDT= 

00001 1 

FO.MFY= 

000002 

F.liBF6= 

000056 

I.PTR  = 

1 7777^ 

M.8XPP= 

000007 

M.1REV= 

000003 

FO.RD  = 

000001 

F.MON  = 

000002 

I. SIR  = 

177766 

M.8XPW= 

000007 

M.1SCN= 

000011 

FO.UPD= 

000006 

F.NIL  = 

000001 

LABERR= 

104406 

M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FO.WRT= 

000016 

F.NRBD= 

000024 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FPMODE 

0000A2R 

025 

F.NREC= 

000030 

LARGBL 

0031 62R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

FPP   = 

000000 

F.OPN  = 

000010 

LARGCV 

0031 76R 

025  M.CEI  = 

1 77777 

NB.NAM= 

000004 

FPPLEN= 

000004 

F.0\/BS= 

000030 

LARGFL 

0031 60R 

025  M.CFIR  = 

000202 

NB.SD1= 

000400 

FREBLK 

007400R 

025 

F.PREV= 

000000 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

FUZZ 

000142R 

025 

F.PRNT= 

100000 

LARGLN 

0031 66R 

025  M.DOUT= 

000006 

^B.SM>1= 

000040 

FXPTR1 

003076R 

025 

F.PR0T= 

010000 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$EVAL= 

000100 

F.RACL= 

000016 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F$EVI  = 

000200 

F.RATT= 

000001 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F$EXEC= 

000400 

F.RCNM= 

000034 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F$F UNC= 

001000 

F.RCTL= 

00001 7 

LBINC 

0C51OOR 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.ACTL= 

000076 

F.READ= 

004000 

LBUFF 

00331 6R 

025  M.FIL  = 

000177 

ND.EXT= 

000002 

F.ALOC= 

000040 

F.REDF= 

000040 

LBUFLN= 

000621 

M.FLR  = 

1 77777 

ND.NAM= 

000004 

F.flRFS= 

000062 

F.RES  = 

000040 

LCOUNT 

005106R 

025  M.FMT  = 

000004 

ND.PPN= 

000100 

F.BOB  = 

000070 

F.RET  = 

1 77772 

LENERR= 

104412 

M.GDUP= 

000003 

ND.$EX= 

000000 

F.BGBC= 

000057 

F.RSIZ= 

000002 

LENTAB 

000054R 

025  M.6DWN=  000003 

ND.$E$= 

000020 

F.BiTS= 

1 7777^ 

F.RTYP= 

000000 

LEXPTR 

0031 OOR 

025  M.6ETI= 

000006 

ND.yf1= 

000000 

F.BKDN=  000026 

F.R2  = 

000014 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$= 

000040 

F.BKDS= 

000020 

F.R3  = 

000016 

LINC 

005102R 

025  M.IDN  = 

000000 

ND.$PN= 

001400 

F.BKEF= 

000050 

F.R4  = 

000020 

LINE 

00501 6R 

025  M.INSP== 

000006 

NEGSGN 

005063R 

025 

F.BICP1  = 

000051 

F . SEQN= 

000100 

LINING 

005026R 

025  M.IOTA= 

000000 

NINPT1 

003302R 

025 

F.BKST= 

000024 

F.SPDV= 

000072 

LISIZE= 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.BK\/B= 

000064 

F.SPUN= 

000074 

LITOP 

005072R 

025  M.LN  = 

000001 

NINSTK 

003304R 

025 

F.BR  = 

000020 

F.STBK= 

000036 

LNLNG  = 

104541 

M.MMD  = 

000010 

NINTMP 

00331 OR 

025 

F.CHR  = 

000075 

F.STK  = 

000022 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINTYP 

003306R 

025 

F . CNTG= 

000034 

F.STOP= 

000004 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

NOTAVL= 

104472 

F.CGDE= 

000010 

F.STP  = 

000001 

LSTERP 

004766R 

025  M.NUB  = 

000006 

NOTOPN= 

104473 

F.OfNB= 

000046 

F . SUSP= 

000002 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

NPRT1 

004762R 

025 

F.DSPT= 

000044 

F.TRC  = 

000002 

L.8ITS= 

000003 

M.OUTR= 

000012 

NULL 

007364R 

025 

F.DVWi=  00013A 

F.UNIT= 

000136 

L.CNT  = 

000002 

M. PI TM=  000000 

NUMCHN= 

000020 

F.EFBK= 

000010 

F.URBD= 

000020 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

F.EFN  = 

000050 

F.VAL  = 

1 77776 

L.PTR  = 

000000 

M.QQAD= 

000000 

NUMEFL 

003233R 

025 

F.END  = 

002000 

F.VBM  = 

000064 

L.PTR1= 

000004 

M.QUAD= 

000000 

NUMESN 

003236R 

025 

F.EnF)R= 

000032 

F.VBSZ= 

000060 

L.SU8S= 

000002 

M.RAND= 

000012 

NUHFLG 

003230R 

025 

F.ERR  = 

000052 

GNOWE 

003102R 

025  MACHIN= 

000106 

M.RAVL= 

000000 

NUMLEN 

000062R 

025 

F.FACC= 

000043 

HASHC 

005136R 

025  MAXCHN= 

000014 

M.RCIP= 

000000 

NUWNEG 

003232R 

025 

F.FFBY= 

000014 

HASHTB 

005140R 

025  MONBLK 

0031 20R 

025  M.RDCT= 

000011 

NUMQFL 

003234R 

025 

F.F LAG= 

000002 

HSHMSK--: 

177601 

MONCVl 

0031 32R 

025  M.REVS= 

000003 

NUMRIG 

003231 R 

025 

F.FLB  = 

000100 

HSHSIZ^ 

000200 

MONLEN 

0031 30R 

025  M.ROLL= 

000000 

NUMWID 

003226R 

025 

F.FNAW= 

000110 

KHAN 

005050R 

025  MONPTR 

0031 22R 

025  M.SATA= 

000001 

NUMZFL 

003235R 

025 
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NYIERR= 

104432 

RARGCV 

003220R 

025 

R.PREV= 

000004 

SY.CLR= 

000040 

T.LIT  = 

000020 

N.BLSZ= 

000036 

RARGFL 

003202R 

025  R.PTR  = 

000000 

SY.ERP= 

000020 

T.MON  = 

000010 

N.DESC= 

000020 

RARGLE 

00321 6R 

025  R.SEQ  = 

000003 

SY.N0U= 

000100 

T.NIL  = 

000004 

N.DEV  = 

000032 

RARGLN 

00321  OR 

025  R.VAR  = 

000002 

SY.OPN= 

000002 

T.NUM  = 

002000 

N.DE\/N=  00003A 

RARGPT 

003206R 

025  R6 

X000006 

SY.PMT= 

001000 

T.OPFN= 

000001 

N.DID  = 

000024 

RARGSF 

00321 4R 

025 

R7 

X000007 

SY.SRT= 

000400 

T.OTHR= 

040000 

N.DVNM=  000032 

RARGTY 

00321 2R 

025 

SI 

X000005 

SY.SVC= 

000004 

T.SOP  = 

000002 

N.EXT  = 

000014 

RARGVA 

003222R 

025 

SIDAMN= 

104433 

SY.SVL= 

000200 

T.SPOP= 

000040 

N.FID  = 

000000 

RBASE 

005074R 

025 

SIFRAM 

00331 4R 

025 

S.AB  = 

1 7777 t 

T.TMP  = 

000200 

N.FNAW= 

000006 

RCOUNR 

0051 12R 

025 

SISTAK 

006350R 

025 

S.ASB  = 

100000 

T.VAL  = 

100000 

N.FTYP= 

000014 

RCOUNT 

005 11  OR 

025 

SITOP 

006346R 

025 

S.BFHD= 

000020 

T.VAR  = 

001000 

N.FVER= 

000016 

REDCNT 

005070R 

025 

SITP 

0071 44R 

025 

S.8ITS= 

000002 

UPPER  = 

1 77400 

N.NAME= 

000006 

REDIGN 

005066R 

025 

SJUARN= 

000200 

S.CHR1= 

000003 

UTNAME 

000344R 

023 

N.NEXT= 

000022 

REDOFF 

005072R 

025 

SIZTAB 

000044R 

025 

S.FATT= 

000016 

VALERR= 

104413 

N.PPN  = 

000024 

REENTR 

003060R 

025 

SJ.BIT= 

1 7777^ 

S.FDB  = 

000140 

VARBLE 

007400R 

025 

N.STAT= 

000020 

RESBIT 

0031 42R 

025 

SI.LEN= 

\77772 

S.FLB  = 

040000 

VARBLS 

OOOOOOR 

025 

N.UNIT= 

000034 

RESCVT 

0031 52R 

025 

SI.RET= 

-[77772 

S.FNAM= 

000006 

VERNUM 

OOOOOOR 

025 

OBUFLN= 

001000 

RESERR= 

104440 

SI.VAL= 

1 7777 t 

S.FI«  = 

000036 

VRSION= 

000002 

OCHAN 

005052R 

025 

RESLEN 

0031 50R 

025 

SKPSIZ 

0051 34R 

025 

S.FNBW=  000017 

WIDTH 

000072R 

025 

OWOOE 

000402R 

023  RESPTR 

0031 40R 

025 

SPHOLD 

000004R 

024 

S.FNTY= 

000004 

WROUND 

000020R 

025 

OPTMPO 

005066R 

025 

RESSFT 

0031 46R 

025 

SPINIT 

000002R 

024 

S.FTYP= 

000002 

WSDATE 

0001 36R 

025 

0PTMP1 

005070R 

025 

RESTYP 

0031 44R 

025 

STK1NC= 

000774 

S.LEN  = 

000002 

WSFULL= 

104403 

0PTMP2 

005072R 

025 

RESULT 

0031 36R 

025 

STOP  = 

104420 

S.LINK= 

1 77771, 

WSNAME 

000074R 

025 

0PT(iP3 

005074R 

025 

RESVAL 

0031 54R 

025 

SUBCNT 

0031 04R 

025 

S.NFEN= 

000020 

WSTIME 

0001 32R 

025 

OPTMPA 

005076R 

025 

RINC 

0051 04R 

025 

SUBDCT 

0031 06R 

025 

S.TYPE= 

140000 

$FIS  = 

*•*•*•  G 

0PTMP5 

0051 OOR 

025 

RLTBAS 

005066R 

025 

SIRPTR 

00311  OR 

025 

S.VAL  = 

000000 

%^??     = 

•♦*•••  (5 

0PTMP6 

0051 02R 

025 

ROTINC 

005070R 

025 

sym^ 

005344R 

025 

TKDIMS 

005072R 

025  $FPPLN= 

•••••*  (5 

OPTliP? 

0051 04R 

025 

ROUND 

00001  OR 

025 

SYMF 

00*^340R 

025 

TKFRAM 

005066R 

025  $MACHN= 

♦•**••  (3 

0PTMP8 

005106R 

025 

ROVER 

00331 2R 

025 

SYMPTI 

Oc  -;46R 

025 

TKLEFT 

005070R 

025  $RSTS  = 

•**•••  G 

0PTMP9 

005110R 

025 

RSTS  = 

000000 

SYMTAB 

005352R 

025 

TMODE 

000403R 

023  $RSX  = 

**i^*«*  G 

OPTWIO 

0051 12R 

025 

RSX 

000115 

SYMTBF= 

104404 

TMPTAG= 

000166 

$RT11  = 

**•*•«  G 

OPTMK 

005026R 

025 

RTOP 

005070R 

025 

SYMTOP 

005350R 

025 

TTYBUF 

0041 40R 

025  .BOOLE= 

000002 

ORIGIN 

000030R 

025 

RT11   = 

000000 

SYMTP 

006272R 

025 

TTYLEN= 

000622 

.CHARA^ 

000000 

OUTPTR 

000066R 

025 

R.BITS= 

000003 

SYMURN= 

000054 

TURKEY= 

104436 

.DEF.  = 

000002 

OVROPR= 

000000 

R.FIX  = 

000001 

SYNERR= 

104407 

TYPE  = 

000166 

.FLOAT= 

000006 

PATCH 

007344R 

025 

R.LCT  = 

000002 

SYSERR= 

104402 

T.80L  = 

020000 

.FSRCB= 

*•**•*  G 

PRECSN 

000052R 

025 

R.LN  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.CON  = 

004000 

.INTEG= 

000004 

RANDAC 

003064R 

025 

R.LNUM= 

000010 

SY.8AD= 

000001 

T.DIM  = 

000100 

.MOLUN 

000404R 

023 

RANDY 

003062R 

025 

R.NEXT= 

000006 

SY.8RK= 

1 00000 

T.FUN  = 

010000 

...GBL= 

000000 

RANERR= 

104411 

R.OFF  = 

000000 

SY.8S  = 

000010 

T.LIST= 

000400 

...TPC= 

000020 

RARGBL 

003204R 

025 

.  ABS. 

000000 
000000 

OCO 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

liONBTB 

000000 

006 

DYDBTB 

000000 

007 

COMTB 

cooooo 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 
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MNTNTL 

000000 

017 

CODE 

000032 

020 

PATCH 

000000 

021 

$$FSR1 

000000 

022 

DEFSO 

000A06 

023 

DEF$1 

000006 

02A 

DEF$2 

007400 

025 

ERRORS 

DETECTED: 

0 
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BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR 

2- 

28 

USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS. 

H 

^ 

TITLE  TO  AND 
DEC. 

OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN 

2- 

31 

2- 

32 

THE  INFORMATION 

IN  THIS  SOFTWARE  IS  SIRJECT  TO  CHANGE  WITHOUT  NOTICE 

2- 

53 

AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT                                       \ 

2- 

34 

CORPORATION. 

2- 

35 

36 

DEC  ASSUMES  NO 

RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF   ITS 

2* 

37 

SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC.                                                         1 

1: 

^ 

3-» 

46 

DEFINITIONS 

ASSEMBLY  PARAMETERS 

A- 

139 

DEFINITIONS 

OPERATOR  OVERLAYS 

5- 

268 

DEFINITIONS 

REGISTERS 

6- 

331 

DEFINITIONS 

MEMORY  ORGANIZATION 

7- 

377 

DEFINITIONS 

ORDERING  PSECTS 

8- 

A26 

DEFINITIONS 

SI  PARSE  FRAMES 

9- 

A7A 

DEFINITIONS 

TOKEN  DESCRIPTION  BITS 

10- 

515 

DEFINITIONS 

SI  EXECUTION  FRAMES 

11- 

580 

DEFINITIONS 

SPECIAL  PARSE  CHARACTERS 

12- 

607 

DEFINITIONS 

CHRTA6  BITS 

12- 

62A 

DEFINITIONS 

SYSTEM  STATUS  BITS 

13- 

6A0 

DEFINITIONS 

F-FRAMES 

K- 

72A 

DEFINITIONS 

FUNCTION  LINE  BLOCKS 

16- 

807 

DEFINITIONS 

ARRAY  STORAGE  BLOCK 

17- 

869 

DEFINITIONS 

LIST  STORAGE  BLOCK 

18- 

911 

DEFINITIONS 

INDEXING  STACK  FRAME 

19- 

9A0 

DEFINITIONS 

SYMBOL  TABLE  ENTRY 

20- 

969 

DEFINITIONS 

CHANNEL  BLOCK 

22- 

1085 

DEFINITIONS 

RSX  DATA 

23- 

1110 

DEFINITIONS 

NAME  BLOCKS 

33- 

1612 

DEFINITIONS 

MACROS 

35- 

1905 

DEFINITIONS 

APL  CHARACTERS 

36- 

1967 

DEFINITIONS 

ERRORS 

AA- 

A 

BLDLST 

BUILD  A  LIST  FROM  SYMBOLS 

I    2 
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1 

000000 

2 

000000 

3 

0001 1 5 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
FIS 
FPP 

II  II  II 
ooo 

FPPLEN 

=  A 

DEBUG 

=  0 

I  2 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

;SINGLE  PRECISION 

;DON'   JISPLAY  REGISTERS  ON  ERRORS 


TT 


BLDLST 
APLDEF 


1 
2 
3 
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.S8TTL 
.IDENT 


J  2 


E 
A 


APLDEF 
\V02.03\ 


iTT 


APL    MACRO  M1113  08-FEB-80  10:52 
DEFINITIONS     ERRORS 

2513 


PAGE  42 


K  2 


A 
D 


.LIST  SEQ,SRC,LOC,BIN,BEX,MEB 


TJ 


r 
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L  2 

DEFINITIONS 

ERRORS 

1 

.TITLE 

BLDLST 

i 

. I DENT 

\V02.03\                                                              1 

4 
5 

.S8TTL 

BLDLST 

BUILD  A  LIST  FROM  SYMBOLS 

f 

1 

4 

•  FUNCTIONAL  DESCRIPTION: 

8 

4 

This  routine  is  used  to  take  a  command  line  and                             | 

9 

4 

extract 

a  list  of  symbol  names  from  it,  placing 

10 

4 

the  names  into  a  List  block  (i.e.,  each  entry                              | 

11 

4 

in  the 

list  block  points  to  the  entry  in  the 

12 
13 

4 

symbol 

table) 

1A 

i 
1 

;  INPUTS: 

15 

1 

R2 

-  The  next  character  to  handle 

16 

1 

R3 

-  Count  of  characters  remaining 

17 
18 
19 

1 

RA 

-  The  pointer  to  the  next  character 

4 
1 

•  T/vpLjciT  OUTPUTS: 

20 
21 
22 

4 

The  list  block  is  placed  on  the  top  of  the  SI. 

1 
1 

;  ROUTINES  CALLED:                                                              1 

23 

4 

GET COR 

-  Get  core  for  the  list  block 

2A 

,1 

GETNB2 

-  Get  a  non-blank  character 

25 

26 

27   000000 

28 

29  000000 

1 

SYHBOL 

-  Enter/Find  a  symbol  in  the  symbol  table 

0 

.PSECT 

CODE 

BLDLST: 

• 
• 

30  000000 

PUSH 

<R0,R1,R2,R3,RA>       ;He  makes  his  saving  roll 

31  000012 

0050A6 

CLR 

-CSP)                ;Init  the  count 

32  00001 A 

1$: 

CALL 

GETNB2               ;Get  a  non-blank  character 

33  000020 

002A23 

BLT 

A$                 .-Nothing  left 
R2,*CHR.CR            ;A  <CR>? 

3A  000022 

120227 

000015 

cnP8 

35  000026 

001 A20 

BEQ 

A$                  ;Yes,  EOL 

36  000030 

132762 

000010 

OOOOOOG 

BITS 

#C.IDEN,CHRTAB(R2)      ;An  Alphabetic? 

37  000036 

001 A1 3 

BEQ 

3$                   ;No,  SYNTAX  ERROR 

38  OOOOAO 

005216 

INC 

(SP)                                         ; Increase  count  of  elemer.ts 

39  0000A2 

2$: 

GETC 

A$                 ;Get  the  next  character 

0000A2 

005303 

DEC  R3 

;ANY  CHARACTERS  LEFT? 

OOOOAA 

002A11 

BLT  A$ 

:N0,  BRANCH  TO  A$ 

0000A6 

112A02 

MOVB  (RA)^,R2                ;YES,  GET  NEXT  CHAR                            1 

AO  000050 

0A2702 

1 77AC0 

BIC 

#<UPPER>,R2           .-Clear  out  garbage 
/;fC.IDENIC.DIG.CHRTAB(R2);A  Symbol  Character? 

A1  00005 A 

132762 

000050 

OOOOOOG 

BITS 

A2  000062 

001367 

BNE 

2$                 ;Yes,  continue 

A3  00006A 

AA 

A5  000066 

A6 

A7  000070 

000753 

BR 

1$                 ;Loop  for  each  name 

10AA07 

3$: 

SYNERR 

.-Syntax  Error 

A$: 

POP 

R1                  ;Get  the  count 

A8  000072 

001 775 

BEQ 

3$                  ;Must  be  at  least  1 

A9  00007A 

010100 

MOV 

R1.R0               .-Copy  the  count 

50  000076 

006300 

ASL 

RO                  .-Count  in  bytes 

51  000100 

062700 

000006 

ADD 

#L.PTRU2..R0         .-Add  in  overhead 

52  00010A 

CALL 

GETCOR               .-Get  some  memory 

53  000110 

012725 

OOOOOOQ 

MOV 

*SYSER.(S1)+          .-Push  return  address  on  the  SI 

5A  00011 A 

012725 

OOGAOO 

MOV 

/IfT.LlST.(SI)^          .-It's  a  list 

6 
0 


TTT 


r 
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55  000120 

56  000122 

57  000124 

58  000130 

59  000132 

60  000134 

61  000136 
62 

63  000142 

64  000150 

65  000152 

66  000154 

67  000156 

68  000162 

69  000166 
000170 
000172 
000174 


010025 

010010 

062720  000006 

110120 

105020 

010010 

062720  000002 


010001 


5$ 


70 
71 
12 
71 
74 
75 
76 


000176 
000200 
000204 


010021 
005316 
003367 

005726 


M  2 


MOV  RO,(SI)^- 

MOV  RO,(RO) 

ADD  *L.PTRU2.,(R0)  + 

MOVB  R1.(R0)+ 

CLR8  (RO)^ 

MOV  RO,(RO) 

ADD  U2.AR0)^ 

POP  <R4,R3,R2> 

PUSH  R1 

MOV  R0,R1 

PUSH  R1 

CALL  GETNB2 

CALL  SYMBOL 

POP  R1 

MOV  R0,(R1)^ 

DEC  (SP) 

BGT  5$ 

TST  (SP)+ 

POP  <R1,R0> 
RETURN 


Bl 

Fi 


Point  to  the  list  block 
Point  to  itsel^ 
Point  to  first  element 
Get  #  of  elements 
No  flaqs  in  high  byte 
Last  element 
pointer 

Restore  the  data 
Save  the  count 
Copy  data  pointer 
Sav/e  data  pointer 
Get  Non-Blank  Element 
Get  the  next  symbol 
Restore  list  pointer 
Copy  the  symbol  entry  address 
Decrement  loop  count 
and  loop  until  f ini ' 


Delete  Count  from 
Restore  registers 
finished 


the  stack 


e%i  ps»    r>  T 


A«  «  r-  rv<-i     4«  1  4  -<  7 


r\a     rr-r\     orv     a  r\  .  C'\ 


J  c 


TTT 


r 
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N  2 


B( 

F( 


1 


000001 


.END 
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10:52  PAGE 
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B  3 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRFR0= 

0001 35 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

AC1   = 

X000001 

CHRLBR= 

000073 

C.8L0K= 

00006A 

D.DECD= 

000002 

EIS   = 

000000 

AC2   = 

X000002 

CHRLPR= 

000072 

C.BLSZ= 

0001 AO 

D.DIV  -^ 

000000 

ELESIZ 

0051 32R 

025 

AC3   = 

X000003 

CHRMNS= 

000137 

C.8UFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

OOOOOAR 

025 

ACA   = 

XOOOOOA 

CHRMUL= 

000075 

C.BUFL= 

1 77762 

D.DQAD= 

1 77777 

EOF   = 

10AA75 

ACS   = 

XOOOOOS 

CHRNEG= 

000100 

C.CCNT= 

1 77766 

D.DR0P= 

000002 

ERRMAX= 

000166 

ALLINT 

003274R 

025 

CHRPDL= 

000271 

C.CPTR= 

1 7776A 

D.ENCD= 

000002 

ERRNUM 

00A772R 

025 

ARYRET 

003276R 

025 

CHRPLU= 

000055 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

00A770R 

025 

ASCQUO= 

0OOOA2 

CHRPWR= 

000120 

C.DIG  = 

OOOOAO 

D.EXPD= 

000002 

ERRO 

00A77AR 

025 

A.ALEN= 

OOOOOA 

CHRQST= 

000121 

C.FASW= 

020000 

D.F6ET= 

000005 

EXEBUF 

00505AR 

025 

A.ARG  = 

OOOOAO 

CHRQLXD= 

0001 1 3 

C.FLEN= 

000010 

D.FMT  = 

OOOOOA 

E$CT 

005056R 

025 

A.AS8  = 

0OG200 

CHRRBR= 

000CA7 

C.FLSH= 

OOAOGO 

{),?PHJ= 

000005 

ESPT 

005060R 

025 

A.B1T5= 

000003 

CHRRPR= 

0000A2 

C.FRC  = 

000001 

D.FPUT= 

000005 

FA.APD= 

000100 

A. CON  = 

000020 

CHRSEM= 

00007A 

C.JDEN= 

000010 

D.GE  = 

000000 

FA.CRE= 

000010 

A.DIMS= 

OOOOC. 

CHRSM0= 

000112 

C.NAME= 

000102 

D.6T  = 

000000 

FA.DLK= 

001000 

A.Dim  = 

000006 

CHRSPA= 

OOOOAO 

C.N0BF= 

OOOAOO 

D.I8M  = 

000002 

FA.ENB= 

100000 

A.NUM  = 

000006 

CHRTAB= 

iiiticietit    GX 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.EXC= 

002000 

A.PTR  = 

000000 

CHRUPA= 

000131 

COP  = 

OOOOOA 

D.INriR= 

000013 

FA.EXT= 

OOOOOA 

A. IMP  = 

000010 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.NSP= 

000100 

BADDIR= 

10AA63 

CHR.CC= 

000003 

C.RDLN= 

1 77776 

D.LE  = 

000000 

FA.NSR= 

000200 

BADERR= 

10AA37 

CHR.CR= 

00001 5 

C.REWT= 

002000 

D.L06  = 

000001 

FA.POS= 

010000 

BLDLST 

OOOOOORG 

020 

CHR.C2= 

000032 

C.RND  = 

000010 

D.LT  = 

000000 

FA.RD  = 

000001 

BLZBUB 

0051 16R 

023 

CHR.GT= 

0000A6 

c.seiT= 

177756 

D.MAX  = 

000000 

FA.RWD= 

OOAOOO 

BRSELF 

0050A6R 

025 

CHR.LF= 

000012 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.SEQ= 

OAOOOO 

CCNT 

00S072R 

025 

CHR.LT= 

0000A3 

C.SPGL= 

000200 

D  MIN  = 

000000 

?^.sm= 

OOOOAO 

C!^A^€X 

003060R 

025 

CHR.SI= 

00001 7 

C.SPLX= 

000001 

D./iUL  = 

000000 

FA.TMP= 

000020 

CHANOO 

000256R 

025 

CHR.SL= 

000057 

C.SPRS= 

000002 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN01 

000330R 

025 

CHR.S0= 

000016 

C.SRC  = 

^7777^ 

D.NN  = 

000000 

FA.WRT= 

000002 

CHAN02 

00051 2R 

025 

CHR.TB= 

00001 1 

C.SRCP= 

00002A 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN03 

000674R 

025 

CHR.UL= 

000106 

C.TT  = 

OOOOOA 

D.OR  = 

000000 

FD.CCL= 

000002 

CHANOA 

001056R 

025 

CHR..A= 

0001 A1 

C.WJDC= 

1 7777^ 

D.PLUS= 

oooooc 

FD.COM= 

020000 

CHANGS 

001 2A0R 

025 

CHR..E= 

0001  AS 

C.WJDR= 

}77772 

D.PSIJR= 

000006 

FD.CR  = 

000002 

CHAN06 

001A22R 

025 

LHH • . J— 

000163 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN07 

0016GAR 

025 

CHR..T= 

0001 6A 

DEFERR= 

10AAOS 

D.QQAD= 

000000 

FD.FTN= 

000001 

CHANGS 

001766R 

025 

CHR..U= 

000165 

DEVIL 

00511AR 

025  D.QUAD= 

000000 

FD.F11= 

OAOOOO 

CHANG9 

0021 50R 

025 

CHR..Z= 

000172 

DEVNTF= 

10AA70 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN10 

002332R 

025 

CHR..O= 

000060 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN11 

00251AR 

025 

CHR..1= 

000061 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN12 

002676R 

025 

CH.AND= 

000001 

DIMBLK 

0031 12R 

025  D.SCON= 

000006 

FD.OSP= 

OOAOOO 

CHAN13 

000022R 

023 

CMDBUF 

003250R 

025 

DIMPTR 

0031 1AR 

025  D.SDIF= 

000006 

FD.PLC= 

OOOOOA 

CHANU 

00020AR 

023 

CMDMAX= 

000010 

DIMTYP 

0031 16R 

025  D.SUB  = 

ooooco 

FD.PRN= 

OOOOOA 

CHNOPN= 

10AA71 

CNTSIZ 

005130R 

025 

DIRFUL= 

10AA66 

D.SIRS= 

00^^06 

FD.PSE= 

010000 

CHRANO= 

000051 

COMBIN 

005076R 

025 

DOMERR= 

10AA17 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRBeL= 

000007 

'■QMCNT 

005126R 

025 

DPTERR= 

10AA16 

D.TRAN= 

OOOOOA 

FD.RAN= 

000002 

CHRBKR= 

000133 

.JiERR= 

10AA25 

DYDCNT 

00322AR 

025  D.UNON= 

000006 

FD.REC= 

000001 

CHRBa  = 

000200 

COMPTR 

005122R 

025 

D.AND  = 

000000 

D.SMAX= 

000000 

FD.RWh= 

000001 

CHRBOX^ 

00011A 

COMRTN 

0031 56R 

025 

D.8XCT= 

000007 

D.$MIN= 

000000 

FD.SDI= 

000020 

CHRCinA:= 

00005A 

COMSKP 

00512AR 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SQD= 

OOOOAO 

CHRCa^ 

000076 

CORPTR 

005120R 

025 

D.8XNL= 

000007 

D.$PLU= 

000000 

FD.TTYr 

OOOOOA 

CHRDEL= 

000107 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHRDIV= 

000053 

CS.800= 

000010 

D.8XPW= 

000007 

D.$SUB^ 

000000 

FF. CHR= 

000005 

CHRDLR= 

000176 

CS.FL0= 

000020 

D.8XRL= 

000007 

D.1C0M= 

000001 

FF.NV  = 

000003 

CHRDLT= 

000110 

CS.JDN= 

OOOOAO 

D.CIRC^^ 

000001 

D.1EXP= 

000002 

FF.POE= 

000002 

CHRDOT^ 

000056 

CS.ONE= 

000100 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.RWO= 

000001 

CHREP  = 

000105 

CTEPS 

0001 5 2R 

025 

D.COMP= 

000001 

EDI  CNR 

005063R 

025  FF.RWFr 

000006 

CHRERR= 

10AA31 

CTMAX 

0002 12R 

025 

D.CONT= 

000006 

EDICNT 

00506AR 

025  FF.SPC= 

OOOOOA 

CHRf JL= 

000177 

CTRMAX 

0001 72R 

025 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  F HE ADR 

00501 2R 

025 

BLDLST 
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c  3 

SYMBOL 

FABLE 

FHRET 

005040R 

025 

F.FNAM= 

000110 

HSHMSK= 

1 77601 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

FILNTF= 

104467 

F.F^e  = 

000102 

HSHSIZ= 

000200 

MONLEN 

0031 30R 

025  M.R0LL= 

000000 

FIS   = 

000000 

F.FNDF= 

000010 

KHAN 

005050R 

025  MONPTR 

0031 22R 

025  M.SATA= 

000001 

F1SC0N=  046000 

F.FTYP= 

000116 

ILFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SCAN= 

000011 

FIXPTR 

003074R 

025 

F.FUN  = 

000010 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FLAGS 

004764R 

025 

F.FVER= 

000120 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SIGN= 

000000 

FLCBUF 

003250R 

025 

F.HEAD= 

000006 

INDERR= 

104410 

M.ABS  = 

000000 

M.SUBR= 

000001 

FLIhE 

00501 4R 

025 

F.HIBIC= 

000004 

INNTMP 

003250R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLOEXP 

003270R 

025 

F.LBL  = 

000020 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FL0NE6 

003272R 

025 

F.LINE= 

000012 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN= 

000012 

FLSWTB 

000222R 

025 

F.LOC  = 

000004 

INSNAM= 

104462 

M.BXCT= 

000007 

M.$ABS= 

000000 

FLTLEN=  000010 

F.LSTC= 

000004 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI= 

000000 

FNINSI 

005044R 

025 

F.LUN  = 

000042 

I.CNT  = 

1 77776 

M.BXFX= 

000007 

M.$FLR= 

000000 

FORIGN 

000032R 

025 

F.MBCT= 

000054 

I. DIM  = 

1 77772 

M.BXI0= 

000007 

M.$IDN= 

000000 

FO.AP0= 

000106 

F.MBC1= 

000055 

l.LEN  = 

000012 

M.8XLC= 

000003 

M.$NEG= 

000000 

FO.MFY= 

000002 

F.MBFG= 

000056 

I.OERR= 

000062 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.RD  = 

000001 

F.MON  = 

000002 

I. OLD  = 

1 77770 

M.8XNL= 

000007 

M.1RDT= 

000011 

FO.UPD= 

000006 

F.NIL  = 

000001 

I.PTR  = 

1 7777^ 

M.8XPP= 

000007 

M.1REV= 

000003 

FO.WRT= 

000016 

F.NRBD= 

000024 

I.STR  = 

1 77766 

M.BXPW=  000007 

M.1SCN=  000011 

FPMODE 

000042R 

025 

F.NREC= 

000030 

LABERR= 

104406 

M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FF>P   = 

000000 

F.OPN  = 

000010 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FPPLEN= 

000004 

F.OVBS= 

000030 

LARGBL 

0031 62R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

FREBLK 

007400R 

025 

F.PREV= 

000000 

LARGCV 

0031 76R 

025  M.CEI  = 

\77777 

NB.NAM=  000004 

FUZZ 

0001 42R 

025 

F.PRNT= 

100000 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FXPTR1 

003076R 

025 

F.PROT= 

010000 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

F$EVAL= 

000100 

F.RACC= 

000016 

LARGLN 

0031 66R 

025  M.D0UT= 

000006 

NB.Sf#1=  000040 

FSEVl  = 

000200 

F.RATT= 

000001 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$EXEC= 

000400 

F.RCMi=  000034 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F$FUNC= 

001000 

F.RCTL= 

000017 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F.ACTL= 

000076 

F.READ= 

004000 

LARGVA 

OO320OR 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F .AL0C= 

000040 

F.REDF= 

000040 

LBINC 

005100R 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.BBFS= 

000062 

F.RES  = 

000040 

LBUFF 

00331 6R 

025  M.FIL  = 

0001 77 

ND.EXT= 

000002 

F.BOB  = 

000070 

F.RET  = 

1 77772 

LBUFLN= 

000621 

M.FLR  = 

1 77777 

ND.NAM=  000004 

F.BGBC= 

000057 

F.RSIZ= 

000002 

LCOUNT 

005106R 

025  M.FMT  = 

000004 

NO.PPN=  000100 

F.BITS= 

l/Z/A 

F.RTYP= 

000000 

LENERR= 

104412 

M.GDUP= 

000003 

ND.$EX= 

000000 

F.BICDN=  000026 

F.R2  = 

000014 

LENTAB 

OO0054R 

025  M.6DUN=  000003 

ND.$E$= 

000020 

F.BKDS= 

000020 

F.R3  = 

000016 

LEXPTR 

0031 OOR 

025  M.6ETI= 

000006 

ND.$f#1=  000000 

F.BKEF= 

000050 

F.R4  = 

000020 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$=  000040 

F.BKP1= 

000051 

F.SEQN= 

000100 

LINC 

005102R 

025  M.IDN  = 

000000 

ND.$PN=  001400 

F-BKST= 

000024 

F . SPDV= 

000072 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN 

005063R 

o;.5 

F.BICVB= 

000064 

f.spun= 

000074 

IININC 

005026R 

025  M.I0TA= 

000000 

NINPTI 

003302R 

025 

r.RR  = 

000C20 

F.STBK= 

000036 

LISIZE= 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.CHR  = 

000075 

F.STK  = 

000022 

Liror 

005072R 

025  M.LN  = 

000001 

NINSTK 

003304R 

325 

F . CNTG= 

00003/ 

F.STOP= 

000004 

LNLNG  = 

104541 

M.MMC'  = 

000010 

NINTMP 

00331 OR 

025 

F.CQDE= 

000010 

F.STP  = 

000001 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINTYP 

003306R 

025 

F.DF^e= 

000046 

F.SUSP= 

000002 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

N0TAVL= 

04472 

F.DSPT= 

000044 

F.TRC  = 

000002 

LS TERP 

004766R 

025  M.NUB  = 

000006 

N0T0PN= 

10^473 

F.DVW^  000134 

F.UN1T= 

000136 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

NPRT1 

004762R 

025 

F.EFBK= 

000010 

F.UR8D= 

000020 

L.BITS= 

000003 

M.0UTR= 

000012 

NULL 

007364R 

025 

F.EFN  = 

000050 

F.VAL  = 

1 77776 

L.CNT  = 

000002 

M.PITM= 

000000 

NUMCHN= 

000020 

F.END  = 

002000 

F.VBN  = 

000064 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

F.EnfiR^ 

000032 

F.VBSZ= 

000060 

L.PTR  = 

000000 

M.QQAD= 

000000 

NJIEFL 

0O3233R 

025 

F.Er.R  = 

000052 

6ETC0R= 

******  GX 

L.rTR1= 

000004 

M.QUAD= 

000000 

NLMESN 

003236R 

025 

F.FACC= 

000043 

GETNB2= 

******  GX 

L .  5;UB5= 

000002 

M.RAND= 

000012 

NUMFLG 

003230R 

025 

F.FFBY= 

000014 

GNOME 

0031 02R 

025  MAHIN= 

000106 

M.RAVL= 

000000 

NUMLEN 

000062R 

025 

F.F LAG= 

000002 

HASHC 

005136R 

025  MAX^HN= 

000014 

M.RCIP= 

000000 

NUMNEG 

003232R 

025 

F.FLB  = 

000)00 

HASHTB 

005140R 

025  .^VBLK 

0031 20R 

025  M.RDCT= 

00001 1 

NUMQFL 

003234R 

025 

BLDLST 

MACRO  Mil  13  08" 

-FEB-80 

10:52  PAGE 

45-3 

D  S 

SYMBOL 

TABLE 

NUMRIG 

003231 R 

025 

RANERR= 

104411 

R.OFF  = 

000000 

SY.8RK= 

100000 

T.LIST= 

0C0400 

NUMUID 

003226R 

025 

RARGBL 

003204R 

025  R.PREV= 

000004 

SY.BS  = 

000010 

T.LIT  = 

000020 

NUMZFL 

003235R 

025 

RARGCV 

003220R 

025  R.PTR  = 

000000 

cy.ciR= 

000040 

T.MON  = 

000010 

NYIERR= 

10A432 

RARGFL 

003202R 

025  R.SEQ  = 

000003 

SY.ERP= 

000020 

T.NIL  = 

000004 

N.BLSZ= 

000036 

RARGLE 

00321 6R 

025  R.VAR  = 

000002 

SY.NOU= 

000100 

T.NUM  = 

002000 

N.DESC= 

000020 

RARGLN 

00321  OR 

025  R6 

X000006 

SY.0PN= 

000002 

T.0PFN= 

000001 

N.DEV  = 

000032 

RARGPT 

003206R 

025  R7 

X000007 

SY.PMT= 

001000 

T.0THR= 

040000 

N.DE\/N= 

00003A 

RAR6SF 

00321 4R 

025  SI 

X000005 

SY. SRT= 

000400 

T.SOP  = 

000002 

N.DID  = 

000024 

RARGTY 

00321 2R 

025  SIDAMN= 

104435 

SY.SVC= 

000004 

T.SP0P= 

000040 

H.[)\/m= 

000032 

RARGVA 

003222R 

025  SIFRAM 

00331 4R 

025 

SY.SVL= 

000200 

T.TMP  = 

000200 

N.EXT  = 

OOOOK 

RBASE 

005074R 

025  SISTAK 

006350R 

025 

S.AB  = 

177776 

T.VAL  = 

100000 

N.FID  = 

000000 

RCOUNR 

0051 12R 

025  SJTOP 

006346R 

025 

S.AS8  = 

100000 

T.VAR  = 

001000 

N.FNAM=  000006 

RCOUNT 

00511  OR 

025  SITP 

0071 44R 

025 

S.BFHD= 

000020 

UPPER  = 

1 77400 

N.FTYP= 

OOOOU 

REDCNT 

005070R 

025  SIWARN= 

000200 

S.BITS= 

000002 

UTNAME 

000344R 

023 

N.F\/ER= 

000016 

REDIGN 

005066R 

025  SIZTAB 

000044R 

025 

S.CHR1= 

000003 

VALERR=: 

104413 

N.^IA^€= 

000006 

REDOFF 

005072R 

025  SI.8IT= 

1 7777^ 

S.FATT= 

000016 

VARBLE 

007400R 

025 

N.NEXT= 

000022 

REENTR 

003060R 

025  SI.LEN= 

1 77772 

S.FDB  = 

000140 

VAPBLS 

OOOOOOR 

025 

N.PPN  = 

000024 

RES8IT 

003K2R 

025  SI.RET= 

1 77772 

S.FL8  = 

040000 

VERNUM 

OOOOOOR 

025 

N.STAT= 

000020 

RESCVT 

0031 52R 

025  SI.VAL= 

1 77776 

S.FNAW=  000006 

VRSION= 

000002 

N.UNIT= 

000034 

RESERR= 

104440 

SKPSI7 

0051 34R 

025 

s.F^e  = 

000036 

WIDTH 

000072R 

025 

0BUFIN=  001000 

RESLEN 

0031 50R 

025  SPHOLI; 

000004R 

024 

S.FNBW= 

00001 7 

UROUND 

000020R 

025 

OCHAN 

005052R 

025 

RESPTR 

0031 40R 

025  SPINIT 

000002R 

024 

S.FNTY= 

000004 

WSDATE 

0001 36R 

025 

GMOOE 

000402R 

023 

RESSFT 

0031 46R 

025  STKINC= 

000774 

S.FTYP= 

000002 

WSFULL= 

104403 

OPTMPO 

005066R 

025 

RESTVP 

0031 44R 

025  STOP  = 

104420 

S.LEN  = 

000002 

WSNAME 

000074R 

025 

0PTMP1 

005070R 

025 

RESULT 

0031 36R 

025  SUBCNT 

0031 04R 

025 

S.LINK= 

1 7777^ 

WSTIME 

0001 32R 

025 

0PTMP2 

005072R 

025 

RESVAL 

0031 54R 

025  SUBDCT 

0031 06R 

025 

SMfEN= 

000020 

$FIS  = 

*****ii^  G 

0PTMP3 

005074R 

025 

RINC 

0051 04R 

025  SlfiPTR 

00311  OR 

025 

S.TYPE= 

140000 

%fPP     = 

•  ****«r  G 

OPTICA 

005076R 

025 

RLTBAS 

005066R 

025  SYMBOL= 

•***i#  GX 

S.VAL  = 

000000 

$FPPLN= 

*♦•***  G 

0PTMP5 

005100R 

025 

ROTINC 

005070R 

025  SYMB1 

005344R 

025 

TKDIMS 

005072R 

025  $MACHN= 

••••*♦  G 

0PTMP6 

0051 02R 

025 

ROUND 

00001  OR 

025  SYMF 

005340R 

025 

TKFRAM 

005066R 

025  $RSTS  = 

**i^*«*  G 

0PTI1P7 

005104R 

025 

ROVER 

00331 2R 

025  SYMPT1 

005346R 

025 

TKLEFT 

005070R 

025  $RSX  = 

ItHHititlt     G 

0PTWP8 

005106R 

025 

RSTS  = 

000000 

SYMTAB 

005352R 

025 

TMODE 

000403R 

023  $RT11  = 

♦♦•♦♦*  G 

0PTMP9 

00511 OR 

025 

RSX   = 

000115 

SYMTBF= 

1 04404 

TMPTAG= 

000166 

.BOOLE= 

000002 

OPTWIO 

0051 12R 

025 

RTOP 

005070R 

025  SYMTOP 

005350R 

025 

TTY8UF 

004140R 

025  .CHARA= 

000000 

OPTWK 

005026R 

025 

RT11   = 

000000 

SYMTP 

006272R 

025 

rTYLEN= 

000622 

.DEF.  = 

000002 

ORIGIN 

000030R 

025 

R.8ITS= 

000003 

SYMWRN= 

000054 

TURKEY= 

104436 

.FL0AT= 

000006 

OUTPTR 

000066R 

025 

R.FIX  = 

000001 

SYNERR= 

104407 

TYPE  = 

000166 

.FSRCB= 

IfkHltltit     G 

OVROPR= 

000000 

R.LCT  = 

000002 

SYSER  = 

mtitifkit   GX 

T.80L  = 

020000 

.INTEG= 

000004 

PATCH 

007344R 

025 

R.LN  = 

000002 

SYSERR= 

104402 

T.CON  = 

004000 

.MOLUN 

000404R 

023 

PRECSN 

000052R 

025 

R.LNUM= 

000010 

SYSTAT 

OOOOOOR 

024 

T.DIM  = 

000100 

...GBL= 

000000 

RANDAC 

003064R 

025 

R.NEXT= 

000006 

SY.BAD= 

000001 

T.FUN  = 

010000 

...TPC= 

000020 

RANDY 

003062R 

025 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

OYDTB 

000000 

004 

BOPTB 

000000 

005 

nONBTB 

000000 

006 

DYD6TB 

000000 

007 

COhTB 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

0)2 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 
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MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

000206 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEFSO 

000406 

023 

DEFSI 

000006 

024 

DGFS2 

007400 

025 

ERRORS 

DETECTED: 

0 

^« 
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1 

000000 

2 

000000 

3 

0001 1 5 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RTII 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
FIS 
FPP 

II  II  II 
ooo 

FPPLEN 

=  A 

DEBUG 

=  0 

I  3 


;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

; SINGLE  PRECISION 

; DON'T  DISPLAY  REGISTERS  ON  ERRORS 


T^ 


BRKCHK 
APLDEF 


1 
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J     3 
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L  i 

1 

.TITLE 
. I DENT 

BRKCHK 
\V02.03\ 

4 

5 

6  000000 

7 

8  000000 

13  000000 

14  000006 

15  000010 

20  000012 

21  000020 
22 

.S8TTL 

BRKCHK 

CHECK  TO 

SEE  IF  JH^   USER  WANTS  TO  STOP 

.PSECT 

CODE 

032737 
001001 

042737 
104420 

100000 
1 00000 

000000' 
000000' 

BRKCHK: 
1$: 

• 

'bit 

BNE 

RETURN 

BIC 

STOP 

#SY.BRK,SYSTAT  , 
1$ 

#SY.BRK,SYSTAT  \ 

;DOES  HE? 

;YES 

:N0,  QUICKLY  RETURN 

;YES,  CLEAR  BREAK  FLAG 

;***  EXECUTION  STOP  *♦♦ 

25 

26 

27 

28  000022 

29 

30  000022 

32  000022 

33  000026 

35  000030 

36  000036 

37  000040 

38  000046 

39  000054 
000054 
000056 
000060 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52  000062 

53 

54  000062 

55  000062 

56  000064 
57 

58  000066 

59  000072 

60  000074 

61  000100 
62 

.S8TTL 

CCTRAP 

AST  FOR  UNSOLICITED  CHARACTERS 

.PSECT 

CODE 

122726 
001012 
032737 
001403 
012766 
052737 

012746 

163 

1 04377 

000003 

1 00000 

OOOOOOG 
100000 

001 

000000 • 

000002 
000000* 

CCTRAP: 

1$: 
2$: 

• 

"CMPB 
BNE 
BIT 
BEQ 
MOV 
BIS 
ASTXSS 
MOV 
.BYTE 
EMT 

#CHR.CC,(SP)^-   . 
2$ 
*SY.BRK,SYSTAT  , 

1$ 

*DIE,2.(SP) 

*SY.BRK,SYSTAT  . 

(PC)*,-(SP) 
115. J 
*0<377> 

;WAS  IT  A  -^C? 

;NOPE 

[ALREADY  TRYING  TO  STOP? 

;N0,  PLEASE  CONTINUE 

[RETURN  ADDRESS  IS  DEATH 

[INDICATE  STOP  REQUESTED 

[FINISHED,  NOW  RETURN 

.S8TTL 

RSXERR 

CHECK  FOR  RSX  ERRORS 

;  FUrJCTIONAL  DESCRIPTION: 
;      This  routine  checks  the  ( 
;      has  occurred  and  we  need 
;      the  directive  status  wore 
branches  to  ERROR. 

:arry  bit.  If  set,  an  error 

to  get  the  error  code  from 

i   ($DSW).  The  routine  then 

■PSECT 

CODE 

103401 

RSXERR: 

1$: 

• 

'bcs 

RETURN 

2$ 

< 

•res 

[No,  still  good 

005737 
002374 

000137 

OOOOOOG 
OOOOOOQ 

2$: 

TST 
BGE 
PUSH 
JMP 

$DSW 

1$ 
$DSW 

ERROR 

■Test  error  number 
•Nothing  really  the  matter 
•Put  the  error  #  on  the  stack 
[   and  go 

63 
64 
65 
66 

t? 

.S6TTL 

FCSERR 

CHECK  FOf 

\   FCS  ERRORS 

;  FUNCTIONAL  DESCRIPTION: 

c 

C, 


rr: 


M"T 
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68 

69 
70 
71 
72 
73 
lU 

75 
76 
71 
78 
79 
80 
81 

Sd 
86 


PAGE  AA-1 


TTT 


This  routine  checks  the  carry  bit.  If  set,  an  error 
has  occurred  and  we  need  to  get  the  error  code  from 
the  FDB  (in  offset  F.ERR).  Th( 
to  ERROR. 


C- 
Cy 


ie  routine  then  branches 


0001 OA 

0001 OA 
0001 04 
000106 

000110 
00011A 

'^0116 
3122 

J0126 


103A01 


105760 
002374 

105366 
0001 37 


000052 


000001 
OOOOOOG 


.PSECT 

CODE 

FCSERR: 

1$: 

• 

*BCS 
RETURN 

2$ 

2$: 

TST8 

BGE 

PUSH 

DECS 

JMP 

F.ERR(RO) 

1$ 

F.ERR(RO) 

1.(SP) 

ERROR 

;Yes 

;No,  still  good 


Test  error  number 
Nothing  really  the  matter 
Put  the  error  H   on  the  stack 
Hack  conversion 
and  go 


«k^H   4  yN 


nTT 


r 
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N     3 


C) 
S^ 


1 


000001 


.END 


A( 
A( 
A( 
A( 
Al 
A( 
Al 
Al 

a: 

A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
Bi 
Bj 
B 
BI 
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ACQ   = 

XOOOGOO 

CHRFIL= 

000177 

C.ALOC= 

000162 

D.CTLM= 

000000 

EDIFLG 

005062R 

025 

AC1   = 

X000001 

CHRFR0= 

000135 

C.BLOK= 

000064 

D.DEAL= 

000003 

EDIT  = 

000003 

AC2   = 

X000002 

CHRLBR= 

000073 

C.BLSZ= 

000140 

D.DECD= 

000002 

EIS   = 

000000 

AC3   = 

X000003 

CHRLPR= 

000072 

C.8UFF= 

1 77760 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

ACA   = 

XOOOOOA 

CHRMNS= 

000137 

C.BUFL= 

1 77762 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

ACS   = 

XOOOOOS 

CHRf1UL= 

000075 

C.CCNT= 

1 77766 

D.DQAD= 

1 77777 

EOF   = 

104475 

ALL I NT 

003274R 

025 

CHRNEG= 

0001 00 

C.CPTR= 

1 77764 

D.DR0P= 

000002 

ERRMAX= 

000166 

ARYRET 

003276R 

025 

CHRPDL= 

000271 

C.CZ  = 

001000 

D.ENCD= 

000002 

ERRNUM 

004 772R 

025 

ASCQUO  0OOOA2 

CHRPLU= 

000055 

C.DI6  = 

000040 

D.EQ  = 

000000 

ERROR  = 

^•k-k-k-k-k   6X 

A.ALEN= 

OOOOOA 

CHRPWR= 

000120 

C.FASW= 

020000 

D.EXPD= 

000002 

ERRPTR 

004770R 

025 

A.ARG  = 

OOOOAO 

CHRQST= 

000121 

C.FLEN= 

000010 

D.F6ET= 

000005 

ERRO 

004774R 

025 

A.ASB  = 

000200 

CHRQU0= 

000113 

C.FLSH= 

004000 

D.FMT  -- 

000004 

EXEBUF 

005054R 

025 

A.BITS= 

000003 

CHRRBR= 

000047 

C.FRC  = 

000001 

D.FPNT= 

000005 

E$CT 

005056R 

025 

A. CON  = 

000020 

CHRRPR= 

000042 

C.IDEN= 

000010 

D.FPUT= 

000005 

E$PT 

005060R 

025 

A.DIMS= 

000002 

CHRSEri= 

000074 

■'.NAME= 

000102 

D.6E  = 

000000 

FA.APD= 

000100 

A.DIW1= 

000006 

CHRSf10= 

0001 1 2 

C.N06F= 

000400 

D.GT  = 

000000 

FA.CRE= 

000010 

A.NUM  = 

000006 

CHRSPA= 

000040 

C.NUM  = 

000020 

D.IBM  = 

000002 

FA.DLK= 

001000 

A.PTR  = 

000000 

CHRUPA= 

000131 

COP  = 

000004 

D.IND  = 

000002 

FA.ENB= 

100000 

A. IMP  = 

000010 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.INNR= 

000013 

FA.EXC= 

002000 

BADDIR= 

10AA63 

CHR.CC= 

000003 

C.RDLN= 

1 77776 

D.INTR= 

000006 

FA.EXT= 

000004 

BADERR= 

104A37 

CHR.CR= 

00001 5 

C.HEWT= 

002000 

D.LE  = 

000000 

FA.NSP= 

000100 

BLZBie 

0051 16R 

025 

CHR.CZ= 

000032 

C.RND  = 

00001 0 

D.LOG  = 

000001 

FA.NSR= 

000200 

BRKCHK 

OOOOOORG 

020 

CHR.GT= 

000046 

C.S8JT= 

1 77756 

D.LT  = 

000000 

FA.POS= 

010000 

BRSELF 

0050A6R 

025 

CHR.LF= 

000012 

C.SPFX= 

000100 

D.WAX  = 

000000 

FA.RD  = 

000001 

CCNT 

005072R 

025 

CHR.LT= 

000043 

C.SPGL= 

000200 

D.MEM  = 

000002 

FA.RWD= 

004000 

CCTRAP 

0OO022RG 

020 

CHR.SI= 

000017 

C.SPLX= 

000001 

D.MIN  = 

000000 

FA.SEQ= 

040000 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C.SPRS= 

000002 

^.MUL  = 

000000 

FA.SHR= 

000040 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C.SRC  = 

177774 

l;.NE  = 

000000 

FA.TMP= 

000020 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C . SRCP= 

000024 

D.NN  = 

000000 

FA.WCK= 

020000 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.TT  = 

000004 

D.NR  = 

000000 

FA.WRT= 

000002 

CHAN03 

00067AR 

025 

CHR..A= 

000141 

C.WIDC= 

177770 

D.OR  = 

000000 

FCSERR 

0001 04RG 

020 

CHANOA 

001056R 

025 

CHR..E= 

000145 

C.WIDR= 

^77772 

D.PLUS= 

000000 

FD.BLK= 

000010 

CHANGS 

0012A0R 

025 

CHR..S= 

000163 

DEBUG  = 

000000 

D.PSLR= 

000006 

FD.CCL= 

000002 

CHAN06 

001A22R 

025 

CHR..T= 

000164 

DEFERR= 

104405 

D.PWR  = 

000001 

FD.COM= 

020000 

CHAN07 

001604R 

025 

CHR..U= 

.00165 

DEVIL 

005114R 

025  D.QQAD= 

000000 

FD.CR  = 

000002 

CHAN08 

001766R 

025 

CHR..Z= 

:001 72 

DEVNTF  = 

104470 

D.OUAD= 

000000 

FD.DIR= 

000010 

CHAN09 

0021 50R 

025 

CHR..0= 

oo:^<^n 

DIE   = 

***•••  (3X 

D.RES  = 

000000 

FD.FTN= 

000001 

CHAN10 

002332R 

025 

CHR..1= 

00006 1 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.F11= 

040000 

CHAN11 

00251AR 

025 

CH.AND= 

000001 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.INS= 

000010 

CHAN12 

0026/6R 

025 

CMO&Jf 

003250R 

025 

Dir©LK 

0031 12R 

025  D.SC0N= 

000006 

FD.ISP= 

002000 

CHAN13 

000022R 

023 

C/1D«AX= 

000010 

DinPTR 

0031 14R 

025  D.SDIF= 

000006 

FD./1NT= 

100000 

CHANU 

000204R 

023 

CNTSIZ 

005130R 

Oc. 

:IWTYP 

0031 16R 

025  D.SUB  = 

000000 

Fn.OSP= 

004000 

CHNOPN= 

104471 

COMBiN 

005076R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PLC= 

000004 

CHRAND= 

000051 

COWCNT 

005126R 

025 

D0MERR= 

104417 

D.TAKE= 

000002 

FD.PRN= 

000004 

lHRB£L= 

000007 

C0«ERR= 

104425 

DPTERR= 

104416 

D.TRAN= 

000004 

FD.PSE= 

010000 

CHRBKR= 

000133 

COMPTR 

005122R 

025 

DYDCNT 

003224R 

025  D.UN0N= 

000006 

FD.RAH= 

000001 

CHRBa= 

000200 

COMRTN 

0031 56R 

025 

D.ANO  = 

000000 

D.$MAX= 

000000 

FD.RAN= 

000002 

CHRBOX= 

000114 

COMSKP 

005124R 

025 

D.8XCT= 

000007 

D.$MIN= 

000000 

FD.REC= 

000001 

CHRCMAr 

000054 

CORPTR 

005120R 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.RWM= 

000001 

CHRCOL= 

000076 

CS.ASS-- 

000200 

D.8XNL= 

000007 

D.$PLU= 

000000 

FD.SDI= 

000020 

CHRDEL= 

000107 

CS.800= 

000010 

D.8XPP= 

000007 

D.$RES= 

000000 

FD.SQD= 

000040 

CHRDIV= 

000053 

C5.FL0= 

000020 

D.8XPW= 

000007 

D.$SIR= 

000000 

FD.TTY= 

000004 

CHRDLR= 

000176 

CS.IDN= 

000040 

D.3XRL= 

000007 

D.1C0M= 

000001 

FD.UBH= 

000002 

CHRDLT= 

000110 

CS.0NE= 

000100 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.CHR= 

000005 

CHRDOT= 

000056 

CTEPS 

0001 5 2R 

025 

D.C0WB= 

000001 

D.1R0T= 

000003 

FF.NV  = 

000003 

CHREP  = 

000105 

CTMAX 

0002 12R 

025 

D.C0f1P= 

000001 

EDICHR 

005063R 

025  FF.POE= 

000002 

CHRERR= 

104431 

CTR/1AX 

0001 72R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF. RWD= 

000001 
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FF.RWF= 

C00006 

F.FFBY= 

000014 

HASHTB 

0051 40R 

025  MONBLK 

0031 20R 

025  M.RDCT=  000011 

FF.SPC= 

000004 

F.FLAG= 

000002 

HSHMSK= 

177601 

MONCVT 

0031 32R 

025  M.REVS=  000003 

F HE ADR 

00501 2R 

025 

F.FLB  = 

000100 

HSHSIZ= 

000200 

MONLEN 

0031 30R 

025  M.R0LL=  000000 

FHRET 

005040R 

025 

F.FNA«= 

000110 

KHAN 

005050R 

025  MONPTR 

0031 22R 

025  M.SATA=  000001 

FILNTF= 

104467 

F.F^B  = 

000102 

ILFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SCAN=  000011 

FIS   = 

000000 

F.FNDF= 

000010 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP=  000000 

FISCON=  046000 

F.FTYP= 

000116 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SIGN=  000000 

FIXPTR 

003074R 

025 

F.FUN  = 

000010 

INDERR= 

104410 

M.ABS  = 

000000 

M.SIIEIR=  000001 

FLAGS 

004764R 

025 

F.FVER= 

000120 

INNTMP 

003250R 

025  M.BOL  = 

000200 

M.SYM  =  000203 

FLCBUF 

003250R 

025 

F.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.SYN  =  000201 

FLI^€ 

00501 4R 

025 

F.HIBIC= 

000004 

INPTR 

000064 R 

025  M.BXCR= 

000007 

M.TRAN=  000012 

FLCDEXP 

003270R 

025 

F.LBL  = 

000020 

INSNA«= 

104462 

M.8XCT= 

000007 

M.$ABS=  000000 

FLO^G 

003272R 

025 

F.LINE= 

000012 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI=  000000 

FLSWTB 

000222.1 

025 

F.LOC  = 

000004 

I.CNT  = 

1 77776 

M.BXFX= 

000007 

M.$FLR=  000000 

FLTLEN=  000010 

F.LSTC= 

000004 

I. DIM  = 

1 77772 

M.BXIO= 

000007 

M.$IDN=  000000 

FNINSI 

005044R 

025 

F.LUN  = 

000042 

l.LEN  = 

00001 2 

M.BXLC= 

000003 

M.$NEG=  000000 

FORIGN 

000032R 

025 

F.liBCT= 

000054 

I.0ERR= 

000062 

M.BXNC= 

000007 

M.$SI6=  000000 

FO.APO= 

000106 

F.MBC1= 

000055 

I. OLD  = 

177770 

M.BXNL= 

000007 

M.1RDT=  000011 

FO.MFY= 

000002 

F.MBFG= 

000056 

I.PTR  = 

1 7777^ 

M.BXPP= 

000007 

M.1REV=  000003 

FO.RD  = 

000001 

F.MON  = 

000002 

I. SIR  = 

1 77766 

M.BXPW= 

000007 

M.1SCN=  000011 

FO.UPD= 

000006 

F.NIL  = 

000001 

LABERR= 

104406 

M.BXRL= 

000007 

NAMBUF  003240R 

025 

FO.yRT= 

000016 

F.NRBD= 

000024 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV=  000200 

FPMDDE 

000042R 

025 

F.NREC= 

000030 

LARGBL 

0031 62R 

025  M.3XyA= 

000007 

NB.DIR=  000100 

FPP   = 

000000 

F.OPN  = 

000010 

LARGCV 

0031 76R 

025  M.CEl  = 

1 77777 

NB.NAM=  000004 

FPPLEN= 

000004 

F.OVBS= 

000030 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1=  000400 

FREBLK 

007400R 

025 

F.PREV= 

000000 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2=  001000 

FUZZ 

0001 42R 

025 

F.PRNT= 

100000 

LARGLN 

0031 66R 

025  M.D0UT= 

000006 

NB.SNM=  000040 

FXPTR1 

003076R 

025 

F.PR0T= 

010000 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP=  000020 

F$EVAL= 

000100 

F.RACC= 

000016 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

hB.SVR=  000010 

FSEVI  = 

000200 

F.RATT= 

000001 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP=  000002 

F$EXEC= 

000400 

F.RCNM= 

000034 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.VER=  000001 

FSFUNC= 

001000 

F.RCTL= 

000017 

LBINC 

005100R 

025  M.FACT= 

000001 

ND.DEV=  000200 

F.ACTL= 

000076 

F.READ= 

004000 

LBUFF 

00331 6R 

025  M.FJL  = 

000177 

ND.EXT=  000002 

F.ALOC= 

000040 

F.REDF= 

000040 

LBUFLN= 

000621 

M.FLR  = 

1 77777 

ND.NA«=  000004 

F.RRFS= 

000062 

F.RES  = 

000040 

LCOUNT 

0051 06R 

025  M.FMT  = 

000004 

ND. PPN=  000100 

F.BOB  = 

000070 

F.RET  = 

1 77772 

LENERR= 

104412 

M.GDUP= 

000003 

ND.$EX=  000000 

F.BGBC= 

000057 

F.RSIZ= 

000002 

LENTAB 

000054R 

025  M.GDUN= 

000003 

ND.$E$=  000020 

F.BITS= 

17//74 

F.RTYP= 

000000 

LEXPTR 

0031 OOR 

025  M.GETI= 

000006 

ND.$^#1=  000000 

F.BICDN=  000026 

F.R2  = 

000014 

LFTOP 

005066R 

025  M.I8M  = 

000003 

NO.$N$=  000040 

F.BICDS= 

000020 

F.R3  = 

000016 

LINC 

0C5102R 

025  M.IDN  = 

000000 

ND.$PN=  001400 

F.BKEF= 

000050 

F.R4  = 

000020 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN  005063R 

025 

F.BKP1= 

000051 

F .  SEQN-- 

000 1 00 

LININC 

005026R 

025  M.IOTA= 

000000 

NiNPTI  003302R 

025 

F.BIfST= 

00002^ 

F . SPDV= 

0000^2 

L1S1ZB= 

000020 

M.LIi  = 

000205 

NINPT2  003300R 

025 

F.BKVB= 

000064 

F.SPUN= 

000074 

LJTOP 

005072R 

025  M.LN  = 

000001 

NINSTK  003304R 

025 

F.BR  = 

000020 

F.STBK- 

000036 

LNLNG  = 

104541 

M.MMD  = 

000010 

NINTMP  00331  OR 

025 

F.CHR  = 

000075 

F.S7K  = 

000022 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINTYP  003306R 

025 

F.CNT6= 

000034 

F.STOP= 

000004 

LOWCOR 

0O0GO2R 

0?:  M.,\OT  = 

000000 

NOTAVL=  104472 

r.CODE= 

0000^0 

F.STP  = 

000001 

LSTEr^P 

004766R 

025  M.NUB  = 

000006 

N0T0PN=  104473 

F.DF^©= 

000046 

F . SUSP= 

000002 

LWIDTH 

000070R 

025  M..NfUM  = 

000204 

NPRT1   004762R 

025 

F.DSPT= 

OOWf^^ 

F.TRC  = 

000002 

L.BJTS^ 

000003 

M.0UTR= 

000012 

NULL    007364R 

025 

F.DVNH=  000134 

F.UN]T= 

000136 

L.CNT  = 

000002 

M.PJTM= 

000000 

NUMCHN=  000020 

F.EFac= 

000010 

F.URBO= 

000020 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL  003230R 

025 

F  EFN  = 

000050 

F.VAL  = 

1 77776 

L.PTR  = 

000000 

M.QQAD- 

000000 

NUMEFL  003233R 

025 

F.END  = 

002000 

F.V8N  = 

000064 

L.FTR1= 

000004 

M.OUAD= 

000000 

NUMESN  003236R 

025 

F.EnflR= 

000032 

r.VBSZ= 

000060 

L.SUBS= 

000002 

M.RAND= 

000012 

NUMFLG  003230R 

025 

F.ERR  '- 

000052 

GNOME 

003102R 

025  MACHINE 

000106 

M.RAVL= 

000000 

NUMLEN  000062R 

025 

F.FACC= 

000043 

HASHC 

005136R 

025  MAXLHN= 

000014 

M.RC1P= 

000000 

NUMNEG  003232R 

025 
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NUMQFL 

00323AR 

025 

RANDY 

003062R 

025 

R.NEXT= 

000006 

SY.BS  = 

000010 

T.LIT  = 

000020 

NUMRIG 

003231 R 

025 

RANERR= 

104411 

R.OFF  = 

000000 

SY.CLR= 

000040 

T.MON  = 

000010 

NUMUID 

003226H 

025 

RARGBL 

003204R 

025  R.PREV= 

000004 

SY.ERP= 

000020 

T.NIL  = 

000004 

Nl^ZFL 

003235R 

025 

RARGCV 

003220R 

025  R.PTR  = 

000000 

SY.NOU= 

000100 

T.NUM  = 

002000 

NYIERR= 

104432 

RAR6FL 

003202R 

025  R.SEQ  = 

000003 

SY.OPN= 

000002 

T.OPFN= 

000001 

N.BLSZ= 

000036 

RARGLE 

00321 6R 

025  R.VAR  = 

000002 

SY.PMT= 

001  COO 

T.0THR= 

040000 

N.OESC= 

000020 

RARGLN 

00321  OR 

025  R6 

X000006 

SY.SRT= 

000400 

T.SOP  = 

000002 

N.DEV  = 

000032 

RAPGPT 

003206R 

025  R7 

X000007 

3Y.SVC= 

000004 

T.SPOP= 

000040 

N.DE\/N=  00003A 

RAR6SF 

00321 4R 

025 

SI 

X000005 

SY.SVL= 

000200 

T.TMP  = 

000200 

N.DID  = 

000024 

RARGTY 

00321 2R 

025 

SIDAMN= 

104433 

S.AB  = 

1 77776 

T.VAL  = 

100000 

N.D\/f#1=  000032 

RARGVA 

003222R 

025 

SIFRAM 

00331 4R 

025 

S.ASB  = 

100000 

T.VAR  = 

001000 

N.EXT  = 

000014 

RBASE 

005074R 

025 

SISTAK 

006350R 

025 

S.BFHD= 

000020 

UPPER  = 

177400 

N.FID  = 

000000 

RCOUNR 

0051 12R 

025 

SITOP 

006346R 

025 

S.BITS= 

000002 

UTNAME 

000344R 

023 

N.FNAH=  000006 

RCOUNT 

005 11  OR 

025 

SITP 

0071 44R 

025 

S.CHR1= 

000003 

VALERR= 

104413 

N.FTYP= 

000014 

REDCNT 

005070R 

025 

SIWARN^ 

000200 

S.FATT= 

000016 

VARBLE 

007400R 

025 

N.FVER= 

000016 

REDIGN 

005066R 

025 

SIZTAB 

000044R 

025 

S.FDB  = 

000140 

VARBLS 

OOOOOOR 

025 

N.NAME= 

000006 

REDOFF 

005072R 

025 

SI.BIT= 

17"^774 

S.FLB  = 

040000 

VERNUM 

OOOOOOR 

025 

N.^€XT= 

000022 

REENTR 

003060R 

025 

SI.LEN= 

177772 

S.FNAM= 

000006 

VRSION= 

000002 

N.PPN  = 

000024 

RESBIT 

0031 42R 

025 

SI.RET= 

177772 

S.FNB  = 

000036 

WIDTH 

000072R 

025 

N.STAT= 

000020 

RESCVT 

0031 52R 

025 

SI.VAL= 

1 77776 

S.FNBW= 

00001 7 

UROUND 

000020R 

025 

N.UNIT= 

000034 

RESERR= 

104440 

SKPSIZ 

0051 34R 

025 

S.FNTY= 

000004 

WSDATE 

0001 36R 

025 

(BUFLN= 

001000 

RESLEN 

0031 50R 

025 

SPHOLD 

000004R 

024 

S.FTYP= 

000002 

WSFULL= 

104403 

OCHAN 

005052R 

025 

RESPTR 

0031 40R 

025 

SPINIT 

000002R 

024 

S.LEN  = 

000002 

WSNAME 

000074R 

025 

(WIDE 

000402R 

023 

RESSFT 

0031 46R 

025 

STKINC= 

000774 

S.LINK= 

1 7777 A 

WSTIME 

0001 32R 

025 

OPTMPO 

005066R 

025 

RESTYP 

0031 44R 

025 

STOP  = 

104420 

S.NFEN= 

000020 

$DSW  = 

nnnititit   6X 

0PTI»f>1 

005070R 

025 

RESULT 

0031 36R 

025 

SUBCNT 

0031 04R 

025 

S.TYPE= 

140000 

$FIS  = 

•*«*•*  Q 

0PTMP2 

005072R 

025 

RESVAL 

0031 54R 

025 

SUBDCT 

0031 06R 

025 

S.VAL  = 

000000 

$FPP  = 

•♦*♦••  Q 

0PTIiP3 

005074R 

025 

RINC 

005104R 

025 

SUBPTR 

00311  OR 

025 

TKDIMS 

005072R 

025  $FPPLN= 

•••♦♦♦  Q 

OPTMPA 

005076R 

025 

RLT8AS 

005066R 

025 

SY^©1 

005344R 

025 

TKFRAM 

005066R 

025  $MACHN= 

******  Q 

0PTMP5 

005100R 

025 

ROTINC 

005070R 

025 

SYMF 

005340R 

025 

TKLEFT 

005070R 

025  $RSTS  = 

******  (3 

0PTMP6 

005102R 

025 

ROUND 

00001  OR 

025 

SYMPT1 

005346R 

025 

TMODE 

000403R 

^23  $RSX  = 

******  Q 

0PTMP7 

005104R 

025 

ROVER 

00331 ZR 

025 

SYMTAB 

005352R 

025 

TMPTAG= 

000166 

SRTII  = 

******  (3 

0PTMP8 

0051 06R 

025 

RSTS  = 

000000 

SYMTBF= 

104404 

T 'YBUF 

0041 40R 

025  .800LE= 

000002 

0PTMP9 

00511  OR 

025 

RSX   = 

000115 

SYMTOP 

005350R 

025 

'      '.EN= 

000622 

.CHARA= 

000000 

OPTW10 

0051 12R 

025 

RSXERR 

000062RG 

020  SYMTP 

006272R 

025 

TJ^KEY= 

104436 

.DEF.  = 

000002 

OPTMK 

005026R 

025 

RTOP 

005070R 

025 

SYMyRN= 

000054 

TYPE  = 

000166 

.FLOAT= 

000006 

ORIGIN 

000030R 

025 

RT11  = 

000000 

SYNERR= 

104407 

T.80L  = 

020000 

.FSRCB= 

***--**  G 

OUTPTR 

000066R 

025 

R.BITS= 

OOOOOJ 

SYSERR= 

104402 

T.CON  = 

004000 

.INTEG= 

000004 

OVROPR= 

000000 

R.FIX  = 

000001 

SYSTAT 

OOOOOOR 

024 

T.DIM  = 

00C100 

.MOLUN 

000404R 

023 

PATCH 

007344R 

025 

R.LCT  = 

000002 

SY.aAD= 

000001 

T.FUN  = 

010000 

...GBL= 

000000 

PRECSN 

0OOO52R 

025 

R.LN  = 

000002 

SY.8RK= 

100000 

T.LIST= 

000400 

...TPC= 

000020 

RANDAC 

003064R 

025 

R.LNUM= 

000010 

.  AoS . 

000000 
000000 

000 
001 

TABLES 

OOOOOC 

002 

nONJB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

nONBTB 

000000 

006 

DYD6TB 

000000 

007 

CQHT9 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 

BRKCHK 

MACRO  Mil 

13  0 

SY^«OL 

TABLE 

MNTBL 

000000 

016 

Pf^TRTL 

000000 

017 

CODE 

000132 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEFSO 

000406 

023 

DEFS1 

000006 

024 

DEFS2 

007400 

025 

ERRORS 

DETECTED: 

0 
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17 

V2 
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18 

2- 

19 
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20 

COPYRIGHT  (C)  ( 

976,  1977,  1978,  1979,  1980 

2- 

21 

DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS.                                                            1 

2- 

22 

2- 

23 

2- 

24 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A  SINGLE                                       [ 

2- 

25 

COMPUTER  SYSTEM 

AND  MAY  BE  COPIED  ONLY  WITH  THE  INCLUSION  OF  THE  ABOVE 

2- 

26 

COPYRIGHT  NOTICE.   THIS  SOFTWARE,  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT                                       1 

2- 

27 

BE  PROVIDED  OR 

OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR 

2- 

28 

USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.                                       1 

2- 

29 

TITLE  TO  AND 

OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN 

2- 

30 

DEC. 

2- 

31 

2- 

32 

THE  INFORMATION 

IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 

2- 

33 

AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT                                       1 

2- 

34 

CORPORATION. 

2- 

35 

2- 

36 

DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF   ITS 

2- 

37 
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2- 

38 

2- 

39 

3- 

46 
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139 
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5- 

268 
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6- 

331 
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7- 

377 

DEFINITIONS 

ORDERING  PSECTS 

8- 

426 

DEFINITIONS 

SI  PARSE  FRAMES 

9- 

474 

DEFINITIONS 

TOKEN  DESCRIPTION  BITS 

10- 

515 

DEFINITIONS 

SI  EXECUTION  FRAMES 

11- 

580 

DEFINITIONS 

SPECIAL  PARSE  CHARACTERS 

12- 

607 

DEFINITIONS 

CHRTAB  BITS 

12- 

624 

DEFINITIONS 

SYSTEM  STATUS  BITS 

13- 

640 

DEFINITIONS 

F-FRAMES 

1A- 

724 

DEFINITIONS 

FUNCTION  LINE  BLOCKS 

16- 

807 

DEFINITIONS 

ARRAY  STORAGE  BLOCK 

17- 

869 

DEFINITIONS 

LIST  STORAGE  BLOCK 

18- 

911 

DEFINITIONS 

INDEXING  STACK  FRAME 

19- 

940 

DEFINITIONS 

SYMBOL  TABLE  ENTRY 

2(h 

969 

DEFINITIONS 

CHANNEL  BLOCK 

22- 

1085 

DEFINITIONS 

RSX  DATA 

23- 

1110 

DEFINITIONS 

NAME  BLOCKS 

33- 

1612 

DEFINITIONS 

MACROS 

35- 

1905 

DEFINITIONS 

APL  CHARACTERS 

36- 

1967 

DEFINITIONS 

ERRORS 

4A- 

4 

CARVE 
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1 

000000 

2 

000000 

3 

0001 1 5 

A 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
FIS 
FPP 

II  II  II 
ooo 

FPr\fN 

=  4 

DEBUG 

=  0 

H  A 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

;SINGLE  PRECISION 

; DON'T  DISPLAY  REGISTERS  ON  ERRORS 


I  L 
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APLDEF 


I  A 


1 


.S8TTL 
.IDENT 


APLDEF 
\V02.03\ 


J  A 
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2513 


.LIST     SEQ,SRC,LOC,BIN,BEX,MEB 
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K 

4 

DEFINITIONS 

ERRORS 

1 

.TITLE  CARVE 

1 

.IDENT  \V02.03\ 

4 
5 

.,S8TTL  CARVE 

RETUm 

J  UNUSED  DATA  ON  END  OF  ARRAY 

^ 

)  FUNCTIONAL  DESCRIPTION: 

1 

10 
11 

•  CARVE • 

CHOPS  OFF  ) 

\m 

RETURNS  TO  FREE  CORE,  ANY  EXTRA  UNUSED 

GARBAGE 

ON  THE  END 

OF 

AN  ARRAY. 

;  IMPLICIT  INPUTS: 

12 

13 

14  000000 

15 

16  000000 

ON  TOP 

OF  SI  -  ARRAY 

TO  BE  'CARVED' 

.PSECT 

CODE 

CARVE : : 

17  000000 

016501 

1 7177b 

MOV 

SI.VAL(SI) 

,R1 

;Point  to  Array  Block 

18  000004 

005761 

000002 

TST 

A.DIMS(RI) 

;Is  it  an  Array? 
;No,  SYSTEM  ERROR 

19  000010 

002072 

BGE 

5$ 

20  000012 

005761 

000004 

TST 

A.ALEN(RI) 

.•Anything  There? 

21  000016 

001411 

BEQ 

1$ 

;Nope,  is  Null  Array 

22  000020 

0201 1 1 

CMP 

R1,(R1) 

lis   the  Data  in  the  Block? 

23  000022 

101007 

BHI 

1$ 

;Nope,  Not  Here 

24  000024 

010100 

MOV 

R1,R0 

;Copy  Pointer 

25  000026 

014002 

MOV 

-(R0),R2 

;Get  Count  of  Words  in  Block 

26  000030 

005202 

INC 

R2 

; Decrement  (But  it's  Negative) 

27  000032 

160200 

SUB 

R2,R0 

.-Point  to  End  of  Block 

28  000034 

160200 

SUB 

R2,R0 

;   (Offset  in  Words) 

29  000036 

02001 1 

CMP 

R0,(R1) 

;Is  Data  in  Block 

30  000040 

31 

32 

33 

34  000042 

101011 

BHI 

2$ 

;Yes,  Oh  Frabjus  Day 

;  Handle  Header 

without  Data 

116100 

000002 

1$:     MOVB 

A.DIMS(RI) 

,R0 

;Get  *  of  Dimensions 

35  000046 

CONINC 

RO 

.•Cheat  for  Scalar 

36  000052 

006300 

ASL 

RO 

.•Times  2  (Byte  Count) 

37  000054 

060100 

ADD 

R1,R0 

.•Include  Base  Pointer 

38  000056 

062700 

000006 

ADD 

*A.DIM1,R0 

;And  Size  of  Block 

39  000062 

40 

41 

42 

43  000064 

000420 

BR 

3$ 

;...6o 

;  Handle  Block 

With  Data 

016100 

000004 

h :     MOV 

A.ALEN(RI) 

,R0 

;Get  the  Total  Length 

44  000070 

116102 

000003 

MOVB 

A.BITS(RI) 

,R2 

;Get  the  Source  Type 

45  000074 

042702 

1 7777^ 

BIC 

/(f^C<A.NUM> 

,R2 

.•Clear  Garbage  Bits 

46  000100 

ASH 

SIZTAB(R2) 

,R0 

; Compute  Total  Size 

47  000114 

005200 

INC 

RO 

.•Perform  "Ceiling" 

48  000116 

042700 

000001 

BIC 

n^.m 

for  Word  Pointer 

49  000122 

50 

51 

52 

53  000124 

061100 

ADD 

(R1),R0 

.-Add  Pointer 

;  Now  to  Extract  the  Data 

014102 

i$ :     MOV 

-(R1),R2 

;Get  (Negative)  Block  Size 
;Make  Offset  Positive 

54  000126 

005402 

NEG 

R2 

55  000130 

010003 

MOV 

R0,R3 

;Get  Pointer  to  the  E  »d 

56  000132 

160103 

SUB 

R1,R3 

.•Compute  Needed  Length 

57  000134 

006203 

ASR 

R3 

In  Words 

rTT 


L     « 
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58  000136 

59  OOOKO 

60  0001 A2 

61  000144 

62  000146 

63  000152 

64  000154 

65  000156 

66  000160 

67  000162 

68  000164 

69  000166 
000170 
000174 


005203 

010304 

005404 

160203 

020327  M7172 

003010 

006302 

060102 

010411 

010342 

010420 

010320 


70 
71 
72 
73 


0001 76  1 04402 


INC 

R3 

MOV 

R3,R4 

NE6 

R4 

SUB 

R2,R3 

CMP 

R3,4f-6. 

BGT 

4$ 

ASL 

R2 

ADD 

R1,R2 

MOV 

R4,(R1) 

MOV 

R3,-(R2) 

MOV 

R4,(R0)^ 

MOV 

R3,(R0)+ 

CALL 

RETCOR 

4$: 

RETURN 

5$: 

SYSERR 

iytes) 


Add  1  Extra  (Cheat) 

Copy  the  Length 

Negate  For  allocated  Size 

Get  (Negative)  Extra  Length 

Less  Than  6  Words? 

Yes,  Don't  Do  Anythim 

Size  of  Original  (In  \ 

Point  Past  Next  Block 

Set  New  Length 

Set  Length  of  Extra 

Set  Top  of  Data  Block 

Set  Bottom  of  Garbage  Block 

Return  Extra  Memory 

Finished 


; Wasn't  an  Array 


rrr 


n  A 
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N  A 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRFR0= 

000135 

C.BL0K= 

00006A 

D.DECD= 

000002 

EIS       = 

000000 

AC1   = 

X000001 

CHRLBR= 

000073 

C.8LSZ= 

0001A0 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

AC2   = 

X000002 

CHRLPR= 

000072 

C.8UFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

OOOOOAR 

025 

AC3   = 

X000003 

CHRMNS= 

000137 

C.8UFL= 

1 77762 

D.DQAi)= 

1 77777 

EOF   = 

10AA75 

ACA   = 

XOOOOOA 

CHRMUL= 

000075 

C.CCNT= 

1 77766 

D.DROP= 

000002 

ERRMAX= 

000166 

ACS   = 

X000005 

CHRNE6= 

000100 

C . CPTR= 

1 7776A 

D.ENCD= 

000002 

ERRNUM 

00A772R 

025 

ALLINT 

00327AR 

025 

CHRPDL= 

000271 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

00A770R 

025 

ARYRET 

003276R 

025 

CHRPLU= 

000055 

C.DIG  = 

OOOOAO 

D.EXPD= 

000002 

ERRO 

00A77AR 

025 

ASCQUO=  0000A2 

CHRPWR= 

000120 

C.FASW= 

020000 

D.FGET= 

000005 

EXEBUF 

00505AR 

025 

A.ALEN=  OOOOOA 

CHRQST= 

000121 

C.FLEN= 

000010 

D.FMT  = 

OOOOOA 

E$CT 

005056R 

025 

A.ARG  = 

OOOOAO 

CHRQU0=  000113 

C.FLSH= 

OOAOOO 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.ASB  = 

000200 

CHRRBR= 

0O00A7 

C.FRC  = 

000001 

D.FPUT= 

000005 

FA.APD= 

000100 

A.BITS= 

000003 

CHRRPR= 

0O00A2 

C.JDEN= 

000010 

D.GE  = 

000000 

FA.CRE= 

000010 

A.CON  = 

000020 

CHRSEM= 

00007A 

C.NAME= 

000102 

D.GT  = 

000000 

FA.DLK= 

001000 

A.DIMS= 

000002 

CHRSM0= 

000112 

C.N0BF= 

OOOAOO 

D.IBM  = 

000002 

FA.ENB= 

100000 

A.DIM1= 

000006 

CHRSPA= 

OOOOAO 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.EXC= 

002000 

A.NUM  = 

000006 

CHRUPA= 

000131 

COP  = 

OOOOOA 

D.INNR= 

000013 

FA.EXT= 

OOOOOA 

A.PTR  = 

000000 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.NSP= 

000100 

A.  IMP  = 

000010 

CHR.CC= 

000003 

C.RDLN= 

1 77776 

D.LE  = 

000000 

FA.NSR= 

000200 

BADDIR= 

10AA63 

CHR.CR= 

000015 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.P0S= 

010000 

BADERR= 

10AA37 

CHR.CZ= 

000032 

C.RND  = 

000010 

D.LT  = 

000000 

FA.RD  = 

000001 

BLZBUB 

005116R 

025 

CHR.GT= 

0OOOA6 

C.S8JT= 

177756 

D.MAX  = 

000000 

FA.RWD= 

OOAOOO 

BRSELF 

0050A6R 

025 

CHR.LF= 

000012 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.SEQ= 

OAOOOO 

CARVE 

OOOOOORG 

020 

CHR.LT= 

0000A3 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.SHR= 

OOOOAO 

CCNT 

005072R 

025 

CHR.SI= 

00001 7 

C.SPLX= 

000001 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C.SPRS= 

000002 

D.NE  = 

000000 

FA.WCK= 

020000 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C.SRC  = 

^7777 1, 

D.NN  = 

000000 

FA.WRT= 

000002 

CHANOl 

000330R 

025 

CHR.TB= 

00001 1 

C.SRCP= 

00002A 

x>.m    = 

000000 

FD.BLK= 

000010 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.TT  = 

OOOOOA 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN03 

00067AR 

025 

CHR. .A— 

0001A1 

C.W1DC= 

1 77770 

D.PLUS= 

000000 

FD.COM= 

020000 

CHANOA 

001056R 

025 

CHR..E= 

0001 A5 

C.WIDR= 

1 77772 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN05 

0012A0R 

025 

CHR..S= 

000163 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000  10 

CHAN06 

001A22R 

025 

CHR..T= 

0001 6A 

DEFERR= 

10AA05 

D.QQAD= 

000000 

FD.FTN= 

000001 

CHAN07 

00160AR 

025 

CHR..U= 

000165 

DEVIL 

00511AR 

025  D.QUAD= 

000000 

FD.F11= 

OAOOOO 

CHAN08 

CO  1 FCC9 

025 

CHR..Z= 

000172 

DEVNTF= 

10AA70 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN11 

0025 1AR 

025 

CH.AND= 

000001 

DIMBLK 

0031 12R 

025  D.SCON= 

000006 

FD.OSP= 

OOAOOO 

CHAN12 

002676R 

025 

CMD8UF 

003250R 

025 

DIMPTR 

0031 1AR 

025  D.SDIF= 

000006 

FD.PLC= 

OOOOOA 

CHAN13 

000022R 

023 

C/1DMAX= 

000010 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN= 

OOOOOA 

CHAN1A 

00020AR 

023 

CNTSIZ 

005130R 

025 

DIRFUL= 

10AA66 

D . SUBS= 

000006 

FD.PSE= 

01000C 

CHNOPN= 

10AA71 

CQMBIN 

005076R 

035 

DOMERR= 

10AA17 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRAND= 

000051 

COMCNT 

005126R 

025 

DPTERR= 

10AA16 

D.TRAN= 

OOOOOA 

FD.RAN= 

000002 

CHRBFL= 

000007 

C0I1ERR= 

10AA25 

DYDCNT 

00322AR 

025  D.UN0N= 

000006 

'^r>.REC= 

000001 

CHRBKR= 

000133 

COMPTR 

005122R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

•'^.RVW= 

000001 

CHRBa= 

000200 

CQMRTN 

0031 56R 

025 

D.BXCT= 

000007 

D.$MIN=  000000 

FD.SDI= 

000020 

CHR80X= 

00011A 

CQMSKP 

0051 2AR 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SQD= 

OOOOAO 

CHRCMA= 

00005^ 

CORPTR 

005120R 

025 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.TTY= 

OOOOOA 

CHRCOL= 

000076 

CS.ASS= 

000200 

D.8XPP= 

000007 

D.$RES= 

000000 

FD.WBH= 

000002 

CHRDEL= 

000107 

CS.800= 

000010 

D.8XPW= 

000007 

D.$SUB= 

000000 

FF.CHR= 

000005 

CHRDIV= 

000053 

CS.FLO= 

000020 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.NV  = 

000003 

CHRDLR= 

000176 

CS.IDN= 

0OOC40 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.POE= 

000002 

CHRDLT= 

000110 

CS.ONE= 

000100 

D.COMB= 

000001 

D.1R0T= 

000003 

FF. RWD= 

000001 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D.COMP= 

000001 

EDI CHR 

005063R 

025  FF.RWF= 

000006 

C^REP  = 

000105 

CTMAX 

0002 12R 

025 

D.CONT= 

000006 

EDICNT 

00506AR 

025  FF.SPC= 

OOOOOA 

CHRERR= 

'I0AA31 

CTRMAX 

0001 72R 

025 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  F HE ADR 

00501 2R 

025 

CHRflL= 

000177 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

FHRET 

0050A0R 

025 

c 
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FILNTF= 

10AA67 

F.FNB  = 

000102 

KHAN 

005050R 

025 

MONPTR 

0031 22R 

025  M.SATA:- 

000001 

FIS   = 

000000 

F.FNDF= 

00001 0 

ILFMAM= 

1 04464 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

FISCON= 

OA6000 

F.FTYP= 

000116 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FIXPTR 

003074R 

025 

F.FUN  = 

000010 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SI6N= 

000000 

FLAGS 

00A76AR 

025 

F.FVER= 

0001 20 

INDERR= 

104410 

M.ABS  = 

000000 

M. SI  RR= 

000001 

FLCBUF 

003250R 

025 

F.HEAD= 

000006 

INNTMP 

003250R 

025 

M.BOL  = 

000200 

M.SYM  = 

000203 

FLI^€ 

0050KR 

025 

F.HIBK= 

000004 

INNTM2 

00501 6R 

025 

M.BXAV= 

000007 

M.SYN  = 

000201 

FLOEXP 

003270R 

025 

F.LBL  = 

000020 

INPTR 

000064R 

025 

M.8XCR= 

000007 

M.TRAN= 

000012 

FLOrEG 

003272R 

025 

F.LINE= 

000012 

INSNAM= 

1 04462 

M.BXCT= 

000007 

M.$ABS= 

000000 

FLSWTB 

0OO222R 

025 

F.LOC  = 

000004 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI= 

000000 

FLTLEN= 

000010 

F.LSTC= 

000004 

I.CNT  = 

1 77776 

M.BXFX= 

000007 

M.$FLR= 

000000 

FNINSI 

OOSOAAR 

025 

F.uJN  = 

000042 

I. DIM  = 

1 77772 

M.BXIO= 

000007 

M.$IDN= 

000000 

FORIGN 

0OOO32R 

025 

F.MBCT= 

000054 

I.LEN  = 

00001 2 

M.8XLC= 

000003 

M.$NEG= 

000000 

FO.APD= 

000106 

F.liBCl  = 

000055 

I . OERR= 

000062 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.MFY= 

000002 

F.MBFG= 

000056 

I. OLD  = 

1 77770 

M.BXNL= 

000007 

M.1RDT= 

00001 1 

FO.RD  = 

000001 

F.MON  = 

000002 

I.PTR  = 

1 7777^ 

M.BXPP= 

000007 

M.1REV= 

000003 

FO.UPD= 

000006 

F.NIL  = 

000001 

I. SIR  = 

1 77766 

M.8XPW= 

000007 

M.1SCN= 

000011 

FO.WRT= 

000016 

F.NRBD= 

000024 

LABERR= 

1 04406 

M.BXRL= 

000007 

NA^BUF 

003240R 

025 

FPMODE 

0OOOA2R 

025 

F.NREC= 

000030 

LA6LPT 

005042R 

025 

M.BXTS= 

000007 

NB.DEV= 

000200 

FPP 

000000 

F.OPN  = 

000010 

LARGBL 

0031 62R 

025 

M.BXWA= 

000007 

NB.DIR= 

000100 

FPPLEN= 

OOOOOA 

F.0VBS= 

000030 

LARGCV 

0C3176R 

025 

M.CEI  = 

1 77777 

NB.NAM= 

000004 

FREBLK 

007A0OR 

025 

F.PREV= 

000000 

LARGFL 

0031 60R 

025 

M.CHR  = 

000202 

NB.SD1= 

000400 

FUZZ 

0001 42R 

025 

F.PRNT= 

1 00000 

LARGLE 

0031 74R 

025 

M.CMT  = 

000206 

NB.SD2= 

001000 

FXPTR1 

003076R 

025 

F.PR0T= 

010000 

LARGLN 

003166R 

025 

M.D0UT= 

000006 

NB.SNM= 

000040 

F$EVAL= 

000100 

F.RACC= 

000016 

LARGPT 

0031 64R 

025 

M.DQA0= 

000006 

NB.STP= 

000020 

FSEVI  = 

000200 

F.RATT= 

000001 

LARGSF 

0031 72R 

025 

M.ENCD= 

000004 

NB.SVR= 

000010 

F$EXEC= 

OOOAOO 

F.RCM1= 

000034 

LARGTY 

0031 70R 

025 

M.EXE  = 

000000 

NB.TYP= 

000002 

F$FUNC= 

001000 

F.RCTL= 

000017 

LARGVA 

003200R 

025 

M.EXP  = 

000001 

NB.VER= 

000001 

F.ACTL= 

000076 

F.READ= 

004000 

LBJNC 

005100R 

025 

M.FACT= 

000001 

ND.DEV= 

000200 

F.ALOC= 

000040 

F.REDF= 

000040 

LBUFF 

00331 6R 

025 

M.FIL  = 

000177 

ND.EXT= 

000002 

F.FIRFS= 

000062 

F.RES  = 

000040 

uBUFLN= 

000621 

M.FLR  = 

1 77777 

ND.NAM= 

000004 

F.BOB  = 

000070 

F.RET  = 

1 77772 

L COUNT 

005106R 

025 

M.FMT  = 

000004 

ND.PPN= 

000100 

F .BGBC= 

000057 

F.RSJZ= 

000002 

LENERR= 

104412 

M.GDUP= 

000003 

ND.$EX= 

000000 

F.BITS= 

1 7777^ 

F.RTYP= 

000000 

LENTAB 

000054R 

025 

M.GDUN= 

000003 

ND.$E$= 

000020 

F.BKDN= 

000026 

F.R2  = 

000014 

LEXPTR 

003100R 

025 

M.GETI= 

000006 

ND.y#1= 

000000 

f.bk:ds= 

000020 

F.R3  = 

000016 

LFTOP 

005066R 

025 

M.IBM  = 

000003 

ND.$N$= 

000040 

F.BiCEF=: 

000050 

F.R4  = 

000020 

LINC 

005102R 

025 

M.IDN  = 

000000 

ND. $PN= 

001400 

F.BKP1= 

000051 

F.SEQN= 

000100 

LINE 

00501 6R 

025 

M.INSP= 

000006 

NEGSGN 

005063R 

025 

F.BKST= 

000024 

F.SPDV= 

000072 

LININC 

005026R 

025 

M.I0TA= 

000000 

NINPT1 

003302R 

025 

F.BK\/B= 

000064 

F.SPUN= 

000074 

LISIZE= 

000020 

M.Lir  = 

000205 

NINPT2 

0O330OR 

025 

F.BR  = 

000020 

F.STBK= 

000036 

LITOP 

005072R 

025 

M.LN  = 

000001 

NINSTK 

003304R 

025 

F.CHR  = 

000075 

F.STK  = 

000022 

LNLNG  = 

104541 

M.MMD  = 

000010 

NINTMP 

00331  OR 

025 

F . CNTG= 

000034 

F.STOP= 

000004 

LOCLCT 

005036R 

025 

M.NEG  = 

000000 

NIMTYP 

003306R 

025 

F.CODE= 

000010 

F.STP  = 

000001 

LOWCOR 

000002R 

025 

M.NOT  = 

000000 

N0TAVL= 

104472 

F.DF^e= 

000046 

F . SUSP= 

000002 

LSTERP 

004766R 

025 

M.NUB  = 

000006 

NOTOPN= 

104473 

F.DSPT= 

000044 

F.TRC  = 

000002 

LWIDTH 

000070R 

025 

M.NUM  ^ 

000204 

NPRT1 

004762R 

025 

F.DVM*!^ 

000134 

F.UNIT= 

000136 

L.BITS= 

000003 

M.0UTR= 

000012 

NULL 

007364R 

025 

F.EFBK= 

0OOO10 

F.URBD= 

000020 

L.CNT  =■- 

000002 

M.PITM= 

000000 

NUMCHN= 

000020 

F.EFN  = 

000050 

F.VAL  = 

177776 

L.PRNT= 

00C001 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

F.END  = 

002000 

F.VBN  = 

000064 

L.PTR  = 

000000 

M.QQAD= 

000000 

NUMEFL 

003233R 

025 

F.EfWl^ 

000032 

F.\/BSZ= 

000060 

L.PTR1= 

000004 

M.QUAD= 

000000 

NUWESN 

003236R 

025 

F.ERR  = 

000052 

GNOME 

003102R 

025  L.SUBS= 

000002 

M.RAND^ 

000012 

NUMFLG 

003230R 

025 

F.FACC= 

000043 

HASHC 

005136R 

025  MACHINE 

000106 

M.RAVL= 

000000 

NUMLEN 

000062R 

025 

F.FFBY= 

000014 

HASHTB 

005140R 

025  MAXCHN^ 

000014 

M.RCIP= 

000000 

NUMNEG 

003232R 

025 

F.FLAG= 

000002 

HSHMSK= 

1 77601 

MOf«LK 

0031 20R 

025 

M.RDCr= 

000011 

NUMQFL 

003234R 

025 

F.FLB  "- 

000100 

HSHSIZ^ 

000200 

WNcyj 

0031 32R 

025 

M.REVS= 

000003 

NUMRIG 

003231 R 

025 

fJNAl^ 

000110 

lASH  = 

******  GX 

MCNLEN 

0031 30R 

025 

M.ROLL= 

000000 

NUMWID 

003226R 

025 

CARVE 

MACRO  Ml  113  08- 

-FEB-80 

10:55  PAGE 

46-3 

C  5 

SYI>©OL 

TABLE 

NUM2FL 

003235R 

025 

RARGBL 

003204R 

025 

R.NEXT= 

000006 

SY.8S  = 

000010 

T.LIT  = 

000020 

NYIERR= 

104A32 

RARGCV 

003220R 

025 

R.OFF  = 

000000 

SY.CLR= 

000040 

T.MON  = 

000010 

N.BLSZ= 

000036 

RARGFL 

003202R 

025 

R.PREV= 

000004 

SY.ERP= 

000020 

T.NIL  = 

000004 

N.DESC= 

000020 

RARGLE 

00321 6R 

025 

R.PTR  = 

000000 

SY.NOU= 

000100 

T.NUM  = 

002000 

N.DEV  = 

000032 

RARGLN 

00321 OR 

025 

R.SEQ  = 

000003 

SY.OPN= 

000002 

T.OPFN= 

000001 

N.DEVf4= 

00003A 

RARGPT 

003206R 

025 

R.VAR  = 

000002 

SY.PMT= 

001000 

T.OTHR= 

040000 

N.DID  = 

00002A 

RARGSF 

00321 4R 

025  R6 

X000006 

SY.SRT= 

000400 

T.SOP  = 

000002 

N.DVM1=  000032 

RARGTY 

00321 2R 

025  R7 

X000007 

SY.SVC= 

000004 

T.SPOP= 

000040 

N.EXT  = 

OOOOU 

RARGVA 

003222R 

025 

SI 

X000005 

SY.SVL= 

000200 

r.TMP  = 

000200 

N.FID  = 

000000 

RBASE 

005074R 

025 

SIDAMN= 

104433 

S.AB  = 

1 77776 

T.VAL  = 

100000 

N.FNAM=  000006 

RCOUNR 

0051 12R 

025 

SIFRAM 

00331 4R 

025 

S.ASB  = 

100000 

T.VAR  = 

001000 

N.FTYP= 

000014 

RCOUNT 

00511  OR 

025 

SISTAK 

006350R 

025 

S.BFHD= 

000020 

UPPER  = 

1 77400 

N.FVER= 

000016 

REDCNT 

005070R 

025 

SITOP 

006346R 

025 

S.8ITS= 

000002 

UTNAME 

000344R 

023 

N.NAME= 

000006 

REDIGN 

005066R 

025 

SITP 

0071 44R 

025 

S.CHR1= 

000003 

VALERR= 

104413 

N.NEXr= 

000022 

REDOFF 

005072R 

025 

SIWARN= 

000200 

S.FATT= 

000016 

VARBLE 

007400R 

025 

N.PPN  = 

000024 

REENTR 

003060R 

025 

SIZTAB 

000044R 

025 

S.FDB  = 

000140 

VARBLS 

OOOOOOR 

025 

N.STAT= 

000020 

REGTYP= 

000000 

SI.BIT= 

1 7777^ 

S.FLB  = 

040000 

VERNUM 

OOOOOOR 

025 

N.UNIT= 

000034 

RESBIT 

0031 42R 

025 

SI.LEN= 

1 77772 

S.FNAM= 

000006 

VRSION= 

000002 

(»*JFLN= 

001000 

RESCVT 

0031 52R 

025 

SI.RET= 

1 77772 

S.FNB  = 

000036 

WIDTH 

000072R 

025 

OCHAN 

005052R 

025 

RESERR= 

104440 

SI.VAL= 

1 77776 

S.FNBW= 

000017 

WROUND 

000020R 

025 

GMOOE 

000402R 

023  RESLEN 

0031 50R 

025 

SKPSIZ 

0051 34R 

025 

S.FNTY= 

000004 

WSDATE 

0001 36R 

025 

OPTMF>0 

005066R 

025 

RESPTR 

0031 40R 

025 

SPHOLD 

000004R 

024 

S.FTYP= 

000002 

WSFULL= 

104403 

0PTMP1 

005070R 

025 

RESSFT 

0031 46R 

025 

SPINIT 

000002R 

024 

S.LEN  = 

000002 

USNAME 

000074R 

025 

0PTI1P2 

005072R 

025 

RESTYP 

0031 44R 

025 

STKINC= 

000774 

S.LINK= 

1 7777 A 

WSTIME 

0001 32R 

025 

0PTMP3 

005074R 

025 

RESULT 

0031 36R 

025 

STOP  = 

104420 

S.NFEN=  000020 

$FIS  = 

******  Q 

OPTMPA 

005076R 

025 

RESVAL 

0031 54R 

025 

SUBCNT 

0031 04R 

025 

S.TYPE= 

140000 

%PPP     = 

******  Q 

0PTMP5 

0051 OOR 

025 

RETCOR= 

Irlrltlrlfit    GX 

SUBDCT 

0031 06R 

025 

S.VAL  = 

000000 

$FPPLN= 

******  Q 

0PTMF>6 

0051 02R 

025 

RINC 

005104R 

025 

SUBPTR 

00311 OR 

025 

TKDIMS 

005072R 

025  $MACHN= 

******  (5 

0PTMP7 

005104R 

025 

RLTBAS 

005066R 

025 

SYMB1 

005344R 

025 

TKFRAM 

005066R 

025  SRSTS  = 

******  Q 

0PTMP8 

0051 06R 

025 

ROTINC 

005070R 

025 

SYMF 

005340R 

025 

TKLEFT 

005070R 

025  SRSX  = 

******  Q 

0PTMF>9 

005110R 

025 

ROUND 

00001  OR 

025 

SYMPT1 

005346R 

025 

TMODE 

000403R 

023  $RT11  = 

******  G 

OPTMIO 

0051 12R 

025 

ROVER 

00331 2R 

025 

SYMTAB 

005352R 

025 

TMPTAG= 

000166 

.B00LE= 

000002 

OPTWK 

005026R 

025 

RSTS  = 

000000 

SYMTBF= 

104404 

TTYBUF 

004140R 

025  .CHARA= 

000000 

ORIGIN 

000030R 

025 

RSX   = 

0001 1 5 

SYMTOP 

005350R 

025 

TTYLEN= 

000622 

.DEF.  = 

000002 

OUTPTR 

000066R 

025 

RTOP 

005070R 

025 

SYMTP 

006272R 

025 

TURKEY= 

104436 

.FLOAT= 

000006 

OVROPR= 

000000 

RT11  = 

000000 

SYMWRN= 

000054 

TYPE  = 

000166 

.FSRCB= 

******  G 

PATCH 

007344R 

025 

R.BITS= 

000003 

SYNERR= 

1 04407 

T.BOL  = 

020000 

.INTEG= 

000004 

PRECSN 

000052R 

025 

R.FIX  = 

000001 

SYSERR= 

104402 

T.CON  = 

004000 

.MOLUN 

000404R 

023 

RANDAC 

003064 R 

025 

R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.DIM  = 

00C100 

...GBL= 

000000 

RANDY 

003062P 

025 

R.LN  = 

000002 

SY.aAD= 

000001 

T.FUN  = 

010000 

...TPC= 

000020 

r:.V€RR^^ 

104411 

R.LNUM-- 

000010 

S/.8RIC= 

1 00000 

T.Ll^  = 

00040U 

«  Aob« 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

DYDiB 

000000 

004 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYD6TB 

000000 

007 

COHTB 

000000 

01C 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

on 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 
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MNTRTL  000000    017 

CODE    000200    020 

PATCH   000000    021 

$$FSR1  000000     022 

DEFSO   OO0AO6     023 

DEFS1   000006     02 A 

DEF$2   007A00    025 
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7 

.MACRO 

CHR  BITS, SPEC, TOASCI, 
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10 

.NLIST 

rUDTAQ  ..••.••.••..—,-....•..—.—.——._ 

•  •"•"•"•""" 

.PSECT  CHRTBL 

Lnn  IMo  ——————————————— 

11 
12 
13 

•  ^»^M^M^M«^^B 
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\/  T  AQ  —.—«••—•••..•—•.._••.••— ..—.•. 

• 

.PSECT  VT8L 

V  1  Mo  ———————————— 

14 

.If   B  <SPEC> 

15 
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16 

.Iff 

17 

.BYTE  SPEC 

18 
19 
20 

.ENDC 

A  C  r  T  AD  ———_—____—.__—____—___ 
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AoL  iMd  — — — — — ..-.....-....-. 

21 
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22 
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23 

.Iff 

24 
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25 

.ENDC 
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27 
28 

*  ^B^M^M^K^V^M 
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29 

.PSECT  MNTBL 

30 
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31 
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32 
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33 
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34 
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35 
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36 

.WORD  TOASCI 

37 

.PSECT  MNTRTL 

38 

.BYTE  TMPTAG 

39 

.ENDC 

40 
41 
42 

•  «W^^^^^ 

.ENDC 

TDMTAD  ••.—..-.•.—..—..—...••,.,— .———•.-.— 

• 

.If   EQ  ^SCll'2 

1  nnt  1  MO  ————————— 

43 

.PSECT  TRNTBL 

44 

TRNADR  TOASCI^-LC 

.KLD, 

TMPTAG                                                \ 

45 

.IFF 

46 

.IF  LE  TMPTAG-40 

47 

.PSECT  TRNTBL 

48 

TRNADR  TMPTAG, TMPTAG 

49 

.ENDC 

50 
51 
52 

•  ^m^m^m^m^m^m 

.ENDC 

n\/D  T AQ  .••..•.—....—..•.....—._—.—_ 
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.If   NB  <0VAPL1> 

UVn  1  MO  ———————————————— 

53 

.PSECT  OVRTBL 

54 

.WORD  OVAPL 1*256 

.+0VAPL2 

55 

.ENDC 
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68 

69 

1 

.SBTTL  DEFINITIONS     TABLE  ORIGINS 

70 
71 

000000 

.PSECT  CHRTBL 

72 

000000                     ( 

:HRTAB:: 

73 

1 

•  THE  OFFSET  IN  THIS  TABLE  OF  AN  APL  CHARACTER  CONTAINS 

74 

75 

I 

;  BITS  DESCRIBING  THAT  CHARACTER. 

76 
77 

000000 

.PSECT  VTBL 

78  000000                      VTAB::                                                                        1 

79 

•THIS  TABLE  CONTAINS  TABLE  OFFSETS  (SPECIALTY  NUMBERS)  FOR 

80 

;APL  CHARACTERS.   FOR  EXAMPLE,  THE  OFFSET  IN  THIS  TABLE  OF 

81 

;AN  APL  OPERATOR  CONTAINS  THE  OPERATOR  NUMBER  FOR  THAT  OP. 

82 

;THE  OFFSET  IN  THIS  TABLE  OF  A  SPECIAL  CHARACTER  (SUCH 

83 

•AS  A  SPECIAL  LEX  CHARACTER)  CONTAINS  THE  OFFSET  IN  THE 

84 
85 

;TABLE  WHICH  POINTS  TO  THE  ROUTINE  TO  HANDLE  THAT  CHARACTER. 

86 
87 

000000 

.PSECT  MNTBL 

88  000000                      MNTAB::                                                                        1 

89 

•THIS  TABLE  CONTAINS  ASCII  MNEMONICS  FOR  SOME  APL 

90 
91 
92 

[CHARACTERS.   THIS  TABLE  IS  SEARCHED  VIA  'BINSCH' 

i***  NOTE  ***  THE  OFFSET  OF  THE  MNEMONIC  IN  THIS 

93 

; TABLE  IS  USED  TO  LOOK  UP  THE  CORRESPONDING  APL 

94 

[CHARACTER  IN  'MNTRTB',  SO  ANY  CHANGES  IN  THIS 

95 
96 

: TABLE  MUST  ALSO  BE  MADE  IN  'MNTRT'. 

97 
98 

000000 

.PSECT  MNTRTL 

99 

000000                       MNTRT8::                                                                         1 

100 

rmJRTQ*    CONTAINS  THE  APL  CHARACTER  EQUIVALENTS  OF 

101 

:THE  ASCII  MNEMONICS  IN  'MNTAB'.  A  MNEMONIC  IS  FIRST 

102 

:LOOKED  UP  IN  'MNTAB\  THE  OFFSET  IS  DIVIDED  9Y  2,  AND 

103 

;THE  CORRESPONDING  CHAR  IS  THEN  FOUND  IN  THIS  TABLE. 

104 

:NOTE  THAT  THIS  IS  A  BYTE  TABLE,  WHILE  'MNTAB*  IS  A  WORD 

105 

; TABLE ! 

106 

107 

108 

000000 

.PSECT  ASCTBL 

109 

000000                       ASCTA8::                                                                         1 

110 

;THE  OFFSET  (IN   WORDS!! 11)  IN  THIS  TABLE  OF  AN  APL 

111 

[CHARACTER  CONTAINS  EITHER  THE  SINGLE  ASCII  CHAR 

112 

; REPRESENTING  THAT  APL  CHAR,  OR  THE  2  CHARS  WHICH 

113 

;ARE  THE  MNEMONIC  FOR  THAT  APL  CHAR.   'OUTCHR'  USES 

114 

;THIS  TABLE  TO  CONVERT  THE  CHARS  IF  'TMODE'  IS  SET. 

115 

116 

n7  000000 

.PSECT  TRNTBL 

118 

000000 

FRNTAB:: 

119 

000000               ( 

:URPTR=0 

120 

i 

:THE  INDEX  IN  THIS  TABLE  OF  A  SINGLE  ASCII  CHARACTER 

121 

i 

•CONTAINS  THE  CORRESPONDING  APL  CHARACTER  FOR  THAT 

122 

I 

;CHARACTER.   IN  GENERAL,  THE  TRANSLATIONS  ARE  OBVIOUS, 

123 

t 

;8UT  IN  SOME  I  WAS  MORE  CREATIVE.  NOTE  THAT  'X'  IS 

124 

1 

;DIVIDE,  AND  THAT  '#'  IS  MULTIPLY. 
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133 
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13A 

135 

;THE  FOLLOWING  CODE  IS  USED  TO 

GENERATE 

VAnOUS  ( 

:haracter  tables. 

136 

;IT  IS 

SET  UP  SO  THAT  THE  OVERSTRUCK  APL  CHARACTERS  MUST  BE  AT  THE 

137 

;END  OF 

THE  LIST.  UTMOST  CARE 

SHOULD  BE  TAKEN  WHEN  CHANGING  THIS 

138 

.-SECTION  AS  THE  DEFINITIONS  OF 

SYMBOLS 

CAN  GET  SCREWED  ROYAL  LIKE  I  DID  A 

139 

;FEW  TIMES.  BELIEVE  ME,  IT'S  / 

\   REAL  PAIN! 

140 

K1 

;THE  ARGUMENTS  FOR  THE  MACRO  ARE:  (THE 

VALUE  ASSUMED  IS  IN  PARANTHESIS) 

1A2 

• 

0 

143 

m 
0 

(O;     (-1)    (TMPTAG)  — 

0 

144 

.-MACRO 

CHRTAB  VTAB    ASCTA6 

MNTAB& 

OVERSTRUCK 

145 

;f:AME 

BITS    VALUE   EQUIVS 

MN^RTB 

CHR  VALUES 

146 

• 
0 

147 

148 

000000 

LC.KLD= 

^0       ;SET  TO  40  FOR 

•ASCTAB' 

ENTRIES 

[N  LOWER  CASE 

149 

000000 

TMPTAG^ 

^0       .-CHARACTERS  START  AT  ZERO 

150 

151 

000000 

CHR 

:NULL 

152 

000001 

CHR 

:CTRL  A 

153 

000002 

CHR 

;CTRL  B 

154 

000003 

CHR 

C.SPGL.  10 

:CTRL  C 

155 

000004 

CHR 

C.SPGL,  12 

;CTRL  D 

156 

000005 

CHR 

:CrRL  t 

157 

000006 

CHR 

:CTRL  F 

158 

000007 

CHR 

;BELL 

159 

000010 

CHR 

C.SPFX,  4 

; BACKSPACE 

160 

000011 

CHR 

;TAB 

161 

000012 

CHR 

C.SPFX+C.SPGL.  6 

;LINE  FEED 

162 

000013 

CHR 

;CTRL  K 

163 

000014 

CHR 

;FORM  FEED 

164 

000015 

CHR 

C.SPGL+C.SPLX^-C.SPRSK. 

SPFX.  0 

jCARRIGE  RETURN 

165 

000016 

CHR 

;CTRL  N 

166 

000017 

CHR 

■CTRL  0 

167 

000020 

CHR 

•CTRL  P 

168 

000021 

CHR 

•CTRL  Q 

169 

000022 

CHR 

•CTRL  R 

170 

000023 

CHR 

•CTRL  S 

171 

000024 

CHR 

•CTRL  T 

172 

000025 

CHR 

C.SPGL,  2 

•CTRL  U 

173 

000026 

CHR 

•CTRL  V 

174 

000027 

CHR 

•CL'^L  W 

175 

000030 

CHR 

CTRL  X 

176 

000031 

CHR 

•CTRL  Y 

177 

000032 

CHR 

C.SPGL.  14 

•CTRL  Z 

178 

000033 

CHR 

C.SPGL.  i6 

•ESCAPE  (ALTMODE) 

179 

000034 

CHR 

CTRL  \ 

180 

000035 

CHR 

•CTRL  ] 

181 

000036 

CHR 

CTRL  ^ 

182 

000037 

CHR 

CTRL 

C 

6 
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184  OOOOAO 

CHR 

CSPFX+ 

CSPRS, 

2 

; SPACE 

185  000041 

CHR 

0 

0 

"DD 

;[>IERISIS 

186  000001 

CHR 

# 

0 

•) 

;) 

187  000052 

CHR 

COP, 

^4, 

74, 

LT 

;< 

188  000075 

CHR 

COP, 

26, 

"LE 

;<= 

189 

000030 

0P.EQU= 

=30 

190  000003 

CHR 

COP, 

30, 

1. 

*  ~ 

191  000076 

CHR 

COP, 

32, 

76, 

GT 

;> 

192  000077 

CHR 

/ 

0 

•] 

,0 

193  000136 

CHR 

COP, 

40, 

•tDR 

;0R 

194  000005 

CHR 

COP, 

42, 

•&, 

AN 

;AND 

195 

000034 

OP.NEQ= 

=34 

196  000047 

CHR 

COP, 

34, 

"NE 

;NOT  EQUAL 

197  000007 

CHR 

COP, 

10, 

•X, 

DV 

;DIVIDE 

198  000046 

CHR 

COP, 

56, 

54 

; COMMA 

199 

000002 

OP.PLU= 

=2 

200  000055 

CHR 

COP, 

2, 

•i- 

;■»' 

201  000054 

CHR 

CSPLX, 

6, 

■ 

0   • 

202 

000060 

OP.RED= 

=60 

203  000057 

CHR 

COP, 

60, 

V, 

;/ 

204 

000061 

CTMP=C 

.NUM+CDJG+CSPLX 

205  000060 

CHR 

CTMP, 

12, 

'0 

;0 

206  000061 

CHR 

CTMP, 

12, 

•1 

;1 

207  000062 

CHR 

CTMP, 

12, 

•? 

208  000063 

CHR 

CTMP, 

12, 

•3 

*3 

209  000064 

CHR 

CTMP, 

12, 

•4 

;4 

210  000065 

CHR 

CTMP, 

12, 

•5 

;5 

211  000066 

CHR 

CTMP, 

12, 

•6 

;6 

212  000067 

CHR 

CTMP, 

12, 

•7 

;7 

213  000070 

CHR 

CTMP, 

12, 

•8 

:8 

214  000071 

CHR 

CTMP, 

12, 

•9 

;9 

215  000072 

CHR 

# 

0 

•( 

;( 

216  000051 

CHR 

# 

0 

'A 

;C 

217  000134 

CHR 

# 

0 

218 

000006 

0P.MUL= 

=6 

219  000074 

CHR 

COP, 

6, 

•# 

.•TIMES 

220  000044 

CHR 

# 

0 

1 . 

• 

•  • 
0   • 

221 

00C062 

OP.SCN= 

=62 

222  000073 

CHR 

COP, 

62, 

•\ 

;\ 

223  000135 

CHR 

CNUM+C 

.SPLX, 

12, 

•MG 

; NEGATE 

224  000011 

CHR 

0 

0 

"AL 

.•ALPHA 

225  000012 

CHR 

COP, 

64, 

"DE 

.•DECODE 

226  000013 

CHR 

COP, 

66, 

•t>u 

.•DOWN  U 

221 

00C014 

0P.FLR= 

=14 

228   00001 /. 

CHR 

COP, 

14, 

•TL 

; FLOOR 

229  000015 

cHR 

COP, 

70, 

"EP 

;EPSILON 

230  000016 

CHR 

CIUEN, 

0 

"US 

.•UNDERSCORE 

231  000017 

CHR 

(fr 

0 

"DL 

;DEL 

232  000020 

CHR 

CJDEN* 

CSPLX, 

1C, 

"LD 

.•DELTA 

233  000021 

CHR 

COP, 

72. 

"10 

;IOTA 

234  000022 

CHR 

0 

44, 

"SO 

.•SMALL  0 

235  000023 

CHR 

CSPLX, 

2, 

1 1 

.•QUOTE 

236  000050 

CHR 

COP, 

74, 

"BX 

.•QUAD 

237 

0000 1 2 

0P.RES= 

=12 

238  000024 

CHR 

COP, 

12, 

"AB 

.•RESIDUE 

239 

000076 

0P.ENC= 

=76 

240  000025 

CHR 

COP, 

76, 

"EN 

.•ENCODE 
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241  000026 

2A2  000027 

2A3  000053 

2AA 

2A5  000100 

246 

247  000030 

248  000031 

249  000032 
2*^0  000033 
2b 1  000034 

252  000035 

253  000036 

254  000137 

255  000040 

256  000140 

257  000041 

258  000042 

259  000043 
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000016 
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CHR 

COP, 

52, 

"LO 

CHR 

COP, 

20, 

•• 

CHR 

COP, 

100, 

•7 

• 

0P.RH0= 

=102 

CHR 

CC?, 

102, 

"RO 

0P.CEI= 

=16 

CHR 

COP, 

16, 

"CE 

CHR 

COP, 

50, 

"NT 

CHR 

COP, 

104, 

"DA 

CHR 

COP, 

106, 

"UU 

CHR 

COP, 

110, 

•DM 

CHR 

COP, 

234, 

"LU 

CHR 

COP, 

114, 

1  A 

CHR 

COP, 

?36, 

"RU 

CHR 

0 

0, 

f 

CHR 

COP, 

120, 

•1?K 

CHR 

, 

0, 

"GO 

CHR 

COP, 

36, 

"GE 

CHR 

COP, 

4, 

•  ^ 

TK 


LARGE  0 

EXPONENT 

RANDOM 


;RHO 


CEILING 

NOT 

DROP 

UP  U 

OMEGA 

LEFT  U  (CONTAINS) 

TAKE 

RIGHT  U  (SUBSET) 

ASSIGN 

^im^   TACK 

BRANCH 

>= 

SUBTRACT 


E 

:  6 
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261  000056 

CHR 

0 

116, 

"DM 

; DIAMOND 

262       00001 1 

C.$=C. 

IDEN^-C.SPLX 

263  0000A4 

CHR 

10, 

•A 

;A 

26A  000102 

CHR 

10, 

•B 

;B 

265  000103 

CHR 

10, 

•c 

:C 

266  0001 OA 

CHR 

10, 

•D 

;D 

267  000105 

CHR 

10, 

•E 

;E 

268  000106 

CHR 

10, 

'F 

;F 

269  000107 

CHR 

10, 

•G 

;6 

270  000110 

CHR 

10, 

•H 

;H 

271  000111 

CHR 

10, 

•I 

;I 

272  000112 

CHR 

10, 

'J 

;J 

273  000113 

CHR 

10, 

•K 

'X 

27A  0001 K 

CHR 

10, 

•L 

;L 

275  000115 

CHR 

10, 

•M 

:M 

276  000116 

CHR 

10, 

•N 

:N 

277  000117 

CHR 

10, 

•0 

;0 

278  000120 

CHR 

10, 

•P 

;P 

279  000121 

CHR 

10, 

•Q 

:Q 

280  000122 

CHR 

10, 

•R 

:R 

281  000123 

CHR 

14, 

'S 

;S 

282  000124 

CHR 

14, 

'T 

;T 

283  000125 

CHR 

10, 

•u 

;U 

284  000126 

CHR 

10, 

•V 

;V 

285  000127 

CHR 

10, 

•w 

'M 

286  000130 

CHR 

10, 

'X 

;X 

287  000131 

CHR 

10, 

•Y 

:Y 

288  000132 

CHR 

10, 

•z 

\l 

289  000133 

CHR 

0 

0 

"LB 

;LEFT  BRACE 

290  000045 

CHR 

0 

120, 

"LK 

:LEFT  TACK 

291  000046 

CHR 

0 

0 

"RB 

; RIGHT  BRACE 

292  000047 

CHR 

0 

0 

•$ 

•DOLLAR  SIGN 

293 

294 

295  000045 

CHR 

C.SPRS+C.SPGL, 

4, 

000177 

•FILLER 

296  000400 

CHR 

C.SPRS^C.SPGL, 

6, 

••7-? 

^00 

;BEGINNING  OF  LINE 

297  000402 

CHR 

C.SPRS+C.SPGL, 

10, 

•"79 

•  • 

^00 

; SYNTAX  ERROR 

298  000404 

CHR 

C.SPRSK.SPGL, 

/ 

"0  9 

■  • 

>00 

; CHARACTER  ERROR 

299  000406 

CHR 

C.SPRS-^C.SPGL, 

16, 

••99 

•  • 

^00 

;IDENTIFIER 

300  000410 

CHR 

C.SPRS+C.SPGL, 

14, 

••9  9 

•  • 

^00 

•NUMERIC  CONSTANT 

301  000412 

CHR 

C.SPRS+C.SPGL, 

12, 

•'9  9 

•   • 

^■00 

•LITTERAL  CONSTNT 

302  000414 

CHR 

C.SPRS+C.SPGL, 

20, 

••9  9 

•  • 

^00 

•CHARACTER  SKIP 

303  000416 

CHR 

0 

..^^^ 

'00 

•<SPARE> 

304  000420 

CHR 

0 

''nhi 

►00 

•<SPARE> 

305  000422 

CHR 

0 

"??■< 

'00 

•<SPARE> 

306  000424 

CHR 

0 

••O'?^ 

'00 

•<SPARE> 

307  000426 

CHR 

0 

"??■« 

'00 

<SPARE> 
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309        0002K 

0VSTRK==TMPTA6 

310  0OOA30 

CHR     COP, 

44, 

"NR, 

50,124  . 

;NOR 

311  000002 

CHR     COP, 

46^ 
12^, 

"NN, 

51,124  . 

;NAND 

312  OOOOOA 

CHR     COP, 

"DQ, 

53,114  . 

;MATRIX  INVERT 

313       000217 

CHRFAC==TMPTAG 

31A  000006 

CHR     COP, 

22, 

« 1 

56,113  . 

; FACTORIAL 

315  000010 

CHR     COP, 

124, 

"CS, 

57,137  . 

;F.C  SLASH 

316  000012 

CHR     COP, 

126, 

"TR, 

77,117  , 

; TRANSPOSE 

317  OOOOH 

CHR     COP, 

130, 

"CB, 

77,137  , 

;F.C  BACKSLASH 

318  000016 

CHR     COP, 

132, 

"IB, 

102,116  . 

;I  BEAM 

319       00022A 

CHRLMP==TMPTAG 

320  000020 

CHR     CSPLX, 

4, 

1  •  • 

103,112  . 

;LAMP 

321  000022 

CHR     C$, 

10, 

"za. 

106,110  < 

: UNDERLINE  DELTA 

322       000226 

CHRULA==TMPTAG 

;DEFINE  'UNDERLINE  A' 

323  000024 

CHR     C$, 

10, 

"ZA, 

106,141  ; 

;UNDLIN  A 

324  000026 

CHR     C$, 

10, 

"ZB, 

106,142  , 

;       B 

325  000030 

CHR     C$, 

10, 

"ZC, 

106,143  . 

;      C 

326  000032 

CHR     C$, 

10, 

"ZD, 

106,144  , 

;     D 

327  00003A 

CHR     C$, 

10, 

"ZE, 

106,145  . 

;      E 

328  000036 

CHR     C$, 

10, 

•7F, 

106,146  . 

;      F 

329  000040 

CHR     C$, 

10, 

"ZG, 

106,147  . 

;      6 

330  000042 

CHR     C$, 

10, 

"ZH, 

106,150  . 

;      H 

331  000044 

CHR     C$, 

10, 

"ZI, 

106,151  . 

I 

332  000046 

CHR     C$, 

10, 

"ZJ, 

106,152  . 

;      J 

333  000050 

CHR     C$, 

10, 

'7IC, 

106,153  . 

K 

334  000052 

CHR     C$, 

10, 

•7L, 

106,154  , 

\               L 

335  000054 

CHR     C$, 

10, 

•7M, 

106,155  . 

M 

336  000056 

CHR     C$, 

10, 

'7N, 

106,156  . 

N 

337  000060 

CHR     C$, 

10, 

•70, 

106,157  . 

;      0 

338  000062 

CHR     C$, 

10, 

•7P, 

106,160  . 

;      P 

339  000064 

CHR     C$, 

10, 

•7Q, 

106,161  . 

Q 

340  000066 

CHR     C$, 

10, 

•7R, 

106,162  . 

;      R 

341  000070 

CHR     C$, 

10, 

•7S, 

106,163  . 

;      S 

342  000072 

CHR     C$, 

10, 

•7T, 

106,164  . 

;      T 

343  000074 

CHR     C$, 

10, 

•7U, 

106,165  . 

;      U 

344  000076 

CHR     C$, 

10, 

•7V, 

106,166  . 

;      V 

345  000100 

CHR     C$, 

10, 

'7W, 

106,167  . 

U 

346  000102 

CHR     C$, 

10, 

•7X, 

106,170  . 

X 

347  000104 

CHR     C$, 

10, 

•7Y, 

106,171  . 

Y 

348        000257 

CHRULZ==TMPTAG 

349  000106 

CHR     C$, 

10, 

'7Z, 

106,172  . 

1 

350  000110 

CHR     COP, 

134, 

•tJD, 

107,114  . 

■DEL  QUAD 

351  000112 

CHR     COP, 

136, 

"GD, 

107,115  . 

•DOWN  GRADE 

352  000114 

CHR     COP, 

140, 

"GU, 

110,115  . 

•UP  GRADE 

353  000116 

CHR     COP, 

142, 

•tlQ, 

113,114  . 

•QUOTE  QUAD 

354  000120 

CHR     COP, 

144, 

"RV, 

115,117  . 

•ROTATE 

355  000122 

CHR     COP, 

54, 

"LG, 

117,120  . 

LOG 

356  000124 

CHR     COP, 

146, 

"CR, 

117,137  . 

•F.C  ROTATE 

357  000126 

CHR     COP, 

150, 

"IQ, 

114,133  . 

INPUT  QUAD 

358  000130 

CHR     COP, 

152, 

'tw. 

114,135  . 

•OUTPUT  QUAD 

359  000132 

CHR 

0 

"PD, 

107  J  24  . 

•PROTECT  DEL 

360  000134 

CHR 

0 

"XQ, 

50, 5l   . 

(FOR  PDPIO  COMPATABILITY 

361        000275 

CHR.OU==TMPTAG 

362  000136 

CHR 

0 

•txj. 

157,165  . 

•0<BS>U<BS>T  INPUT  ESCAPE 

363  000140 

CHR     COP, 

154, 

"PT, 

114,131  . 

•SET  FILE  POINTER 

364       000160 

OP.FMT==160 

365  000142 

CHR     COP, 

160, 

"FM, 

112,116  . 

FORMAT  OPERATOR 
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366  0001 AA 

367  0OOK6 


PAGE  49-1 


CHR 
CHR 


G  6 


COP, 
COP, 


112, 
116, 


"I 


CO, 

ss. 


106,130  ; UNDERSCORE 
106,132  ; UNDERSCORE 


LEFT  U  (CONTAINS) 
RIGHT  U  (SUBSET) 


H  6 
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369 

000162 

OP..AV 

==162 

;.BXAV  -  ATOMIC  VECTOR 

370 

000164 

0P..CT 

==164 

;.BXCT  -  COMPARISON  TOLERANCE 

371 

000166 

OP.. 10 

==166 

;.BXIO  -  INDEX  ORIGIN 

372 

000170 

0P..PP 

==170 

;.BXPP  -  PRINT  PRECISION 

373 

000172 

0P..PW 

==172 

;.BXPW  -  PRINT  WIDTH 

374 

000174 

0P..RL 

==174 

;.BXRL  -  Random  Link 

375 

000176 

0P..WA 

==176 

;.BXWA  -  WORKSPACE  AVAILABLE 

376 

000200 

0P..TS 

==200 

;.BXTS  -  Time  Stamp 

377 

000202 

OP.. EX 

==202 

;.BXEX  -  Expunge 

;.BXNC  -  Name  Classification 

378 

000204 

0P..NC 

==204 

379 

000206 

0P..CR 

==206 

;.BXCR  -  Canonical  Representation 

380 

000210 

0P..FX 

==210 

;.BXFX  -  Fix  function 

381 

000212 

OP..LC 

==212 

;.BXLC  -  Line  Counter 

382 

000214 

0P..NL 

==214 

;.BXNL  -  Name  List 

383 

384 

000300 

CHREND= 

=TMPTAG 

;NUf1BER  OF  CHARACTERS 

385  000043 

.PSECT 

TRNT8L 

;F1X   UP  SPECIAL  ASCII  TO  APL  TRANSLATIONS 

386  000043 

TRNADR  140J13 

; SPECIAL  CASE  FOR  GRAVE  ACCENT 

000140 

113 

.BYTE  113 

387  000141 

TRNADR  173,173 

;LEFT  BRACE 

000173 

173 

.BYTE  173 

388  000174 

TRNADR  174,115 

;RESIDUE 

000174 

115 

.BYTE  115 

389  000175 

TRNADR  175,175 

;RI6HT  BRACE 

000175 

175 

.BYTE  175 

390  000176 

TRNADR  176,124 

;NOT  (TILTA) 

000176 

124 

.BYTE  124 

391  000177 

TRNADR  177,177 

; FILLER 

000177 

177 

.BYTE  177 

392 

393 

394  000150 

.PSECT 

OVRTBL 

395  000150 

OVRTND: 

• 
• 

;END  OF  0VRTA8 

396  000262 

.PSECT 

MNTBL 

397  000262 

MNT8ND: 

• 
• 

.  NO  OF  MNTAB 

I  6 
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TABLE 

ACO   = 

XOOOOGO 

CHRERR= 

10AA31 

CS.B00= 

000010 

D.BXIO= 

000007 

D.$MUL= 

000000 

AC1   = 

X000001 

CHRFAC= 

000217  G 

CS.FLO= 

000020 

D.8XNL= 

000007 

D.$PLU= 

000000 

AC2   = 

X000002 

CHRFIL= 

000177 

CS.IDN= 

OOOOAO 

D.BXPP= 

000007 

D.$RES= 

000000 

AC3   = 

X000003 

CHRFRO=  000135 

CS.ONE= 

000100 

D.BXPW= 

000007 

D.$SUB= 

000000 

ACA   = 

XOGGGOA 

CHRI  RR= 

000073 

CTEPS 

0001 52R 

025 

D.BXRL= 

000007 

D.1C0M=  000001 

ACS   = 

X000005 

CHRLMP= 

00022A  G 

CTMAX 

00021 2R 

025  D.CIRC= 

000001 

D.1EXP= 

000002 

ALLINT 

00327AR 

025 

CHRLPR= 

000072 

CTRMAX 

0001 72R 

025 

D.COMB= 

000001 

D.1R0T= 

000003 

ARYRET 

003276R 

025 

CHRIt^S= 

000137 

CURPTR= 

000200 

D.coriP= 

000001 

EDICHR 

005063R 

025 

ASCII  = 

000003 

CHRMUL= 

000075 

C.ALOC= 

000162 

D.CONT= 

000006 

EDICNT 

00506AR 

025 

ASCQUO=  0000A2 

CHRNE6= 

000100 

C.8L0K= 

00006A 

D.CTLW= 

000000 

EDIFLG 

005062R 

025 

ASCTAB 

000000R6 

013 

CHRPDL= 

000271 

C.8LSZ= 

0001 AO 

D.DEAL= 

000003 

EDIT  = 

000003 

A.ALEN=  OOOOOA 

CHRPLU= 

000055 

C.8UFF= 

1 77760 

D.DECD= 

000002 

EIS   = 

000000 

A.ARG  = 

OOOOAO 

CHRPWR= 

000120 

C.BUFL= 

1 77762 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

A.ASR  = 

000200 

CHRQST= 

000121 

C.CCNT= 

1 77766 

D.DWD  = 

000010 

ENDCOR 

OOOOOAR 

025 

A.BITS= 

000003 

CHRQUO=  000113 

C.CPTR= 

1 7776A 

D.DQAD= 

1 77777 

EOF   = 

10AA75 

A. CON  = 

000020 

CHRRBR= 

0000A7 

C.CZ  = 

001000 

D.DROP= 

000002 

ERRMAX= 

000166 

A.DIWS= 

000002 

CHRRPR= 

0000A2 

C.DIG  = 

OOOOAO 

D.ENCD= 

000002 

ERRNUM 

0OA772R 

025 

A.DIM1= 

000006 

CHRSEW=  00007A 

C.FASW= 

020000 

D.EQ  = 

000000 

ERRPTR 

0OA770R 

025 

A.NUM  = 

000006 

CHRSMO=  000112 

C.FLEN= 

000010 

D.EXPD= 

000002 

ERRO 

00A77AR 

025 

A.PTR  = 

000000 

CHRSPA= 

OOOOAO 

C.FLSH= 

OOAOOO 

D.F6ET= 

000005 

EXEBUF 

00505AR 

025 

A.TI>f>  = 

000010 

CHRTAB 

OOOOOORG 

Oil 

C.FRC  = 

000001 

D.FMT  = 

OOOOOA 

E$CT 

005056R 

025 

BADDIR= 

10AA63 

CHRULA= 

000226  G 

C.IDEN= 

000010 

D.FPNT= 

000005 

ESPT 

005060R 

025 

BADERR= 

10AA37 

CHRULZ= 

000257  G 

C.NAME= 

000102 

D.FPUT= 

000005 

FA.APD= 

000100 

BLZBUB 

0051 16R 

025 

CHRUPA= 

000131 

C.N08F= 

OOOAOO 

D.GE  = 

000000 

FA.CRE= 

000010 

BRSELF 

00S0A6R 

025 

CHR.BS= 

000010 

C.NUM  = 

000020 

D.6T  = 

000000 

FA.DLK= 

001000 

CCNT 

00S072R 

025 

CHR.CC= 

000003 

COP  = 

OOOOOA 

D.IBM  = 

000002 

FA.ENB= 

100000 

CHA^€X 

003060R 

025 

CHR.CR= 

000015 

C.OPN  = 

010000 

D.IND  = 

000002 

FA.EXC= 

002000 

CHANOO 

000256R 

025 

CHR.CZ= 

000032 

C.RDLN= 

1 7777t> 

D.INNR= 

000013 

FA.EXT= 

OOOOOA 

CHAN01 

000330R 

025 

CHR.GT= 

0000A6 

C.REWT= 

002000 

D.INTR= 

000006 

FA.NSP= 

000100 

CHAN02 

000S12R 

025 

CHR.LF= 

000012 

C.RND  = 

000010 

D.LE  = 

000000 

FA.NSR= 

000200 

CHAN03 

00067AR 

025 

CHR.LT= 

00O0A3 

C.SBIT= 

1 77756 

D.LOG  = 

000001 

FA.POS= 

010000 

CHANOA 

0010S6R 

025 

CHR.0U= 

000273  G 

C.SPFX= 

000100 

D.LT  = 

000000 

FA.RD  = 

000001 

CHANGS 

0012A0R 

025 

CHR.SI= 

000017 

C.SPGL= 

000200 

D.MAX  = 

000000 

FA.RWD= 

OOAOOO 

CHAN06 

001A22R 

025 

CHR.SL= 

0C0057 

C.SPLX= 

000001 

D.MEM  = 

000002 

FA.SEQ= 

OAOOOO 

CHAN07 

00160AR 

025 

CHR.SO= 

000016 

C . SPRS= 

000002 

D.MIN  = 

000000 

FA.SHR= 

OOOOAO 

CHAN08 

001766R 

025 

CHR.TB= 

000011 

C.SRC  = 

1 7777^ 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHAN09 

0021 SOR 

025 

CHR.UL= 

000106 

C.SRCP= 

00002A 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN10 

002332R 

025 

L  HK • a  A— 

0001A1 

C.TMP  --r 

000061 

D.NN  = 

000000 

FA.yRT= 

000002 

CHAN11 

00251 AR 

025 

CHR..E= 

0001 AS 

C.TT  = 

OOOOOA 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN12 

002676R 

025 

CHR..S= 

000163 

C.WIDC= 

1 77770 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN13 

000022R 

023 

CHR..T= 

0001 6A 

C.WIDR= 

1 77772 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN1A 

00020AR 

023 

CHR..U=  000165 

C.$   = 

00001 1 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHNUPN= 

10AA71 

CHR..Z= 

0001 72 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHRAND= 

000051 

CHR..O= 

000060 

DEFERR= 

10AA05 

D . QQAD= 

000000 

FD.FTN=  000001 

CHRflFL= 

000007 

CHR..1= 

000061 

DEVIL 

0051 1AR 

025 

D.QUAD= 

000000 

FD.F11= 

OAOOOO 

CHRBKR= 

000133 

CH.AND= 

000001 

DEVNTF= 

10AA70 

D.RES  = 

000000 

FD.INS= 

000010 

CHRflO(-= 

000200 

CMDBUF 

003250R 

025 

DIGITS 

000006R 

025 

D.RHO  = 

000000 

FD.ISP= 

002000 

CHkBOX= 

00011A 

CMD«AX= 

000010 

DIWAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHRCMA= 

00005A 

CNTSIZ 

005130R 

025 

DimiK 

0031 12R 

025  D.SCON= 

000006 

FD.OSP= 

OOAOOO 

CHRCOL= 

000076 

COTBIN 

005C76R 

025 

DIMPTR 

0031 1AR 

025 

D.SDIF= 

000006 

FD.PLC= 

OOOOOA 

CHRDEL= 

000107 

COMCNT 

005126R 

025 

DIMTYP 

0031 16R 

025 

D.SUB  = 

000000 

FD.PRN= 

OOOOOA 

CHRDIV= 

000053 

C0f>1ERR= 

10AA25 

DIRFUL= 

10AA66 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRDLR= 

000176 

COMPTR 

005122R 

025 

DOWERR= 

10AA17 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRDLT= 

000110 

COMRTN 

0031 56R 

025 

DPTERR= 

10AA16 

D . TRAN= 

OOOOOA 

FD.RAN= 

000002 

CHRDOT= 

000056 

COMSKP 

00512AR 

025 

DYDCNT 

00322AR 

025 

D.UNON= 

000006 

FD.REC= 

000001 

CHREND= 

000300  6 

CORPTR 

005120R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RWM= 

000001 

CHREP  = 

000105 

CS.ASS= 

000200 

D.8XCT= 

000007 

D.$MIN= 

000000 

FD.SDI= 

000020 
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FD.SQD=  OOOOAO 

F.DVNM= 

000134 

F.UNIT= 

000136 

L.BITS= 

000003 

M.NOT  = 

000000 

FD.TTY=  OOOOOA 

F.EFBK= 

000010 

F.URBD= 

000020 

L.CNT  = 

000002 

M.NUB  = 

000006 

FD.WBH=  000002 

F.EFN  = 

000050 

F.VAL  = 

1 7711 t 

L.PRNT= 

000001 

M.NUM  = 

000204 

FF.CHR=  000005 

F.END  = 

002000 

F.VBN  = 

000064 

L.PTR  = 

000000 

M.0UTR= 

000012 

FF.NV  =  000003 

F.EnBR= 

000032 

F.VBSZ= 

000060 

L.PTR1= 

000004 

M. PI TM=  000000                  1 

FF.POE=  000002 

F.ERR  = 

000052 

GNOME 

0031 02R 

025  L.SUBS= 

000002 

M.PRDS= 

000006 

FF.RWD=  000001 

F.FACC= 

000043 

HASHC 

0051 36R 

025  MACHIN= 

000106 

M.QQAD= 

000000 

FF.RWF=  000006 

F.FFBY= 

000014 

HASHTB 

005140R 

025  MAXCHN= 

000014 

M.QUAD= 

000000 

FF.SPC=  OOOOOA 

F.FLAG= 

000002 

HSHMSK= 

1 77601 

MNTAB 

OOOOOORG 

016  M.RAND= 

000012 

FHEADR  00501 2R 

025 

F.FLB  = 

0001 00 

HSHSIZ= 

000200 

MNTBND 

000262RG 

016  M.RAVL= 

000000 

FHRET   005040R 

025 

F.FNAM= 

000110 

I  CHAN 

005050R 

025  MNTRT8 

OOOOOORG 

017  M.RCIP= 

000000 

FILNTF=  104467 

F.F^e  = 

000102 

ILFNAM= 

104464 

MONBLK 

0031 20R 

025  M.RDCT= 

000011 

FIS   =  000000 

F.FNDF= 

000010 

ILLCHN= 

104540 

MQNCVT 

0031 32R 

025  M.REVS= 

000003 

FISCON=  046000 

F.FTYP= 

000116 

ILLSW  = 

104565 

MDNLEN 

0031 30R 

025  M.R0LL= 

000000 

FIXPTR  003074R 

025 

F.FUN  = 

000010 

INDERR= 

104410 

MONPTR 

0031 22R 

025  M.SATA= 

000001 

FLAGS   004764R 

025 

F.FVER= 

0001 20 

INNTMP 

003250R 

025  MONSFT 

0031 26R 

025  M.SCAN= 

000011 

FLCBUF  003250R 

025 

F.HEAD= 

000006 

INNTM2 

00501 6R 

025  MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FLI^€   00501 4R 

025 

F.HIBK= 

000004 

INPTR 

000064R 

025  MONVAL 

0031 34R 

025  M.SI6N= 

000000 

FLOEXP  003270R 

025 

F.LBL  = 

000020 

INSNAM= 

1 04462 

M.ABS  = 

000000 

M.SIJRR= 

000001 

FLOCG  003272R 

025 

F.LINE= 

000012 

lOERR  = 

104477 

M.80L  = 

000200 

M.SYM  = 

000203 

FLSWTB  000222R 

025 

F.LOC  = 

000004 

I.CNT  = 

1 1111 t 

M.BXAV= 

000007 

M.SYN  = 

000201 

FLTLEN=  000010 

F.LSTC= 

000004 

I. DIM  = 

Mill! 

M.BXCR= 

000007 

M.TRAN= 

000012 

FNINSI  005044R 

025 

F.LUN  = 

000042 

I.LEN  = 

00001 2 

M.BXCT= 

000007 

M.$ABS= 

000000 

FORIGN  000032R 

025 

F.MBCT= 

000054 

I.0ERR= 

000062 

M.BXEX= 

000007 

M.$CEI= 

000000 

FO.APD=  000106 

F.MBC1= 

000055 

I. OLD  = 

1 1111^ 

M.BXFX= 

000007 

M.$FLR= 

000000 

FO.MFY=  000002 

F.MBFG= 

000056 

I.PTR  = 

1  mm 

M.BXI0= 

000007 

M.$IDN= 

000000 

FO.RD  =  000001 

F.MON  = 

000002 

I.STR  = 

1 77766 

M.OXLC= 

000003 

M.$NEG= 

000000 

FO.UPO=  000006 

F.NIL  = 

000001 

LABERR= 

104406 

M.8,XNC= 

000007 

M.$SIG= 

000000 

FO.URT=  000016 

F.NRBD= 

000024 

LABLPT 

005042R 

025  M.8XNL= 

000007 

M.1RDT= 

000011 

FPMODE  000O42R 

025 

F.NREC= 

000030 

LARGBL 

0031 62R 

025  M.8XPP= 

000007 

M.1REV= 

000003 

FPP   =  000000 

F.OPN  = 

000010 

LARGCV 

0031 76R 

025  M.BXPW= 

000007 

M.1SCN=  000011                   1 

FPPLEN=  000004 

F.0VBS= 

000030 

LARGFL 

0031 60R 

025  M.8XRL= 

000007 

NAMBUF 

003240R    025 

FREBLK  007400R 

025 

F.PREV= 

000000 

LARGLE 

0031 74R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FUZZ    0001 42R 

025 

F.PRNT= 

100000 

LARGLN 

0031 66R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

FXPTR1  003076R 

025 

F.PR0T= 

010000 

LARGPT 

0031 64R 

025  M.CEI  = 

1 11111 

NB.NAM=  000004                   1 

F$EVAL=  000100 

F.RACC= 

000016 

LARGSF 

0031 72R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FSEVI  =  000200 

F.RATT= 

000001 

LARGTY 

0031 70R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

F$EXEC=  000400 

F.RCNM= 

000034 

LARGVA 

003200R 

025  M.D0UT= 

000006 

NB.SNM=  000040                  1 

F$FUNC=  001000 

F.RCTL= 

000017 

LBJNC 

005100R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F.ACTL=  000076 

F.READ= 

004000 

L8UFF 

00331 6R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F.ALOC=  000040 

F.REDF= 

000040 

LBUFLN= 

000621 

M.EXE  = 

000000 

NB.TYP= 

000002 

F.HRFS=  000062 

F.RES  = 

000040 

L COUNT 

005106R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F.BOe  =  000070 

F.RET  = 

M7712 

LC.KLD= 

000000 

M.FACT= 

000001 

ND.DEV= 

000200 

F.BGBC=  000057 

F.RSIZ= 

000002 

LENERR= 

104412 

M.FIL  = 

0001 11 

ND.EXT= 

000002 

F.BITS=  177774 

F.RTYP= 

000000 

LENTA8 

000054R 

025  M.FLR  = 

1  mil 

ND.NA«=  000004                  1 

F.BKDN=  000026 

F.R2  = 

000014 

LEXPTR 

0031 OOR 

025  M.FMT  = 

000004 

ND.PPN= 

000100 

F.BKDS=  000020 

F.R3  = 

000016 

LFTOP 

005066R 

025  M.GDUP= 

000003 

ND.$EX= 

000000 

F.BKEF=  000050 

F.R4  = 

000020 

LINC 

005102R 

025  M.GDUN= 

000003 

ND.$E$= 

000020 

F.BKP1=  000051 

F .  SEQN= 

000100 

LINE 

00501 6R 

025  M.GETI= 

000006 

ND.$^#1=  000000 

F.BKST=  000024 

F.SPDV= 

000072 

LININC 

005026R 

025  M.JBM  = 

000003 

ND.$N$=  000040 

F.BK\/B=  000064 

F.SPUN= 

000074 

LIS1ZE-- 

000020 

M.IDN  = 

000000 

ND.$PN= 

001400 

F.8R  =  000020 

F.ST8K= 

000036 

LITOP 

005072R 

025  M.INSP= 

000006 

NEGSGN 

005063R    025 

F.CHR  =  000075 

F.STK  = 

000022 

LNLNG  = 

104541 

M.IOTA= 

000000 

NINPT1 

003302R    025 

F.CNTG=  000034 

F.STQP= 

000004 

LOCLCT 

005036R 

025  M.LIT  = 

000205 

NINPT2 

003300R    025 

F.CODE=  000010 

F.STP  = 

000001 

LOWCOR 

000002R 

025  M.LN  = 

000001 

NINSTK 

003304R    025 

f.Ofm=   000046 

F . SUSP= 

^m^^2 

LSTERP 

004766R 

025  M.MMD  = 

000010 

NINTMP 

00331  OR    025 

F.DSPT=  000044 

F.TRC  = 

000002 

LWIDTH 

000070R 

025  M.NEG  = 

000000 

NINTYP 

003306R    025 
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SYMBOL 

TABLE 

NOTAVL= 

10A472 

OP.FLR= 

000014  G 

RESBIT 

0031 42R 

025 

SUBDCT 

0031 06R 

025 

TTYLEN= 

000622 

NOTOPN= 

104A73 

OP.FMT= 

000160  G 

RESCVT 

0031 52R 

025 

SI.BPTR 

00311  OR 

025 

TURKEY= 

104436 

NPRT1 

0OA762R 

025 

0P.MUL= 

000006  G 

RESERR= 

104440 

SYMB1 

005344R 

025 

TYPE  = 

000166 

NULL 

00736AR 

025 

0P.NEQ= 

000034  G 

RESLEN 

0031 50R 

025 

SYMF 

005340R 

025 

T.80L  = 

020000 

NUMCHN=  000020 

OP.PLU= 

000002  G 

RESPTR 

0031 40R 

025 

SYMPT1 

005346R 

025 

T.CON  = 

004000 

NUMDFL 

003230R 

025 

0P.RED= 

000060  G 

RESSFT 

0031 46R 

025 

SYMTAB 

005352R 

025 

T.DIM  = 

000100 

NUMEFL 

003233R 

025 

OP.RES= 

000012  G 

RESTYP 

0031 44R 

025 

SYMT8F= 

104404 

T.FUN  = 

010000 

NUMESN 

003236R 

025 

OP.RHO= 

000102  G 

RESULT 

0031 36R 

025 

SYMTOP 

005350R 

025 

T.LISTr 

000400 

NUMFLG 

003230R 

025 

OP.SCN= 

000062  G 

RESVAL 

0031 54R 

025 

SYMTP 

006272R 

025 

T.LIT  = 

000020 

NLft.EN 

000062R 

025 

OP..AV= 

000162  G 

RINC 

0051 04R 

025 

SYMWRN= 

000054 

T.MON  = 

000010 

NUMNEG 

003232R 

025 

OP..CR= 

000206  G 

RLTBAS 

005066R 

025 

SYNERR= 

104407 

T.NIL  = 

000004 

NUMQFL 

00323AR 

025 

OP..CT= 

000164  G 

ROTINC 

005070R 

025 

SYSERR= 

104402 

T.NUW  = 

002000 

NUMRIG 

003231 R 

025 

OP..EX= 

000202  G 

ROUND 

00001  OR 

025 

SYSTAT 

OOOOOOR 

024 

T.OPFN= 

000001 

NJ1UID 

003226R 

025 

OP..FX= 

000210  G 

ROVER 

00331 2R 

025 

SY.aAD= 

000001 

T.OTHR= 

040000 

NUM2FL 

003235R 

025 

OP.. 10= 

000166  G 

RSTS  = 

OOOOOO 

SY.BRK= 

100000 

T.SOP  = 

000002 

NYIERR= 

10A432 

OP..LC= 

000212  G 

RSX   = 

0001 1 5 

SY.BS  = 

000010 

T.SPOP= 

000040 

N.BLSZ= 

000036 

OP..NC= 

000204  G 

RTOP 

005070R 

025 

SY.CLR= 

000040 

T.TMP  = 

000200 

N.DESC= 

000020 

OP..NL= 

000214  G 

RT11   = 

OOOOOO 

SY.ERP= 

000020 

T.VAL  = 

100000 

N.DEV  = 

000032 

OP..PP= 

000170  G 

R.8ITS= 

000003 

SY.NOU= 

000100 

T.VAR  = 

001000 

N.DE\/N=  00003A 

OP..PW= 

000172  G 

R.FIX  = 

000001 

SY.OPN= 

000002 

UPPER  = 

177400 

N.DID  = 

000024 

OP..RL= 

000174  G 

R.LCT  = 

000002 

SY.PMT= 

001000 

UTNAME 

000344R 

023 

N.D^/^f1=  000032 

OP..TS= 

000200  6 

R.LN  = 

000002 

SY.SRT= 

000400 

VALERR= 

104413 

N.EXT  = 

OOOOU 

OP..WA= 

000176  G 

R.LNUM= 

000010 

SY. SVC= 

000004 

VARBLE 

007400R 

025 

N.FID  = 

000000 

ORIGIN 

000030R 

025 

R.NEXT= 

000006 

SY.SVL= 

000200 

VARBLS 

OOOOOOR 

025 

N.FNAM=  000006 

OUTPTR 

000066R 

025 

R.OFF  = 

OOOOOO 

S.AB  = 

1 77776 

VERNUM 

OOOOOOR 

025 

N.FTYP=  OOOOU 

OVROPR= 

OOOOOO 

R.PREV= 

000004 

S.ASB  = 

100000 

VRSION= 

000002 

N.FVER= 

000016 

OVRTAB 

OOOOOORG 

014 

R.PTR  = 

OOOOOO 

S.BFHD= 

000020 

VTAB 

OOOOOORG 

012 

N.NA)1E= 

000006 

OVRTND 

0001 50RG 

014 

R.SEQ  = 

000003 

S.BITS= 

000002 

WIDTH 

000072R 

025 

N.^€XT= 

000022 

OVSTRK= 

000214  G 

R.VAR  = 

000002 

S.CHR1= 

000003 

WROUND 

000020R 

025 

N.PPN  = 

000024 

PATCH 

007344R 

025 

R6 

Z000006 

S.FATT= 

000016 

WSDATE 

0001 36R 

025 

N.STAT= 

000020 

PRECSN 

0OO052R 

025 

R7 

X000007 

S.FD6  = 

000140 

WSFULL= 

104403 

N.UN1T= 

000034 

RANDAC 

003064R 

025 

SI 

X000OC5 

S.FLB  = 

040000 

USNAME 

000074R 

025 

(WUFLN=  001000 

RANDY 

003062R 

025 

SIDAMN= 

104433 

S.FNAM= 

000006 

WSTIME 

0001 32R 

025 

OCHAN 

005052R 

025 

RANERR= 

104411 

SIFRAM 

00331 4R 

025 

S.FNB  = 

000036 

$FIS  = 

♦♦•♦♦*  G 

OWOOE 

000402R 

023  RARGBL 

003204R 

025 

SISTAK 

006350R 

025 

S.FNBW= 

000017 

%^PP     = 

•***i^*  (5 

OPTMPO 

005066R 

025 

RARGCV 

003220R 

025 

SI  TOP 

006346R 

025 

S.FNTY= 

000004 

$FPPLN= 

*•♦*♦•  (5 

OPTIiPI 

005070R 

025 

RARGFL 

003202R 

025 

SITP 

007144R 

025 

S.FTYP= 

000002 

$«ACHN= 

*♦•**♦  (5 

0PTMP2 

005072R 

025 

RARGLE 

00321 6R 

025 

SIUARN= 

000200 

S.LEN  = 

000002 

SRSTS  = 

**•*•*  (5 

0PTI>f>3 

005074R 

025 

RARGLN 

00321  OR 

025 

SIZTAB 

000044R 

025 

S.LINK= 

17777 1. 

$RSX  = 

♦*♦•♦♦  (5 

0PTMP4 

005076R 

025 

RARGPT 

003206R 

025 

SI.BIT= 

1 7777^ 

S.NFEN= 

000020 

$RT11  = 

******  G 

0PTMP5 

005:00R 

025 

RARGSF 

00321 4R 

025 

SI.LEN= 

1 77772 

S.TYPE= 

140000 

.BOOLE= 

000002 

0PTMP6 

005102R 

025 

RARGTY 

00321 2R 

025 

SI.RET= 

177772 

S.VAL  = 

OOOOOO 

.CHARA= 

OOOOOO 

0PTMP7 

005104R 

025 

RARGVA 

003222R 

025 

SI.VAL= 

1 77776 

TKDIMS 

005072R 

025 

.DEF.  = 

000002 

0PTMP8 

0051 06R 

025 

RRASE 

005074R 

025 

SKPSIZ 

0051 34R 

025 

TKFRAM 

005066R 

025 

.FLOAT= 

000006 

0PrMP9 

005110R 

025 

RCOUNR 

0051 12R 

025 

SPHOLD 

000004R 

024 

TKLEFT 

005070R 

025 

.FSRCB= 

******  G 

opimo 

0051 12R 

025 

RCOUNT 

005 11  OR 

025 

SPINIT 

000002R 

024 

TMODE 

000403R 

023 

.INTEG= 

000004 

OPTMK 

005026R 

025 

REDCNT 

005G70R 

025 

STKJNC= 

000774 

TMPTAG= 

000300 

.MOLUN 

000404R 

023 

OP.CEI= 

000016  G 

REDIGN 

005066R 

025 

STOP  = 

104420 

TRNTAB 

OOOOOORG 

015 

...GBL= 

OOOOOO 

OP.ENC= 

000076  G 

RE DOFF 

005072R 

025 

SmCNT 

0031 04R 

025 

TTVBUF 

004140R 

025 

...TPC= 

000020 

OP.EQU= 

000030  G 

REENTR 

003060R 

025 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MOMTB 

oooooo 

003 

DYDTB 

000000 

004 

BCFTB 

oooooo 

005 

M     6 


r 
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MONBTB 

OOOOOO 

006 

DYDBTB 

000000 

007 

CQMTB 

OOOOOO 

010 

CHRTBL 

000300 

Oil 

VTBL 

000300 

012 

ASCTBL 

000600 

013 

OVRTBL 

000150 

014 

TRNTBL 

000200 

015 

MNTBL 

000262 

016 

MNTRTL 

000131 

017 

CODE 

OOOOOO 

020 

PATCH 

OOOOOO 

021 

SSFSRI 

OOOOOO 

022 

DEFSO 

0OOA06 

023 

DEF$1 

000006 

02A 

DEF$2 

007400 

025 

ERRORS 
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9- 

A7A 

DEFINITIONS 

TOKEN  DESCRIPTION  BITS 

10- 

515 

DEFINITIONS 

SI  EXECUTION  FRAMES 

11- 

580 

DEFINITIONS 

SPECIAL  PARSE  CHARACTERS 

12- 

607 

DEFINITIONS 

CHRTAB  BITS 

12- 

62A 

DEFINITIONS 

SYSTEM  STATUS  BITS 

13- 

6A0 

DEFINITIONS 

F -FRAMES 

14- 

72A 

DEFINITIONS 

FUNCTION  LINE  BLOCKS 

16- 

807 

DEFINITIONS 

ARRAY  STORAGE  BLOCK 

17- 

869 

DEFINITIONS 

LIST  STORAGE  BLOCK 

18- 

911 

DEFINITIONS 

INDEXING  STACK  FRAME 

19- 

9A0 

DEFINITIONS 

SYMBOL  TABLE  ENTRY 

20- 

969 

DEFINITIONS 

CHA'ML  BLOCK 

22- 

1085 

DEFINITIONS 

RSX  DATA 

23- 

1110 

DEFINITIONS 

NAME  BLOCKS 

33- 

1612 

DEFINITIONS 

MACROS 

35- 

1905 

DEFINITIONS 

APL  CHARACTERS 

36- 

1967 

DEFINITIONS 

ERRORS 

AA- 

A 
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C  7 


1 

000000 

2 

000000 

3 

0001 1 5 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EJS 
FIS 
FPP 

II  II  II 
ooo 

FPPLEN 

=  4 

DEBUG 

=  0 

;N0T  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

; SINGLE  PRECISIO^J 

; DON'T  DISPLAY  REGISTERS  ON  ERRORS 


D  7 
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APLDEF 

1  .S8TTL  APLDEF 

2  .IDENT  \VC2.03\ 
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2513  .LIST  SEQ,SRC,LOC,BIN,BEX,MEB 
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DEFINITIONS 

ERRORS 

1 

.TITLE 

CKFNSI 

4 
5 
6 

. I DENT 

\V02.03\ 

.SBTTL 

CKFNSI 

CHECK  TO  SEE  If   THE  FUNCTION  IS  ON  THE  SI 

;++ 

7 

;  FUNCTIONAL  DESCRIPTION:                                                         1 

8 

THIS  ROUTINE  CHECKS  TO  SEE  WHETHER  THE  EDITED 

9 

FUNCTION  IS  ON  THE  SI.  IF  SO,  A  "SI  DAMAGE"  MESSAGE 

10 

11 
12 

IS  ISSUED  AND  THE  SI  IS  CLEARED. 

;  ROUTINES  CALLED: 

13 

PRINTM 

-  Prints  "SI  DAMAGE"  error  message 

14 

CLRS1 

-  Clears  the  SI,  so  no  deaths  can  occur 

15 

;~ 

16  000000 

17 

18  000000 

.PSECJ 

CODE 

CKFNSI: 

m 
m 

19  000000 

005737 

005044 • 

TST 

FNINSI 

;IS  THE  FUNCTION  IN  THE  SI? 

20  000004 

001435 

BEQ 

IS 

;N0,  SKIP  THIS  MESS 

21  000006 

PUSH 

<R4,R3,R2,R1,R0>, 

;SAVE  A  WHOLE  BUNCH  C'    REGISTERS 

22  000020 

PUSH 

FLAGS 

;SAVE  THE  FLAG! 

23  000024 

QPRINT 

DAMNS I 

;DAMN  THE  SI,  FULL  SPElD  AHEAD! 

000024 

012701 

000000 • 

MOV  *DAMNSI,R1 

; POINT  TO  DAMNSI 

24  000034 

012737 

000040 

000000 • 

MOV 

*SY.CLR,SYSTAT  , 

; CLEAR  THE  WHOLE  THING 

25  000042 

CALL 

CLRS1 

; CLEAR  THE  SI  &  RETURN 

26  000046 

042716 

1 77623 

BIC 

#^C<F$EVAL^'F.RE  +F.STOP-»-F.FNDF>,aSP    ;ONLY  CERTAIN                    1 

27  000052 

052637 

004764* 

BIS 

(SP)+, FLAGS 

;8ITS  SHOULD  BE  SET 

28  000056 

005037 

005044 • 

CLR 

FNINSI 

;N0  LONGER  IN  THE  SI 

29  000062 

POP 

<R0,R1,R2,R3,R4>. 

[RESTORE  THE   REGISTERS 

30  000074 

062705 

000020 

ADD 

#20, SI 

;THE  LEX  ROUTINE  PREFERS  THIS 

31  000100 

1$: 

RETURN 

j 

•AND  END  THIS  FOOLISHNESS 

32 

33 

34  000000 

.PSECT 

TABLES 

35 

36  000000 

DAMNS I: 

37  000000 

012 

015 

163 

.ASCIZ 

<12><15>/si  daniage/<12><15> 

000003 

151 

040 

144 

*rf 

000006 

141 

155 

141 

000011 

147 

145 

012 

OOOOU 

015 

000 

38 

.EVEN 

G  7 
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SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

C.ALOC= 

000162 

D.CTLM= 

000000 

EDIFL6 

005062R 

025 

AC1   = 

X000001 

CHRLPR= 

000072 

C.BLOK= 

000064 

D.DEAL= 

000003 

EDIT  = 

000003 

AC2   = 

X000002 

CHRMNS= 

000137 

C.BLSZ= 

000140 

D.DECD= 

000002 

EIS   = 

000000 

AC3   = 

X000003 

CHRMUL= 

000075 

C.BUFF= 

177760 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

AC4   = 

XOOOOOA 

CHRNEG= 

000100 

C.BUFL= 

177762 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

ACS   = 

XOOOOOS 

CHRPDL= 

000271 

C.CCNT= 

1 77766 

D.DQAD= 

1 77777 

EOF   = 

104475 

ALLINT 

003274R 

025 

CHRPLU= 

000055 

C . CPTR= 

177764 

D.DROP= 

000002 

ERRMAX= 

000166 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C.CZ  = 

001000 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

ASCQUO=  0000A2 

CHRQST= 

000121 

C.DIG  = 

000040 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

A.ALEN=  OOOOOA 

CHRQUO= 

000113 

C.FASW= 

020000 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.ARG  = 

000040 

CHRRBR= 

000047 

C.FLEN= 

000010 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

A.ASR  = 

000200 

CHRRPR= 

000042 

C.FLSH= 

004000 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.BITS= 

000003 

CHRSEM= 

000074 

C.FRC  = 

000001 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A. CON  = 

000020 

CHRSMO= 

000112 

C.IDEN= 

000010 

D.FPUT= 

000005 

FA.APD= 

000100 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.NAME= 

000102 

D.6E  = 

000000 

FA.CRE= 

000010 

A.Dim  = 

000006 

CHRUPA= 

000131 

C.NOBF= 

000400 

D.GT  = 

000000 

FA.DLK= 

001000 

A.NUM  = 

000006 

CHR.BS= 

000010 

C.NUM  = 

000020 

D.IBM  = 

000002 

FA.ENB= 

100000 

A.PTR  = 

000000 

CHR.CC= 

000003 

COP  = 

000004 

D.IND  = 

000002 

FA.EXC= 

002000 

A.TMP  = 

000010 

CHR.CR= 

00001 5 

C.OPN  = 

010000 

D.INNR= 

000013 

FA.EXT= 

000004 

BADDIR= 

10AA63 

CHR.CZ= 

000032 

C.RDLN= 

177776 

D.INTR= 

000006 

FA.NSP= 

000100 

BADERR= 

104A37 

CHR.GT= 

000046 

C.REWT= 

002000 

D.LE  = 

000000 

FA.NSR= 

000200 

BLZBUB 

0051 16R 

025 

CHR.LF= 

000012 

C.RND  = 

000010 

D.LOG  = 

000001 

FA.POS= 

010000 

BRSELF 

00S046R 

025 

CHR.LT= 

000043 

C.SRIT= 

177756 

D.LT  = 

000000 

FA.RD  = 

000001 

CCNT 

005072R 

025 

CHR.SI= 

00001 7 

C.SPFX= 

000100 

D.MAX  = 

000000 

FA.RWD= 

004000 

CHA^EX 

003060R 

025 

CHR.SL= 

000057 

C.SPGL= 

000200 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C.SPLX= 

000001 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C . SPRS= 

000002 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.SRC  = 

1 7777^ 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN03 

00067AR 

025 

CHR..A= 

000141 

C.SRCP= 

000024 

D.NN  = 

000000 

FA.URT= 

000002 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.TT  = 

000004 

D.NR  = 

000000 

FD.BLK= 

000010 

CHANGS 

0012A0R 

025 

CHR..S= 

000163 

C.WIDC= 

1 77770 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN06 

00K22R 

025 

CHR..T= 

000164 

C.WIDR= 

1 77772 

D.PLUS= 

000000 

FD.C0f1=  020000 

CHAN07 

00160AR 

025 

CHR..U= 

000165 

DAMNSI 

OOOOOOR 

002  D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.FTN= 

000001 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DEVIL 

005114R 

025  D.QUAD= 

000000 

FD.F11= 

040000 

CHAN11 

0025KR 

025 

CH.AND= 

000001 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN12 

002676R 

025 

CKFNSI 

OOOOOORG 

020  DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN13 

000022R 

023 

CLRS1  = 

•*•••*  GX 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN1A 

000204R 

023 

CMDBUF 

003250R 

025 

DIMBLK 

0031 12R 

025  D.SCON= 

000006 

FD.0SP= 

004000 

CHNOPN= 

10AA71 

CMDMAX= 

000010 

DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.PLC= 

000004 

CHRAND= 

000051 

CNTSIZ 

0051 30R 

025 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN=  000004 

CHRBEL= 

000007 

COMBIN 

005076R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRBKR= 

000133 

COMCNT 

005126R 

025 

DOMERR= 

104417 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRBOL= 

000200 

COMERR= 

104425 

DPTERR= 

104416 

D.TRAN= 

000004 

FD.RAN- 

000002 

CHRBOX= 

000114 

COMPTR 

005122R 

025 

DYDCNT 

003224R 

025  D.UNON= 

000006 

FD.REC= 

000001 

CHRCMA= 

000054 

COMRTN 

0031 56R 

025 

D.AND  = 

000000 

D.$«AX= 

000000 

FD.RVI1=  000001 

CHRCa= 

000076 

COMSKP 

005124R 

025 

D.BXCT= 

000007 

D.$MIN= 

000000 

FD.SDI= 

000020 

CHRDEL= 

000107 

CORPTR 

005120R 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRDIV= 

000053 

CS.ASS= 

000200 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.TTY= 

000004 

CHRDLR= 

000176 

CS.BOO= 

000010 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.yBH= 

000002 

CHRDLT^ 

000110 

CS.FLO= 

000020 

D.BXPW= 

000007 

D . $SUB= 

000000 

FF.CHR= 

000005 

CHRDOT= 

000056 

CS.1DN= 

000040 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.NV  = 

000003 

CHREP  = 

000105 

CS.ONE= 

000100 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.P0E= 

000002 

CHRERR= 

104431 

CTEPS 

0001 52R 

025 

D.cortB= 

000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHRF1L= 

000177 

CTMAX 

00021 2R 

025 

D.coriP= 

000001 

EDICHR 

005063R 

025  FF. RWF= 

000006 

CHRFRO= 

000135 

CTRMAX 

0001 72R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF,SPC= 

000004 
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SYMBOL 

FABLE 

F HE ADR 

00501 2R 

025 

F.FLB  = 

000100 

HSHSIZ= 

000200 

MONLEN 

0031 30R 

025  M.ROLL= 

000000 

FHRET 

005040R 

025 

F.FNAM= 

000110 

KHAN 

005050R 

025  MONPTR 

0031 22R 

025  M.SATA= 

000001 

FILNTF= 

10AA67 

F.FNB  = 

000102 

1LFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

FIS   = 

000000 

F.FNDF= 

000010 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FISCON= 

046000 

F.FTYP= 

000116 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  r'i.SIGN= 

000000 

FIXPTR 

003074R 

025 

F.FUN  = 

000010 

INDERR= 

104410 

M.ABS  = 

000000 

M.SUBR= 

000001 

FLAGS 

004764R 

025 

F.FVER= 

000120 

INNTMP 

003250R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLCBUF 

003250R 

025 

F.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FLINE 

00501 4R 

025 

F.H1BK= 

000004 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN= 

000012 

FLOEXP 

003270R 

025 

F.LBL  = 

000020 

INSNAM= 

104462 

M.BXCT= 

000007 

M.$ABS= 

000000 

FLONEG 

003272R 

025 

F.LINE= 

000012 

lO^RR   = 

104477 

M.BXEX= 

000007 

M.$CEI= 

000000 

FLSWTB 

0O0222R 

025 

F.LOC  = 

000004 

I.CNT  = 

177776 

M.BXFX= 

000007 

M.$FLR= 

000000 

FLTLEN= 

000010 

F.LSTC= 

000004 

I. DIM  = 

1 77772 

M.BXIO= 

000007 

M.$IDN= 

000000 

FNINSI 

005044R 

025 

F.LUN  = 

000042 

I.LEN  = 

000012 

M.BXLC= 

000003 

M.$NEG= 

000000 

FORIGN 

000032R 

025 

F.I1BCT= 

000054 

I.OERR= 

000062 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.APD= 

000106 

F.I>«C1  = 

000055 

I. OLD  = 

177770 

M.BXNL= 

000007 

M.1RDT= 

00001 1 

FO.WFY= 

000002 

F.MBFG= 

000056 

I.PTR  = 

}7777i, 

M.BXPP= 

000007 

M.1REV= 

000003 

FO.RD  = 

000001 

F.MON  = 

000002 

I.STR  = 

^77766 

M.BXPW= 

000007 

M.1SCN= 

000011 

FO.UF>D= 

000006 

F.NIL  = 

000001 

LABERR= 

104406 

M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FO.URT= 

000016 

F.NRBD= 

000024 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FPWODE 

000042R 

025 

F.NREC= 

000030 

LARGBL 

0031 62R 

025  M.BXUA= 

000007 

NB.DIR= 

000100 

FPP   = 

000000 

F.OPN  = 

000010 

LARGCV 

0031 76R 

025  M.CEI  = 

1 77777 

NB.NAM= 

000004 

FPPLEN= 

000004 

F.OVBS= 

000030 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FREBLK 

007400R 

025 

F.PREV= 

000000 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

FUZZ 

0001 42R 

025 

F.PRNT= 

100000 

LARGLN 

0031 66R 

025  M.DOUT= 

000006 

NB.SM>1=  000040 

FXPTR1 

003076R 

025 

F.PROT= 

010000 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$EVAL= 

000100 

F.RACC= 

000016 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F$EVI  = 

000200 

F.RATT= 

000001 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F$EXEC= 

000400 

F.RCNM= 

000034 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F$FUNC= 

001000 

F.RCTL= 

00001 7 

LBINC 

005100R 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.ACTL= 

000076 

F.READ= 

004000 

LBUFF 

00331 6R 

025  M.FIL  = 

000177 

ND.EXT= 

000002 

F.ALOC= 

000040 

F.REDF= 

000040 

LBUFLN=  000621 

M.FLR  = 

1 77777 

ND.NAM= 

000004 

F.BBFS= 

000062 

F.RES  = 

000040 

L COUNT 

005106R 

025  M.FMT  = 

000004 

ND.PPN= 

000100 

F.BOe  = 

000070 

F.RET  = 

M7772 

LENERR= 

104412 

M.6DUP= 

000003 

ND.$EX= 

000000 

F.BGBC= 

000057 

F.RSIZ= 

000002 

LENTAB 

000054R 

025  M.6DWN= 

000003 

ND.SE$= 

000020 

F.BITS= 

1 //774 

F.RTYP= 

000000 

LEXPTR 

0031 OOR 

025  M.GETI= 

000006 

ND.$NM=  000000 

F.B»(DN= 

000026 

F.R2  = 

000014 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$= 

000040 

F.BKDS= 

000020 

F.R3  = 

000016 

LINC 

005102R 

025  M.IDN  = 

OOOOOC 

ND. $PN= 

001 40C 

F.BKEF= 

000050 

F.R4  = 

000020 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN 

005063R 

025 

F.BICP1  = 

000051 

F . SEQN= 

000100 

LININC 

005026R 

025  M.I0TA= 

000000 

NINPT1 

003302R 

025 

F.BKST= 

000024 

F . SPDV= 

000072 

LISIZE= 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F,BKVB= 

000064 

F.SPUN= 

000074 

LITOP 

005072R 

025  M.LN  = 

000001 

NINSTK 

003304R 

025 

F.BR  = 

000020 

F.STBK= 

000036 

LNLNG  = 

104541 

M.MMD  - 

000010 

NINTMP 

00331  OR 

025 

F.CHR  = 

000075 

F.STK  = 

000022 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINTYP 

003306R 

025 

F . CNTG= 

000034 

F.STOP= 

000004 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

NOTAVL= 

104472 

F.CODE= 

000010 

F.STP  = 

000001 

LSTERP 

004766R 

025  M.NUB  = 

000006 

NOTOPN= 

104473 

F.DF^8= 

000046 

F . SUSP= 

000002 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

NPRT1 

004762R 

025 

F.DSPT= 

000044 

F.TRC  = 

000002 

L.BITS= 

000003 

M.0UTR= 

00001 2 

NULL 

007364R 

025 

F.D\/^ft=  000134 

F.UNIT= 

000136 

L.CNT  = 

000002 

M.PITM= 

000000 

NUMCHN= 

000020 

F.EFBIC= 

000010 

F.URBD= 

000020 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

F.EFN  = 

000050 

F.VAL  = 

1 7777 t 

L.PTR  = 

000000 

M.QQAD= 

000000 

NUMEFL 

003233R 

025 

F.END  = 

002000 

F.VBN  = 

000064 

L.PTR1= 

000004 

M.OUAD= 

000000 

NUMESN 

003236R 

025 

F.EnRR= 

000032 

F.\/BSZ= 

000060 

L.SlflS= 

000002 

M.RAND= 

000012 

NUMFLG 

003230R 

025 

F.ERR  = 

000052 

GNOME 

0031 02R 

025  MACHIN= 

000106 

M.RAVL= 

000000 

NUMLEN 

000062R 

025 

F.FACC= 

000043 

HASHC 

005136R 

025  MAXCHN= 

000014 

M.RCIP= 

000000 

NUMNEG 

003232R 

025 

F.FFBY= 

000014 

HASHTB 

0051 40R 

025  MONBLK 

0031 20R 

025  M.RDCT= 

00001 1 

NUMQFL 

003234R 

025 

F.F LAG= 

000002 

HSHMSK= 

177601 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

NUMRIG 

003231 R 

025 

"i — r 
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SYMBa 

TABLE 

NUMUID 

003226R 

025 

RANDY 

003062R 

025 

R.NEXT= 

000006 

SY.BS  = 

000010 

T.LIT  = 

000020 

NUMZFL 

003235R 

025 

RANERR= 

104411 

R.OFF  = 

000000 

SY.CLR= 

000040 

T.MON  = 

000010 

NYIERR= 

10A432 

RARGBL 

003204R 

025  R.PREV= 

000004 

SY.ERP= 

000020 

T.NIL  = 

000004 

N.BLSZ= 

000036 

RARGCV 

003220R 

025 

R.PTR  = 

000000 

SY.N0U= 

000100 

T.NUM  = 

002000 

N.DESC= 

000020 

RARGFL 

003202R 

025 

R.SEQ  = 

000003 

SY.OPN= 

000002 

T.OPFN= 

000001 

N.DEV  = 

000032 

RAR6LE 

00321 6R 

025 

R.VAR  = 

000002 

SY.Pf1T= 

001000 

T.OTHR= 

040000 

N.DE\/N=  00003A 

RARGLN 

00321  OR 

025 

R6 

X000006 

SY.SRT= 

000400 

T.SOP  = 

000002 

N.DID  = 

00002A 

RARGPT 

003206R 

025 

R7 

2000007 

SY.SVC= 

000004 

T.SPOP= 

000040 

N.D\/NM=  000032 

RARGSF 

00321 4R 

025 

SI 

X000005 

SY.SVL= 

000200 

T.TMP  = 

000200 

N.EXT  = 

OOOOH 

RARGTY 

00321 2R 

025 

SIDAMN= 

104433 

S.A8  = 

1 77776 

T.VAL  = 

100000 

N.FID  = 

000000 

RARGVA 

003222R 

025 

SIFRAW 

00331 4R 

025 

S.ASB  = 

100000 

T.VAR  = 

001000 

N.FNAM=  000006 

RBASE 

005074R 

025 

SISTAK 

006350R 

025 

S.BFHD= 

000020 

UPPER  = 

177400 

N.FTYP=  00001A 

RCOUNR 

0051 12R 

025 

SITOP 

006346R 

025 

S.BITS= 

000002 

UTNAME 

000344R 

023 

N.FVER= 

000016 

RCOUNT 

00511  OR 

025 

SITP 

0071 44R 

025 

S.CHR1= 

000003 

VALERR= 

104413 

N.NAI>€= 

000006 

REDCNT 

005070R 

025 

SIUARN= 

000200 

S.FATT= 

000016 

VARBLE 

007400R 

025 

N.NEXT= 

000022 

REDIGN 

005066R 

025 

SIZTAB 

000044R 

025 

S.FDB  = 

000140 

VARBLS 

OOOOOOR 

025 

N.PPN  = 

000024 

REDOFF 

005072R 

025 

SI.BIT= 

177774 

S.FLB  = 

040000 

VERNUM 

OOOOOOR 

025 

N.STAT= 

000020 

REENTR 

003060R 

025 

SI.LEN= 

1 77772 

S.FNAM= 

000006 

VRSION- 

000002 

N.UN1T= 

00003A 

RESBIT 

0031 42R 

025 

SI.RET= 

177772 

S.FNB  = 

000036 

WIDTH 

000072R 

025 

nR(JFLN=  001000 

RESCVT 

0031 52R 

025 

SI.VAL= 

1 77776 

S.F^BW= 

00001 7 

WROUND 

000020R 

025 

OCHAN 

005052R 

025 

RESERR= 

104440 

SKPSIZ 

0051 34R 

025 

S.FNTY= 

000004 

WSDATE 

0001 36R 

025 

0»10DE 

000A02R 

023  RESLEN 

0031 50R 

025 

SPHOLD 

000004R 

024 

S.FTYP= 

000002 

WSFULL= 

104403 

OPJff^O 

005066R 

025 

RESPTR 

0031 40R 

025 

SPINIT 

000002R 

024 

S.LEN  = 

000002 

WSNAME 

000074R 

025 

0PTMP1 

005070R 

025 

RESSFT 

0031 46R 

025 

STKINC= 

000774 

S.LINK= 

177771, 

WSTIME 

0001 32R 

025 

0PTMP2 

005072R 

025 

RESTYP 

0031 44R 

025 

STOP  = 

104420 

SMFEH= 

000020 

$FIS  = 

*•••••  (3 

0PTMP3 

00507AR 

025 

RESULT 

0031 36R 

025 

SUBCNT 

0031 04R 

025 

S.TYPE= 

140000 

$FPP  = 

••••••  G 

0PTMP4 

005076R 

025 

RESVAL 

0031 54R 

025 

SUBDCT 

0031 06R 

025 

S.VAL  = 

000000 

$FPPLN= 

•*•••*  Q 

0PTMP5 

0051 OOR 

025 

RINC 

005104R 

025 

SIRPTR 

00311  OR 

025 

TKD  IMS 

005072R 

025  $MACHN= 

**♦•••  (5 

0PTMF>6 

0051 02R 

025 

RLTBAS 

005066R 

025 

SYrei 

005344R 

025 

TKFRAM 

005066R 

025  SRSTS  = 

♦•♦•♦•  G 

0PTMP7 

0051  OAR 

025 

ROTINC 

005070R 

025 

SYMF 

005340R 

025 

TKLEFT 

005070R 

025  $RSX  = 

**••••  G 

0PTMP8 

0051 06R 

025 

ROUND 

00001  OR 

025 

SYliPTI 

005346R 

025 

TMODE 

000403R 

023  $RT11  = 

^•i^*^*  (5 

0PTMP9 

00511  OR 

025 

ROVER 

00331 2R 

025 

SYMTAB 

005352R 

025 

TMPTA6= 

000166 

. BOOLE = 

000002 

OPTMIO 

0051 12R 

025 

RSTS  = 

000000 

SYMT8F= 

104404 

TTYBUF 

C04140R 

025  .CHARA= 

000000 

OPTMK 

005026R 

025 

RSX   = 

0001 1 5 

SYWTOP 

005350R 

025 

TTYLEN= 

000622 

.DEF.  = 

000002 

ORIGIN 

000030R 

025 

RTOP 

005070R 

025 

SYWTP 

006272R 

025 

TURKEY= 

104436 

.FLOAT= 

000006 

OUTPTR 

000066R 

025 

RT11  = 

000000 

SYMWRN= 

000054 

TYPE  = 

000166 

.FSRCB= 

•  •'x***  Q 

OVROPR= 

000000 

R.BITS= 

000003 

SYNERR= 

104407 

T.80L  = 

020000 

.INTEG= 

000004 

PATCH 

00734AR 

025 

R.FIX  = 

000001 

SYSERR= 

104402 

T.CON  = 

004000 

.MOLUN 

000404R 

023 

PRECSN 

000052R 

025 

R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.DIM  = 

000100 

...GBL= 

000000 

PRINTW= 

l^*#***  QX 

R.LN  = 

000002 

SY.8AD= 

000001 

T.FUN  = 

010000 

...TPC= 

000020 

RANDAC 

00306AR 

025 

R.LNUM= 

000010 

SY.BRK= 

100000 

T.LIST= 

000400 

•  Ado* 

000000 
000000 

000 
001 

TABLES 

000016 

002 

MONTB 

000000 

003 

DYDT8 

000000 

00^ 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYDBTB 

000000 

007 

COWTB 

000000 

010 

CHRTBL 

000000 

011 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

K  7 
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SYMBOL  TABLE 

MNTRTL  000000 

017 

CODE    000102 

020 

PATCH   000000 

021 

$$FSR1  000000 

022 

DEFSO   000A06 

023 

DEF$1   000006 

024 

DEF$2   007400 

025 

ERRORS  DETECTED: 

0 

VIRTUAL  MEMORY  U 

SED:  12908  WORDS  (  51  PAGES) 

DYNAMIC  MEMORY: 

14478  WORDS  (  55  PAGES) 

ELAPSED  TIME:   00:01:49 

CKFNSI, DM1: [305, 301 3CKFNSJ/-SP=APLRX1,APLDEF, CKFNSI, END 
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**FILE**ID*-< 

'CLRCOR 

CCCCCCCC 

LL 
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CCCCCCCC 

LL 
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CCCCCCCC 
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CC 

LL 
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CC 
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CC 

LL 

RR     RR 

CC 
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CC 

LL 

RR      RR 

CC 
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CC 

LL 
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CC 
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CC 
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CC 
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CC 
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CC 
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CCCCCCCC 

000000 
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CCCCCCCC 
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CCCCCCCC 

000000 
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•  •  •  • 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 
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LLLLLLLLLL 

SSSSSSSS 

IfTT 
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1 

000000 

2 

000000 

3 

0001 1 5 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
FIS 
FPP 

II  II  II 
ooo 

FPPLEN 

=  4 

DE8UG 

=  0 

N  7 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

;SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 
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2  .IDENT  \V02.03\ 
3 


B  8 


C  8 
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S 

8 
9 
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23 

^ 

26 
27 
28 
29 
30 
51 
32 
33 
3A 
35 
36 
37 
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"FT 


000000 
000000 


000000 
000004 
000010 
000014 
000020 

000024 


TITLE  CLRCOR 
I DENT  \V02.03\ 

S8TTL  CLRCOR 


CLEAR  MEMORY 


FUNCTIONAL  DESCRIPTION: 

This  routine  is  called  to  initialize 

the  free  storage  area  and  the  top  of  core  pointer.  The  top  of  core 
is  low  enough  to  accomidate  sev/eral  handlers.  The  USR  will  be  swapped 
in  over  the  pure-code  for  maxinum  space.   If  APL  is  running  on  RSTS 
the  device  handlers  and  the  USR  are  never  in  user  core  so  no  space  is 
left.  The  start  address  (at  absolute  location  40)  is  set  to  'START', 
so  that  when  the  program  is  started,  this  routine  won't  be  called. 

CALLING  SEQUENCE: 

CALL    CLRCOR 

. .or. . 
CALL    CLRC01 

INPUTS 


012702 
012702 


000022 • 
000204 • 


NONE 

OUTPUTS: 

NONE 

ROUTINES  CALLED: 
NONE 

SIDE  EFFECTS; 

The  Workspace  is  cleared  and  initialized 

.PSECT  CODE 

CLRC01 : : 

•f 

RESET  ALL  CHANNELS  (Except  Overlay  Channel) 

RESET  Cf-ANNELS  1.-12. 
ALSO  r^ESET 

UTJLTY  CHANNEL  ft^ . 
ALSO  RESET 

UTILTY  CHANN'iu  *2. 

CLRCOR:: 

READ  IN  A  CLEAR  CHUCK.  OF  VARIABLE  CORE 


CALL 

FRESET 

MOV 

#CHAN13,R2 

CALL 

RESCHN 

MOV 

#CHAN14,R2 

CALL 

RESCHN 

000024  012700  000040' 

000030 

000034  103405 

000036  012700  000046' 

000042 

000046  103003 

000050 

000050 

000050  012746 


14$: 


MOV 

/«fCLRSEG,RO 

.•POINT  TO  CLEAR  WS  SEGMENT 

CALL 

$LOAD 

; FORCE  THE  DATA  INTO  CORE 

BCS 

14$ 

; EVERYTHING  WENT  WRONG 

MOV 

#ROTSEG,RO 

; Point  to  Root  of  2nd  Tree 

CALL 

$LOAD 

;Load  it  in 

BCC 

1$ 

.•Everything  is  OK 

EXJTSS 

.•Terminate 

MOV 

(PC)^,-(SP) 

E  8 
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000052  063     001               .BYTE  51.,1 

00005A  10A377                     EMT  ^0<377> 
146 

147  000056  042737  000003  000000'  1$:     SIC  #SY.BAD!SY.OPN,SYSTAT   ;WS  no  longer  Possibly  Bad 
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F  8 


149 
150 
151 

154  000064 

155  000070 

156  000072 
000072 
000074 
000076 
000100 

157  000102 

158  000106 

159  000112 

160  000116 

168  000122 

169  000126 

170  000132 

171  000136 

172  000142 

173  000144 

174  000146 

175  000150 

176  000154 

177  000156 

178  000162 

179  000164 

180  000166 

181  000172 

186  000174 

187  000200 

188  000202 

189  000206 
190 


162706 
010601 

010146 
012746 
077 
104377 
016100 
062706 
162700 
042700 
012701 
012721 
010037 
010137 
160100 
006200 
010021 
010137 
010111 
010161 
060001 
060001 
U12741 
010041 
105737 
002002 


000040 


002 

000032 
000040 
000002 
000001 
007376' 
1 77111 
000004 • 
000002' 


003312' 
000002 

1 11111 
000402 ' 


191 
192 
193 
194 
195 


000000 


NOW  TO  INITIALIZE  WHAT  WE  READ  IN 


000000 
000000 
000006 

196  000012 
000020 

197  000024 
000032 

198  000036 

202  000040 

203  000042 
204 

205  000046 

206  000050 
208 


000256'  000330'  000512' 

000674'  001056' 

001240'  001422'  001604' 

001766'  002150' 

002332'  002514'  002676' 

000022'  000204' 
003060' 

003    000 

004314  015020 

003    000 

071347  100730 


SUB 

#32., SP 

MOV 

SP,R1 

GTSKSS 

R1 

MOV 

R1,-(SP) 

MOV 

(PC)+,-(SP) 

.BYTE 

63.,  2 

EMT 

'^0<377> 

MOV 

6.TSTS(R1),R0 

ADD 

#32., SP 

SUB 

#2.,R0 

BIC 

#1.,R0 

MOV 

#FREBLK-2,R1 

MOV 

#-l,(R1)+ 

MOV 

R0,ENDC0R 

MOV 

R1,L0WC0R 

SUB 

R1,R0 

ASR 

RO 

MOV 

R0,(R1)+ 

MOV 

Rl, ROVER 

MOV 

R1,(R1) 

MOV 

R1,2(R1) 

ADD 

R0,R1 

ADD 

R0,R1 

MOV 

#-l,-(R1) 

MOV 

R0,-(R1) 

TST8 

OMODE 

BGE 

2$ 

CALL 

TTINIT 

2$:     RETURN 

.PSECT  TABLES 

CHANNEL:: 

.WORD 

CHANOO,  CHAN01, 

.WORD 

CHAN05,  CHAN06, 

.WORD 

CHAN10,  CHAN11, 

.WORD 

CHANEX 

CLRSEG:  .BYTE 

3,0 

.RAD50 

/APLDF2/ 

R0TSE6:  .BYTE 

3,0 

.RAD50 

/R00T1  / 

SPACE  FOR  PARTITION  PARAMETERS 

POINTER  \H   R1 

GET  THE  PARAMETERS 


GET  THE  SIZE 

SKIP  THE  GARBAGE 

MINUS  THE  HIGH  LOCATION 

JUST  IN  CASE 

Get  Pointer  to  Low  Core-2 

PUT  IN  SAFETY  WORD 

SET  A  POINTER  TO  TOP  OF  APL  CORE 

LOWER  CORE  LIMIT 

GET  LENGTH  OF  FREE  BLOCK 

MAKE  A  WORD  SIZE  FOR  THE  BLOCK 

SAVE  AS  SIZE  WORD  IN  BLOCK 

SET  POINTER  TO  NEXT  (ONLY)  FREE  BLOCK 

PUT  IN  LINKS 

BOTH  OF  THEM 

MOVE  TO  END  OF  BLOCK 

DID  THIS  TWICE  BECAUSE  IT'S  WORD  COUNT 

SET  UP  SAFETY  WORD 

PUT  IN  LENGTH  AT  END 

OMODE  already  set? 

Yes,  don't  initialize 

Initialize  the  terminal 

And  return 


CHAN02,  CHAN03,  CHAN04 
CHAN07,  CHAN08,  CHAN09 
CHAN12,  CHAN13,  CHAN14 


;LOAD  SYNCHRONOUSLY 

;THE  VARIABLES  (CLEAR  IMAGE) 

;LOAD  SYNCHRONOUSLY 
the  2nd  tree  root 
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ACO   = 

XOOOOOO 

CHRFRO= 

000135 

CTMAX 

00021 2R 

025  D.CONT= 

000006 

EDICNT 

005064R 

025 

AC1   = 

X000001 

CHRLBR= 

000073 

CTRMAX 

0001 72R 

025  D.CTLM= 

000000 

EDIFLG 

005062R 

025 

AC2   = 

X000002 

CHRLPR= 

000072 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

AC3   = 

X000003 

CHRMNS= 

000137 

C.BLOK= 

000064 

D.DECD= 

000002 

Ul       = 

000000 

AC4   = 

XOOOOOA 

CHRMUL= 

000075 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

ACS   = 

X000005 

CHRNEG= 

000100 

C.BUFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

ALLINT 

003274R 

025 

CHRPDL= 

000271 

C.8UFL= 

177762 

D.DQAD= 

^77777 

EOF   = 

104475 

ARYRET 

003276R 

025 

CHRPLU= 

000055 

C.CCNT= 

1 77766 

D.DROP= 

000002 

ERRMAX= 

000166 

ASCQUO=  0000A2 

CHRPWR= 

000120 

C.CPTR= 

1 77764 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

A.ALEN=  OOOOOA 

CHRQST= 

000121 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

A.ARG  = 

OOOOAO 

CHRQUO= 

000113 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.ASB  = 

000200 

CHRRBR= 

000047 

C.FASW= 

020000 

D.F6ET= 

000005 

EXEBUF 

005054R 

025 

A.BITS= 

000003 

CHRRPR= 

000042 

C.FLEN= 

000010 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.CON  = 

000020 

CHRSEM= 

000074 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.DIMS= 

000002 

CHRSMO= 

000112 

C.FRC  = 

000001 

D.FPUT= 

000005 

FA.APD= 

000100 

A.Dim  = 

000006 

CHRSPA= 

000040 

C.IDEN= 

000010 

D.GE  = 

000000 

FA.CRE= 

000010 

A.NUM  = 

000006 

CHRUPA= 

000131 

C.NAME= 

000102 

D.GT  = 

000000 

FA.DLK= 

001000 

A.PTR  = 

000000 

CHR.BS= 

000010 

C.NOBF= 

000400 

D.IBM  = 

000002 

FA.E^B= 

100000 

A.  IMP  = 

000010 

CHR.CC= 

000003 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.EXC= 

002000 

BADDIR= 

10AA63 

CHR.CR= 

000015 

COP  = 

000004 

D.INNR= 

000013 

FA.EXT= 

000004 

BADERR= 

104A37 

CHR.CZ= 

000032 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.NSP= 

000100 

BLZBUB 

0051 16R 

025 

CHR.GT= 

000046 

C.RDLN= 

1 7771 t 

D.LE  = 

000000 

FA  \*SR= 

000200 

BRSELF 

005046R 

025 

CHR.LF= 

000012 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.POS= 

010000 

CCNT 

005072R 

025 

CHR.LT= 

000043 

C.RND  = 

000010 

D.LT  = 

000000 

FA.RD  = 

000001 

CHA^€X 

003060R 

025 

CHR. SI= 

000017 

C.S8IT= 

1 77756 

D.MAX  = 

000000 

FA.RWD= 

004000 

CHANNE 

OOOOOORG 

002 

CHR.SL= 

000057 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C.SPLX= 

000001 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C . SPRS= 

000002 

D.NE  = 

000000 

FA.UCIC= 

020000 

CHAN03 

00067AR 

025 

CHR..A= 

000141 

C.SRC  = 

1 77771, 

D.NN  = 

000000 

FA.URT= 

000002 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.SRCP= 

000024 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN05 

0012A0R 

025 

CHR..S= 

000163 

C.TT  = 

000004 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN06 

001A22R 

025 

CHR..T= 

000164 

C.WIDC= 

1 7777^ 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN07 

001604R 

025 

CHR..U= 

000165 

C.WIDR= 

1 77772 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN08 

001766R 

025 

CHR..Z= 

0001 72 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.FTN= 

000001 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DEVIL 

0051 14R 

025  D.QUAD= 

000000 

FD.F11= 

040000 

CHAN11 

0025UR 

025 

CH.AND= 

000001 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN12 

002676R 

025 

CLRCOR 

000024RG 

020 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN13 

000022R 

023 

CLRC01 

OOOOOORG 

020  DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHANU 

000204R 

023  CLRSEG 

000040R 

002  DIMBLK 

0031 12R 

025  D.SCON= 

000006 

FD.OSP= 

004000 

CHNOPN= 

104471 

CMD6UF 

003250R 

025 

DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.PLC= 

000004 

CHRAND= 

000051 

CMDMAX= 

000010 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN=  000004 

CHRBEL= 

000007 

CNTSIZ 

005130R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PSE= 

010OO0 

CHRB»CR= 

000133 

COMBIN 

005076R 

025 

DOMERR= 

104417 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHR8a= 

000200 

COMCNT 

005126R 

025 

DPTERR= 

104416 

D.TRAN= 

000004 

FD.RAN=  000002 

CHRB0X= 

000114 

COMERR= 

104425 

DYDCNT 

003224R 

025  D.UN0N= 

000006 

FD.REC= 

000001 

CHRC«A= 

000054 

CQMPTR 

005122R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RUM=  000001 

CHRCa= 

000076 

CQMRTN 

0031 56R 

025 

D.8XCT= 

000007 

D.$MIN= 

000000 

FD.SDI= 

000020 

CHRDEL= 

000107 

CGMSKP 

005124R 

025 

D.8XI0= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRDIV= 

000053 

CORPTR 

005120R 

025 

D.8XNL= 

000007 

D.$PLU= 

000000 

FD.TTY= 

000004 

CHRDLR= 

000176 

CS.ASS= 

000200 

D.8XPP= 

000007 

D.$RES= 

000000 

FD.WBH= 

000002 

CHRDLT= 

000110 

CS.800= 

000010 

D.BXPW= 

000007 

D.$SIB= 

000000 

FF.CHR= 

000005 

CHRDOT= 

000056 

CS.FL0= 

000020 

D.8XRL= 

000007 

D.icaM= 

000001 

FF.NV  = 

000003 

CHREP  = 

000105 

CS.JDN= 

000040 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.P0E= 

000002 

CHRERR= 

104431 

CS.0NE= 

000100 

D.C0MB= 

000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHRF1L= 

000177 

CTEPS 

0001 52R 

025 

D.COMP= 

000001 

EDI CHR 

005063R 

025  FF.RWF= 

000006 
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FF.SPC=  OOOOOA 

F.FFBY= 

000014 

G.TSFU= 

000024 

LI  TOP 

005072R 

025  M.LN  =  000001 

F HE ADR  00501 2R 

025 

F.FLAG= 

000002 

G.TSGC= 

00001 7 

LNLNG  = 

104541 

M.MMD  =  000010 

FHRET   0050AOR 

025 

F.FLB  = 

000100 

G.TSMT= 

000022 

LOCLCT 

005036R 

025  M.NE6  =  000000 

FILNTF=  10AA67 

F.FNAM= 

000110 

G.TSNL= 

000020 

LOWCOR 

000002R 

025  M.NOT  =  000000 

FIS   =  000000 

F.FNB  = 

000102 

G.TSPC= 

000016 

LSTERP 

004766R 

025  M. NUB  =  000006 

FISCON=  046000 

F.FNDF= 

000010 

G.TSPN= 

000004 

LWIDTH 

000070R 

025  M.NUM  =  000204 

FIXPTR  003074R 

025 

F.FTYP= 

000116 

G.TSPR= 

000014 

L.BITS= 

000003 

M.0UTR=  000012 

FLAGS   00476AR 

025 

F.FUN  = 

000010 

G.TSRN= 

000010 

L.CNT  = 

000002 

M. PI TM=  000000 

FLCBUF  003250R 

025 

F.FVER= 

000120 

G.TSSY= 

000034 

L.PRNT= 

000001 

M.PRDS=  000006 

FLINE   0050UR 

025 

F.HEAD= 

000006 

G.TSTN=  000000 

L.PTR  = 

000000 

M.QQAD=  000000 

FLOEXP  003270R 

025 

F.H1BK= 

000004 

G.TSTS= 

000032 

L.PTR1= 

000004 

M.QUAD=  000000 

FLGNEG  003272R 

025 

F.LBL  = 

000020 

G.TSVA= 

000026 

L.SUBS= 

000002 

M.RAND=  000012 

FLSWTB  000222R 

025 

F.LINE= 

000012 

G.TSVL= 

000030 

MACHIN=  000106 

M.RAVL=  000000 

FLTLEN=  000010 

F.LOC  = 

000004 

HASHC 

0051 36R 

025  MAXCHN= 

000014 

M.RCIP=  000000 

FNIMSI  00504AR 

025 

F.LSTC= 

000004 

HASHTB 

005140R 

025  MONBLK 

0031 20R 

025  M.RDCT=  000011 

FORioN  000032R 

025 

F.LUN  = 

000042 

HSHMSK= 

1 77601 

MONCVT 

0031 32R 

025  M.REVS=  000003 

F0.AP0=  000106 

F.MBCT= 

000054 

HSHSIZ= 

000200 

MONLEN 

0031 30R 

025  M.R0LL=  000000 

FO.MFY=  000002 

F.^BC1  = 

000055 

KHAN 

005050R 

025  MONPTR 

0031 22R 

025  M.SATA=  000001 

FO.RD  =  000001 

F.MBF6= 

000056 

ILFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SCAN=  000011 

F0.UPD=  000006 

F.MON  = 

000002 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP=  000000 

FO.WRT=  000016 

F.NIL  = 

000001 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SI6N=  000000 

FPMODE  0OO0A2R 

025 

F.NRBD= 

000024 

INDERR= 

104410 

M.ABS  = 

000000 

M.SUBR=  000001 

FPP   =  000000 

F.NREC= 

000030 

INNTMP 

003250R 

025  M.80L  = 

000200 

M.SYM  =  000203 

FPPLEN=  OOOOOA 

F.OPN  = 

000010 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.SYN  =  000201 

FREBLK  007400R 

025 

F.OVBS= 

000030 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN=  000012 

FRESET=  ***♦*•  GX 

F.PREV= 

000000 

INSNAM= 

104462 

M.BXCT= 

000007 

M.$ABS=  000000 

FUZZ    0001 A2R 

025 

F.PRNT= 

100000 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI=  000000 

FXPTR1  003076R 

025 

F.PROT= 

010000 

I.CNT  = 

1 77776 

M.BXFX= 

000007 

M.$FLR=  000000 

F$EVAL=  000100 

F.RACC= 

000016 

I. DIM  = 

1 77772 

M.BXIO= 

000007 

M.$IDN=  000000 

F$EVI  =  000200 

F.RATT= 

000001 

I.LEN  = 

000012 

M.BXLC= 

000003 

M.$NEG=  000000 

F$EXEC=  000400 

F.RCNM= 

000034 

I.OERR= 

000062 

M.BXNC= 

000007 

M.$SIG=  000000 

F$FUNC=  001000 

F.RCTL= 

00001 7 

I. OLD  = 

177770 

M.BXNL= 

000007 

M.1RDT=  000011 

F.ACTL=  000076 

F.READ= 

004000 

l.PTR  = 

^77771, 

M.BXPP= 

000007 

M.1REV=  000003 

F.ALOC=  OOOOAO 

F.REDF= 

000040 

I.STR  = 

^777 66 

M.BXPW= 

000007 

M.1SCN=  000011 

F.flRFS=  000062 

F.RES  = 

000040 

LABERR= 

104406 

M.BXRL= 

000007 

NAMBUF  003240R 

025 

F.BDB  =  000070 

F.RET  = 

M7772 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV=  000200 

F.BGBC=  000057 

F.RSIZ= 

000002 

LARGBL 

0031 62R 

025  M.BXWA= 

000007 

NB.DIR=  000100 

F.BITS=  \1777i. 

F.RTYP= 

000000 

LARGCV 

0031 76R 

025  M.CEI  = 

1 77777 

NB.NAM=  000004 

F.BK;DN=  000026 

F.R2  = 

000014 

LAR6FL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1=  000400 

F.BICDS=  000020 

F.R3  = 

000016 

LAR6LE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2=  001000 

F.BKEF=  000050 

F.R4  = 

000020 

LARGLN 

0031 66R 

025  M.D0UT= 

000006 

NB.Sf#1=  000040 

F.BKP1=  000051 

F.SEQN=  OOC'^O 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP=  000020 

F.BICST=  000024 

F . SPDV= 

000072 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR=  000010 

F.BKVB=  000064 

F.SPUN= 

000074 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP=  000002 

F.BR  =  000020 

F.STBK= 

000036 

LAR6VA 

003200R 

025  M.EXP  = 

000001 

NB.VER=  000001 

F.CHR  =  000075 

^.S^K   = 

000022 

LBINC 

0051 OOR 

025  M.FACT= 

000001 

ND.DEV=  000200 

F.CNTG=  000034 

F.srop= 

000004 

LBUFF 

00331 6R 

025  M.FIL  = 

000177 

ND.EXT=  000002 

F.COOE=  000010 

F.STP  = 

000001 

LBUFLN=  000621 

M.FLR  = 

\77777 

ND.NAM=  000004 

F.DF^B=  000046 

F . SUSP= 

000002 

LCOUNT 

0051 06R 

025  M.FMT  = 

000004 

ND.PPN=  000100 

F.DSPT=  000044 

F.TRC  = 

000002 

LENERR= 

104412 

M.GDUP= 

000003 

ND.$EX=  000000 

F.D\/NW=  000134 

F.UN1T= 

000136 

LENTAB 

000054R 

025  M.GDWN=  000003 

ND.$E$=  000020 

F.EFBK=  000010 

F.URBD= 

000020 

LEXPTR 

0031 OOR 

025  M.GETI= 

000006 

ND.$NM=  000000 

F.EFN  =  000050 

F.VAL  = 

1 77776 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$=  000040 

F.END  =  002000 

F.VBN  = 

000064 

LINC 

005102R 

025  M.IDN  = 

000000 

ND.SPN-  001400 

F.E(1HH=  000032 

F . VBSZ= 

000060 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN  005063R 

025 

F.ERR  =   000052 

GNOME 

0031 02R 

025  LINING 

005026R 

025  M.I0TA= 

000000 

NINPT1  003302R 

025 

F.FACC=  000043 

6.TSDU= 

000036 

LISIZE= 

000020 

M.LIT  = 

000205 

NINPT2  003300R 

025 
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NINSTK 

0O330AR 

025  0PTMP8 

0051 06R 

025 

RTOP 

005070R 

025 

SYMWRN= 

000054 

T.DIM  = 

000100 

NINTMP 

00331  OR 

025 

0PTMP9 

00511  OR 

025 

RT11  = 

000000 

SYNERR= 

104407 

T.FUN  = 

010000 

NINTYP 

003306R 

025  OPTM10 

0051 12R 

025 

RX$IAS= 

000003 

SYSERR= 

104402 

T.LIST= 

000400 

NOTAVL= 

104A72 

0PTM14 

005026R 

025 

RX$11D= 

000000 

SYSTAT 

OOOOOOR 

024  T.LIT  = 

000020 

NOTOPN= 

104A73 

ORIGIN 

000030R 

025 

RX$11M= 

000001 

SY.BAD= 

000001 

T.MON  = 

000010 

NPRT1 

004762R 

025 

OUTPTR 

000066R 

025 

RX$11S= 

000002 

SY.BRK= 

100000 

T.NIL  = 

000004 

NULL 

00736AR 

025 

0VR0PR= 

000000 

R.BITS= 

000003 

SY.BS  = 

000010 

T.NUM  = 

002000 

NUMCHN=  000020 

PATCH 

007344R 

025 

R.FIX  = 

000001 

SY.CLR= 

000040 

T.OPFN= 

000001 

NUMDFL 

003230R 

025  PRECSN 

000052R 

025 

R.LCT  = 

000002 

SY.ERP= 

000020 

T.OTHR= 

040000 

NUMEFL 

003233R 

025 

RANDAC 

003064R 

025 

R.LN  = 

000002 

SY.N0U= 

000100 

T.SOP  = 

000002 

MJMESN 

003236R 

025 

RANDY 

003062R 

025 

R.LNUM=  000010 

SY.OPN= 

000002 

T.SPOP= 

000040 

NUMFLG 

003230R 

025 

RANERR= 

104411 

R.NEXT= 

000006 

SY.PMT= 

001000 

T.TMP  = 

000200 

NUMLEN 

000062R 

025 

RARGBL 

003204R 

025 

R.OFF  = 

000000 

SY.SRT= 

000400 

T.VAL  = 

100000 

NUrVCG 

003232R 

025 

RARGCV 

003220R 

025 

R.PREV= 

000004 

SY.SVC= 

000004 

T.VAR  = 

001000 

MMQFL 

00323AR 

025 

RARGFL 

003202R 

025 

R.PTR  = 

000000 

SY.SVL= 

000200 

UPPER  = 

177400 

NUMRIG 

003231 R 

025 

RARGLE 

00321 6R 

025 

R.SEQ  = 

000003 

S.AB  = 

177776 

UTNAME 

000344R 

023 

Nl.f1UID 

003226R 

025 

RARGLN 

00321 OR 

025 

R.VAR  = 

000002 

S.ASB  = 

100000 

VALERR= 

104413 

NUMZFL 

003235R 

025 

RARGPT 

003206R 

025 

R6 

X000006 

S.8FHD= 

000020 

VARBLE 

007400R 

025 

NYIERR= 

10AA32 

RARGSF 

00321 4R 

025 

R7 

X000007 

S.BITS= 

000002 

VARBLS 

OOOOOOR 

025 

N.BLSZ= 

000036 

RARGTY 

00321 2R 

025 

SI 

X000005 

S.CHR1= 

000003 

VERNUM 

OOOOOOR 

025 

N.DESC= 

000020 

RAR6VA 

003222R 

025 

SIDAMN= 

1 04433 

S.FATT= 

000016 

VRSION= 

000002 

N.DEV  = 

000032 

RBASE 

005074R 

025 

SIFRAM 

00331 4R 

025 

S.FDB  = 

000140 

WIDTH 

000072R 

025 

N.DEVN= 

00003A 

RCOUNR 

0051 12R 

025 

SISTAK 

006350R 

025 

S.FLB  = 

040000 

WROUND 

000020R 

025 

N.DID  = 

000024 

RCOUNT 

00511  OR 

025 

SI  TOP 

006346R 

025 

S.FNAM= 

000006 

WSDATE 

0001 36R 

025 

N.DVMi=  000032 

REDCNT 

005070R 

025 

SITP 

0071 44R 

025 

S.FNB  = 

000036 

WSFULL= 

104403 

N.EXT  = 

OOOOK 

REDIGN 

005066R 

025 

SIWARN=  000200 

S.FNBW= 

00001 7 

WSNAME 

000074R 

025 

N.FID  = 

000000 

REDOFF 

005072R 

025 

SIZTAB 

000044R 

025 

S.FNTY= 

000004 

WSTIME 

0001 32R 

025 

N.FNAM= 

000006 

REENTR 

003060R 

025 

SI.BIT= 

177774 

S.FTYP= 

000002 

$FIS  = 

******  Q 

N.FTYP=  OOOOU 

RESBIT 

0031 42R 

025 

SI.LEN= 

1 77772 

S.LEN  = 

000002 

%fPP     = 

******  Q 

N.FVER= 

000016 

RESCHN= 

•••*•*  QX 

SI.RET= 

1 77772 

S.LINK= 

1 7777^ 

$FPPLN= 

******  Q 

N.NA«E= 

000006 

RESCVT 

0031 52R 

025 

SI.VAL= 

1 77776 

S.NFEN= 

000020 

$LOAD  = 

******  Gx 

N.NEXT= 

000022 

RESERR= 

104440 

SKPSIZ 

0051 34R 

025 

S.TYPE= 

140000 

$MACHN= 

******  Q 

N.PPN  = 

000024 

RESLEN 

0031 50R 

025 

SPHOLD 

000004R 

024 

S.VAL  = 

000000 

$RSTS  = 

******  Q 

N.STAT= 

000020 

RESPTR 

0031 40R 

025 

SPINIT 

000002R 

024 

TKDIMS 

005072R 

025  $RSX  = 

******  Q 

N.UNIT= 

00003A 

RESSFT 

0031 46R 

025 

STKINC= 

000774 

TKFRAM 

005066R 

025  $RT11  = 

******  Q 

(HUFLN=  001000 

RESTYP 

0031 44R 

025 

STOP  = 

104420 

TKLEFT 

005070R 

025  $$$OST= 

000004 

OCHAN 

005052R 

025 

RESULT 

0031 36R 

025 

SLBCNT 

0031 04R 

025 

TMODE 

000403R 

023  .BOOLE= 

000002 

GMODE 

000402R 

023  RESVAL 

0031 54R 

025 

SIRDCT 

0031 06R 

025 

TMPTAG= 

000166 

.CHARA= 

000000 

OPTMPO 

005066R 

025  RING 

005104R 

025 

SIRPTR 

00311  OR 

025 

TTINIT= 

******  GX 

.DEF.  = 

000002 

0PTI1P1 

005070R 

025 

RLTBAS 

005066R 

025 

SYMB1 

005344R 

025 

TTYBUF 

004140R 

025  .FLOAT= 

000006 

0PTMP2 

005072R 

025 

ROTINC 

005070R 

025 

SYMF 

005340R 

025 

TTYLEN= 

000622 

.FSRCB= 

******  Q 

0PTMP3 

005074R 

025  ROTSEG 

000046R 

002 

SYMPT1 

005346R 

025 

TURKEY= 

104436 

.INTEG= 

000004 

OPTMPA 

005076R 

025 

ROUND 

00001  OR 

025 

SYMTAB 

005352R 

025 

TYPE  = 

000166 

.MOLUN 

000404R 

023 

0PTMP5 

0051 OOR 

025 

ROVER 

00331 2R 

025 

SyMTBF= 

104404 

T.BOL  = 

020000 

...GBL= 

000000 

0PTMP6 

005102R 

025 

RSTS  = 

000000 

SYMTOP 

005350R 

025 

T.CON  = 

004000 

...TPC= 

000020 

0PTMP7 

005104R 

025 

RSX   = 

000115 

SYMTP 

006272R 

025 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000054 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYD6TB 

000000 

007 

COWTB 

000000 

010 

CHRTBL 

000000 

Oil 

CLRCOR 

MACRO  Mil 

13  0 

SY!>eX 

TABLE 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

01A 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

000210 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEFSO 

000A06 

023 

DEFSI 

000006 

024 

DEF$2 

007A00 

025 

ERRORS 

DETECTED: 

0 
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VIRTUAL  MEMORY  USED:  13202  WORDS  (  52  PAGES) 

DYNAMIC  MEMORY:   1A478  WORDS  (  55  PAGES) 

ELAPSED  TIME:   00:02:10 
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IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A  SINGLE 

2- 

25 
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36 
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1 

000000 

2 

000000 

3 

0001 1 5 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

000004 

10 

11 

000000 

RTII 
RSTS 
RSX 

i 

0 
0 

•M 

EIS 
FIS 
FPP 

— 

0 
0 
0 

FPPLEN 

- 

4 

DEBUG 

= 

0 

N  8 

;N0T  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

; SINGLE  PRECISION 

; DON'T  DISPLAY  REGISTERS  ON  ERRORS 
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APLDEF 

1  .SBTTL  APLDEF 

2  .IDENT  \V02.03\ 
3 
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C  9 
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2513  .LIST  SEQ,SRC,LOC,BIN,BEX,MEB 
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D  9 

1 

.TITLE 
.IDENT 

CLRSI 
\V02.03\ 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 

37  000000 
38 

39  000000 

40  000004 

41  000010 

42  000010 

43  000014 

44  000022 

45  000024 
46 

47  000030 
48 

49  000034 

50  000042 

51  000044 

52  000052 

53  000054 
54 

55  000056 

56  000064 

57  000066 

.SBTTL 

CLRSI 

CLEAR  STATE  INDICATOR 

\    FUNCTIONAL  DESCRIPTION: 

J      ' CLRSI '  is  invoked  when  a  single  right  arrow 
;      IS  found  on  a  Line.  This  routine  kills 
;      evaluation  and  function  frames  on  the  state 
;      indicator  until  it  comes  to  an  execution  frame. 
;      Thus,  this  routine  will  clear  the  state  indicator 
;      stack  back  to  the  last  suspended  function  or  to 
;      the  beginning,  whichever  happens  fift- 

;  CALLING  SEQUENCE: 

;      To  clear  %l,   spawn  SI  frame: 

;            JMP    CLRSI 

:      To  clear  SI,  return  (for  branch) 

;             CALL    CLRSI 

•  INPUTS: 

;       SYSTAT 

-  SY.CLR  indicates  whether  to  clear  the  entire  SI 
or  just  to  previous  frame. 

i 

•  OUTPUTS: 

:       NONE 

•  ROUTINES  CALLED: 

;      EXEC    -  Where  to  go  to  spawn  new  frame 

;      FNEXIT  -  Clean  up  after  Function 

;      KILL    -  Delete  args  on  SI 

:      PKILL   -  Delete  (multiple)  args  on  SI 

.PSECT 

CODE 

013706 

013703 
032737 
001402 
005037 

000002 • 

003314' 
000100 

004764' 

( 
1 
004764' 

:LRSI:: 
:LRS1 : : 

MOV 
PUSH 

MOV 
BIT 
BEQ 
CLR 

SPINIT,SP      ;RE-INITIALIZE  THE  STACK 
4rEXEC          ;'T^ETURN"  ADDRESS 

SIFRAM,R3      ;POINT  TO  TOP  FRAME 

#F$EVAL, FLAGS   ;E-FRAME? 

1$            ;N0,  FIND  OUT  WHAT  TYPE  OF  FRAME 

FLAGS          ;FUDGE  SO  WE  DON'T  STOP  ON  THIS  FRAME 

' 

IS: 

CALL 

PKILL          ;KILL  ALL  PARSE  FRAMES 

032737 
001405 
032737 
001017 

000100 
000040 

004764'  ; 
000000 • 

?$: 

BIT 
BEQ 
BIT 
BNE 
RETURN 

*F$EVAL, FLAGS   ;EVAL  FRAME? 

3$            ;N0,  KEEP  LOOKING 

#SY. CLR, SYSTAT  ;CLEARING  ENTIRE  SI  STACK? 

4$            ;YES,  SO  KEEP  CLEARING 

;YES,  DONE  WITH  THIS  PORTION 

032737 
001412 
013705 

000600 
003314' 

00h764'  : 

5$: 

BIT 
BEQ 

MOV 

#F$EXEC+F$EVI, FLAGS     .'EXECUTION  OR  EVI  FRAME? 

4$            ;NOPE 

SIFRAM.SI      ;YES,  SO  INPUT  POINTERS  MUST  BE  RESET 

CLRSI   MACRO  Ml 113  08-FEB-80  11 :06  PAGE  44-1 
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58  000072 

59  000076 

60  000102 

61  000106 
62 

63  000112 

64  000120 

65  000122 

66  000126 

67  000132 

68  000136 
69 

70  000140 

71  000144 

72  000146 

73  000150 
000154 
000162 


016505 
014537 
014537 
014537 

032737 
001407 


000006 
005056' 
005060' 
000064 ' 

001000  004764'  4$: 


062706  000010 


74 
75 
76 
77 
78 
79 


000164 
000172 
000200 

80  000204 

81  000206 

82  000212 

83  000216 
84 


000734 

013705 
011503 
001406 
010337 
016337 
000722 

042737 
012737 
005065 
010500 
062700 
01 0065 


003314'        5$: 


003314' 

000002  004764' 


000040  000000'  6$, 
000100  004764' 
1 77772 

000020 
000006 


E  9 


MOV  F.HEAD(SI),SI 

MOV  -(SI),ESCT 

MOV  -(SI),E$PT 

MOV  -(SI),INPTR 

BIT  #F$FUNC, FLAGS 

BEQ  5$ 

CALL  FNEXIT 

ADD  /f8.,SP 

CALL  KILL 

BR  IS 

MOV  SIFRAM,SI 

MOV  asi,R3 

BEQ  6$ 

MOV  R3,SIFRAM 

MOV  F.FLAG(R3), FLAGS 

BR  1$ 

BIC  #SY.CLR,SYSTAT 

MOV  X^FSEVAL,  FLAGS 

CLR  F.RET(SI) 

MOV  SI,RO 

ADD  #F.CODE+10,R0 

MOV  R0,F.HEAD(SI) 

RETURN 


POINT  PAST  HEADER  DATA 

RESTORE  OLD  COUNT 

AND  POINTER 

MOST  INPORTANTil  OLD  INPUT  POINTER 

1%   IT  A  FUNCTION? 

NO 

YES,  POP  FUNCTION  FRAME 

SKIP  OVER  RESTORED  STUFF 

KILL  RESULT  OF  FUNCTION 

AND  CYCLE 

POINT  TO  REF.  PT.  OF  FRAME 

POINT  TO  PREVIOUS  FRAME 

END  OF  %\   STACK! 

SAVE  PREVIOUS  FRAME  POINTER 

POP  PREVIOUS  FRAME'S  FLAGS 

CONTINUE 

CLEAR  CLEAR  SI  FLAG 

SET  FLAGS 

OH,  HE  NEVER  RETURNED,  NO  HE... 

COPY  SI 

ADD  SIZE 

AND  POINT  AFTER  IT  ALL 

AND  RETURN 


F  9 
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SYMBOL 

TABLE 

ACO   = 

XOGOOGO 

CHRLBR= 

000073 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

AC1   = 

X000001 

CHRLPR= 

000072 

C.BLOK= 

000064 

D.DECD= 

000002 

EIS   = 

000000 

AC2   = 

X000002 

CHRMNS= 

000137 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

0051 32R    025 

AC3   = 

X000003 

CHRMUL= 

000075 

C.8UFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

000004R    025 

ACA   = 

XGGOOOA 

CHRNE6= 

000100 

C.BUFL= 

177762 

D.DQAD= 

1 77777 

EOF   = 

104475 

ACS   = 

X000005 

CHRPDL= 

000271 

C.CCNT= 

1 77766 

D.DR0P= 

000002 

ERRMAX= 

000166 

ALLINT 

00327AR 

025 

CHRPLU= 

000055 

C.CPTR= 

1 77764 

D.ENCD= 

000002 

ERRNin 

004772R    025 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

004770R    025 

ASCQUO=  00OOA2 

CHRQST= 

000121 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRO 

004774R    025 

A.ALEN=  OOOOOA 

CHRQUO= 

000113 

C.FASW= 

020000 

D.FGET= 

000005 

EXEBUF 

005054R    025 

A.ARG  = 

000040 

CHRRBR= 

000047 

C.FLEN= 

000010 

D.FMT  = 

000004 

EXEC  = 

***•••  6X 

A.AS8  = 

000200 

CHRRPR= 

000042 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$CT 

005056R    025 

A.BITS= 

000003 

CHRSEi^  000074 

C.FRC  = 

000001 

D.FPUT= 

000005 

E$PT 

005060R    025 

A. CON  = 

000020 

CHRSW0=  000112 

C.IDEN= 

000010 

D.GE  = 

000000 

FA.APD= 

000100 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.NAME= 

000102 

D.GT  = 

000000 

FA.CRE= 

000010 

A.Dim  = 

000006 

CHRUPA= 

000131 

C.NOBF= 

000400 

D.I8W  = 

000002 

FA.DLK= 

001000 

A.NUM  = 

000006 

CHR.8S= 

000010 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.  E^B= 

100000 

A.PTR  = 

000000 

CHR.CC= 

000003 

COP  = 

000004 

D.IMyJR= 

000013 

FA.EXC= 

002000 

A.TIV>  = 

000010 

CHR.CR= 

000015 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.EXT= 

000004 

BADDIR= 

104463 

CHR.CZ= 

000032 

C.RDLN= 

177776 

D.LE  = 

000000 

FA.NSP= 

000100 

BADERR= 

104437 

CHR.6T= 

000046 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.NSR= 

000200 

BLZWfl 

0051 16R 

025 

CHR.LF= 

000012 

C.RND  = 

000010 

D.LT  = 

000000 

FA.POS= 

010000 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.S8IT= 

177756 

D.MAX  = 

000000 

FA.RD  = 

000001 

CCNT 

005072R 

025 

CHR.SI= 

00001 7 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.RWD= 

004000 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C . SPGL= 

000200 

D.MIN  = 

000000 

FA.SEQ= 

040000 

CHANOO 

000256R 

025 

CHR.S0= 

000016 

C . SPLX= 

000001 

D.MUL  = 

000000 

FA.SHR= 

000040 

CHAN01 

000330R 

025 

CHR.TB= 

000011 

C . SPRS= 

000002 

D.NE  = 

000000 

FA.TMP= 

000020 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.SRC  = 

177774 

D.NN  = 

000000 

FA.WCIC= 

020000 

CHAN03 

000674R 

025 

CHn ■ ■ A— 

000141 

C.SRCP= 

000024 

D.NR  = 

000000 

FA.URT= 

000002 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.TT  = 

000004 

D.OR  = 

000000 

FD.BLK= 

000010 

CHAN05 

001240R 

025 

LnH ■ ■ o~ 

000163 

C.WIDC= 

177770 

D.PLUS= 

000000 

FD.CCL= 

000002 

CHAN06 

001422R 

025 

CHR..T= 

000164 

C.WIDR= 

1 77772 

D.PSIB=  000006 

FD.COM=  020000                  1 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.CR  = 

000002 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.DIR= 

000010 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DEVIL 

0051 14R 

025  D.QUAD= 

000000 

FD.FTN= 

000001 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.F11= 

040000 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.INS= 

000010 

CHAN12 

002676R 

025 

CLRSI 

OOOOOORG 

020  DJMAX  = 

000020 

D.ROT  = 

000003 

FD.ISP= 

002000 

CHAN13 

000022R 

023 

CLRSI 

00001 ORG 

020  DIMBLK 

0031 12R 

025  D.SCON=  000006 

FD.MNT= 

100000 

CHANU 

000204R 

023 

CMDBUF 

003250R 

025 

DIWPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.0SP= 

004000 

CHNOPN= 

104471 

CMDWAX= 

000010 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PLC= 

000004 

CHRAND= 

000051 

CNTSIZ 

0051 30R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PRN=  000004                  1 

CHRBEL= 

000007 

COMBIN 

005076R 

025 

DOMERR= 

104417 

D.TAKE= 

000002 

FD.PSE= 

010000 

CHR8ICR= 

000133 

COMCNT 

0051 26R 

025 

DPTERR= 

104416 

D.TRAN=  000004 

FD.RAH= 

000001 

CHRflni  = 

000200 

COMERR= 

104425 

DYDCNT 

003224R 

025  D.UN0N=  000006 

FD.RAN=  000002                   \ 

CHRBOX= 

000114 

COMPTR 

0051 22R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.REC= 

000001 

CHRCMA= 

000054 

COMRTN 

0031 56R 

025 

D.BXCT= 

000007 

D.$MIN=  000000 

FD.RUM=  000001                  1 

CHRCOL= 

000076 

COMSKP 

005124R 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SDI= 

000020 

CHRDEL= 

000107 

CORPTR 

005120R 

025 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.SQD= 

000040 

CHRDIV= 

000053 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.TTY= 

000004 

CHRDLR= 

000176 

CS.BOO= 

000010 

D.8XPW= 

000007 

D.$SIB= 

000000 

FD.WBH= 

000002 

CHRDLT= 

000110 

CS.FLO= 

000020 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.CHR= 

000005 

CHRDOT= 

000056 

CSADn= 

000040 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.NV  = 

000003 

CHREP  = 

000105 

CS.ONE= 

000100 

D.com= 

000001 

D.1R0T= 

000003 

FF.P0E= 

000002 

CHRERR= 

104431 

CTEPS 

0001 52R 

025 

D.COMP= 

000001 

EDICHR 

005063R 

025  FF.RWD= 

000001 

CHRFIL= 

000^77 

CTMAX 

00021 2R 

025 

D.CONT= 

000C06 

EDICNT 

005064R 

025  FF.RWF= 

000006 

CHRFRO= 

000135 

CTRWAX 

0001 72R 

025 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  FF.SPC= 

000004 
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F HE ADR  00501 2R 

025 

F.FLAG= 

000002 

HSHMSK= 

1 77601 

MONBLK 

0031 20R 

025  M.RDCT= 

00001 1 

FHRET   0050A0R 

025 

F.FLB  = 

000100 

HSHSIZ= 

000200 

MONCVT 

0031 32R 

025  M.REVS^ 

000003 

FILNTF=  10A467 

F.FNAM=  000110 

KHAN 

005050R 

025  MONLEN 

0031 30R 

025  M.R0LL= 

000000 

FIS   =  000000 

F.FNB  = 

000102 

ILFNAM= 

1 04464 

MONPTR 

0031 22R 

025  M.SATA= 

000001 

FISCON=  0A6000 

F.FNDF= 

000010 

ILLCHN= 

104540 

MONSFT 

0031 ^6R 

025  M.SCAN= 

00001 1 

FIXPTR  00307AR 

025 

F.FTYP= 

000116 

ILLSW  = 

104565 

MONTYP 

0031^4R 

025  M.SHAP= 

000000 

FLAGS   00A76AR 

025 

F.FUN  = 

000010 

INDERR= 

104410 

MONVAL 

0031 34R 

025  M.SIGN= 

000000 

FLCBUF  003250R 

025 

F.FVER= 

000120 

INNTMP 

003250R 

025  M.ABS  = 

000000 

M.SUBR= 

000001 

FLINE   00501 AR 

025 

F.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLOEXP  003270R 

025 

F.HIBK= 

000004 

INPTR 

000064R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FLONEG  003272R 

025 

F.LBL  = 

000020 

INSNAM= 

104462 

M.BXCR= 

000007 

M.TRAN= 

000012 

FLSWTB  000222R 

025 

F.LINE= 

000012 

lOERR  = 

104477 

M.BXCT= 

000007 

M.$ABS= 

000000 

FLTLEN=  000010 

F.LOC  = 

000004 

l.CNT  = 

1 7711 t 

M.BXEX= 

000007 

M.$CEI= 

000000 

FNEXIT=  ♦♦♦♦*•  GX 

F.LSTC= 

000004 

l.DIM  = 

1 11112 

M.BXFX= 

000007 

M.$FLR= 

000000 

FNINSI  00504AR 

025 

F.LUN  = 

000042 

I.LEN  = 

000012 

M.8XI0= 

000007 

M.$IDN= 

000000 

FORIGN  000032R 

025 

F.I>©CT= 

000054 

I.0ERR= 

000062 

M.BXLC= 

000003 

M.$NEG= 

000000 

FO.APD=  000106 

F.I1BC1  = 

000055 

I. OLD  = 

177770 

M.BXNC= 

000007 

M.$SI6= 

000000 

FO.MFY=  000002 

F.MBFG= 

000056 

I.PTR  = 

1 11111^ 

M.BXNL= 

000007 

M.1RDT= 

00001 1 

FO.RD  =  000001 

F.nON  = 

000002 

I. SIR  = 

1 77766 

M.BXPP= 

000007 

M.1REV= 

000003 

Fa.UF>0=  000006 

F.NIL  = 

000001 

KILL  = 

***•••  GX 

M.BXPW=  000007 

M.1SCN= 

000011 

FO.WRT=  000016 

F.NRBD= 

000024 

LABERR= 

104406 

M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FPMOOE  00OOA2R 

025 

F.NREC= 

000030 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FPP   =  000000 

F.OPN  = 

000010 

LARGBL 

0031 62R 

025  M.BXUA= 

000007 

NB.DIR= 

000100 

FPPLEN=  000004 

F.O\/BS= 

000030 

LARGCV 

0031 76R 

025  M.CEI  = 

1 11111 

NB.NAM=  000004 

FRERI K  007400R 

025 

F.PREV= 

000000 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FUZZ    0001 42R 

025 

F.PRNT= 

100000 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

FXPTR1  003076R 

025 

F.PROT= 

010000 

LARGLN 

0031 66R 

025  M.DOUT= 

000006 

NB.SM1=  000040 

F$EVAL=  000100 

F.RACC= 

000016 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP=: 

000020 

F$EVI  =  000200 

F.RATT= 

000001 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F$EXEC=  000400 

F.RCNri=  000034 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F$FUNC=  001000 

F.RCTL= 

00001 7 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F.ACTL=  000076 

F.READ= 

004000 

LBINC 

005100R 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.ALOC=  000040 

F.REDF= 

000040 

LBUFF 

00331 6R 

025  M.FIL  = 

000177 

ND.EXT= 

000002 

F.RRFS=  000062 

F.RES  = 

000040 

LBUFLN=  000621 

M.FLR  = 

Mini 

ND.NA«=  000004 

F.BOe  =  000070 

F.RET  = 

M7772 

L COUNT 

0C'"106R 

025  M.FMT  = 

000004 

ND.PPN= 

000100 

F.BGBC=  000057 

F.RSIZ= 

000002 

LENERR= 

10h412 

M.GDUP= 

000003 

ND.$EX= 

000000 

F.BITS=  177774 

F.RTYP= 

000000 

LENTAB 

000054R 

025  M.GDWN= 

000003 

ND.$E$=  000020 

F.BICDN=  000026 

F.R2  = 

000014 

LEXPTR 

0031 OOR 

025  M.GETI= 

000006 

ND.$M»1=  000000 

F.BKDS=  000020 

F.R3  = 

000016 

LFTOP 

005066R 

025  M.I8M  = 

000003 

ND.$N$= 

000040 

F.BICEF=  000050 

F.R4  = 

000020 

LINC 

0051 02R 

025  M.IDN  = 

000000 

ND.$PN= 

001400 

F.BICP1=  000051 

F.SEQN= 

000100 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN 

005063R 

025 

F.BKST=  000024 

F.SPDV= 

000072 

LININC 

005026R 

025  M.I0TA= 

000000 

NINPT1 

003302R 

025 

F.BICVB=  000064 

F.SPUN= 

000074 

\.\%\ll= 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.BR  =  000020 

F.STBK= 

000036 

LITOP 

005072R 

025  M.LN  = 

000001 

NINSTK 

003304R 

025 

F.CHR  =  000075 

F.STK  = 

000022 

LNLNG  = 

104541 

M.MMD  — 

000010 

NINTMP 

00331 OR 

025 

F.CNTG=  000034 

F.STOP= 

000004 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINTYP 

003306R 

025 

F.CODE=  000010 

F.STP  = 

000001 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

N0TAVL= 

104472 

F.DFiyB=  000046 

F . SUSP= 

000002 

LSTERP 

004766R 

025  M.NUB  = 

000006 

N0T0PN= 

104473 

F.DSPT=  000044 

F.TRC  = 

000002 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

NPRT1 

004762R 

025 

F.D\/NW=  000134 

F.UNIT= 

000136 

L.BITS= 

000003 

M.0UTR= 

000012 

NULL 

007364R 

025 

F.EFBK=  000010 

F.URBD= 

000020 

L.CNT  = 

000002 

M.PITM=  000000 

NUMCHN=  000020 

F.EFN  =  OOOOSQ 

F.VAL  = 

177776 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

F.END  =  002000 

F.VBN  = 

000064 

L.PTR  = 

000000 

M.QQAD= 

000000 

NUMEFL 

003233R 

025 

F.E(1F8=   000032 

F.VBSZ= 

000060 

L.PTR1= 

000004 

M.QUAD= 

000000 

NUMESN 

003236R 

025 

F.ERR  =  000052 

GNOME 

0031 02R 

025  L.SUBS= 

000002 

M.RAND= 

00001 2 

NUMFLG 

003230R 

025 

F.FACC=  000043 

HASHC 

005136R 

025  MACHIN= 

000106 

M.RAVL= 

000000 

NUMLEN 

000062R 

025 

F.FFBY=  000014 

HASHTB 

005140R 

025  MAXCHN= 

000014 

M.RCIP= 

000000 

NUMNEG 

003232R 

025 
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NUMQFL 

003234R 

025 

RANDAC 

003064R 

025 

R.LNUM= 

000010 

SY.8RK= 

100000 

T.LIST= 

000400 

NUMRIG 

003231 R 

025 

RANDY 

003062R 

025  R.NEXT= 

000006 

SY.BS  = 

000010 

T.LIT  = 

000020 

NUMUID 

003226R 

025 

RANERR= 

104411 

R.OFF  = 

000000 

SY.CLR= 

000040 

T.MON  = 

000010 

NUM2FL 

003235R 

025 

RARGBL 

003204R 

025 

R.PREV= 

000004 

SY.ERP= 

000020 

T.NIL  = 

000004 

NYIERR= 

10AA32 

RARGCV 

003220R 

025 

R.PTR  = 

000000 

SY.NOU= 

000100 

T.NUM  = 

002000 

N.BLSZ= 

000036 

RARGFL 

003202R 

025 

R.SEQ  = 

000003 

SY.OPN= 

000002 

T.OPFN= 

000001 

N.DESC= 

000020 

RARGLE 

00321 6R 

025 

R.VAR  = 

000002 

SY.PMT= 

001000 

T.OTHR= 

040000 

N.DEV  = 

000032 

RARGLN 

00321  OR 

025 

R6 

X000006 

SY.SRT= 

000400 

T.SOP  = 

000002 

N.DE\/N=  00003A 

RARGPT 

003206R 

025 

R7 

X000007 

SY.SVC= 

000004 

T.SPOP= 

000040 

N.DID  = 

000024 

RARGSF 

00321 4R 

025 

SI 

X000005 

SY.SVL= 

000200 

T.TMP  = 

000200 

N.D\/^#1=  000032 

RARGTY 

00321 2R 

025 

SIDAMN= 

104433 

S.AB  = 

177776 

T.VAL  = 

100000 

N.EXT  = 

000014 

RARGVA 

003222R 

025 

SIFRAM 

00331 4R 

025 

S.AS8  = 

100000 

T.VAR  = 

001000 

N.FID  = 

000000 

RBASE 

005074R 

025 

SISTAK 

006350R 

025 

S.BFHD= 

000020 

UPPER  = 

177400 

N.FNAM=  000006 

RCOUNR 

0051 12R 

025 

SI  TOP 

006346R 

025 

S.BITS= 

000002 

UTNAME 

000344R 

023 

N.FTYF>=  00001A 

RCOUNT 

00511  OR 

025 

SITP 

0071 44R 

025 

S.CHR1= 

000003 

VALERR= 

104413 

N.FVER= 

000016 

REDCNT 

005070R 

025 

SIWARN= 

000200 

S.FATT= 

000016 

VARBLE 

007400R 

025 

N.NAf€= 

000006 

REDIGN 

005066R 

025 

SIZTAB 

000044R 

025 

S.FDB  = 

000140 

VARBLS 

OOOOOOR 

025 

N.NEXT= 

000022 

REDOFF 

005072R 

025 

SI.BIT= 

1 7777^ 

S.FLB  = 

040000 

VERNUM 

OOOOOOR 

025 

N.PPN  = 

000024 

REENTR 

003060R 

025 

SI. LEN= 

1 77772 

S.FNAM=  000006 

VRSION= 

000002 

N.STAT= 

000020 

RESBIT 

0031 42R 

025 

SI.RET= 

1 77772 

S.FNB  = 

000036 

WIDTH 

000072R 

025 

N.UNIT= 

000034 

RESCVT 

0031 52R 

025 

SI.VAL= 

1 77776 

S.FNBW= 

00001 7 

WROUND 

000020R 

025 

OBUFLN= 

001000 

RESERR= 

104440 

SKPSIZ 

0051 34R 

025 

S.FNTY= 

000004 

WSDATE 

0001 36R 

025 

OCHAN 

005052R 

025 

RESLEN 

0031 50R 

025 

SPHOLD 

000004R 

024 

S.FTYP= 

000002 

WSFULL= 

104403 

OMODE 

000402R 

023  RESPTR 

0031 40R 

025 

SPINIT 

000002R 

024 

S.LEN  = 

000002 

WSNAME 

000074R 

025 

OPTMF>0 

005066R 

025 

RESSFT 

0031 46R 

025 

STKINC= 

000774 

S.LINK= 

1 7777^ 

WSTIME 

0001 32R 

025 

0PTI>f>1 

005070R 

025 

RESTYP 

0031 44R 

025 

STOP  = 

104420 

SMfEN= 

000020 

$FIS  = 

••♦•••  Q 

0PTMP2 

005072R 

025 

RESULT 

0031 36R 

025 

SIRCNT 

0031 04R 

025 

S.TYPE= 

140000 

%fPP     = 

••••••  G 

0PTI>f>3 

005074R 

025 

RESVAL 

0031 54R 

025 

SUBDCT 

0031 06R 

025 

S.VAL  = 

000000 

$FPPLN= 

••**••  Q 

0PTMP4 

005076R 

025 

RINC 

005104R 

025 

SUBPTR 

00311  OR 

025 

TKDIMS 

005072R 

025  $MACHN= 

••••••  G 

0PTMP5 

0051 OOR 

025 

RLTBAS 

005066R 

025 

SY^B1 

005344R 

025 

TKFRAM 

005066R 

025  SRSTS  = 

*•*•*•  G 

0PTI»f>6 

0051 02R 

025 

ROT INC 

005070R 

025 

SYMF 

005340R 

025 

TKLEFT 

005070R 

025  $RSX  = 

•••••*  G 

0PTI>f>7 

005104R 

025 

ROUND 

00001  OR 

025 

SYWPT1 

005346R 

025 

TMODE 

000403R 

023  $RT11  = 

*••••*  G 

0PTI1P8 

0051 06fi 

025 

ROVER 

00331 2R 

025 

SYWTAB 

005352R 

025 

TMPTAG= 

000166 

.BOOLE= 

000002 

0PTMP9 

0051 10R 

025 

RSTS  = 

000000 

SYMTBF= 

104404 

TTY8UF 

004140R 

025  .CHARA= 

000000 

opimo 

0051 12R 

025 

RSX   = 

000115 

SYMTOP 

005350R 

025 

TTYLEN= 

000622 

.DEF.  = 

000002 

OPTMIA 

005026R 

025 

RTOP 

005070R 

025 

SYMTP 

006272R 

025 

TURKEY= 

104436 

.FLOAT= 

000006 

ORIGIN 

000030R 

025 

RT11   = 

000000 

SYMWRN= 

000054 

TYPE  = 

000166 

.FSRCB= 

*•♦•••  G 

OUTPTR 

000066R 

025 

R.BITS= 

000003 

SYNERR= 

104407 

T.80L  = 

020000 

.INTEG= 

000004 

OVROPR= 

000000 

R.FIX  = 

000001 

SYSERR= 

104402 

T.CON  = 

004000 

.MOLUN 

000404R 

0?^ 

PATCH 

007344R 

025 

R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.DIM  = 

000100 

...GBL= 

000000 

PKILL  = 

•♦•••♦  Gx 

R.LN  = 

000002 

SY.BAD= 

000001 

T.FUN  = 

010000 

...TPC= 

000020 

PRECSN 

000052R 

025 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

HONBTB 

000000 

006 

DYDBTB 

000000 

007 

CGWTB 

000000 

010 

CHRTBL 

000000 

011 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 
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MNTBL   000000 

016 

MNTRTL  000000 

017 

CODE    000220 

020 

PATCH   000000 

021 

SSFSR1  000000 

022 

DEFSO   000406 

023 

DEF$1   000006 

024 

DEF$2   007400 

025 
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5 

000000 

6 

000000 

7 

000000 
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OOOOOA 

10 

11 

000000 

RT11 
RSTS 
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DEBUG 
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;NOT  RT-11 
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.TITLE 
.IDENT 

CLSFIL 
\V02.03\ 

4 
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7 
8 
9 
10  000000 

11 

12  000000 

13  000000 

14  000004 

.S8TTL 

COMMANDS              CLOSE 

;  FUNCTIONAL  DESCRIPTION: 
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CLSFIL: 
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'call    CMDCHN         ;6ET  A  CHANNEL 
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SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

AC1   = 

X000001 

CHRLPR= 

000072 

C.BLOK= 

00006A 

D.DECD= 

000002 

EIS       = 

000000 

AC2   = 

X000002 

CHRMNS= 

000137 

C.BLSZ= 

0001 AO 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

AC3   = 

X000003 

CHRMUL= 

000075 

C.BUFF= 

177760 

D.DMD  = 

000010 

ENDCOR 

OOOOOAR 

025 

ACA   = 

XOOOOOA 

CHRNE6= 

000100 

C.BUFL= 

1 77762 

D.DQAD= 

177777 

EOF   = 

10AA75 

ACS   = 

XOOOOOS 

CHRPDL= 

000271 

C.CCNT= 

177766 

D.DR0P= 

000002 

ERRMAX= 

000166 

ALLINT 

00327AR 

025 

CHRPLU=  000055 

C . CPTR= 

17776A 

D.ENCD= 

000002 

ERRNUM 

00A772R 

025 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

00A770R 

025 

ASCQUO=  00OOA2 

CHRQST= 

000121 

C.DIG  = 

OOOOAO 

D.EXPD= 

000002 

ERRO 

00A77AR 

025 

A.ALEN=  OOOOOA 

CHRQU0= 

000113 

C.FASW= 

020000 

D.FGET= 

000005 

EXEBUF 

00505AR 

025 

A.ARG  = 

OOOOAO 

CHRRBR= 

0000A7 

C.FLEN= 

000010 

D.FMT  = 

OOOOOA 

E$CT 

005056R 

025 

A.ASB  = 

000200 

CHRRPR= 

0000A2 

C.FLSH= 

OOAOOO 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.BITS= 

000003 

CHRSEM=  00007A 

C.FRC  = 

000001 

D.FPUT= 

000005 

FA.APD= 

000100 

A. CON  = 

000020 

CHRSM0= 

000112 

C.IDEN= 

000010 

D.GE  = 

000000 

FA.CRE= 

000010 

A.DIMS= 

000002 

CHRSPA= 

OOOOAO 

C.NAME= 

000102 

D.GT  = 

000000 

FA.DLK= 

001000 

A.DIM1= 

000006 

CHRUPA= 

000131 

C.NOBF= 

OOOAOO 

D.IBM  = 

000002 

FA.ENB= 

100000 

A.NUM  = 

000006 

CHR.BS= 

000010 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.EXC= 

002000 

A.PTR  = 

000000 

CHR.CC= 

000003 

COP  = 

OOOOOA 

D.INNR= 

000013 

FA.EXT= 

OOOOOA 

A.TMP  = 

000010 

CHR.CR= 

000015 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.NSP= 

000100 

BADDIR= 

10AA63 

CHR.CZ= 

000032 

C.RDLN= 

177776 

D.LE  = 

000000 

FA.NSR= 

000200 

BADERR= 

10AA37 

CHR.GT= 

0000A6 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.POS= 

010000 

BLZRt.fi 

00S116R 

025 

CHR.LF= 

000012 

C.RND  = 

000010 

D.LT  = 

000000 

FA.RD  = 

000001 

BRSELF 

0050A6R 

025 

CHR.LT= 

0000A3 

C . S8I T= 

1 77756 

D.MAX  = 

000000 

FA.RWD= 

OOAOOO 

CCNT 

0OS072R 

025 

CHR. SI= 

00001 7 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.SEQ= 

OAOOOO 

CHA^€X 

003060R 

025 

CHR.SL= 

000057 

C.SP6L= 

000200 

D.MIN  = 

000000 

FA. SHR= 

OOOOAO 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C . SPLX= 

000001 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C . SPRS= 

000002 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN02 

000S12R 

025 

CHR.UL= 

000106 

C.SRC  = 

17777A 

D.NN  = 

000000 

FA.WRT= 

000002 

CHAN03 

00067AR 

025 

CHR..A= 

0001 A1 

C.SRCP= 

00002A 

D.NR  = 

000000 

FD.BLK= 

000010 

CHANOA 

001056R 

025 

CHR..E= 

0001 AS 

C.TT  = 

OOOOOA 

D.OR  = 

000000 

FD.CCL= 

000002 

CHANGS 

0012A0R 

025 

CHR..S= 

000163 

C.WIDC= 

177770 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN06 

001A22R 

025 

CHR..T= 

0001 6A 

C.WJDR= 

177772 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN07 

00160AR 

025 

CHR..U= 

000165 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN08 

001766R 

025 

CHR..Z= 

0001 72 

DEFERR= 

lOA^OS 

D.QQAD= 

000000 

FD.FTN= 

000001 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DEVIL 

0051 1AR 

025  D.QUAD= 

000000 

FD.F11= 

OAOOOO 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DEVNTF= 

10AA70 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN11 

00251 AR 

025 

CH.AND= 

000001 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN12 

002676R 

025 

CLSFIL 

OOOOOORG 

020  DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN13 

000022R 

023 

CMDBUF 

003250R 

025  oimiK 

0031 12R 

025  D.SCON= 

000006 

FD.0SP= 

OOAOOO 

CHAN1A 

00020AR 

023 

CMDCHN= 

ii*ititit*   GX 

DIWPTR 

0031 1AR 

025  D.SDIF= 

000006 

FD.PLC= 

OOOOOA 

CHNOPN= 

10AA71 

CMDMAX= 

000010 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN= 

OOOOOA 

CHRAND= 

000051 

CNTSIZ 

005130R 

025  DIRFUL= 

10AA66 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRBEL= 

000007 

coreiN 

005076R 

025  D0nERR= 

10AA17 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRBICR= 

000133 

COMCNT 

005126R 

025  DPTERR= 

10AA16 

D.TRAN= 

OOOOOA 

FD.RAN= 

000002 

CHRflnL= 

000200 

COMERR= 

10AA25 

DYDCNT 

00322AR 

025  D.UN0N= 

000006 

FD.REC= 

000001 

CHHBOX= 

00011A 

COMPTR 

005122R 

025  D.AND  = 

000000 

D.$MAX= 

000000 

FD.RVf1=  000001 

CHRCMA= 

00005A 

COMRTN 

0031 56R 

025  D.BXCT= 

000007 

D.$MIN= 

000000 

FD.SDI= 

000020 

CHRCOL= 

000076 

COMSKP 

00512AR 

025  D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SQD= 

OOOOAO 

CHRDEL= 

000107 

CORPTR 

005120R 

025  D.BXNL= 

000007 

D.$PLU= 

000000 

FD.TTY= 

OOOOOA 

rMRDIV= 

000053 

CS.ASS= 

000200 

D.8XPP= 

000007 

D.$RES= 

000000 

FD.W8H= 

000002 

CHRDLR= 

000176 

CS.BOO= 

000010 

D.8XPW= 

000007 

D.$Slfi= 

000000 

FF.CHR= 

000005 

CHRDLT= 

000110 

CS.FLO= 

000020 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.NV  = 

000003 

CHRDOT= 

000056 

CS.IDN= 

OOOOAO 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.P0E= 

000002 

CHREP  = 

000105 

CS.ONE= 

000100 

D.cortB= 

000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHRERR= 

10AA31 

CTEPS 

0001 52R 

025  D.COMP= 

000001 

EDI CHR 

005063R 

025  FF.RWF= 

000006 

CHRFIL= 

000^77 

CTMAX 

00021 2R 

025  D.CONT= 

000006 

EDICNT 

00506AR 

025  FF.SPC= 

OOOOOA 

CHRFRO= 

000135 

CTRMAX 

0001 72R 

025  D.CTLM= 

000000 

EDIFL6 

005062R 

025  F HE ADR 

00501 2R 

025 
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FHRET   0050A0R 

025 

F.FNAM= 

000110 

I  CHAN 

005O5OR 

025  MONPTR 

0031 22R 

025  M.SATA= 

000001 

FILNTF=  104467 

F.FfJB  = 

000102 

ILFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SCAN= 

000011 

FIS   =  000000 

F.FNDF= 

000010 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FISC0N=  046000 

F.FTYP= 

000116 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  \^.%l^^ 

000000 

FIXPTR  003074R 

025 

F.FUN  = 

000010 

INDERR= 

104410 

M.ABS  = 

000000 

M.SUBR= 

000001 

FLAGS   004764R 

025 

F.FVER= 

000120 

INNTMP 

003250R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLCBUF  0O3250R 

025 

F.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.8XAV= 

000007 

M.SYN  = 

000201 

FLINE   005014R 

025 

F.HIBIC= 

000004 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN= 

000012 

FLOEXP  003270R 

025 

F.LBL  = 

000020 

INSNAM= 

104462 

M.8XCT= 

000007 

M.$ABS= 

000000 

FL0^€G  003272R 

025 

F.LINE= 

000012 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI= 

000000 

FLSWTB  0OO222R 

025 

F.LOC  ■- 

000004 

I.CNT  = 

177776 

M.BXFX= 

000007 

M.$FLR= 

000000 

FLTLEN=  000010 

F.LSTC= 

000004 

I. DIM  = 

177772 

M.BXIO= 

000007 

M.$IDN= 

000000 

FNINSI  005044R 

025 

F.LUN  = 

000042 

l.LEN  = 

000012 

M.BXLC= 

000003 

M.$NE6= 

000000 

FORIGN  000032R 

025 

F.MBCT= 

000054 

I.OERR= 

000062 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.APD=  000106 

F.MBC1= 

000055 

I. OLD  = 

177770 

M.8XNL= 

000007 

M.1RDT= 

00001 1 

F0.f1FY=  000002 

F.I>«FG= 

000056 

I.PTR  = 

1 7777^ 

M.BXPP= 

000007 

M.1REV= 

000003 

FO.RD  =  000001 

F.MON  = 

000002 

I. SIR  = 

177766 

M.BXPW= 

000007 

M.1SCN= 

00001 1 

FO.UF>0=  000006 

F.NIL  = 

000001 

LABERR= 

104406 

M.BXRL= 

000007 

NA/«BUF 

003240R 

025 

FO.URT=  000016 

F.NRBD= 

000024 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FPMODE  0OOO42R 

025 

F.NREC= 

000030 

LARGBL 

0031 62R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

FPP   =  000000 

F.OPN  = 

000010 

LARGCV 

0031 76R 

025  M.CEI  = 

^77777 

NB.NAM=  000004 

FPPLEN=  000004 

F.OVBS= 

000030 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FREBLIC  007400R 

025 

F.PREV= 

000000 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

FUZZ    0001 42R 

025 

F.PRNT= 

100000 

LARGLN 

0031 66R 

025  M.DOUT= 

000006 

NB.SNM= 

000040 

FXPTR1  003076R 

025 

F.PROT= 

010000 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$EVAL=  000100 

F.RACC= 

000016 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F$EVI  =  000200 

F.RATT= 

000001 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

FSEXEC^  000400 

F.RCNri= 

000034 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F$FUNC=  001000 

F.RCTL= 

000017 

LBINC 

005100R 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.ACTL=  000076 

F.R!-  •)= 

004000 

LBUFF 

00331 6R 

025  M.FIL  = 

0001 77 

ND.EXT= 

000002 

F.ALOC=  000040 

F.REDF= 

000040 

LBUFLN= 

000621 

M.FLR  = 

^77777 

ND.NAM=  000004 

F.BBFS=  000062 

F.RES  = 

000040 

L COUNT 

0051 06R 

025  M.FMT  = 

000004 

ND.PPN= 

000100 

F.BOB  =  000070 

F.RET  = 

^ 77772 

LENERR= 

104412 

M.6DUP= 

000003 

ND.$EX= 

000000 

F.BGBC=  000057 

F.RSIZ= 

000002 

LENTAB 

000054R 

025  M.6DWN=  000003 

ND.$E$= 

000020 

F.BITS=  17/774 

F.RTYP= 

000000 

LEXFTR 

0031 OOR 

025  M.6ETI= 

000006 

ND.$NM= 

000000 

F.BICDN=  000026 

F.R2  = 

000014 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$= 

000040 

F.BKDS=  000020 

F.R3  = 

000016 

LINC 

0051 02R 

025  M.IDN  = 

000000 

ND.$PN= 

001400 

F.BKEF=  000050 

F.R4  = 

000020 

LINE 

00501 6R 

025  M.I  3P= 

000006 

NEGSGN 

005063R 

025 

F.BKP1=  000051 

F.SEQN= 

000100 

LININC 

005026R 

025  M.IOTA= 

000000 

NINPT1 

003302R 

025 

F.BKST=  000024 

F . SPDV= 

000072 

LISIZE= 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.BK\/B=  000064 

F.SPUN= 

000074 

LITOP 

005072R 

025  M.LN  = 

000001 

NINSTK 

003304R 

025 

F.BR  =  000020 

F.STBK= 

000036 

LNLNG  = 

104541 

M.MMD  = 

000010 

NINTMP 

00331  OR 

025 

F.CHR  =  000075 

F.STK  = 

000022 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINTYP 

003306R 

025 

F.CNT6=  000034 

F.STOP= 

000004 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

NOTAVL= 

104472 

F.C00E=  000010 

F.STP  = 

000001 

LSTERP 

004766R 

025  M.NUB  = 

000006 

N0T0PN= 

104473 

F.DF^B=  000046 

F.SUSP= 

000002 

LWIDTH 

000070R 

025  M.NUW  = 

000204 

NPRT1 

004762R 

025 

F.DSPT=  000044 

F.TRC  = 

000002 

L.BITS= 

000003 

M.OUTR= 

000012 

NULL 

007364R 

025 

F.DVNH=  000134 

F.UNIT= 

000136 

L.CNT  = 

000002 

M.PITM=  000000 

NUMCHN= 

000020 

F.EFBK=  000010 

F.URBD= 

000020 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

F.EFN  =  000050 

F.VAL  = 

177776 

L.PTR  = 

000000 

M.QQAD= 

000000 

NUMEFL 

003233R 

025 

F.END  =  002000 

F.VBN  = 

000064 

L.PTR1= 

000004 

M.QUAD= 

000000 

NUMESN 

003236R 

025 

F.EnRB=  000032 

F.VBSZ= 

000060 

L.SUBS= 

000002 

M.RAND= 

000012 

NUMFLG 

003230R 

025 

F.ERR  =  000052 

GNOME 

0031 02R 

025  MACHIN= 

000106 

M.RAVL= 

000000 

NUWLEN 

000062R 

025 

F.FACC=  000043 

HASHC 

005136R 

025  MAXCHN=  000014 

M.RCIP= 

000000 

NUMNEG 

003232R 

025 

F.FFBY=  OOOOU 

HASHTB 

005U0R 

025  MONBLK 

0031 20R 

025  M.RDCT= 

00001 1 

NUMQFL 

003234R 

025 

F.FLAG=  000002 

HSHMSK= 

177601 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

NUMRIG 

003231 R 

025 

F.FLB  =  000100 

HSHSIZ= 

000200 

MONLEN 

0031 30R 

025  M.ROLL= 

000000 

NUMUID 

003226R 
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NUM2FL 

003235R 

025  RARGBL 

003204R 

025  R.OFF  = 

000000 

SY.CLR= 

000040 

T.LIT  = 

000020 

NYIERR= 

104432 

RARGCV 

003220R 

025  R.PREV= 

000004 

SY.ERP= 

000020 

T.MON  = 

000010 

N.BLSZ= 

000036 

RARGFL 

003202R 

025  R.PTR  = 

000000 

SY.NOU= 

000100 

T.NIL  = 

000004 

N.DESC= 

000020 

RARGLE 

00321 6R 

025  R.SEQ  = 

000003 

SY.0PN= 

000002 

T.NUM  = 

002000 

N.DEV  = 

000032 

RARGLN 

00321 OR 

025  R.VAR  = 

000002 

SY.PMT= 

001000 

T.OPFN= 

000001 

N.DE\/N= 

000034 

RARGPT 

003206R 

025  R6 

X000006 

SY.SRT= 

000400 

T.OTHR= 

040000 

N.DID  = 

000024 

RARGSF 

00321 4R 

025  R7 

X000007 

SY.SVC= 

000004 

T.SOP  = 

000002 

N.D\/^f1=  000032 

RARGTY 

00321 2R 

025 

SI 

X000005 

SY.SVL= 

000200 

T.SPOP= 

000040 

N.EXT  = 

000014 

RARGVA 

003222R 

025 

SIDAMN= 

104435 

S.AB  = 

177776 

T.TMP  = 

000200 

N.FID  = 

000000 

RBASE 

005074R 

025 

SIFRAM 

00331 4R 

025 

S.AS8  = 

100000 

T.VAL  = 

100000 

N.FNAM=  000006 

RCOUNR 

0051 12R 

025 

SISTAK 

006350R 

025 

S.BFHD= 

000020 

T.VAR  = 

001000 

N.FTYP=  000014 

RCOUNT 

00511  OR 

025 

SITOP 

006346R 

025 

S.BITS= 

000002 

UPPER  = 

177400 

N.FVER= 

000016 

REDCNT 

005070R 

025 

SITP 

0071 44R 

025 

S.CHR1= 

000003 

UTNAME 

000344R 

023 

N.NA^E= 

000006 

REDIGN 

005066R 

025 

SIWARN= 

000200 

S.FATT= 

000016 

VALERR= 

104413 

N.NEXT= 

000022 

REDOFF 

005072R 

025 

SIZTAB 

000044R 

025 

S.FDB  = 

000140 

VARBLE 

007400R 

025 

N.PPN  = 

000024 

REENTR 

003060R 

025 

SI.BIT= 

1 7777^ 

S.FLB  = 

040000 

VARBLS 

OOOOOOR 

025 

N.STAT= 

000020 

RESaiT 

0031 42R 

025 

SI.LEN= 

\77772 

S.FNA«= 

000006 

VERNUM 

OOOOOOR 

025 

N.UNIT= 

000034 

RESCHN= 

*•*•••  GX 

SI.RET= 

^77772 

S.FNB  = 

000036 

VRSION= 

000002 

CBUFLN=  001000 

RESCVT 

0031 52R 

025 

SI.VAL= 

1 7777 t 

S.FNBW=  000017 

WIDTH 

000072R 

025 

OCHAN 

005052R 

025 

RESERR= 

104440 

SKPSIZ 

0051 34R 

025 

S.FNTY= 

000004 

WROUND 

000020R 

025 

OMOOE 

000402R 

023  RESLEN 

0031 50R 

025 

SPHOLD 

000004R 

024 

S.FTYP= 

000002 

WSDATE 

0001 36R 

025 

OPTI>f>0 

005066R 

025 

RESPTR 

0031 40R 

025 

SPINIT 

000002R 

024 

S.LEN  = 

000002 

WSFULL= 

104403 

0PTI>f>1 

005070R 

025 

RESSFT 

0031 46R 

025 

STKINC= 

000774 

S.LINK= 

1 7777 1, 

WSNAME 

000074R 

025 

0PTMP2 

005072R 

025 

RESTYP 

0031 44R 

025 

STOP  = 

104420 

S.NFEN= 

000020 

WSTIME 

0001 32R 

025 

0PTMP3 

005074R 

025 

RESULT 

0031 36R 

025 

SI  RCNT 

0031 04R 

025 

S.TYPE= 

140000 

$FIS  = 

♦•••••  5 

0PTMP4 

005076R 

025 

RESVAL 

0031 54R 

025 

SUBDCT 

0031 06R 

025 

S.VAL  = 

000000 

%?P9     = 

*•••••  G 

0PTMP5 

0051 OOR 

025 

RINC 

0051 04R 

025 

SU8PTR 

00311  OR 

025 

TKDIMS 

005072R 

025  $FPPLN= 

*•••••  G 

0PTMP6 

0051 02R 

025 

RLTBAS 

005066R 

025 

SYMB1 

005344R 

025 

TKFRAM 

005066R 

025  $MACHN= 

♦♦**••  G 

0PTMP7 

0051 04R 

025 

ROTINC 

005070R 

025 

SYMF 

005340R 

025 

TKLEFT 

005070R 

025  SRSTS  = 

**♦*••  G 

0PTMP8 

0051 06R 

025 

ROUND 

00001 OR 

025 

SYMPT1 

005346R 

025 

TMODE 

000403R 

023  $RSX  = 

••••••  G 

0PTMP9 

005110R 

025 

ROVER 

00331 2R 

025 

SYMTAB 

005352R 

025 

TMPTAG= 

000166 

$RT11  = 

••••••  G 

0PTM10 

0051 12R 

025 

RSTS  = 

000000 

SYMTBF= 

104404 

TTYBUF 

004140R 

025  .BOOLE= 

000002 

0PTM1A 

005026R 

025 

RSX   = 

000115 

SYMTOP 

005350R 

025 

TTYLEN= 

000622 

.CHARA= 

000000 

ORIGIN 

000030R 

025 

RTOP 

005070R 

025 

SYMTP 

006272R 

025 

TURKEY= 

104436 

.DEF.  = 

000002 

OUTPTR 

000066R 

025 

RT11  = 

000000 

SYMWRN= 

000054 

TYPE  = 

000166 

.FLOAT= 

000006 

0\/ROPR= 

000000 

R.BITS= 

000003 

SYNERR= 

104407 

T.BOL  = 

020000 

.FSRr8= 

••••••  G 

PATCH 

007344R 

025 

R.FIX  = 

000001 

SYSERR= 

104402 

T.CON  = 

004000 

.INTEG= 

000004 

PRECSN 

000052R 

025 

R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.DIM  = 

000100 

.MOLUN 

000404R 

023 

RANDAC 

003064R 

025 

R.LN  = 

000002 

SY.BAD= 

000001 

T.FUN  = 

010000 

...GBL= 

000000 

RANDY 

003062R 

025 

R.LNUM= 

000010 

SY.BRK= 

100000 

T.LIST= 

000400 

...TPC= 

000020 

RANERR= 

104411 

R.NEXT= 

000006 

SY.BS  = 

000010 
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000000 
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000000 
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006 
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000000 

007 
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010 

CHRTBL 

000000 

011 

VTBL 

000000 
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013 
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015 
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DEFINITIONS 

ERRORS 

1 

.TITLE 

CMDCHN 

i 

4 
5 

.IDENT 

\V02.03\ 

.SBTTL 

CMDCHN 

GET  CHANNEL  NUMBER  FOR  COMMAND 

;  FUNCTIONAL  DESCRIPTION: 

8 

THIS  ROUTINE  IS  PASSED  A 

STRING  CONTAINING  A  NUMBER. 

9 

THE  NUMBER  IS  EXTRACTED, 

THE  VALUE  CHECKED,  AND  A  POINTER 

10 
11 
12 

TO  THE 

APPROPRIATE  CHANNEL  BLOCK  RETURNED 

;  INPUTS: 

13 

R2  - 

CHR 

14 

R3  - 

LENGTH  OF  TEXT 

15 

16 
17 

R4  - 

POINTER  TO  TEXT 

;  OUTPUTS: 

18 

R2  - 

POINTER  TO  CHANNEL  BLOCK 

19 

R3  - 

LENGTH  OF  REMAINING  TEXT 

20 
21 
22 

R4  - 

POINTER  TO  REMAINING  TEXT 

000000 

.PSECT 

CODE 

23 

24 

000000 

CMDCHN: 

• 
• 

25 

000000 

120227 

000040 

CMPB 

R2,XrCHRSPA 

:SKIP  LEADING  BLANKS 

26 

000004 

001004 

BNE 

1$ 

;N0  OTHER  CHRS 

27 

000006 

GETC 

2$ 

;GET  ANOTHER  CHR 

000006 

005303 

DEC  R3 

;ANY  CHARACTERS  LEFT? 

000010 

002425 

BLT  2$ 

;N0,  BRANCH  TO  2$ 

000012 

112402 

M0V6  (R 

4)+,R2 

;YES,  GET  NEXT  CHAR 

28 

000014 

000771 

BR 

CMDCHN 

; CHECK  IT  OUT 

29 

30  000016 

1$: 

CALL 

NUMBER 

;GET  A  NUMBER 

31 

000022 

005203 

INC 

R3 

;BACK  UP  COUNTER 

32 

000024 

005304 

DEC 

R4 

;BACK  UP  POINTER 

33  000026 

CALL 

F.TO.I 

; Convert  to  Integer 

34 

000032 

000414 

BR 

2$ 

;I I  legal  Channel  Number 

35 

000034 

013702 

003154' 

MOV 

RESVAL,R2 

;Get  the  Channel  Number 

36  000040 

003411 

BLE 

2$ 

;Must  be  Positive 

37  000042 

020227 

000014 

CMP 

R2,.«W>1AXCHN 

;Within  Range? 

38  000046 

101006 

BHI 

2$ 

•No 

39  000050 

006302 

ASL 

R2 

•Multiply  Channel  *  by  2 

40  000052 

016202 

OOOOOOG 

MOV 

CHANNEL (R2),R2  . 

;Get  Pointer 

41 

000056 

121427 

000040 

CMPB 

(R4),*CHRSPA 

; FOLLOWED  BY  SPACE? 

42 
43 
44 

000062 

RETURN 

•WE'LL  NEVER  KNOWI ! 

000064 

104540 

2$: 

ILLCHN 

1 

•ILLEGAL  CHANNEL  NUMBER 

B  11 

CMDCHN  MACRO  Ml  11 3  08-FEB-80  11:10  PAGE  A6 
CMDCHN         GET  CHANNEL  NUMBER  FOR  COMMAND 

1        000001  .END 


CMDCHN 

MACRO  Ml 113 

08-FEB-80 

11:10  PAGE 

46-1 

C  11 

SYf>«Ba 

TABLE 

ACO   =' 

XOOOOOO 

CHRFR0= 

000135 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

AC1   = 

X000001 

CHRLBR= 

000073 

C.BLOK= 

000064 

D.DECD= 

000002 

EIS       = 

000000 

AC2   = 

X000002 

CHRLPR= 

000072 

C.BLSZ= 

000140 

D.DIV  = 
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025 
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CHRMNS= 
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C.BUFF= 

1 77760 

D.DMD  = 
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CHRMUL= 
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C.8UFL= 

177762 

D.DQAD= 
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EOF   = 
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C.CCN7= 

1 77766 
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ERRMAX= 
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003274R 

025 
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000271 

C . CPTR= 

177764 

D.ENCD= 

000002 
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004772R 

025 
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003276R 

025 

CHRPLU= 

000055 

C.CZ  = 
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D.EQ  = 
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ERRPTR 
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025 
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C.DIG  = 
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D.EXPD= 
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004774R 

025 
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000121 
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D.FGET= 
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C.NAME= 
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D.6T  = 
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FA.DLK= 
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000040 

C.NOBF= 

000400 

D.IBM  = 

000002 

FA.E^B= 

100000 

A.NUM  = 

000006 

CHRUPA= 

000131 

C.NUM  = 

000020 

D.IND  = 
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FA.EXC= 

002000 

A.PTR  = 
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CHR.BS= 
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COP  = 

000004 

D.INNR= 
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FA.EXT= 
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A. IMP  = 
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CHR.CC= 
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000000 

FD.CCL= 

000002 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.WIDC= 

177770 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN05 

001240R 

025 

CHR..S= 

000163 

C.WIDR= 

177772 

D.PSUB=  000006 

FD.CR  = 

000002 

CHAN06 

001422R 

025 

CHR..T= 

000164 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN07 

001604R 

025 

CHR..U=  000165 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.FTN=  000001 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEVIL 

0051 14R 

025  D.QUAD= 

000000 

FD.F11= 

040000 

CHAN09 

0021 50R 

025 

CHR..0= 

000060 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN12 

002676R 

025 

CMDBUF 

003250R 

025 

DIMBLK 

0031 12R 

025  D.SCON= 

000006 

FD.0SP= 

004000 

CHAN13 

000022R 

023  CMDCHN 

OOOOOORG 

020  DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.PLC= 

000004 

CHAN14 

000204R 

023 

CMDMAX= 

000010 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN=  000004 

CHNOPN^ 

104471 

CNTSIZ 

0051 30R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRAND= 

000051 

CQMBIN 

005076R 

025 

DOMERR= 

104417 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHKBbL= 

000007 

COMCNT 

0051 26R 

025 

DPTERR= 

104416 

D.TRAN=  000004 

FD.RAN= 

0000'\.^ 

CHRBKR= 

000133 

C0MERR= 

104425 

DYDCNT 

003224R 

025  D.UN0N=  000006 

FD.REC= 

00CJ01 

CHRBa= 

000200 

COMPTR 

0051 22R 

025  D.AND  = 

000000 

D.$MAX= 

000000 

FD.RVf1=  000001 

CHRBOX= 

0C0114 

COMRTN 

0031 56R 

025 

D.BXCT= 

C00007 

D.$MIN=  000000 

FD.SDI= 

000020 

CHRCMA:= 

000054 

COMSfCP 

0051 24R 

025  D.BXI0= 

000007 

D.$MUL=^ 

000000 

FD.SQD= 

000040 

CHRCa= 

000076 

CORPTR 

005120R 

025  D.8XNL= 

000007 

D.$PLU= 

000000 

FD.TTY= 

OTKXXK 

CHRDEL= 

000107 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000X2 

CHRDIV= 

00C053 

CS.B00= 

000010 

D.BXPW= 

000007 

D.$SUB= 

000000 

FF.CHR= 

000005 

CHRDLR= 

000176 

CS.FL0= 

000020 

D.BXRL= 

000007 

D.1C0M=  000001 

FF.^JV  = 

000003 

CHRDLT= 

000110 

CS.IDN=  000040 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.P0E= 

000002 

CHRDOT= 

000056 

CS.9NE= 

000100 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHREP  = 

000105 

CTEPS 

0001 52R 

025 

D.COMP= 

000001 

EDICHR 

005063R 

025  FF.RWF= 

000006 

CHRERR= 

104431 

CTMAX 

00021 2R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF.SPC= 

000004 

CHRFIL= 

0001 77 

CTRMAX 

0001 72R 

025 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  F HE ADR 

00501 2R 

025 
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FHRET   0050A0R 

025 

F.FNAM= 

000110 

H>HSIZ= 

000200 

MONLEN 

0031 30R 

025  M.R0LL= 

000000 

F1LNTF=  104A67 

F.FNB  = 

000102 

:CHAN 

005050R 

025  MGNPTR 

0031 22R 

025  M.SATA= 

000001 

FIS   =  000000 

F.FNDF= 

000010 

ILFNAW= 

104464 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

F1SC0N=  046000 

F.FTYP= 

000116 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FIXPTR  003074R 

025 

F.FUN  = 

000010 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SIGN= 

000000 

FLAGS   004764R 

025 

F.FVER= 

000120 

INDERR= 

104410 

M.ABS  = 

000000 

M.S(fiR= 

000001 

FLCBUF  003250R 

025 

F.HEAD= 

000006 

INNTMP 

003250R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLII^   0050UR 

025 

F.HIBK= 

000004 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FLOEXP  003270R 

025 

F.LBL  = 

000020 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN= 

000012 

FLONEG  003272R 

025 

F.LINE= 

000012 

INSNAM= 

104462 

M.BXCT= 

000007 

M.$ABS= 

000000 

FLSWTB  000222R 

025 

F.LOC  ^ 

000004 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI= 

000000 

FLTLEN=  000010 

F.LSTC= 

000004 

I.CNT  = 

177776 

M.BXFX= 

000007 

M.$FLR= 

000000 

FNINSI  0050A4R 

025 

F.LUN  = 

000042 

I. DIM  = 

1 77772 

M.BXIO= 

000007 

M.$IDN= 

000000 

FORIGN  000032R 

025 

F./1BCT= 

000054 

I.LEN  = 

00001 2 

M.BXLC= 

000003 

M.$NEG= 

000000 

FO.APO=  000106 

F.I1BC1  = 

000055 

I.OERR= 

000062 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.MFY=  000002 

F.I1BFG= 

000056 

I. OLD  = 

177770 

rt.BXNL= 

000007 

M.1RDT= 

00001 1 

FO.RD  =  000001 

F.MON  = 

000002 

I.PTR  = 

17777  L, 

P1,BXPP= 

000007 

M.1REV= 

000003 

FO.UPO=  000006 

F.NIL  = 

000001 

I. SIR  = 

1 77766 

M.BXPW= 

000007 

M.1SCN= 

000011 

FO.WRT=  000016 

F.NRRr)= 

000024 

LABERR= 

104406 

M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FPMODE  0000A2R 

025 

F.NREC= 

000030 

LABLPT 

005042R 

025  r.BXTS= 

000007 

NB.DEV= 

000200 

FPP   =  000000 

F.OPN  = 

000010 

LARGBL 

0031 62R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

FPPLEN=  OOOOOA 

F.0VBS= 

000030 

LARGCV 

0031 76R 

025  M.CEI  = 

177777 

NB.NAf1= 

000004 

FREBLK  007A00R 

025 

F.PREV= 

000000 

LAR6FL 

003160R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FUZZ    0001 A2R 

025 

F.PRNT= 

100000 

LARGLE 

0031 74R 

025  M.CWT  = 

000206 

NB.SD2= 

001000 

FXPTR1  003076R 

025 

F.PROT= 

010000 

LAkGLN 

0031 66R 

025  M.D0UT= 

000006 

NB.SNW= 

000040 

F$EVAL=  000100 

F.RACC= 

000016 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$EVI  =  000200 

F.RATT= 

000001 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F$EXEC=  000400 

F.RCNM=  0000^4 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F$FUNC=  001000 

F.RrTL= 

000017 

LARGVA 

003200R 

025  M.FXP  --^ 

000001 

NB.VER= 

000001 

f.ACTL=  000076 

F,RLAD= 

004000 

L8INC 

0051 OOR 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.ALOC=  000040 

F.REDF= 

000040 

LBUFF 

00331 6R 

025  M.FIL  = 

000177 

ND.EXT= 

000002 

F.BBFS=  000062 

F.RES  = 

000040 

LBUFLN=  000621 

M.FLR  -- 

1 77777 

ND.NAW=  000004 

F.BOB  =  000070 

F.RET  = 

177772 

L COUNT 

0051 06R 

025  M.FMT  = 

000004 

ND.PPN= 

000100 

F.BGBC=  000057 

F.RSIZ= 

000002 

LENERR= 

104412 

M.GDUP= 

000003 

ND.$EX= 

000000 

F.BITS=  1//'//4 

F.RTYP= 

000000 

LENTAB 

000054R 

025  M.GDWN=  000003 

ND.$E$= 

000020 

F.BICDN=  000026 

F.R2  = 

000014 

LEXPTR 

0031 OOR 

025  M.GETI= 

000006 

ND.$NW=  000000 

F.BICDS=  000020 

F.R3  = 

000016 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$=  000040 

F.BICEF=  000050 

F.R4  = 

000020 

LINC 

005102R 

025  M.IDN  = 

000000 

ND.$PN= 

001400 

F.BICP1=  000051 

F . SEQN= 

000100 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN 

00506iR 

025 

F.B*CST=  000024 

F . SPDV= 

000072 

LININC 

005026R 

025  M.I0TA= 

000000 

NINPT1 

003302R 

025 

F.BKVB=  000064 

F.SPUN= 

000074 

LISIZE= 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.BR  =  000020 

F.STBK= 

000036 

LI  TOP 

005072R 

025  M.LN  = 

000001 

NINSTK 

003304R 

025 

F.CHR  =  000075 

F.STK  = 

000022 

LNLNG  = 

104541 

M.MMD  - 

000010 

NINTMP 

00331  OR 

025 

F.CNT6=  000034 

F.ST0P= 

000004 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINTYP 

003306R 

025 

F.COOF-  000010 

F.STP  = 

000001 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

NOTAVL= 

104472 

F.DFfB=  000046 

F . SUSP= 

000002 

LSTERP 

004766R 

025  M.NUB  = 

000006 

N0T0PN= 

104473 

F.DS^T=  000044 

F.T0.I= 

*♦♦•**  6X 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

NPRT1 

004762R 

025 

F.DV»1=  000134 

F.TRC  = 

000002 

L.BITS= 

000003 

M.OUTR= 

000012 

NULL 

007364R 

025 

F.EFBk=  000010 

F.UNIT= 

000136 

L.CNT  = 

000002 

M.PITM=  000000 

NUMBER= 

*♦••*•  QX 

F.EFN  =   000050 

F.URBD= 

000020 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMCHN= 

000020 

F.END  =  002000 

F.VAL  = 

177776 

L.PTR  = 

000000 

M.QQAD= 

000000 

NUMDFL 

003230R 

025 

F.EnRB=  000032 

F.VBN  = 

000064 

L.PTRI^ 

000004 

M.OUAD= 

000000 

NUMEFL 

003233R 

025 

F.ERR  =  000052 

F.VBSZ= 

000060 

L.SUBS= 

000002 

M.RAND= 

000012 

NUMESN 

003236R 

025 

F.FACC=  000043 

6W0ME 

0031 02R 

025  I1ACHIN= 

000106 

M.RAVL= 

000000 

NUMFLG 

003230R 

025 

F.FFBY=  000014 

HASHC 

005136R 

025  MAXCHN= 

000014 

M.RCIP= 

000000 

NUMLEN 

000062R 

025 

F.FLAG=   000002 

HASHTB 

005140R 

025  MONBLK 

0031 20R 

025  M.RDCT= 

00001 1 

NUftJEG 

003232R 

025 

F.FLB  =  000100 

HSHMSK= 

177601 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

NUMQFL 

003234R 

025 
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NUMRIG 

003231 R 

025 

RANDY 

003062R 

025  R.NEXT= 

000006 

SY.8S  = 

000010 

T.LIT  = 

000020 

NinJID 

003226R 

025 

RANERR= 

104411 

R.OFF  = 

OOOOGO 

SY.CLR= 

000040 

T.MON  = 

000010 

NUM2FL 

003235R 

025 

RARGBL 

003204R 

025 

R.PREV= 

000004 

SY.ERP= 

000020 

T.NIL  = 

000004 

NYIERR= 

104432 

RARGCV 

003220R 

025  R.PTR  = 

000000 

SY.N0U= 

000100 

T.NUM  = 

002000 

N.BLSZ= 

000036 

RARGFL 

003202R 

025  R.SEQ  = 

000003 

SY.0PN= 

000002 

T.0PFN= 

000001 

N.DESC= 

000020 

RARGLE 

00321 6R 

025 

R.VAR  = 

000002 

SY.PMT= 

001000 

T.0THR= 

040000 

N.DEV  = 

000032 

RARGLN 

00321  OR 

025  R6 

X000006 

SY.SRT= 

000400 

T.SOP  = 

000002 

N.DE\/N=  000034 

RARGPT 

003206R 

025 

R7 

X000007 

SY.SVC= 

000004 

T.SPOP= 

000040 

N.DID  = 

000024 

RARGSF 

00321 4R 

025 

SI 

X000005 

SY.SVL= 

000200 

T.TMP  = 

000200 

N.D\/NM=  000032 

RARGTY 

00321 2R 

025 

SIDAMN= 

104433 

S.AB  = 

1 7777 t 

T.VAL  = 

100000 

N.EXT  = 

000014 

RARGVA 

003222R 

025 

SIFRAM 

00331 4R 

025 

S.ASR  = 

100000 

T.VAR  = 

001000 

N.FID  = 

000000 

RBASE 

005074R 

025 

SISTAK 

006350R 

025 

S.8FHD= 

000020 

UPPER  = 

177400 

N.FNAM=  000006 

RCOUNR 

0051 12R 

025 

SI  TOP 

006346R 

025 

S.8ITS= 

000002 

UTNAWE 

000344R 

023 

N.FTYP=  000014 

RCOUNT 

00511  OR 

025 

SITP 

0071 44R 

025 

S.CHR1= 

000003 

VALERR= 

104413 

N.FVER= 

000016 

REDCNT 

005070R 

025 

SIWARN= 

000200 

S.FATT= 

000016 

VARBLE 

007400R 

025 

N.NAME= 

000006 

REDIGN 

005066R 

025 

SI2TAB 

000044R 

025 

S.FDB  = 

000140 

VARBLS 

OOOOOOR 

025 

N.NEXT= 

000022 

REDOFF 

005072R 

025 

SI.BIT= 

1 7777^ 

S.FLB  = 

040000 

VERNUM 

OOOOOOR 

025 

N.PPN  = 

000024 

REENTR 

003060R 

025 

SI.LEN= 

^77772 

S.FNAM=  000006 

VRSiaN= 

000002 

N.STAT= 

000020 

RES8IT 

0031 42R 

025 

SI.RET= 

1 77772 

S.FNB  = 

000036 

WIDTH 

000072R 

025 

N.UNIT= 

000034 

RESCVT 

0031 52R 

025 

SI.VAL= 

1 7777b 

S.FNBW= 

00001 7 

UROUND 

000020R 

025 

nRUFLN= 

001000 

RESERR= 

104440 

SKPSIZ 

0051 34R 

025 

S.FNTY= 

000004 

WSDATE 

0001 36R 

025 

OCHAN 

005052R 

025 

RESLEN 

0031 50R 

025 

SPHOLD 

000004R 

024 

S.FTYP= 

000002 

WSFULL= 

104403 

OMODE 

000402R 

023  RESPTR 

0031 40R 

025 

SPINIT 

000002R 

024 

S.LEN  = 

000002 

WSNAME 

000074R 

025 

OPTMPO 

005066R 

025 

RESSFT 

0031 46R 

025 

STKINC= 

000774 

S.LINK= 

y7777i. 

WSTIWE 

0001 32R 

025 

0PTMP1 

005070R 

025 

RESTYP 

0031 44R 

025 

STOP  = 

104420 

S.NFEN= 

000020 

$FIS  = 

******  G 

0PTMP2 

005072R 

025 

RESULT 

0031 36R 

025 

SUBCNT 

0031 04R 

025 

S.TYPE= 

140000 

%\?9     = 

******  (3 

0PTMP3 

005074R 

025 

RESVAL 

0031 54R 

025 

SUBDCT 

0031 06R 

025 

S.VAL  = 

000000 

SFPPLN= 

******  (5 

0PTMP4 

005076R 

025 

R'NC 

0051 04R 

025 

SlffV>TR 

00311 OR 

025 

TKDIMS 

005G72R 

025  $WACHN= 

******  (3 

0PTMP5 

0051 OOR 

025 

RLTBAS 

005066R 

025 

SYMB1 

005344R 

025 

TKFRAM 

005066R 

025  SRSTS  = 

******  Q 

0PTIV>6 

0051 02R 

025 

ROTINC 

005070R 

025 

SYMF 

005340R 

025 

TKLEFT 

005070R 

025  $RSX  = 

******  Q 

0PTMP7 

0051 04R 

025 

ROUND 

00001  OR 

025 

SYWPTI 

005346R 

025 

TMODE 

000403R 

023  $RT11  = 

******  Q 

0PTMP8 

0051 06R 

025 

ROVER 

00331 2R 

025 

SYMTAB 

005352R 

025 

TMPTAG= 

000166 

.800LE= 

000002 

0PTMP9 

00511 OR 

025 

RSTS  = 

000000 

SYMTBF= 

104404 

TTYBUF 

004140R 

025  .CHARA= 

000000 

opimo 

0051 12R 

025 

RSX   = 

000115 

SYMTOP 

005350R 

025 

TTYLEN=  000622 

.DEF.  = 

000002 

OPTMH 

005026R 

025 

RTOP 

005070R 

025 

SYMTP 

006272R 

025 

TURKEY= 

104436 

.FLOAT= 

000006 

ORIGIN 

000030R 

025 

RT11  = 

COOOOO 

SYMWRN= 

000054 

TYPE  = 

000166 

.FSRCB= 

******  Q 

OUTPTR 

000066R 

025 

R.BITS= 

000003 

SYNERR= 

104407 

T.80L  = 

020000 

.INTEG= 

000004 

OVROPR= 

000000 

R.FIX  = 

000001 

SYSERR= 

104402 

T.CON  = 

004000 

.MOLUN 

000404R 

023 

PATCH 

007344R 

025 

R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.DIM  = 

000100 

...GBL= 

000000 

PRECSN 

000052R 

025 

R.LN  = 

000002 

SY.8AD= 

000001 

T.FUN  = 

010000 

...TPC= 

000020 

RANDAC 

003064R 

025 

R.LNUM= 

000010 

SY.8RK= 

100000 

T.LIST= 

000400 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

MONBTR 

000000 

006 

DYDBT8 

000000 

007 

COMTB 

000000 

010 

CHRTBL 

000000 

011 

VT8L 

000000 

012 

ASCTBL 

000000 

013 

0VRT8L 

000000 

014 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 
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TABLE 

MNTRTL 

000000 

017 

CODE 

000066 

020 

PATCH 

000000 

021 

SSFSR1 

000000 

022 

DEFSO 

000406 

023 

DEFSI 

000006 

02A 

DEF$2 

007A00 

025 

ERRORS 

DETECTED: 

0 
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DEFINITIONS 

ERRORS 

1 

.TITLE 

CMDNBR 

i 

.IDENT 

\V02.03\ 

4 

;++ 

5 

;  FUNCTIONAL  DESCRIPTION: 

6 

* 

• CMDNBR 

'  FETCHS  THE  OLD  \ 

7 
8 

9  000000 

• 

AND  PRINTS  THE  OLD  VALUE 

1 

.PSECT 

CODE 

10 

11  000000 

CMDNBR : 

• 
« 

12  000000 

PUSH 

<R4,R3,R2> 

13  000006 

016604 

000006 

MOV 

6(SP),R4 

1A  000012 

CALL 

aM0NTAB(R4) 

15  000016 

POP 

<R2,R3,R4> 

16  000024 

CALL 

N6ET 

17  000030 

000420 

BR 

1$ 

18  000032 

PUSH 

<RA,R3,R2> 

19  000040 

016604 

000006 

MOV 

6(SP),R4 

20  000044 

CALL 

aDYDTAB(R4) 

21  000050 

CALL 

KILL 

22  000054 

POP 

<R2, R3,R4> 

23  000062 

QPRINT 

WASL 

000062 

012701 

000000 • 

MOV  ^n.<ASL,R1           ; 

24  000072 

005726 

1$: 

TST 

^%P)^ 

25  00007A 

016500 

1 1717 t 

MOV 

SI.VAL(SI),RO   ; 

26  000100 

CALL 

APR I NT 

27  000104 

CALL 

NEWLIN 

28  000110 

CALLR 

KILL 

29 

30  000000 

31 

32  000000 

.PSECT 

TABLES 

167 

HI 

163  WASL:: 

.ASCIZ 

/was  / 

000003 

040 

000 

(.u  mi). 


SAVE  THE  REGISTERS 
GET  THE  OP  NUMBER 
CALL  THE  ROUTINE 
RESTORE  THE  REGISTERS 
GET  INPUT  VALUE 
NO  VALUE,  IS  QUERY 
WHAT,  AGAIN? 
GET  THE  OP  NUMBER  AGAIN 
CALL  THE  STORE  ROUTINE 
KILL  THE  NEW  VALUE 
RESTORE  THE  REGISTERS 
'IJAS  " 

POINT  TO  WASL 
DELETE  OP  NUMBER 
POINT  TO  ARRAY 
PRINT  IT 
End  the  line 
WIPE  IT  OUT 
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FUZZ 

35 

.S8TTL  COMMANDS              FUZZ 

36 

1 

37 

1 

•FUZZV  —  CHANGE  FUZZ  FACTOR 

38 

1 

39  0001 U 

.PSECT  CODE 

40 

41  000114 

FUZZY:: 

42  000114 

PUSH    WP..CT        ;Compan'son  Tolerance  Routine 

43  000120 

44 

45 

000727 

BR     CMPNBR         ; Process  Command 

46 

.S8TTL  COMMA/^JDS              ORIGIN 

47 

1 

48 

1 

■ORIGNN  —  CHANGE  INDEXING  ORIGIN 

49 

1 

50  000122 

.PSECT  CCDE 

51 

52  000122 

ORIGNN:: 

53  000122 

PUSH    /STOP..  10        ; Index  Origin 

54  000126 

000724 

BR     CMDNBR         ; Process  Command 

55 

56 

57 

.SBTTL  COMMANDS              WIDTH 

58 

i 

59 

i 

•WIDTTH  —  CHANGE  LINE  WIDTH 

60 

i 

61  000130 

.PSECT  CODE 

62 

63  000130 

WIDTTH:: 

64  000130 

PUSH    /(rOP..PW        ;Pn'nt  Width 

65  000134 

000721 

BR      CMDNBR         .-Process  Command 

66 

67 

68 

.SBTTL   COMMANDS              DIGITS 

69 

1 

70 

1 

•'DIGIT'  —  CHANGE  n   OF  PRINTED  DIGITS 

71 

i 

72   000136 

.PSECT  CODE 

73 

74  000136 

DIGIT:: 

75  000136 

PUSH    4rOP..PP        ;Print  Precision 

76  000142 

000716 

BR      CMDNBR         .-Process  Command 
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c  U 

SYMBOL 

TABLE 

ACO   = 

ZOOOOOO 

CHRFRO= 

000135 

C.ALOC= 

000162 

D.C0NT= 

000006 

EDICNT 

005064R 

025 

AC1   = 

X000001 

CHRLBR= 

000073 

C.BLOK= 

000064 

D.CTLM=  000000 

EDIFLG 

005062R 

025 

AC2   = 

X000002 

CHRLPR= 

000072 

C.BLSZ= 

000140 

D.DEAL= 

000003 

EDIT  = 

000003 

AC3   = 

X000003 

CHRMNS= 

000137 

C.BUFF= 

1 77760 

D.DECD= 

000002 

EIS   = 

000000 

ACA   = 

X000004 

CHRMUL= 

000075 

C.BUFL= 

1 77762 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

ACS   = 

XOOOOOS 

CHRNEG= 

000100 

C.CCNT= 

177766 

D.DMD  = 

000010 

ENDlOR 

000004R 

025 

ALLINT 

003274R 

025 

CHRPDL= 

000271 

C.CPTR= 

177764 

D.DQAD- 

1 77777 

EOF   = 

104475 

APRINT= 

*♦*♦*♦  GX 

CHRPLU= 

000055 

C.CZ  = 

001000 

D.DR0P= 

000002 

ERRMAX= 

000166 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C.DIG  = 

000040 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

ASCQUO=  000042 

CHRQST= 

000121 

C.FASW= 

020000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

A.ALEN=  000004 

CHRQUO=  000113 

C.FLEN= 

000010 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.ARG  = 

000040 

CHRRBR= 

000047 

C.FLSH= 

004000 

D.FGET= 

000005 

EXFBUF 

005054R 

025 

A.ASB  = 

000200 

CHRRPR= 

000042 

C.FRC  = 

000001 

D.FMT  = 

000004 

E$c: 

005056R 

025 

A.BITS= 

000003 

CHRSEM= 

000074 

C.IDEN= 

000010 

D.FPNT= 

000005 

ESPT 

005060R 

025 

A.CON  = 

000020 

CHRSMO= 

000112 

C.NAME= 

000102 

D.FPUT= 

000005 

FA.APD= 

000100 

A.DIWS= 

000002 

CHRSPA= 

000040 

C.NOBF= 

000400 

D.GE  = 

000000 

FA.CRE= 

000010 

A.DIM1= 

000006 

CHRUPA= 

000131 

C.NUM  = 

000020 

D.GT  = 

000000 

FA.DLK= 

001000 

A.NLH  = 

000006 

CHR.BS= 

000010 

COP  = 

000004 

D.IBM  = 

000002 

FA.Ef©= 

100000 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.OPN  = 

010000 

D.IND  = 

000002 

FA.EXC= 

002000 

A.  IMP  = 

000010 

CHR.CR= 

000015 

C.RDLN= 

177776 

D.INNR= 

000013 

FA.EXT= 

000004 

BADDIR= 

104463 

CHR.CZ= 

000032 

C.REWT= 

002000 

D.INTR= 

000006 

FA.NSP= 

000100 

BADERR= 

104437 

CHR.GT= 

000046 

C.RND  = 

000010 

D.LE  = 

000000 

FA.NSR= 

000200 

BLznn 

0051 16R 

025 

CHR.LF= 

000012 

C.S81T= 

177756 

D.LOG  = 

000001 

FA.P0S= 

010000 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.SPFX= 

000100 

D.LT  = 

000000 

FA.RD  = 

000001 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C.SPGL= 

000200 

D.MAX  = 

000000 

FA.RWD= 

004000 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C.SPLX= 

000001 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CHANOO 

000256R 

025 

CHR.S0= 

000016 

C.SPRS= 

000002 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C.SRC  = 

177774 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.SRCP= 

000024 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN03 

000674R 

025 

LrV^  •  mr\~ 

000141 

C.TT  = 

000004 

D.NN  = 

000000 

FA.URT= 

000002 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.WIDC= 

177770 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN05 

001240R 

025 

CHR..S= 

000163 

C.W1DR= 

177772 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN06 

001422R 

025 

CHR..T= 

000164 

DEBUG  = 

000000 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEFERR= 

104405 

D.PSUB=  000006 

FD.CR  = 

000002 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEVIL 

0051 14R 

025  D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN09 

0021 50R 

025 

CHR..0= 

000060 

DEVNTF= 

104470 

D.QQAD= 

000000 

FD.FTN=  000001 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIGIT 

0001 36RG 

020  D.QUAD= 

000000 

FD.F11= 

040000 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DIGITS 

000006R 

025  D.RES  = 

000000 

FD.INS= 

000010 

CHAN12 

002676R 

025 

CMDBUF 

003250R 

025  DIMAX  = 

000020 

D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN13 

000022R 

023  CMD«AX= 

000010 

DIMBLK 

0031 12R 

025  D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN14 

000204R 

023  CMONBR 

OOOOOORG 

020  DIMPTR 

0031 14R 

025  D.SCON^ 

000006 

FD.OSP= 

004000 

CHNOPN= 

104471 

CNTS12 

0051 30R 

025  DIMTYP 

0031 16R 

025  D.SDIF= 

000006 

FD.PLC= 

000004 

CHRAND= 

000051 

CQMBIN 

005076R 

025  DIRFUL= 

104466 

D.SUB  = 

000000 

FD.PRN=  000004 

CHRBFL= 

000007 

CQMCNT 

0051 26R 

025  D0MERR= 

104417 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRBKR-- 

000133 

cariERR= 

104425 

DPTERR= 

104416 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRROL= 

000200 

COMPTR 

005122R 

025  DYDCNT 

003224R 

025  D.TRAN=  000004 

FD.RAN=  000002 

CHReOX= 

000114 

COWRTN 

0031 56R 

025  DYDTAB= 

******  GX 

D.UN0N=  000006 

FD.REC= 

000001 

rHRCMA= 

000C54 

COMSKP 

005124R 

025  D.AND  = 

000000 

D.$MAX= 

000000 

FD.Rvr;=  000001 

cmcoL= 

000076 

CORPTR 

005120R 

025  D.BXCT= 

000007 

D.$MIN=  000000 

FD.SDI= 

000020 

CHRDEL= 

000107 

CS.ASS= 

000200 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRDIV= 

000053 

CS.B00= 

000010 

D.BXNL= 

00C007 

D.$PLU=  000000 

FD.TTY= 

000004 

CHRDLR= 

000176 

CS.FL0= 

000020 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHRDLT= 

000110 

CS.IDN= 

000040 

D.BXPW= 

000007 

D.$SUB= 

000000 

FF.CHR= 

000005 

CHRDOT= 

000056 

CS.0NE= 

000100 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.NV  = 

000003 

CHREP  = 

000105 

CTEPS 

0001 52R 

025  D.CIRC= 

000001 

D.1EXP= 

000002 

FF.P0E= 

000002 

CHRERR= 

104431 

CTMAX 

0002^2R 

025  D.C0MB= 

000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHRF1L= 

0001 77 

CTRMAX 

0001 72R 

025  D.C0riP= 

000001 

EDICHR 

005063R 

025  FF.RWF= 

000006 
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SYMBOL 

FABLE 

FF.SPC= 

OOOOOA 

F.FFBY= 

000014 

HASHTB 

0051 40R 

025  MAXCHN= 

000014 

M.RAVL= 

000000 

F HE ADR 

00501 2R 

025 

F.FLAG= 

000002 

HSHMSK= 

1 776C1 

MONBLK 

0031 20R 

025  M.RCIP= 

000000 

FHRET 

005040R 

025 

F.FLB  = 

000100 

HSHSIZ= 

000200 

MONCVT 

0031 32R 

025  M.RDCT= 

00001 1 

FILNTF= 

10A467 

F.FNAM=  000110 

I  CHAN 

005050R 

025  MONLEN 

0031 30R 

025  M.REVS= 

000003 

FIS   = 

000000 

F.FfJB  = 

000102 

ILFNAM= 

104464 

MONPTR 

0031 22R 

025  M.R0LL= 

000000 

FISCQN= 

0A6000 

F.FNDF= 

000010 

ILLCHN= 

104540 

MONSFT 

0031 26R 

025  M.SATA= 

000001 

FIXPTR 

003074R 

025 

F.FTYP= 

000116 

ILLSW  = 

104565 

MONTAB= 

*•*•*•  6X 

M.SCAN= 

000011 

FLAGS 

00A76AR 

025 

F.FUN  = 

000010 

INDERR= 

104410 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FLCBUF 

003250R 

025 

F.FVER= 

000120 

INNTMP 

003250R 

025  MONVAL 

0031 34R 

025  M.SIGN= 

000000 

FLINE 

00501 4R 

025 

F.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.ABS  = 

000000 

M.SIBR= 

000001 

FLOEXP 

003270R 

025 

F.HIBK= 

000004 

INPTR 

000064R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLONEG 

003272R 

025 

F.LBL  = 

000020 

INSNAM= 

104462 

M.8XAV= 

000007 

M.SYN  = 

000201 

FLSWTB 

000222R 

025 

F.LINE= 

000012 

lOERR  = 

104477 

M.BXCR= 

000007 

M.TRAA'-- 

000012 

FLTLEN= 

000010 

F.LOC  = 

000004 

I.CNT  = 

1 77776 

M.BXCT= 

000007 

M.$ABS= 

000000 

FNINSI 

0050^ 4R 

025 

F.LSTC= 

000004 

I. DIM  = 

177772 

M.BXEX= 

000007 

M.$CEI= 

000000 

FORIGN 

000032R 

025 

F.LUN  = 

000042 

I.LEN  = 

000012 

M.8XFX= 

000007 

M.$FLR= 

000000 

FO.APD= 

000106 

F.MBCT= 

000054 

I.OERR= 

000062 

M.BXIO= 

000007 

M.$IDN= 

000000 

FO.MFY= 

000002 

F.MBC1= 

000055 

I. OLD  = 

177770 

M.8XLC= 

000003 

M.$NEG= 

000000 

FO.RD  = 

000001 

F.MBF6= 

000056 

I.PTR  = 

1 7777^ 

M.BXNC= 

000007 

M.$SI6= 

000000 

FO.UPD= 

000006 

F.MON  = 

000002 

I. SIR  = 

1 77766 

M.BXNL= 

000007 

M.1RDT= 

000011 

FO.WRT= 

000016 

F.NIL  = 

000001 

KILL  = 

•*••••  6X 

M.8XPP= 

000007 

M.1REV= 

000003 

FPMOOE 

0000A2R 

025 

F.NRBD= 

000024 

LABERR= 

104406 

M.BXPW= 

000007 

M.1SCN= 

000011 

FPP   = 

000000 

F.NREC= 

000030 

LABLPT 

005042R 

025  M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FPPLEN= 

OOOOOA 

F.OPN  = 

000010 

LARGBL 

0031 62R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FREBLK 

007A00R 

025 

F.OVBS= 

000030 

LAR6CV 

0031 76R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

FUZZ 

000U2R 

025 

F.PREV= 

000000 

LARGFL 

0031 60R 

025  M.CEI  = 

^77777 

NB.NAM= 

000004 

FUZZY 

0001 1ARG 

020 

F.PRNT= 

100000 

LARGLE 

0031 74R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FXPTRl 

003076R 

025 

F.PROT= 

010000 

LAR6LN 

0031 66R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

F$EVAL= 

000100 

F.RACC= 

000016 

LARGPT 

0031 64R 

025  M.D0UT= 

000006 

NB.SNM= 

000040 

FSEVI  = 

000200 

F.RATT= 

000001 

LAR6SF 

0031 72R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

f%EXEC= 

000400 

F.RCNM= 

000034 

LARGTY 

0031 70R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F$FUNC= 

001000 

F.RCTL= 

00001 7 

L  '^RGVA 

003200R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F.ACTL= 

000076 

F.READ= 

004000 

LoINC 

005100R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F.ALOC= 

000040 

F.REDF= 

000040 

LBUFF 

00331 6R 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.RRFS= 

000062 

F.RES  = 

000040 

LBUFLN= 

000621 

M.FIL  = 

0001 77 

ND.EXT= 

000002 

F.BDB  = 

000070 

F.RET  = 

1 77772 

L COUNT 

0051 06R 

025  M.FLR  = 

^77777 

ND.NAM=  000004 

F.BGBC= 

000057 

F.RSIZ= 

000002 

LENERR= 

104412 

M.FMT  = 

000004 

ND.PPN= 

000100 

F.BITS= 

177774 

F.RTYP= 

000000 

LENTAB 

000054R 

025  M.6DUP= 

000003 

ND.$EX= 

000000 

F.BICDN=  000026 

F.R2  = 

000014 

LEXPTR 

0031 OOR 

025  M.6DWN=  000003 

ND.$E$= 

000020 

F.BICDS= 

000020 

F.R3  = 

000016 

LFTOP 

005066R 

025  M.6ETI= 

000006 

ND.$r#1=  000000 

F.BKEF= 

000050 

F.R4  = 

000020 

LINC 

0051 02R 

025  M.IBM  = 

000003 

ND.$N$= 

000040 

F.BKP1= 

000051 

F . SEQN= 

000100 

LINE 

00501 6R 

025  M.IDN  = 

000000 

ND.$PN=  001400 

F.BKST= 

000024 

F.SPDV= 

000072 

LININC 

005026R 

025  M.INSP= 

000006 

NEGSGN 

005063R 

025 

F.BK\/B= 

000064 

F.SPUN= 

000074 

LISIZE= 

000020 

M.I0TA= 

000000 

NEWLIN= 

•♦****  GX 

F.BR  = 

000020 

F.STBK= 

000036 

LITOP 

005072R 

025  M.LIT  = 

000205 

N6ET  = 

**♦♦*•  GX 

F.CHR  = 

000075 

F.STK  = 

000022 

LNLN6  = 

104541 

M.LN  = 

000001 

NINPT1 

003302R 

025 

F.CNTG= 

000034 

F.STOP= 

000004 

LOCLCT 

005036R 

025  M.MMD  = 

000010 

NINPT2 

003300R 

025 

F.COOE= 

000010 

F.STP  = 

000001 

LOWCOR 

000002R 

025  M.NE6  = 

000000 

NINSTK 

003304R 

025 

F.DF^e= 

000046 

F . SUSP= 

000002 

LSTERP 

004766R 

025  M.NOT  = 

000000 

NINTMP 

00331 OR 

025 

F.DSPT= 

000044 

F.TRC  = 

000002 

LWIDTH 

000070R 

025  M.NUB  = 

000006 

NINTYP 

003306R 

025 

F.D\/NH= 

000134 

F.UNIT= 

000136 

L.8ITS= 

000003 

M.NUM  = 

000204 

NOTAVL= 

104472 

F.EfBK= 

00001 U 

F.URBD= 

000020 

L.CNT  = 

000002 

M.0UTR= 

000012 

NOTOPN= 

104473 

F.EFN  = 

000050 

F.VAL  = 

1 77776 

L.PRNT= 

000001 

M.PITM=  000000 

NPRT1 

004762R 

025 

F.END  = 

002000 

F.VBN  = 

000064 

L.PTR  = 

000000 

M.PRDS= 

000006 

NULL 

007364R 

025 

F.EnRR= 

000032 

F.VBSZ= 

000060 

L.PTR1= 

000004 

M.QQAD= 

000000 

NUMCHN= 

000020 

F.ERR  = 

000052 

GNOME 

0031 02R 

025  L.SUBS= 

000002 

M.QUAD= 

000000 

NUMDFL 

003230R 

025 

F.FACC= 

000043 

HASHC 

0051 36R 

025  MACHIN= 

000106 

M.RAND= 

00001 2 

NUMEFL 

003233R 

025 

CMDNBR 

MACRO  Ml  113  OS- 

-FEB-80 

11;12  PAGE 

47-3 

E  M 

SYWBOL 

TABLE 

NlllESN 

003236R 

025 

ORIGIN 

000030R 

025 

R.BITS= 

000003 

SYSTAT 

OOOOOOR 

024  T.LIST= 

000400 

NUMFLG 

003230R 

025 

ORIGNN 

0001 22RG 

020  R.FIX  = 

000001 

SY.BAD= 

000001 

T.LIT  = 

000020 

NUMLEN 

000062R 

025 

OUTPTR 

000066R 

025  R.LCT  = 

000002 

SY.BRK= 

100000 

T.MON  = 

000010 

NUMNEG 

003232R 

025 

0VR0PR= 

000000 

R.LN  = 

000002 

SY.8S  = 

000010 

T.NIL  = 

000004 

NUMQFL 

00323AR 

025  PATCH 

007344R 

025 

R.LNUM= 

000010 

SY.CLR= 

000040 

T.NUM  = 

002000 

NUMR16 

003231 R 

025 

PRECSN 

000052R 

025 

R.NEXT= 

000006 

SY.ERP= 

000020 

T.OPFN= 

000001 

M.f1UID 

003226R 

025 

PRINTM= 

••*••*  GX 

R.OFF  = 

000000 

SY.NOU= 

000100 

T.0THR= 

040000 

NUMZFL 

003235R 

025 

RANDAC 

003064R 

025 

R.PREV= 

000004 

SY.OPN= 

000002 

T.SOP  = 

000002 

NYIERR= 

104432 

RANDv 

003062R 

025 

R.PTR  = 

000000 

SY.PMT= 

001000 

T.SPOP= 

000040 

N.BLSZ= 

000036 

RA>JERR= 

104411 

R.SEQ  = 

000003 

SY.SRT= 

000400 

T.TMP  = 

000200 

N.DESC= 

000020 

RARGBL 

003204R 

025 

R.VAR  = 

000002 

SY.SVC= 

000004 

T.VAL  = 

100000 

N.DEV  = 

000032 

RARGCV 

003220R 

025  R6 

X000006 

SY.SVL= 

000200 

T.VAR  = 

001000 

N.DE\/N=  00003A 

RAR6FL 

003202R 

025 

R7 

X000007 

S.AB  = 

177776 

UPPER  = 

177400 

N.DID  = 

000024 

RARGLE 

00321 6R 

025 

SI 

X000005 

S.ASR  = 

100000 

UTNAME 

000344R 

023 

N.D\/NM=  000032 

RARGLN 

00321 OR 

025 

SIDAMN= 

104433 

S.8FHD= 

000020 

VALERR= 

104413 

N.EXT  = 

000014 

RARGPT 

003206R 

025 

SIFRAM 

00331 4R 

025 

S.BITS= 

000002 

VARBLE 

007400R 

025 

N.FID  = 

000000 

RARGSF 

00321 4R 

025 

SISTAK 

006350R 

025 

S.CHR1= 

000003 

VARBLS 

OOOOOOR 

025 

N.FNAM= 

000006 

RARGTY 

00321 2R 

025 

SITOP 

006346R 

025 

S.FATT= 

000016 

VERNUM 

OOOOOOR 

025 

N.FTYP=  OOOOU 

RARGVA 

003222R 

025 

SITP 

0071 44R 

025 

S.FDB  = 

000140 

VRSION= 

000002 

N.FVER= 

000016 

RBASE 

005074R 

025 

SIWARN= 

000200 

S.FLB  = 

040000 

WASL 

OOOOOORG 

002 

N.NAWE= 

000006 

RCOUNR 

0051 12R 

025 

SIZTAB 

000044R 

025 

S.FNAM= 

000006 

WIDTH 

000072R 

025 

N.NEXT= 

000022 

RCOUNT 

00511  OR 

025 

SI.BIT= 

177774 

S.FNB  = 

000036 

WIDTTH 

0001 30RG 

020 

N.PPN  = 

000024 

REDCNT 

005070R 

025 

SI.LEN= 

177772 

S.F^BW= 

000017 

WROUND 

000020R 

025 

N.STAT= 

000020 

REDIGN 

005066R 

025 

SI.RET= 

177772 

S.FNTY= 

000004 

WSDATE 

0001 36R 

025 

N.UNIT= 

000034 

REDOFF 

005072R 

025 

SI.VAL= 

177776 

S.FTYP= 

000002 

WSFULL= 

104403 

(HJFLN=  001000 

REENTR 

003060R 

025 

SKPS12 

0051 34R 

025 

S.LEN  = 

000002 

WSNAME 

000074R 

025 

OCHAN 

0O5052R 

025 

RESRIT 

0031 42R 

025 

SPHOLD 

000004R 

024 

S.LINK= 

177774 

WSTIME 

0001 32R 

025 

OMODE 

000402R 

023  RESCVT 

0031 52R 

025 

SPINIT 

000002R 

024 

S.NFEN= 

000020 

%flS     = 

♦•••••  G 

OPIMPO 

005066R 

025  RESERR= 

104440 

STKINC= 

000774 

S.TYPE= 

140000 

$FPP  = 

*•••••  G 

0PTMP1 

005070R 

025  RESLEN 

0031 50R 

025 

STOP  = 

104420 

S.VAL  = 

000000 

$FPPLN= 

*••••*  G 

0PTMP2 

005072R 

025 

RESPTR 

0031 40R 

025 

SLRCNT 

0031 04R 

025 

TKDIMS 

005072R 

025  $MACHN= 

••••••  G 

0PTMP3 

005074R 

025 

RESSFT 

0031 46R 

025 

SUBDCT 

0031 06R 

025 

TKFRAM 

005066R 

025  $RSTS  = 

••••••  G 

OPTMPA 

005076R 

025 

RESTYP 

0031 44R 

025 

SUBPTR 

00311  OR 

025 

TKLEFT 

005070R 

025  $RSX  = 

•*••*•  G 

0PTMP5 

0051 OOR 

025  RESULT 

0031 36R 

025 

SY/1B1 

005344R 

025 

TMODE 

000403R 

023  $RT11  = 

*•**••  G 

0PTMP6 

0051 02R 

025  RESVAL 

0031 54R 

025 

SYMF 

005340R 

025 

TMPTAG= 

000166 

.BOOLE= 

000002 

0PTMP7 

0051 04R 

025 

RINC 

0051 04R 

025 

SYMPT1 

005346R 

025 

TTYBUF 

004140R 

025  .CHARA= 

000000 

0PTMP8 

0051 06R 

025 

RLTBAS 

005066R 

025 

SYMTAB 

005352R 

025 

TTYLEN= 

000622 

.DEF.  = 

000002 

0PTMP9 

00511 OR 

025 

ROTINC 

005070R 

025 

SYMTBF= 

104404 

TURKEY= 

104436 

.FLOAT= 

000006 

OPTM10 

0051 12R 

025  ROUND 

00001  OR 

025 

SYMTOP 

005350R 

025 

TYPE  = 

000166 

.FSRCB= 

*♦*•••  G 

OPTWK 

005026R 

025 

ROVER 

00331 2R 

025 

SYMTP 

006272R 

025 

T.BOL  = 

020000 

.INTEG= 

000004 

OP..CT= 

•*«*«*  GX 

RSTS  = 

000000 

SYMWRN= 

000054 

T.CON  = 

004000 

.MOLUN 

000404R 

023 

OP.. 10= 

tifk*itit   Gx 

RSX   = 

000115 

SYNERR= 

104407 

T.DIM  = 

000100 

...GBL= 

000000 

OP..PP= 

**♦♦♦♦  GX 

RTOP 

005070R 

025 

SYSERR= 

104402 

T.FUN  = 

010000 

...TPC= 

000020 

OP..PW= 

******  6X 

RT11  = 

000000 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000006 

002 

MONTB 

000000 

003 

OYDTB 

000000 

004 

BOPTB 

000000 

005 

MONBJB 

000000 

006 

DYD6TB 

000000 

007 

COWTB 

000000 

010 

CHRTBL 

000000 

011 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

CMDNBR 

MACRO  Mill 

3  0 

SYMBOL 

TABLE 

OVRTBL 

000000 

OK 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

00014A 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEFSO 

000A06 

023 

DEF$1 

000006 

024 

DEF$2 

007A00 

025 

ERRCDRS 

DETECTED: 

0 
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VIRTUAL  MEMORY  USED:   12973  U«DRDS   (  51  PAGES) 

DYNAMIC  MEMORY:   14478  WORDS   (  55  PAGES) 

ELAPSED  TIME:   00:01:57 

CMDNBR, DM1 :C305,3013CMDNBR/-SP=APLRX1 ,APLDEF,CMD^BR, END 
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;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 
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;N0  FPP 

;SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 
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-rr-TT 
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.LIST     SEQ,SRC,LOC,BIN,BEX,MEB 


TT 
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TITLE 
IDENT 


TT 


CMPRSS 
\V02.03\ 


S8TTL  CMPRSS 


ROUTINE  TO  FORM  2-D  STRUCTURE  FROM  VECTOR 


FUNCTIONAL  DESCRIPTION: 

This  Routine  is  Used  by  .8XCR,  Monadic  Thorn,  etc... 
It  takes  a  Vector  and  Converts  it  into  a  2-Difnensional 
Structure,  removing  <CR><LF>  pairs,  etc. 

CALLING  SEQUENCE: 

CALL    CMPRSS 


IMPLICIT  INPUTS: 

On  the  Top  of  the  SI 

IMPLICIT  OUTPUTS: 

On  the  Top  of  the  SI 


-  A  Character  Vector  to  be  re- format ted 

-  A  new  Character  Array/Vector 


SIDE  EFFECTS: 

The  oLd  character  vector  may  be  deleted  and  replaced 


CMPRSS 


016501     177776 

011104 

016103  000004 

005000 

005046 

005046 


005001 

005303 

002416 

1 1 2402 

005200 

120227  000015 

001370 

005303 

002407 

112402 

120227  000012 

001366 

005300 

005701 

001360 

020016 

002401 

010016 

005000 


1$: 
2$: 


3$: 


4$: 
5$: 


.PSECT  CODE 


CALL  CARVE 

MOV  SI.VAL(SI),R1 

MOV  (R1),R4 

MOV  A.ALEN(R1),R3 

CLR  RO 

CLR  -(SP) 

CLR  '(SP) 


; Carve  Up  Argument 

; Point  to  the  AroLfnent 

;Point  Specifically  to  the  String 

;Get  the  Total  Length  (Bytes) 

;The  Current  Line  Width 

; Count  of  ft  of  Lines 

;The  Maximum  Line  Width 


Loop  for  Each  Line  -  find  the  Specs  (Xf  of  Lines,  Max  Width) 


CLR    R1 
GETC    4$ 
DEC  R3 
BLT  4$ 
MOVB  (R4)+,R2 


RO 

R2,*CHR.CR 

1$ 

4$ 


INC 

CMP8 

BNE 

GETC 

DEC  R3 

BLT  4$ 

MOVB  (R4)+,R2 

CMP8    R2,#CHR.LF 

BNE     3$ 

DEC     RO 

TST     Rl 

BNE     2$ 

CMP     RO,(SP) 

BLT     5$ 

MOV     RO,(SP) 

CLR     RO 


Clear  <CR><LF>  Flag 

Get  a  Character  for  Processing 

;ANY  CHARACTERS  LEFT? 
NO,  BRANCH  TO  4$ 

;YES,  GET  NEXT  CHAR 
Count  the  Character 
Check  for  <CR> 
Nope,  try  again 
Get  another  Character 

;ANY  CHARACTERS  LEFT? 
NO,  BRANCH  TO  4$ 

;YES,  GET  NEXT  CHAR 
Check  for  <LF> 
No,  check  for  <CR> 
Forget  the  <CR>  from  the  Count 
<CR><LF>  Flag  set? 

Yes,  so  look  for  some  more  EOL  pairs 
Which  is  Bigger 
The  Old  Value  is... 
No,  use  New  Value 
Starting  New  Line 


UM        4  <^ 
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52  000076 

53  000100 

54  000102 

55  000106 

56  000110 

57  000112 
58 

59 
60 
61 

62  00011 A 

63  000120 

64  000124 

65  000126 

66  000130 

67  000134 

68  000140 

69  000144 

70  000146 
71 


005701 
001003 
005266 
005201 
005703 
003345 


000002 


6$: 


TST 

R1 

BNE 

6$ 

INC 

2(SP) 

INC 

R1 

TST 

R3 

BGT 

2$ 

;Have  we  found  Previous 
;Yes,  so  Skip  this  One 
;Add  Another  Line 
;Set  <CR><LF>  Flag 
.-Anything  Left? 
;Loop  For  ALL 


<CR><LF>  Pairs? 


016601 
022701 
001011 

016501 
010061 
010061 
005726 


000002 
000001 


1 7171 t 
000004 
000006 


WeLL  We've  Finished  Accumulating  Info.  If  Vector,  use 
old  value  (Forget  end  <CR><LF>,  if  any) 

Get  the  number  of  lines 
Is  there  only  one  Line? 
Is  a  Vector,  Use  old  Value 
Get  the  Max  Line  Width 
Pointer  to  Data 
Total  Length 

and  Length  of  Vector 

stack 


MOV 

2(SP),R1 

CMP 

4n.,R1 

BNE 

7$ 

POP 

RO 

MOV 

SJ.VAL(SI),R1 

MOV 

R0,A.ALEN(R1) 

MOV 

R0,A.DIM1(R1) 

TST 

(.S?)^ 

RETURN 

Clean  up  garbage  on 
Finished  T 


75  000150 

76  000152 
H   000164 

78  000166 

79  000172 

80  000176 

81  000202 

82  000206 

83  000210 

84  000212 

85  000214 

86  000216 

87  000220 

88  000224 

89  000236 

90  000240 

91  000242 

92  000244 

93  000250 

94  000252 

95  000256 

96  000260 

97  000262 

98  000266 

99  000270 

100  000274 

101  000276 

102  000302 

103  000306 

104  000310 

105  000312 

106  000314 
107 

108 


Well,  I  guess  we  really  have  to  do  the  allocate  and  copy. 
DAMN! 


011600 

103524 
01 2700 
016502 
116203 

010304 
006303 
060300 
010003 
060100 


010010 
060320 
110420 
112720 
010120 
022704 
001406 
005304 
062702 
0^2220 

011620 
016502 
016203 
011204 
005001 

000401 


H: 


000006 
1 11110 
000002 


000200 
000001 

000006 


1 11110 
000004 


8$: 
9$; 


MOV 

MUL 

BCS 

MOV 

MOV 

M0V8 

CONINC 

MOV 

ASL 

ADD 

MOV 

ADD 

CALL 

SIFRAM 

MOV 

ADD 

MOVB 

Move 

MOV 

CMP 

BEQ 

DEC 

ADD 

MOV 

SOB 

MOV 

MOV 

MOV 

MOV 

CLR 

PUSH 

BR 


(SP), RO       ;Get  the  maximum  line  width 
R0,R1  ; Compute  Real  Size  (Characters) 

16$  ;Too  Large,  Error 

4fA.DIM1,R0     ;Get  overhead  for  Header 
SI.LEN+SI.VAL(SI),R2  ;Pointer  to  original  source  argument 


A.DIMS(R2),R3 

R3 

R3,R4 

R3 

R3,R0 

R0,R3 

R1,R0 

6ETC0R 

,#T.VAL 

RO,(RO) 

R3,(R0)^- 

R4,(R0)^ 


Get  the  ft   of  dimensions 

Cheat  for  scalars 

Copy  the  #  of  dimensions 

Make  it  words 

Combine  with  other  overhead 

Save  data  offset 

Combine  with  data  space  required 

Get  the  Space 

Build  SI  Parse  Value  Frame 

Fill  in  array  block  header 

Add  in  data  offset 

DIMS 


4f<A.ASB+.CHARACTER>,(R0)+     ;Character  Array 


R1,(R0)+ 

*1,R4 

9$ 

R4 

#A.DIM1,R2 

(R2)^',(R0)^ 

R4,8S 

(SP), (R0)+ 


ALEN 

Result  a  vector? 

Yes,  Skip  copying  the  dimensions 

Only  copy  the  first  n-1  dimensions 

Point  to  the  source  dimension  list 

Copy  the  dimensions 

Loop  through  the  list 


Fill  in  last 


SI.LEN+SI.VAL(SI),R2  ;Point  to 


A.ALEN(R2),R3 

(R2),R4 

Rl 

iSP) 

11$ 


dim 
Old 


;Get  the  Length 

and  the  Pointer 
.-Clear  the  <CR><LF> 
;Copy  the  line  width 
;Start  the  presses 


(Length 
Data 


of  Each  Line) 


Flag 


OK,  Now  let's  do  the  Transfer  Loop 


TTio 


N  \i 
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• 

110  000316 

005316 

10$: 

DEC 

(SP) 

;Decrease  count  of  what's  left  on  the  Line 

111  000320 

11$: 

GETC 

13$ 

;6et  a  Character 

000320 

005303 

DEC  R3 

;ANY  CHARACTERS  LEFT? 

000322 

002417 

BLT  13$ 

;N0,  BRANCH  TO  13$ 

000324 

1 1 2402 

MOVB  (R4)+,R2 

;YES,  GET  NEXT  CHAR 

112  000326 

1 20227 

00001 5 

CMPB 

R2,4fCHR.CR 

;is  It  a  <CR>? 

113  000332 

001010 

BNE 

12$ 

;Nope 

114  000334 

121427 

000012 

CMPB 

(R4),*CHR. 

LF 

.•Followed  By  a  <LF>? 

115  000340 

001005 

BNE 

12$ 

;Nope 

116  000342 

GETC 

13$ 

.•Adjust  for  <LF> 

000342 

005303 

DEC  R3 

.-ANY  CHARACTERS  LEFT? 

000344 

002406 

BLT  13$ 

;N0,  BRANCH  TO  13$ 

000346 

1 1 2402 

MOVB  (R4)+,R2 

;YES.  GET  NEXT  CHAR 

117  000350 

005201 

INC 

R1 

;Set  the  <CR><LF>  Flag 

118  000352 

000762 

BR 

11$ 

;6o  look  for  some  <CR><LF>  pairs 

119  000354 

110220 

12$: 

MOVB 

R2,(R0)+ 

.•Transfer  the  character 

120  000356 

005701 

TST 

R1 

;Is  the  <CR><LF>  Flag  set? 

121  000360 

001 756 

BEQ 

10$ 

;No,  Not  at  the  end  of  a  line 

122  000362 

13$: 

POP 

R2 

.'Any  Space  Left  on  the  Line? 

123  000364 

003404 

BLE 

15$ 

;Nope.  skip  Fill 

124  000366 

1 1 2720 

000040 

14$: 

MOVB 

#CHRSPA,(RO)+ 

.-Move  in  a  Space 

125  000372 

SOB 

R2,14$ 

;And  Loop  to  Finish 

126  000376 

15$: 

PUSH 

(.SP) 

.•Restore  Count  of  Remaining 

127  000400 

005001 

CLR 

R1 

.•Clear  the  <CR><LF>  Flag 
.-Any  more  characters  left? 

128  00040? 

005703 

TST 

R3 

129  000404 

003344 

BGT 

10$ 

;Loop  for  New  Lines 

130  000406 

016516 

1 7777 t 

MOV 

SJ.VAL(SI) 

,(SP) 

:Sav/e  New  Data  Pointer 

131  000412 

016565 

^7777^ 

1 7777 t 

MOV 

SI.VAL+SI. 

LEN(SI), SI. VAL(SI)  ;Copy  OLd  Data  Pointer 

132  000420 

POP 

SJ.VAL^-SI. 

lEN(SI)  .-Restore  Data  Pointer 

133  000424 

CALL 

KILL 

;Die.  Die,  Die 

134  000430 

005726 

TST 

(SP)  + 

.•Skip  Garbage 

135  000432 

005726 

TST 

(SP)-»- 

;All  of  it 

136  000434 

-.37 

138  000436 

RETURN 

.•Finished! 

104403 

16$: 

WSFULL 

.•Workspace  cannot  hold  this 

BIT 
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c  13 

SYHBa 

TABLE 

ACO   = 

XOOOOOO 

CHRFRO= 

000135 

C.AL0C= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

AC1   = 

X000001 

CHRLBR= 

000073 

C.BLOIC= 

000064 

D.DECD= 

000002 

EIS       = 

000000 

AC2   = 

X000002 

CHRLPR= 

000072 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

AC3   = 

X000003 

CHRMNS= 

000137 

C.BUFF= 

177760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

AC^  -- 

XOGGOGA 

CHRMUL= 

000075 

C.BUFL= 

177762 

D.DQAD= 

177777 

EOF   = 

104475 

ACS   = 

XOOOOOS 

CHRNE6= 

000100 

C.CCNT= 

177766 

D.DROP= 

000002 

ERRMAX= 

000166 

ALLINT 

003274R 

025 

CHRPDL= 

000271 

C . CPTR= 

1 77764 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

ARYRET 

003276R 

025 

CHRPLU= 

000055 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

ASCQUO=  0000A2 

CHRPWR= 

000120 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.ALEN=  OOOOOA 

CHRQST= 

000121 

C.FASW= 

020000 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

A.ARG  = 

000040 

CHRQUO= 

000113 

C.FLEN= 

000010 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.ASB  = 

000200 

CHRRBR= 

000047 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.BITS= 

000003 

CHRRPR= 

000042 

C.FRC  = 

000001 

D.FPUT= 

000005 

FA.APD= 

000100 

A. CON  = 

000020 

CHRSEM= 

000074 

C.IDEN= 

000010 

D.GE  = 

000000 

FA.CRE= 

000010 

A.DIMS= 

000002 

CHRSMO= 

000112 

C.NAME= 

000102 

D.GT  = 

000000 

FA.DLK= 

001000 

A.DIM1  = 

000006 

CHRSPA= 

000040 

C.NOBF= 

000400 

D.I8M  = 

000002 

FA.ENB= 

100000 

A.NUM  = 

000006 

CHRUPA= 

000131 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.EXC= 

002000 

A.PTR  = 

000000 

CHR.BS= 

000010 

COP  = 

000004 

D.INNR= 

000013 

FA.EXT= 

000004 

A.TMP  = 

000010 

CHR.CC= 

000003 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.NSP= 

000100 

BADDIR= 

104463 

CHR.CR= 

000015 

C.RDLN= 

177776 

D.LE  = 

000000 

FA.NSR= 

000200 

BADERR= 

104437 

CHR.CZ= 

000032 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.POS= 

010000 

BLZBUB 

0051 16R 

025 

CHR.GT= 

000046 

C.RND  = 

000010 

D.LT  = 

000000 

FA.RD  = 

000001 

BRSELF 

005046R 

025 

CHR.LF= 

000012 

C.SBIT= 

177756 

D.MAX  = 

000000 

FA.RyO= 

004000 

CARVE  = 

******   GX 

CHR.LT= 

000043 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CCNT 

00S072R 

025 

CHR. Sl= 

00001 7 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C.SPLX= 

000001 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHANOO 

0O0256R 

025 

CHR.S0= 

000016 

C . SPRS= 

000002 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C.SRC  = 

177774 

D.NN  = 

000000 

FA  WRT= 

000002 

CHAN02 

000S12R 

025 

CHR.UL= 

000106 

C.SRCP= 

000024 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN03 

000674R 

025 

CHR . . A— 

000141 

C.TT  = 

000004 

D.OR  = 

000000 

FD.CCL= 

000002 

CHANCK 

0010S6R 

025 

CHR..E= 

000145 

C.WIDC= 

1 77770 

D.PLUS= 

000000 

FD.COM= 

020000 

CHANGS 

001240R 

025 

CHR . . S— 

000163 

C.WIDR= 

177772 

D.PSI,B= 

000006 

FD.CR  = 

000002 

CHAN06 

001422R 

025 

CHR..T= 

000164 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEFERR= 

104405 

D.QQAD= 

000000 

FD,FTN= 

000001 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEVIL 

0051 14R 

025  D.QUAD= 

000000 

FD.F11= 

040000 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD. ISP= 

00200U 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN12 

002676R 

025 

CMDBUF 

003250R 

025 

DIf'BLK 

0031 12R 

025  D.SCON=  000006 

FD.0SP= 

004000 

CHAN13 

000022R 

023 

CMDMAX= 

000010 

DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.PLC= 

000004 

CHANU 

000204R 

023 

CMPRSS 

OOOOOORG 

020 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN=  000004 

CHNOPN= 

104471 

CNTSJ2 

00ri30R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRAND= 

000051 

COMBIN 

005076R 

025 

DOMERR= 

104417 

D.T AKE= 

000002 

FD.RAH= 

000001 

CHRBEL= 

000007 

COMCNT 

0051 26R 

025 

DPTERR= 

104416 

D.TRAN=  000004 

FD.RAN= 

000002 

CHRBKR= 

000133 

COMERR= 

104425 

DYDCNT 

003224R 

025  D.UNaN=  C00006 

FD.REC= 

000001 

CHRBa= 

000200 

COMPTR 

0051 22R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RUM=  000001 

CHRBOX^ 

000114 

COMRTN 

0031 56R 

025 

D.BXCT= 

000007 

D.$MIN=  000000 

FD.SDI= 

000020 

CHRCMA= 

000054 

COMSKP 

0051 24R 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRCa= 

000076 

CORPTR 

005120R 

025 

D.3XNL= 

000007 

D.$PLU=  000000 

FD.TTY= 

000004 

CHRDEL= 

000107 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHRDIV= 

000053 

CS.BOC= 

000010 

D.expw= 

000007 

D.$SIB=  000000 

FF.CHR= 

00O005 

CHRDLR= 

000176 

CS.FLO= 

000020 

D.BXm.= 

000007 

D.1C0M=  000001 

FF.NV  = 

000003 

CHRDLT= 

000110 

CS.IDN= 

000040 

D.CiRC= 

000001 

D.1EXP= 

000002 

FF.POE^ 

000002 

CHRDOT= 

000056 

CS.ONE= 

000100 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHREP  = 

000105 

CTEPS 

0001 52R 

025 

D.COMP= 

000001 

EDI CHR 

005063R 

025  FF.RWF= 

000006 

CHRERR= 

104431 

CTMAX 

0002: ?R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF.SPC= 

000004 

CHRFIL= 

000177 

CTRMAX 

0001 72R 

025 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  F HE ADR 

00501 2R 

025 
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FHRET 

0050A0R 

025 

F.FNAM= 

000110 

HSHSIZ= 

000200 

MONBLK 

0031 20R 

025  M.RDCT= 

00001 1 

FILNTF= 

104467 

F.FNB  = 

000102 

KHAN 

005050R 

025  MONCVT 

0031 32R 

025  M.REVS= 

000003 

FIS   = 

000000 

F.FNDF= 

000010 

ILFNAM= 

10/' 464 

MONLEN 

0031 30R 

025  M.R0LL= 

000000 

FISCON= 

046000 

F.FTYP= 

000116 

ILLCHN= 

104540 

MONPTR 

0031 22R 

025  M.SATA= 

000001 

FIXPTR 

003074R 

025 

F.FLW  = 

000010 

ILLSW  = 

104565 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

FLAGS 

004764R 

025 

F.FVER= 

000120 

IMUL  = 

it-kick-k-k   GX 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FLCEUF 

003250R 

025 

F.HEAD= 

000006 

INDERR= 

104410 

MONVAL 

0031 34R 

025  M.SIGN= 

000000 

FLINE 

00501 4R 

025 

F.HIBK= 

000004 

INNTMP 

003250R 

025  M.ABS  = 

000000 

M.SI.RR= 

000001 

FLOEXP 

003270R 

025 

F.LBL  = 

000020 

INNTM2 

00501 6R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLONEG 

003272R 

025 

F.LINE= 

000012 

INPTR 

000064R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FLSWTB 

000222R 

025 

F.LOC  = 

000004 

INSNAM= 

104462 

M.BXCR= 

000007 

M.TRAN= 

000012 

FLTLEN=  000010 

F.LSTC= 

000004 

lOERR  = 

104477 

M.BXCT= 

000007 

M.$ABS= 

000000 

FNINSI 

005044R 

025 

F.LUN  = 

000042 

I.CNT  = 

1 7777 t 

M.BXEX-- 

000007 

M.$CEI= 

000000 

FORIGN 

000032R 

025 

F.MBCT= 

000054 

I. DIM  = 

1 77772 

M.BXFX= 

000007 

M.$FLR= 

000000 

FO.APD= 

000106 

F.MBC1  = 

000055 

I.LEN  = 

00001 2 

M.BXI0= 

000007 

M.$IDN= 

000000 

FO.MFY= 

000002 

F.MBFG= 

000056 

I.OERR= 

000062 

M.BXLC= 

000003 

M.$NEG= 

000000 

FO.RD  = 

000001 

F.MON  = 

000002 

I. OLD  = 

177770 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.UPO= 

000006 

F.NIL  = 

000001 

I.PTR  = 

1 7777  i. 

M.BXNL= 

000007 

M.1RDT= 

00001 1 

FO.WRT= 

000016 

F.NRBD= 

000024 

I. SIR  = 

1 77766 

M.BXPP= 

000007 

M.1REV= 

000003 

FPMOOE 

000042R 

025 

F.NREC= 

000030 

KILL  = 

•*••••  GX 

M.BXPW= 

000007 

M.1SCN= 

00001 1 

FPP   = 

000000 

F.OPN  = 

000010 

LABERR= 

104406 

M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FPPLEN= 

000004 

F.0V8S= 

000030 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FREBLK 

007400R 

025 

F.PREV= 

000000 

LARGBL 

0031 62R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

FUZZ 

0001 42R 

025 

F.PRNT= 

100000 

LARGCV 

0031 76R 

025  M.CEI  = 

^77777 

NB.NAM= 

000004 

FXPTR1 

003076R 

025 

F.PP0T= 

010000 

LAR6FL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

F$EVAL= 

000100 

F.RACC= 

000016 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

FSEVI  = 

000200 

F.RATT= 

000001 

LARGLN 

0031 66R 

025  M.DOUT= 

000006 

NB.SNM=  000040 

F$EXEC= 

000400 

F.RCNM= 

000034 

LAR6PT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$FUNC= 

001000 

F.RCTL= 

00001 7 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F.ACTL= 

000076 

F.READ-- 

004000 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F .ALOC= 

000040 

F.REDF= 

000040 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F.RRFS= 

000062 

F.RES  = 

000040 

LBINC 

0051 OOR 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.ROR  = 

000070 

F.RET  = 

M7172 

LBUFF 

00331 6R 

025  M.FIL  = 

000177 

ND.EXT= 

000002 

F.BGBC= 

000057 

F.RSIZ= 

000002 

LBUFLN=  000621 

M.FLR  = 

^77777 

ND.NAM=  000004 

F.BITS= 

1 //774 

F.RTYP= 

000000 

L COUNT 

0051 06R 

025  M.FMT  = 

000004 

ND.PPN= 

000100 

F.BICDN=  000026 

F.R2  = 

000014 

LENERR= 

104412 

M.6DUP= 

000003 

ND.$EX= 

000000 

F.BICDS= 

000020 

F.R3  = 

000016 

LENTAB 

000054R 

025  M.6DWN=  000003 

ND.$E$= 

000020 

F.BICEF= 

000050 

F.R4  = 

000020 

LEXPTR 

0031 OOR 

025  M.6ETI= 

000006 

ND.$M»1=  000000 

F.BKP1= 

000051 

F . SEQN= 

000100 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$= 

000040 

F.BICST= 

000024 

F . SPDV= 

000072 

LINC 

0051 02R 

025  M.IDN  = 

000000 

ND.$PN= 

001400 

F.BK\/B= 

000064 

F.SPUN= 

000074 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN 

005063R 

025 

F.BR  = 

000020 

F.STBK= 

000036 

LININC 

005026R 

025  M.IOTA= 

000000 

NINPT1 

003302R 

025 

F.CHR  = 

000075 

F.STK  = 

000022 

L\%\ll= 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F . CNT6= 

000034 

F.ST0P= 

000004 

LITOP 

005072R 

025  M.LN  = 

000001 

NINSTK 

003304R 

025 

F.CODE= 

000010 

F.STP  = 

000001 

LNLNG  = 

104541 

M.MMD  — 

000010 

NINTMP 

00331 OR 

025 

F.DF^B=  000046 

F.SUSP= 

000002 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINTYP 

003306R 

025 

F.DSPT= 

000044 

F.TRC  = 

000002 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

N0TAVL= 

104472 

F.DVW^  000134 

F.UNIT= 

000136 

LSTERP 

004766R 

025  M.NUB  = 

000006 

N0T0PN= 

104473 

F.EFBK= 

000010 

F.UR8D= 

000020 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

NPRT1 

004762R 

025 

F.EFN  = 

000050 

F.VAL  = 

1 7717 t 

L.BITS= 

000003 

M.OUTR= 

000012 

NULL 

007364R 

025 

F.EM)  = 

002000 

F.VBN  = 

000064 

L.CNT  = 

000002 

M. PI TM=  000000 

NUMCHN= 

000020 

F.EnRR= 

000032 

F.\/BSZ= 

000060 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

F.ERR  = 

000052 

GETC0R= 

••*•*•  QX 

L.PTR  = 

000000 

M.QQAD= 

000000 

NUMEFL 

003233R 

025 

F.FACC= 

000043 

GNOME 

0031 02R 

025  L.PTR1= 

000004 

M.QUAD= 

000000 

NUMESN 

003236R 

025 

F.FFBY= 

000014 

HASHC 

005136R 

025  L.SI.BS= 

000002 

M.RAND= 

000012 

NUMFLG 

003230R 

025 

F.FLAG= 

000002 

HASHTB 

0051 40R 

025  MACHIN= 

000106 

M.RAVL= 

000000 

NUMLEN 

000062R 

025 

F.FLB  = 

000100 

HSHMSK= 

177601 

MAXCHN= 

000014 

M.RCIP= 

000000 

NUMNEG 

003232R 

025 

CMPRSS 

MACRO  M1113  08- 

-FEB-80 

11:14  PAGE 
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E  1? 

SYMBOL 

TABLE 

NUMQFL 

00323AR 

025 

RANDY 

003062R 

025 

R.NEXT= 

000006 

SY.BRK= 

100000 

T.LIST= 

000400 

NIHRIG 

003231 R 

025 

RANERR= 

104411 

R.OFF  = 

000000 

SY.8S  = 

000010 

T.LIT  = 

000020 

M.nuiD 

003226R 

025 

RARGBL 

003204R 

025 

R.PREV= 

000004 

SY.CLR= 

000040 

T.MON  = 

000010 

NUMZFL 

003235R 

025 

RARGCV 

003220R 

025 

R.PTR  = 

000000 

SY.ERP= 

000020 

T.NIL  = 

0  0004 

NYIERR= 

10AA32 

RARGFL 

003202R 

025 

R.SEQ  = 

000003 

SY.N0U= 

000100 

T.NUM  = 

002000 

N.BLSZ= 

000036 

RARGLE 

00321 6R 

025 

R.VAR  = 

000002 

SY.OPN= 

000002 

T.0PFN= 

000001 

N.DESC= 

000020 

RARGLN 

00321  OR 

025 

R6 

X000006 

SY.PMT= 

001000 

T.0THR= 

040000 

N.DEV  = 

000032 

RARGPT 

003206R 

025  R7 

X000007 

SY.SRT= 

000400 

T.SOP  = 

000002 

N.DEVN=  00003^* 

RARGSF 

00321 4R 

025 

SI 

2000005 

SY.SVC= 

000004 

T.SPOP= 

000040 

N.DID  = 

000024 

RARGTY 

00321 2R 

025 

SIDAMN= 

104433 

SY.SVL= 

000200 

T.TMP  = 

000200 

N.DVM1=  000032 

RARGVA 

003222R 

025 

SIFRAM 

00331 4R 

025 

S.AB  = 

177776 

T.VAL  = 

100000 

N.EXT  = 

000014 

RBASE 

005074R 

025 

SISTAK 

006350R 

025 

S.ASB  = 

100000 

T.VAR  = 

001000 

N.FID  = 

000000 

RCOUNR 

0051 12R 

025 

SI  TOP 

006346R 

025 

S.BFHD= 

000020 

UPPER  = 

1 77400 

N.FNAM=  000006 

RCOUNT 

00511  OR 

025 

SITP 

0071 44R 

025 

S.BITS= 

000002 

UTNAME 

000344R 

023 

N.FTYP=  000014 

REDCNT 

005070R 

025 

SIWARN= 

000200 

S.CHR1= 

000003 

VALERR= 

104413 

N.FVER= 

000016 

REDIGN 

005066R 

025 

SIZTAB 

000044R 

025 

S.FATT= 

000016 

VARBLF 

007400R 

025 

N.NAME= 

000006 

REDOFF 

005072R 

025 

SI.BIT= 

177774 

S.FDB  = 

000140 

VARBLS 

OOOOOOR 

025 

N.NEXT= 

000022 

REENTR 

003060R 

025 

SI.LEN= 

1 77772 

S.FLB  = 

040000 

VERNUM 

OOOOOOR 

025 

N.PPN  = 

000024 

REGTYP= 

000001 

SI.RET= 

1 77772 

S.FNAM=  000006 

VRSION= 

000002 

N.STAT= 

000020 

RESBIT 

0031 42R 

025 

SI.VA.= 

1 77776 

S.FNB  = 

000036 

WIDTH 

000072R 

025 

N.UNIT= 

000034 

RESCVT 

0031 52R 

025 

SKPSU 

0051 34R 

025 

S.FNBW= 

000017 

WROUND 

000020R 

025 

nRUFLN= 

001000 

RESERR= 

104440 

Sr-HOLD 

000004R 

024 

S.FNTY= 

000004 

WSDATE 

0001 36R 

025 

OCHAN 

005052R 

025 

RESLEN 

0031 50R 

025 

SPINIJ 

000002R 

024 

S.FTYP= 

000002 

WSFULL= 

104403 

GMODE 

000402R 

023 

RESPTR 

0031 40R 

025 

STKINC= 

000774 

S.LEN  = 

000002 

WSNAME 

000074R 

025 

OPTMPO 

005066R 

025 

RESSFT 

0031 46R 

025 

STOP  = 

104420 

S.LINK= 

177774 

WSTIME 

0001 32R 

025 

0PTI»f>1 

005070R 

025 

RESTYP 

0031 44R 

025 

SIFCNT 

0031 04R 

025 

S.NFEN= 

000020 

$FIS  = 

••••••  Q 

0PTMP2 

005072R 

025 

RESULT 

0031 36R 

025 

SUBDCT 

0031 06R 

025 

S.TYPE= 

140000 

$FPP  = 

••••*•  Q 

0PTMP3 

005074R 

025 

RESVAL 

0031 54R 

025 

SIBPTR 

00311  OR 

025 

S.VAL  = 

000000 

$FPPLN= 

•*•••♦  Q 

0PTMP4 

005076R 

025 

RINC 

005104R 

025 

SY/»tB1 

005344R 

025 

TKDIMS 

005072R 

025  $MACHN= 

••••••  Q 

0PTMP5 

005100R 

025 

RLTBAS 

005066R 

025 

SYMF 

005340R 

025 

TKFRAM 

005066R 

025  $RSTS  = 

•  •••••  (5 

0PTMP6 

0051 02R 

025 

ROTINC 

005070R 

025 

SYMPT1 

005346R 

025 

TKLEFT 

005070R 

025  $RSX  = 

••••••  Q 

0PTMP7 

005104R 

025 

ROUND 

00001 OR 

025 

SYMTAB 

005352R 

025 

TMODE 

000403R 

023  $RT11  = 

•***••  Q 

0PTPP8 

005106R 

025 

ROVER 

00331 2R 

025 

SYMTBF= 

104404 

TMPTAG= 

000166 

.BOOLE= 

000002 

0PTMP9 

00511  OR 

025 

RSTS  = 

000000 

SYMTOP 

005350R 

025 

TTYBUF 

0041 40R 

025  .CHARA= 

000000 

OPTM10 

0051 12R 

025 

RSX   = 

000115 

SYMTP 

006272R 

025 

TTYLEN- 

000622 

.DEF.  = 

000002 

0PTW1A 

005026R 

025 

RTOP 

005070R 

025 

SYMWRN= 

000054 

TURKEY= 

104436 

.FLOAT= 

000006 

ORIGIN 

000030R 

025 

RT11   = 

000000 

SYNERR= 

1 04407 

TYPE  = 

000166 

.FSRCB= 

•*••**  Q 

OUTPTR 

000066R 

025 

R.BITS= 

000003 

SYSER  = 

•*••••  GX 

T.80L  = 

020000 

.INTEG= 

000004 

OVRQPR= 

000000 

R.FIX  = 

000001 

SYSERR= 

104402 

T.CON  = 

004000 

.MOLUN 

000404R 

023 

PATCH 

007344R 

025 

R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.DIM  = 

000100 

...GBL= 

000000 

PRECSN 

000052R 

025 

R.LN  = 

000002 

SY.BAD= 

000001 

T.FUN  = 

010000 

...TPC= 

000020 

RANDAC 

003064R 

025 

R.LNUM= 

000010 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

nONBTB 

000000 

006 

DYDBTB 

000000 

007 

COWTB 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

TRNTBL 

oooooc 

015 
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MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

000440 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEFSO 

000406 

023 

DEF$1 

000006 

024 

DEF$2 

007400 

025 

ERRORS 

DETECTED: 

0 

VIRTUAL  MEMORY  USED:   13004  WORDS   (  51  PAGES) 

DYNAMIC  MEMORY:   14478  WORDS   (  55  PAGES) 

ELAPSED  TIME:   00:01:57 

CMPRSS, DM1 :C305,30i:CMPRSS/-SP=APLRXl,APLDEF, CMPRSS, END 
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**FILE**1D*^ 

^CMPTRT 

CCCCCCCC 

pppppppp 

TTTTl 

rTTTTT 
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TTTTTTTTTT 

CCCCCCCC 

MM     MM 

pppppppp 

tttt; 

TTTTT 
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TTTTTTTTTT 

CC 

pp    pp 
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CC 
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pp    pp 

RR     RR 
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MM   MM   MM 

pp    pp 

RR     RR 

CC 
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CC 
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pppppppp 
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pp 
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MM      MM 

pp 
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pp 
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•  •  •  « 
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pp 
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CCCCCCCC 

MM      MM 
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■  •  •  • 

CCCCCCCC 

MM     MM 

pp 

RR      RR 

•  •  ■  • 

LL 

SSSSSSSS 

TTTTTTTrTT 

LL 

SSSSSSSS 

TTTTTTVTTT 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 
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2- 

14 
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2- 

15 
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17 

V2 

2- 
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19 
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20 

COPYRIGHT  (C) 
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2- 

21 
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2- 

22 

2- 

23 

2- 

24 

THIS  SOFTWARE 

IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A  SINGLE 

2- 

25 

COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE  INCLUSION  OF  THE  ABOVE 

2- 

26 

COPYRIGHT  NOTICE.   THIS  SOFTWARE,  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT 

2- 

27 

BE  PROVIDED  OR 

OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR 

2- 

28 

USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.                                       1 

2- 

29 

TITLE  TO  AND 

OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN 

2- 

30 

DEC. 

2- 

31 

2- 

32 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SI.BJECT  TO  CHANGE  WITHOUT  NOTICE 

2- 

33 

AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 

2- 

34 

CORPORATION. 

2- 

35 

2- 

36 

DEC  ASSUMES  NO 

RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF   ITS 

2- 

37 

SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC.                                                       1 

2- 

38 

2- 

39 

3- 
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DEFINITIONS 

ASSEMBLY  PARAMETERS 

4- 

139 
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OPERATOR  OVERLAYS 

5- 

268 

DEFINITIONS 
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6- 
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7- 

377 

DEFINITIONS 
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8- 

426 

DEFINITIONS 

SI  PARSE   FRAMES 

9- 

474 

DEFINITIONS 

TOKEN  DESCRIPTION  BITS 

10- 

515 
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11- 

580 

DEFINITIONS 
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607 

DEFINITIONS 

CHRTAB  BITS 
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624 
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SYSTEM  STATUS  BITS 
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640 
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F-FRAMES 
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724 
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807 
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ARRAY  STORAGE  BLOCK 

17- 

869 

DEFINITIONS 

LIST  STORAGE  BLOCK 

18- 

911 

DEFINITIONS 

INDEXING  STACK  FRAME 

19- 

940 

DEFINITIONS 

SYMBOL  TABLE  ENTRY 

2(h 

969 

DEFINITIONS 

CHANNEL  BLOCK 

22" 

1085 

DEFINITIONS 

RSX  DATA 

23' 

1110 

DEFINITIONS 

NAME  BLOCKS 

33- 

1612 

DEFINITIONS 

MACROS 

35- 

1905 
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36- 

1967 
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ERRORS 

44- 

4 

CMPTRT 

COMPUTE  RESULT  TYPE  FOR  CP 
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nr 


1 

000000 

2 

000000 

3 

0001 1 5 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EJS 
FIS 
FPP 

II  II  II 
ooo 

FPPLEN 

=  4 

DEBUG 

=  0 

;N0T  RT-11 
;N0T  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

;SINGLE  PRECISION 

; DON'T  DISPLAY  REGISTERS  ON  ERRORS 


CMPTRT 
APLDEF 


1 
2 
3 
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.S8TTL 
.IDENT 


TTT 


APLDEF 
\V02.03\ 


APL  MACRO  Ml  11 3     08-FEB-80  11:16     PAGE  A2 

DEFINITIONS  ERRORS 


ITTT 


2513 


.LIST     SEQ,SRC,LOC,BIN,BEX,MEB 


CMPTRT  MACRO 
DEFINITIONS 

1 
2 
3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 

37  000000 
38 

39  000000 

40  000000 

41  000002 

42  000006 
43 

44  000010 

45  000012 

46  000014 

47  000016 
48 
49 
50 
51 
52 
53 

54  000020 

55  000024 

56  000032 

57  000034 
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TU 


TITLE  CMPTRT 
IDENT  \V02.03\ 

SBTTL  CMPTRT 


COMPUTE  RESULT  TYPE  FOR  OP 


FUNCTIONAL  DESCRIPTION: 

This  routine  computes 
result,  and  result  data 
operators. 


the  intermediate  source,  intermediate 
types  for  Monadic  and  Dyadic  Scalar 


INPUTS: 
RO 
R2 
R4 


-  Bits  from  "DYDBTL"  or  'MONBTL" 

-  (Largest)  Source  Type 

-  Operator  Number 


IMPLICIT  INPUTS: 
NONE 


OUTPUTS: 
RO 
R1 
R2 
R4 


*  4 


-  Result  Intermediate  Type 

-  Result  Type 

-  Source  Intermediate  Type  *  4 

-  Operator  Number 


IMPLICIT  OUTPUTS: 


COMRTN 
RESTVP 
RESSFT 
RESLEN 
RESCVT 

SIDE  EFFECTS; 
NONE 


.PSECT  CODE 


-  Set  as  pointer  to  Compare  Routine 

-  Set  witn  the  Result  Type 

-  Result  shift  count 

-  Result  element  length 

-  Set  with  pointer  to  Result  store  routine 


010001 
042701 
060107 

000403 
000411 
000413 
000431 


CMPTRT: 


1 7777^ 


MOV 
BIC 
ADD 

BR 
BR 
BR 
BR 


RO  R1 

#^C<A.NUM>,R1 

R1,PC 

1$ 
2$ 
3$ 
6$ 


;get  bits 

.-setup  for  Case  Stmt 

;6o  to  it 

; comparison  op 

; Boo lean  Op 

; Integer/Floating  Op 

; Floating  Op 


012701  000002 

016237  OOOOOOG  003156' 

000240 

000437 


Comparison  Operation  -  .LT  .LE  .EQ  .GE  .GT  .NE 

Result,  Result  Intermediate  =  .BOOLEAN 
Source  Intermediate  =  R2 


1$; 


MOV  *. BOOLEAN, R1    ;Result  Type  is  Boolean 

MOV  C0MCT(R2),C0MRTN;Pointer  to  Compare  Routine 
NOP  ;Just  in  case  need  MOV  R2,R0 

BR  9$  ;Was  10$$ 
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58 
59 
60 
61 

62  000036 

63  OOOOAO 
6A  000042 
65 

66 
67 
68 
69 
70 
71 


Boolean  Operation  -  .AN  .OR  .NN   .NR  .NT 

Result,  Result  Intermediate,  Source  Intermediate  =  .BOOLEAN 


005702 
001461 
000433 


5$: 


TST 

R2 

BEQ 

11$ 

BR 

8$ 

; Source  Literal? 
;Yes,  DOMAIN  ERROR 


Integer/Floating  Operation  -        •♦•  -  x  .FL  .CE  .AB 
This  one  is  non-obvious  to  me,  and  I  wrote  it! 


000044 
00OOA6 
000050 

72  000052 

73  000054 

74  000060 
000062 


75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 


000064 
000070 
000072 
000074 
000076 
0001 00 


005702 
001456 
020102 
002404 
032700 
001424 
000414 

032700 
001001 
010201 
010200 
005404 
000416 


%%: 


000010 


000020 


4$; 


5$; 


TST 

R2 

BEQ 

11$ 

CMP 

R1,R2 

BLT 

4$ 

BIT 

*CS.BOOL,RC 

BEQ 

8$ 

BR 

7$ 

BIT 

#CS. FLOAT, RO 

BNE 

5$ 

MOV 

R2,R1 

MOV 

R2,R0 

NEG 

R4 

BR 

10$ 

; Source  Literal? 

;Yes,  DOMAIN  ERROR 

;Is  source  Integer  or  Boolean? 

;no,  special  for  Float 

;How  about  the  Result? 

; Can't  Be  Boolean 

;Yes,  it  can 

;Do  we  want  to  try  an  Integer  result? 

;Yes,  do  so 

;No,  result  is  .FLOAT 

; Source  Intermediate  is  Float 

; Operator  Number  negated 


000102 
000104 
000106 
000112 

92  000114 

93  000120 
000122 
000124 
000126 
000130 


9A 

95 

96 

97 

98 

99  000132 
100 

101  000134 
102 

103  000136 

104  000140 

105  000142 

106  000144 

107  000146 

108  000152 

109  000160 

110  000166 

111  000170 

112  000176 

113  000202 
114 


005702 
001437 
032700 
001407 
020227 
001004 
010100 
010201 
010002 
000402 

010102 

010100 

006302 
006302 
006300 
006300 
010137 
016137 
016137 
060001 
016137 
013701 


Floating  Operation  -  X  *  .LG  .LO  .' 

Result  is  .FLOAT  (or  maybe  .BOOLEAN  -  special  case) 
Result  Intermediate,  Source  Intermediate  =  .FLOAT 


000010 
000002 


6$; 


7$; 


8$: 
9$: 

10$; 


003144' 

000044'  003146' 
000054'  003150' 

OOOOOOG  003152' 
003144' 


TST 
BEQ 
BIT 
BEQ 
CMP 
BNE 
MOV 
MOV 
MOV 
BR 

MOV 

MOV 

ASL 
ASL 
ASL 
ASL 
MOV 
MOV 
MOV 
ADD 
MOV 
MOV 
RETURN 


R2 

11$ 

4fCS.BOOL,R0 

8$ 

R2,/!^. BOOLEAN 

8$ 

R1,R0 

R2,R1 

R0,R2 

10$ 

R1,R2 

R1,R0 


;Literal  Source? 

;Yes,  DOMAIN  ERROR 

; Weird  Case  of  Boolean  Sources 

;Nope,  no  special  bit 

;Boolean  Sources? 

;Nope 

;Result  Intermediate 

; Result  is  Boolean 

; Source  Intermediate  is  FLOAT 


; Source  Intermediate 
; Result  Intermediate 


R2 
R2 
RO 
RO 
R1,RESTYP 


Source  Intermediate 

times  4 
Result  Intermediate 

times  4 
Save  result  type 
SIZTAB(R1),RESSFT  ;RESULT  SHIFT  CONSTANT 
LENTAB(R1),RESLEN  .-RESULT  LENGTH  CONSTANT 
R0,R1         ; Compute  array  pointer 
RESCT(R1),RESCVT;Sa\/e  pointer  to  Store  Routine 
RESTYP,R1      .-Restore  Result  Type 

; Finished  I 
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c  U 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

C.ALOC= 

000''62 

D.DEAL= 

000003 

EDIT  = 

000003 

AC1   = 

X000001 

CHRLPR= 

000072 

C.8L0K= 

000064 

D.DECD= 

000002 

EIS   = 

000000 

AC2   = 

X000002 

CHRMNS= 

000137 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

AC3   = 

X000003 

CHRMUL= 

000075 

C.BUFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

OC0004R 

025 

AC4   = 

XOOOOOA 

CHRNE6= 

000100 

C.BUFL= 

1 77762 

D.DQAD= 

1 77777 

EOF   = 

104475 

ACS   = 

X000005 

CHRPDL= 

000271 

C.CCNT= 

177766 

D.DROP= 

000002 

ERRMAX= 

000166 

ALLINT 

00327AR 

025 

CHRPLU= 

000055 

C.CPTR= 

1 77764 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

ASCQUO=  0000A2 

CHRQST= 

000121 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.ALEN=  OOOOOA 

CHRQUO= 

000113 

C . F ASW= 

020000 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

A. ARC  = 

OOOOAO 

CHRR8R= 

000047 

C.FLEN= 

000010 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.ASB  = 

000200 

CHRRPR= 

000042 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.BITS= 

000003 

CHRSEM= 

000074 

C.FRC  = 

000001 

D.FPUT= 

000005 

FA.APD= 

000100 

A. CON  = 

000020 

CHRSMO= 

0001 1 2 

C.IDEN= 

000010 

D.6E  = 

000000 

FA.CRE= 

000010 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.NAME= 

000102 

D.6T  = 

000000 

FA.DLK= 

001000 

A.DIM1= 

000006 

CHRUPA= 

000131 

C.N0BF= 

000400 

D.IBM  = 

000002 

FA.  E^B= 

100000 

A.NUM  = 

000006 

CHR.BS= 

000010 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.EXC= 

002000 

A.PTR  = 

000000 

CHR.CC= 

000003 

COP  = 

000004 

D.INNR= 

000013 

FA.EXT= 

000004 

A. IMP  = 

000010 

CHR.CR= 

000015 

C.OPN  = 

010000 

D.INTR= 

000006 

^kM%?^ 

000100 

BADDIR= 

104463 

CHR.CZ= 

000032 

C.RDLN= 

1 77776 

D.LE  = 

000000 

FA.NSR= 

000200 

BADERR= 

104437 

CHR.6T= 

000046 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.POS= 

010000 

BLZBUB 

0051 16R 

025 

CHR.LF= 

000012 

C.RND  = 

000010 

D.LT  = 

000000 

FA.RD  = 

000001 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.S8IT= 

177756 

D.MAX  = 

000000 

FA.RWD= 

004000 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C.SPFv= 

000100 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C . SPLX= 

000001 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C . SPRS= 

000002 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN02 

0005 12R 

025 

CHR.UL= 

000106 

C.SRC  = 

^77771^ 

D.NN  = 

000000 

FA.WRT= 

000002 

CHAN03 

000674R 

025 

CHR..A= 

000141 

C.SRCP= 

000024 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.TT  = 

000004 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN05 

001240R 

025 

CHR..S= 

000163 

C.WIDC= 

177770 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN06 

001422R 

025 

CHR..T= 

000164 

C.WIDR= 

1 77771 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.FTN=  000001 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DEVIL 

005114R 

025  D.QUAD= 

000000 

FD.F11= 

040000 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN12 

002676R 

025 

CMD8UF 

003250R 

025 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN13 

000022R 

023 

CMDMAX= 

000010 

DIMBLK 

0031 12R 

025  D.SCON= 

000006 

FD.0SP= 

004000 

CHAN14 

000204R 

023 

CMPTRT 

OOOOOORG 

020 

DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.PLC= 

000004 

CHNOFI^ 

104471 

CNTSIZ 

0051 30R 

025 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN=  000004 

CHRAND= 

000051 

COMBIN 

005076R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRBEL= 

000007 

COMCNT 

005126R 

025 

DOMERR= 

104417 

D.TAKE- 

000002 

FD.RAH= 

000001 

CHRBKR= 

000133 

COMCT  = 

♦•••*•  QX 

DPTERR= 

104416 

D.TRAN= 

000004 

FD.RAN= 

000002 

CHRBa= 

000200 

COMERR= 

104425 

DYUCNT 

003224R 

025  D.UN0N= 

000006 

FD.REC= 

000001 

CHRB0X= 

000114 

COMPTR 

0051 22R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RW1=  000001 

CHRC*IA= 

000054 

COMRTN 

0031 56R 

025 

D.BXCT= 

000007 

D.$MIN= 

000000 

FD.SDI= 

000020 

CHRCa= 

000076 

COMSKP 

005124R 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRDEL= 

000107 

CORPTR 

0C5120R 

025 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.TTY= 

000004 

CHRDIV= 

000053 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHRDLR= 

000176 

CS.BOO= 

000010 

D.BXPW= 

000007 

D .  $SUB= 

000000 

FF.CHR= 

000005 

CHRDLT^ 

000110 

CS.FLO= 

000020 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.NV  = 

000003 

CHRD0T= 

000056 

CS.JDN= 

000040 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.POE= 

000002 

CHREP  = 

000105 

CS.ONE= 

000100 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHRERR= 

104431 

CTEPS 

0001 52R 

025 

D.COMP= 

000001 

EDICHR 

005063R 

025  FF.RWF= 

000006 

CHRFIL= 

000^77 

CTMAX 

00021 2R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF.SPC= 

000004 

CHRFR0= 

000135 

CTRMAX 

0001 72R 

025 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  FHEADR 

00501 2R 

025 

CMPTRT 
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FABLE 

FHRET 

0050A0R 

025 

F.FNAM= 

000110 

I  CHAN 

005050R 

025  MONPTR 

0031 22R 

025  M.SATA= 

000001 

F1LNTF= 

10A467 

F.FNB  = 

000102 

ILFNAM= 

1 04464 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

FIS   = 

000000 

F.FNDF= 

000010 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FISCON= 

0A6000 

F.FTYP= 

000116 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SI6N= 

000000 

FIXPTR 

003074R 

025 

F.FUN  = 

000010 

INDERR= 

104410 

M.ABS  = 

000000 

M.SU8R= 

000001 

FLAGS 

00A76AR 

025 

F.FVER= 

0001. "^0 

INNTMP 

003250R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLCBUF 

003250R 

025 

F.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FLINE 

00501 AR 

025 

F.HIBK^ 

000004 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN= 

00001 2 

FLOEXP 

003270R 

025 

F.LBL  = 

000020 

INSNAM= 

104462 

M.BXCT= 

000007 

M.$ABS= 

000000 

FLONEG 

003272R 

025 

F.LINE= 

000012 

lOtRR  = 

104477 

M.BXEX= 

000007 

M.$CEI= 

000000 

FLSWTB 

000222R 

025 

F.LOC  = 

000004 

I.CNT  = 

1 7777 t 

M.BXFX= 

000007 

M.$FLR= 

000000 

FLTLEN= 

000010 

F.LSTC= 

000004 

I. DIM  = 

1 77772 

M.BXIO= 

000007 

M.$IDN= 

000000 

FNINSI 

0050AAR 

025 

F.LUN  = 

000042 

I.LEN  = 

000012 

M.BXLC= 

000003 

M.$NEG= 

000000 

FORIGN 

000032R 

025 

F.MBCT= 

000054 

I . OERR= 

000062 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.APD= 

000106 

F.MBC1= 

000055 

I. OLD  = 

177770 

M.BXNL--^ 

000007 

M.1RDT= 

00001 1 

FO.MFY= 

000002 

F.MBF6= 

000056 

I.PTR  = 

1 7777 ^ 

M.BXPP= 

000007 

M.1REV= 

000003 

FO.RD  = 

000001 

F.MON  = 

000002 

I. SIR  = 

1 77766 

M.BXPW= 

000007 

M.1SCN= 

00001 1 

FO.UPD= 

000006 

F.NIL  = 

000001 

LABbRR= 

1 04406 

M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FO.WRT= 

000016 

F.NRBD= 

000024 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FPWOOE 

0000A2R 

025 

F.NREC= 

000030 

LARGBL 

0031 62R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

FPP   = 

000000 

F.OPN  = 

000010 

LAR6CV 

0031 76R 

025  M.CEI  = 

^77777 

NB.NAM= 

000004 

FPPLEN= 

OOOOOA 

F.OVBS= 

000030 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FREBL< 

007400R 

025 

F.PREV= 

000000 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

FUZZ 

000K2R 

025 

F.PRNT= 

100000 

LARGLN 

0031 66R 

025  M.DOUT= 

000006 

NB.SNM= 

000040 

FXPTR1 

003076R 

025 

F.PROT= 

010000 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$EVAL= 

000100 

F.RACC= 

000016 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

FSEVI  = 

000200 

F.RATT= 

000001 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F$EXEC= 

000400 

F.RCNM= 

000034 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F$F UNC= 

001000 

F.RCTL= 

00001 7 

L8INC 

0051 OOR 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.ACTL= 

000076 

F.READ= 

004000 

LBUFF 

00331 6R 

025  M.FIL  = 

0001 77 

ND.EXT= 

000002 

F.ALOC= 

000040 

F.REDF= 

000040 

LBUFLN= 

000621 

M.FLR  = 

V7777 

ND.NAM=  000004 

F.RRFS= 

000062 

F.RES  = 

000040 

LCOUNT 

005106R 

025  M.FMT  = 

000004 

ND.PPN= 

000100 

F.BDB  = 

000070 

F.RET  = 

^77772 

LENERR= 

104412 

M.GDUP= 

000003 

ND.$EX= 

000000 

F.BGBC= 

000057 

F.RSIZ= 

000002 

LENTAB 

000054R 

025  M.GDUN= 

000003 

ND.$E$= 

000020 

F.BITS= 

1 7777^ 

F.RTYP= 

000000 

LEXPTR 

0031 OOR 

025  M.6ETI= 

000006 

ND.$M1= 

000000 

F.BKDN=  000026 

F.R2  = 

000014 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$= 

000040 

F.BKDS= 

000020 

F.R3  = 

000016 

LINC 

0051 02R 

025  M.IDN  = 

000000 

ND.$PN= 

001400 

F.BICEF= 

000050 

F.R4  = 

000020 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN 

005063R 

025 

F.BKP1= 

000051 

F.SEQN= 

000100 

LININC 

005026R 

025  M.IOTA= 

000000 

NINPT1 

003302R 

025 

F.BKST= 

000024 

F . SPDV= 

000072 

LISIZE= 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.BK\/B= 

000064 

F.SPUN= 

000074 

LITOP 

005072R 

025  M.LN  = 

000001 

NINSTK 

003304R 

025 

F.BR  = 

000020 

F.STBK= 

000036 

LNLNG  = 

104541 

M.MMD  = 

000010 

NINTMP 

00331  OR 

025 

F.CHR  = 

000075 

F.STK  = 

000022 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINTYP 

003306R 

025 

F.CNT6=  00003A 

F.STOP= 

000004 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

NOTAVL= 

104472 

F.C00E= 

000010 

F.STP  = 

000001 

LSTERP 

004766R 

025  M.NUB  = 

000006 

N0T0PN= 

104473 

F.DF^e= 

000046 

F.SUSP= 

000002 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

NPRT1 

004762R 

025 

F.DSPT= 

000044 

F.TRC  = 

000002 

L.BITS= 

000003 

M.OUTR= 

000012 

NULL 

007364R 

025 

f.O\/m=   000134 

F,UNIT= 

000136 

L.CNT  = 

000002 

M.PITM= 

000000 

NUMCHN= 

000020 

f.EFBK= 

000010 

F.URBD= 

000020 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

F.EFN  = 

000050 

F.VAL  = 

177776 

L.PTR  = 

000000 

M.QQAD:^ 

000000 

NUMEFL 

003233R 

025 

F.END  = 

002000 

F.VBN  = 

000064 

L.PTR1= 

000004 

M.QUAD= 

000000 

NUMESN 

003236R 

025 

F.EnRR= 

000032 

F.VBSZ= 

000060 

L.SUBS= 

000002 

M.RAND= 

000012 

NUMFLG 

003230R 

025 

F.ERR  = 

000052 

GNOME 

0031 02R 

025  MACHIN= 

000106 

M.RAVL= 

000000 

NUMLEN 

000062R 

025 

F.fACC= 

000043 

HASHC 

005136R 

025  MAXCHN= 

000014 

M.RCIP= 

000000 

NUMNEG 

003232R 

025 

F.FFBY= 

000014 

HASHTB 

005140R 

025  MONBLK 

0031 20R 

025  M.RDCT= 

00001 1 

NUMQFL 

003234R 

025 

F.FLAG= 

000002 

HSHMSK= 

177601 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

NUMRIG 

003231 R 

025 

F.FLB  = 

000100 

HSHSIZ= 

000200 

MONLEN 

0031 30R 

025  M.ROLL= 

000000 

NUMWID 

003226R 

025 

CMPTRT 
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SYMBOL 

TABLE 

NUM2FL 

003235R 

025 

RARGBL 

003204R 

025  R.OFF  = 

000000 

SY.CLR= 

000040 

T.LIT  = 

000020 

NYIERR= 

10A432 

RAR6CV 

003220R 

025 

R.PREV= 

000004 

SY.ERP= 

000020 

T.MON  = 

000010 

N.BLS2= 

000036 

RAR6FL 

003202R 

025  R.PTR  = 

000000 

SY.NOU= 

000100 

T.NIL  = 

000004 

N.DESC= 

000020 

RAR6LE 

00321 6R 

025  R.SEQ  = 

000003 

SY.OPN= 

000002 

T.NUM  = 

002000 

N.DEV  = 

000032 

RARGLN 

00321 OR 

025  R.VAR  = 

000002 

SY.PMT= 

001000 

T.0PFN= 

000001 

N.DEVN= 

00003A 

RARGPT 

003206R 

025 

R6 

Z000006 

SY.SRT= 

000400 

T.0THR= 

040000 

N.DID  = 

000024 

RARGSF 

00321 4R 

025  R7 

X000007 

SY.SVC= 

000004 

T.SOP  = 

000002 

N.D\/^f1=  000032 

RARGTY 

00321 2R 

025 

SI 

X000005 

SY.SVL= 

000200 

T.SP0P= 

000040 

N.EXT  = 

000014 

RARGVA 

003222R 

025 

SIDAMN= 

104435 

S.AB  = 

177776 

T.TMP  = 

000200 

N.FID  = 

000000 

RBASE 

005074R 

025 

SIFRAM 

00331 4R 

025 

S.ASB  = 

100000 

T.VAL  = 

100000 

N.FNAf1=  000006 

R^OUNR 

005112R 

025 

SISTAK 

006350R 

025 

S.BFHD= 

000020 

T.VAR  = 

001000 

N.FTYP= 

000014 

RCOUNT 

005 11 OR 

025 

SI  TOP 

006346R 

025 

S.8ITS= 

000002 

UPPER  = 

1 77400 

N.FVER= 

000016 

REDCNT 

005070R 

025 

SITP 

0071 44R 

025 

S.CHR1= 

000003 

UTNAME 

000344R 

023 

N.NA^E= 

000006 

REDIGN 

005066R 

025 

SIWARN= 

000200 

S.FATT= 

000016 

VALERR= 

104413 

N.NEXT= 

000022 

REDOFF 

005072R 

025 

SIZTA8 

000044R 

025 

S.FDB  = 

000140 

VARBLE 

007400R 

025 

N.PPN  = 

000024 

REENTR 

003060R 

025 

SI.8IT= 

1 7777£, 

S.FLB  = 

040000 

VARBLS 

OOOOOOR 

025 

N.STAT= 

000020 

RES8IT 

0031 42R 

025 

SI.LEN= 

\77772 

S.FNAM= 

000006 

VERNUM 

OOOOOOR 

025 

N.UNIT= 

000034 

RESCT  = 

•••••*  GX 

SI.RET= 

1 77772 

S.FNB  = 

000036 

VRSION= 

000002 

OBUFLN= 

001000 

RESCVT 

0031 52R 

025 

SI.VAL= 

1 7777 t 

S.FNBW= 

00001 7 

WIDTH 

000072R 

025 

OCHAN 

005052R 

025 

RESERR= 

104440 

SKPSI2 

0051 34R 

025 

S.FNTY= 

000004 

UROUND 

000020R 

025 

OMODE 

000402R 

023  RESLEN 

0031 50R 

025 

SPHOLD 

000004R 

024 

S.FTYP= 

000002 

WSDATE 

0001 36R 

025 

OPTMPO 

005066R 

025 

RESPTR 

0031 40R 

025 

SPINIT 

000002R 

024 

S.LEN  = 

000002 

WSFULL= 

104403 

0PTMP1 

005070R 

025 

RESSFT 

0031 46R 

025 

STKINC= 

000774 

S.LINK= 

177774 

USNAME 

000074R 

025 

0PTMP2 

005072R 

025 

RESTYP 

0031 44R 

025 

STOP  = 

104420 

S.NFEN= 

000020 

WSTIME 

0001 32R 

025 

OPJHP'5 

005074R 

025 

RESULT 

0031 36R 

025 

SUBCNT 

0031 04R 

025 

S.TYPE= 

140000 

$FIS  = 

••••••  G 

0PTMP4 

005076R 

025 

RESVAL 

0031 54R 

025 

SUBDCT 

0031 06R 

025 

S.VAL  = 

000000 

%f9P     = 

•••***  Q 

0PTIV>5 

0051 OOR 

025 

RINC 

005104R 

025 

SIRPTR 

00311  OR 

025 

TKDIMS 

005072R 

025  %^??\J^ 

••*•••  G 

0PTrf>6 

0051 02R 

025 

RLTBAS 

005066R 

025 

SY^B1 

005344R 

025 

TKFRAM 

005066r 

025  $MACHN= 

••••••  G 

OPTCFZ 

0051 04R 

025 

ROTINC 

005070R 

025 

SYMF 

005340R 

025 

TKLEFT 

005070f. 

025  $RSTS  = 

••*•••  G 

0PTMP8 

0051 06R 

025 

ROUND 

00001  OR 

025 

SYMPT1 

005346R 

025 

TMODE 

000403R 

023  $RSX  = 

*•••••  G 

0PTI1F>9 

00511  OR 

025 

ROVER 

00331 2R 

025 

SYMTA8 

005352R 

025 

TMPTA6= 

000166 

$RT11  = 

*••**•  G 

OPTMIO 

0051 12R 

025 

RSTS  = 

000000 

SYMTBF= 

104404 

TTYBUF 

004140R 

025  .BOOLE= 

000002 

0PTM1A 

005026R 

025 

RSX   = 

000115 

SYMTOP 

005350R 

025 

TTYLEN= 

000622 

.CHARA= 

000000 

ORIGIN 

000030R 

025 

RTOP 

005070R 

025 

SYMTP 

006272R 

025 

TURKEY= 

104436 

.DEF.  = 

000002 

OUTPTR 

000066R 

025 

RT11  = 

000000 

SYMWRN= 

000054 

TYPE  = 

000166 

.FLOAT= 

000006 

OVROPR= 

000000 

R.BITS= 

000003 

SYNERR= 

104407 

T.BOL  = 

020000 

.FSRCB= 

••*•*•  G 

PATCH 

007344R 

025 

R.FIX  = 

000001 

SYSERR= 

104402 

T.CON  = 

004000 

.INTE6= 

000004 

PRECSN 

000052R 

025 

R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.DIM  = 

000100 

.MOLUN 

000404R 

023 

RANDAC 

003064R 

025 

R.LN  = 

000002 

SY.BAD= 

000001 

T.FUN  = 

010000 

...GBL= 

000000 

RANDY 

003062R 

025 

R.LNUM= 

000010 

SY.BRK= 

100000 

T.LIST= 

000400 

...TPC= 

000020 

RANERR= 

104411 

R.NEXT= 

000006 

SY.BS  = 

00C010 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

nONBTB 

000000 

006 

DYDBTB 

000000 

007 

COWTB 

000000 

010 

CHRTBL 

000000 

011 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 

WNTBL 

000000 

016 

F  1A 
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ERRORS  DETECTED: 
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A 
5 
6 
7 
8 
9 
10 
11 


000000 
000000 
0001 1 5 

000000 
000000 
000000 

000004 

000000 


RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
FIS 
FPP 

II  It  II 
ooo 

FPPLEN 

=  A 

DEBUG 

=  0 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;NG  FIS 
;N0  FPP 

;SINGLE  PRECISION 

; DON'T  DISPLAY  REGISTERS  ON  ERRORS 
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2  .IDENT     \V02.03\ 
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DEFINITIONS 

ERRORS 

1 

.TITLE 

COMAND 

2 

.IDENT 

\V02.03\ 

4 
5 

.S8TTL 

COMAND 

COMMAND  DISPATCHER 

'r 

1 
1 

;  FUNCTIONAL  DESCRIPTION: 

8 

1 

'COMAND 

'  IS  CALLED  BY  'EXEC  WHEN  A  RIGHT  PARENTHESIS 

9 

1 

IS  FOUND  AT  THE  START  OF  A  LINE  OF  INPUT.  ALL  COMMANDS 

10 

ARE  ENTERED  IN  THE  COMMAND  TABLE  AS  SYMBOLS,  SO  ALL  THIS 

11 

1 

ROUTINE 

HAS  TO  DO  IS  TO  LOOK  UP  THE  SYMBOL  AND  CHECK  TO 

12 

1 

SEE  THAT  IT  REALLY  IS  A  COMMAND.   THEN  ALL  THAT  IS 

13 
1A 
15 

4 

REQUIRED  IS  TO  BRANCH  TO  THE  PROPER  COMMAND 

1 
1 

;  CALLING  SEQUENCE: 

16 
17 
18 

< 

CALL 

COMAND         .-Only  from  'EXEC 

1 
1 

;  INPUTS: 

19 

I 

RO 

-  INPUT  CHAR  POINTER 

20 
21 
22 

1 

R1 

-  INPUT  CHAR  COUNT 

4 

;  ROUTINES  CALLED: 

23 

4 

CARVE 

-  Clean  up  the  result  Character  data 

24 

t 

for  Execution  Frames. 

25 

t 

PKILL 

-  Kill  Parse  Frames  on  SI 

26 
27 
28 
29 
30 

< 

SETBIG 

-  Get  space  for  result  of  Execution  Frame 

1 
1 

and  all 

the  various  command  routines 

i 
1 

;  SIDE 

EFFECTS: 

31 
32 
33 
34 
35 

1 

NO  REGISTERS  ARE  PRESERVED  THROUGH  THIS  ROUTINE 

000000 

» 

.PSECT 

CODE 

000000 

COMAND: 

• 

36 

000000 

010004 

MOV 

R0,R4          ;COPY  INPUT  POINTER 

37  000002 

010103 

MOV 

R1,R3          ;COPY  INPUT  COUNT 

38  000004 

032737 

000400 

004764' 

BIT 

#F$EXEC, FLAGS   .'EXECUTION  FRAME? 

39  000012 

001416 

BEQ 

13$            ;NOPE 

40  000014 

PUSH 

<CHANEX,OCHAN,CHANEX+C.CCNT,CHANEX+C.CPTR> 

41 

;SAVE  OUTPUT  POINTERS 

42 

000034 

105037 

000403 • 

CLRB 

TMODE          ;SET  APL  OUTPUT  MODE  (NECESSARY!) 

43  000040 

CALL 

SETBIG         ;SET  UP  TO  STORE  OUTPUT 

44 

000044 

062705 

1 77772 

ADD 

*SI.LEN,SI      ;AND  CLEAH  FRAME  FROM  SI  STACK 

45  000050 

005000 

13$: 

CLR 

RO            ;N0  CHR'S  FOR  NAME  YET 

46  000052 

012701 

003250' 

MOV 

#CMDBUF,R1      .-POINT  TO  COMMAND  BUFFER 

47  000056 

1$: 

GETC 

3$            ;GET  A  CHARACTER 

000056 

005303 

DEC  R3 

;ANY  CHARACTERS  LEFT? 

000060 

002466 

BLT  3$ 

:N0.  BRANCH  TO  3$ 

000062 

112402 

M0V8  (R4)"»-,R2                ;YES,  GET  NEXT  CHAR                            1 

48  000064 

042702 

1 77400 

BIC 

#UPPER.R2      ;KILL  GARBAGE  BITS 

49  000070 

132762 

000010 

OOOOOOG 

BITS 

^C.IDEN.  CHRTAB(R2);IDENTIFIER? 

50  000076 

001006 

BNE 

2$            ;YES.  GET  THE  COMMAND 

51 

000100 

122702 

000040 

CMPB 

*CHRSPA.R2      ;ELSE  WAS  IT  A  SPACE? 

52 
53 
54 

000104 

001 764 

BEQ 

1$            ;YES.  JUST  IGNORE  IT 

000106 

5$: 

GETC 

7$            ;GET  A  CHARACTER 
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000106 

005303 

DEC  R3 

;ANY  CHARACTERS  LEFT? 

000110 

002425 

BLT  7$ 

i 

;N0,  BRANCH  TO  7$ 

000112 

1 1 2402 

MOVB  (R4)+,R2 

;yES,  GET  NEXT  CHAR 

55  00011 A 

042702 

1 77400 

2$: 

BIC 

/fUPPER,R2 

;MAKE  8  BIT  CHR 

56  000120 

120227 

OOOOOOG 

CMP8 

R2,#CHRULA 

; GREATER  THEN  UNDERLINE  'A' 

57  0001 2A 

103405 

BLO 

6$ 

;N0 

58  000126 

120227 

OOOOOOG 

CMPB 

R2,#CHRULZ 

jLESS  THAN  UNDERLINE  'Z'? 

59  000132 

101002 

BHI 

6$            . 

:N0 

60  0001 3A 

162702 

1 77637G 

SUB 

/fCHRULA-CHR..A,R2;MAKE  UPPERCASE  LETTERS 

61  000140 

132762 

00001 0  OOOOOOG 

6$: 

BITS 

/yC.IDEN,CHRTAB(R2);IS  IT  AN  IDENTIFIER? 

62  000146 

001406 

BEQ 

7$ 

;N0,  END  OF  COMMAND 

63  000150 

110221 

M0V8 

R2,(R1)^- 

;SAVE  IT 

64  000152 

005200 

INC 

RO 

; COUNT  A  CHR 

65  000154 

020027 

00001 0 

CMP 

RO,#CMDMAX 

^BUFFER  FULL? 

66  000160 

101752 

BLOS 

5$ 

;N0 

67  000162 

68 

69  000164 

000425 

BR 

3S 

;YES 

7$: 

PUSH 

<R2, R3,R4> 

;SAVE  THE  LAST  CHR  AND  POINTERS 

70  000172 

71 

72  000176 

012702 

000001 • 

MOV 

#CMDNAM,R2 

'^P^IH^   TO  TABLE  OF  COMMAND  NAMES 

1 22200 

8$: 

CMP8 

(R2)+, RO 

;SAME  LEN? 

73  000200 

001011 

BNE 

10$ 

;N0 

74  000202 

010203 

MOV 

R2,R3 

;COPY  POINTER 

75  000204 

010004 

MOV 

R0,R4 

;COPY  COUNT 

76  000206 

012701 

003250' 

MOV 

#CMDBUF,R1 

; POINT  TO  COMMAND  JUST  FOUND 

77   000212 

122321 

9$: 

CMP8 

(R3)+,(R1)+ 

;SAME? 

78  000214 

001003 

BNE 

10$ 

;N0 

79  000216 

SOB 

R4,9$ 

;TEST  ALL  CHR'S 

80  000222 

81 

82  000224 

000406 

BR 

CMDl 

; MATCH!!  WE  FOUND  IT!! 

116203 

1 77777 

10$: 

MOVB 

-1(R2),R3 

;GET  COMMAND  LENGTH 

83  000230 

060302 

ADD 

R3,R2 

;NEXT  COMMAND 

84  000232 

105722 

TST8 

{R2)^ 

;MORE  COMMANDS? 

85  000234 

001360 

BNE 

8$ 

;YES! 

86  000236 

87 

^   000240 

104425 

3$: 

COMERR 

; COMMAND  ERROR 

116200 

1 7777 t 

CMDl : 

MOVB 

-2(R2),R0 

;GET  COMMAND  NUMBER 

89  000244 

013701 

003314' 

MOV 

SIFRAM, R1 

; POINT  TO  CURRENT  FRAME 

90  000250 

POP 

<R4,R3,R2> 

; RESTORE  INPUT  DATA 

91  000256 

005203 

INC 

R3 

;BACKUP  ONE  CHAR 

92  000260 

005304 

DEC 

R4 

;FOR  )WSJD 

93  000262 

112702 

000040 

MOVB 

#CHRSPA,R2 

:PUT  A  SPACE  AS  NEXT  CHAR 

94  000266 

PUSH 

<F.LSTC(R1),SI>  . 

;SAVE  CURRENT  FRAME  POINTERS 

95  000274 

CALL 

aCOMTAB(RO) 

•DO  COMMAND 

96  000300 

013701 

003314' 

MOV 

SIFRAM, R1 

; POINT  TO  CURRENT  FRAME 

97  000304 

POP 

<SI, F.LSTC(R1)>  . 

;RESTORE  FRAME  POINTERS 

98  000312 

032737 

000400  004764' 

BIT 

/1^F$EXEC, FLAGS   . 

; EXECUTION  FRAME? 

99  000320 

001441 

BEQ 

12$ 

;NOPE 

100  000322 

CALL 

PKILL 

•KILL  ANY  PARSE  FRAMES  CRE.'TED 

101  000326 

013700 

003040' 

MOV 

CHANEX+C.BUFF,RO. 

;0F  THE  EXECUTE  OP 

102  000332 

SIFRAM 

,^T.VAL 

•Put  Execute  Buffer  on  SI  (it's  the 

result) 

103  000344 

005037 

003040 ' 

CLR 

CHANEX+C.BUFF 

;NOW  CLEAR  BUFFER  POINTER 

104  000350 

005037 

003060' 

CLR 

CHANEX 

•FILE  ISN'T  OPEN! 

105  000354 

PI  3701 

003044 ' 

MOV 

CHANEX+C.CPTR,R1. 

;GET  CURRENT  POINTER 

106  000360 

161001 

SUB 

(R0),R1 

•CALCULATE  REAL  LENGTH  OF  DATA 

107  000362 

010160 

000004 

MOV 

R1,A.ALEN(R0) 

•REAL  ALEN 

108  000366 

010160 

000006 

MOV 

R1,A.DIM1(R0) 

•REAL  DIM1 
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109  000372  CALL    CARVE         ;KILL  UNUSED  PORTION 

110  000376  POP     <CHANEX+C.CPTR,CHANEX+C.CCNT,OCHAN,CHANEX>;RESTORE  OUTPUT  POINTERS 

111  000A16  113737  000A02'  000403*        M0V8    OMODE,TMODE     ;RESET  OUTPUT  MODE 

112  000A24  12$:    RETURN 
113 
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115 

;■♦•■•• 

116 

;   THIS  TABLE  CONTAINS  THE  COMMAND  NUMBER,  LENGTH,  AND  CHARACTERS. 

117 

;ALL  ARE  IN  BYTES  AND  APPEAR  AS: 

118 

119 

;       NUMBER  (OFFSET  IN  'COMTAB') 

120 

LENGTH  (NUMBER  OF  CHARACTERS) 

121 

CHAR  U^ 

122 

CHAR  U2 

123 

0                                                                              • 

124 

0                                                                     9 

125 

126 

127 

.MACRO  CMD     RTNPTR,  NAME 

128 

.NLIST 

129 

130 

;  The  Pointer  in  the  dispatrh  table 

131 

132 

.PSECT  TABLES 

133 

13A 

TMPTAG=  .                   ;Pointer  to  Loc'n  in  table 

135 

.WORD   RTNPTR 

136 

137 

;  The  data  in  the  Command  Lookup  Table 

138 

139 

.PSECT  COMTB 

140 

1A1 

.BYTE   TMPTAG-COMTAB 

142 

.NCHR   NAMELN,<NAME> 

143 

.BYTE   NAMELN 

144 

.IRPC   CHR,NAME 

145 

.If   m   CHR 

146 

.B/TE   "CHR+40 

147 

.ENDC 

148 

.ENDR 

149 

.LIST 

150 

.ENDM 

151 

152 

153 

;  This  is  for  the  dispatch  table  entries 

154 

155 

000000 

.PSECT   TABLES 

156 

000000 

COMTAB: 

157 

158 

159 

;  This  is  for  the  list  of  commands 

160 

161 

000000 

.PSECT  COMTB 

162 

000001 • 

.+1 

163 

000001 

CMDNAM: 

164 

000000 • 

.-1 

165 

166 

167 

000000 

CMD     ASSFIL,  ASSIGN                ;ASSIGN 

168 

oooo^o 

CMD     CLEAR,   CLEAR                ;CLEAR 

169 

000017 

CMD     CLSFIL,  CLOSE                 ; CLOSE 

170 

000026 

CMD     CNTFIL,  CONTINUE              ; CONTINUE 

171 

0000^0 

CMD     COPYC,   COPY                  ;COPY 
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172  0000A6 

173  000056 
17A  000066 

175  00007A 

176  000103 

177  000110 

178  000116 

179  000125 

180  000132 

181  000140 

182  000145 

183  000153 

184  000160 

185  000170 
136  000177 

190  000207 

191  000215 

192  000221 

193  000226 

194  000236 
000244 
000253 


MT 


195 
1% 
197 
198 
199 


000261 
000261 


000 
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CMD 

CRTFIL, 

CREATE 

CMD 

DIGIT, 

DIGITS 

CMD 

DROPC , 

DROP 

CMD 

ERASEC, 

ERASE 

CMD 

FNS, 

FNS 

CMD 

FUZZY, 

FUZZ 

CMD 

GROUPC , 

GROUP 

CMD 

GRPC, 

GRP 

CMD 

GRPS, 

GRPS 

CMD 

LIBC, 

LIB 

CMD 

LOAD, 

LOAD 

CMD 

OFF, 

OFF 

CMD 

ORIGNN, 

ORIGIN 

CMD 

PCOPYC, 

PCOPY 

CMD 

RENFIL, 

RENAME 

CMD 

SAVE, 

SAVE 

CMD 

SILIS, 

SI 

CMD 

SIV, 

SIV 

CMD 

NYIER, 

SYflBOL 

CMD 

VARS, 

VARS 

CMD 

WIDTTH, 

WIDTH 

CMD 

WSID, 

WSTD 

.PSECT 

COMTB 

.BYTE 

0 

CREATE 

DIGITS 

DROP 

ERASE 

FNS 

FUZZ 

GROUP 

GRP 

GRPS 

LIB 

LOAD 

OFF 

ORIGIJ 

PCOPY 

RENAME 

SAVE 

SI 

SIV 

SYMBOL 

VARS 

WIDTH 

WSID 


;End  of  Commands 
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1        000001  .END 
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SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRFIL= 

0001 77 

COMTAB 

OOOOOOR 

002  DROPC  = 

**•*••  GX 

D.TRAN= 

000004 

AC1   = 

X000001 

CHRFRO= 

000135 

COPYC  = 

•••*■*.•  GX 

DYDCNT 

003224R 

025  D.UNON= 

000006 

AC2   = 

X000002 

CHRLBR= 

000073 

CORPTR 

0051 20R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

AC3   = 

X000003 

CHRLPR= 

000072 

CRTFIL= 

******  GX 

D.BXCT= 

000007 

D.$MIN= 

000000 

ACA   = 

XOOOOOA 

CHRMNS= 

000137 

CS.ASS= 

000200 

D.BXI0= 

000007 

D.$MI'L= 

000000 

ACS   = 

X000005 

CHRMUL= 

000075 

CS.BOO= 

000010 

D.BXNL= 

000007 

D.$PLU= 

000000 

ALL I NT 

00327AR 

025 

CHRNEG= 

000100 

CS.FLO= 

000020 

D.BXPP= 

000007 

D.$RES= 

000000 

ARYRET 

003276R 

025 

CHRPDL= 

000271 

CS.1DN= 

000040 

D.BXPW= 

000007 

D.$SUB= 

000000 

ASCCajO= 

000042 

CHRPLU= 

000055 

CS.ONE= 

000100 

D.BXRL= 

000007 

D.1C0M= 

000001 

ASSFIL= 

••••••  GX 

CHRPWR= 

000120 

CTEPS 

0001 52R 

025 

D.CIRC= 

000001 

D.1EXP= 

000002 

A.ALEN= 

OOOOOA 

CHRQST= 

000121 

CTMAX 

00021 2R 

025 

D.C0MB= 

000001 

D.1R0T= 

000003 

A.ARG  = 

000040 

CHRQUO= 

000113 

CTRMAX 

0001 72R 

025 

D.CCMP= 

000001 

EDICHR 

005063R 

025 

A.ASB  = 

000200 

CHRRBR= 

000047 

C.ALOC= 

000162 

D.C0NT= 

000006 

EDICNT 

005064R 

025 

A.BITS= 

000003 

CHRRPR= 

000042 

C.BLOK= 

000064 

D.CTLM= 

000000 

EDIFLG 

005062R 

025 

A. CON  = 

000020 

CHRSEM=  000074 

C.BLSZ= 

000140 

D.DEAL= 

000003 

EDIT  = 

000003 

A.DIMS= 

000002 

CHRSMO=  000112 

C.BUFF= 

177760 

D.DECD= 

000002 

EIS  = 

000000 

A.DIM1= 

000006 

CHRSPA= 

000040 

C.BUFL= 

1 77762 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

A. MUM  = 

000006 

CHRTAB= 

••••••  GX 

C.CCNT= 

1 77766 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

A.PTR  = 

000000 

CHRULA= 

••••••  GX 

C . CPTR= 

1 77764 

D.DQAD= 

1 77777 

EOF   = 

104475 

A.TI»f>  = 

000010 

CHRULZ= 

**••••  GX 

C.CZ  = 

001000 

D.DR0P= 

000002 

ERASEC= 

••••••  GX 

BADDIR= 

104463 

CHRUPA= 

000131 

C.DIG  = 

000040 

D.ENCD= 

000002 

ERRMAX= 

000166 

BADERR= 

104437 

CHR.BS= 

000010 

C . F ASW= 

020000 

D.EQ  = 

000000 

ERRNUM 

004772R 

025 

BLZBIR 

0051 16R 

025 

CHR.CC= 

000003 

C.FLEN= 

000010 

D.EXPD= 

000002 

ERRPTR 

004770R 

025 

BRSELF 

005046R 

025 

CHR.CR= 

000015 

C.FLSH= 

004000 

D.FGET= 

000005 

ERRO 

004774R 

025 

CARVE  = 

1,-kitifk-k   GX 

CHR.CZ= 

000032 

C.FRC  = 

000001 

D.FMT  = 

000004 

EXEBUF 

005054R 

025 

CCNT 

005072R 

025 

CHR.GT= 

000046 

C.IDEN=  000010 

D.FPNT= 

000005 

E$CT 

005056R 

025 

CHANEX 

003060R 

025 

CHR.LF= 

000012 

C.NAriE= 

000102 

D.FPUT= 

000005 

ESPT 

005060R 

025 

CHANOO 

000256R 

025 

CHR.LT= 

000043 

C.N0BF= 

000400 

D.GE  = 

000000 

FA.APD= 

000100 

CHAN01 

000330R 

025 

CHR.SI= 

00001 7 

C.NUM  = 

000020 

D.GT  = 

000000 

FA.CRE= 

000010 

CHAN02 

00051 2R 

025 

CHR.SL= 

000057 

COP  = 

000004 

D.IBM  = 

000002 

FA.DLK= 

001000 

CHAN03 

000674R 

025 

CHR.SO= 

000016 

COPN  = 

010000 

D.IND  = 

000002 

FA.ENB= 

100000 

CHANOA 

001056R 

025 

CHR.TB= 

00001 1 

C.RDLN= 

177776 

D.INNR= 

000013 

FA.EXC= 

002000 

CHANGS 

001240R 

025 

CHR.UL= 

000106 

C.REWT= 

002000 

D.INTR= 

000006 

FA.EXT= 

000004 

CHAN06 

001422R 

025 

CHR..A= 

000141 

C.RND  = 

000010 

D.LE  = 

000000 

FA.NSP= 

000100 

CHAN07 

0016G4R 

025 

CHR..E= 

000145 

C.S8IT= 

1 77756 

D.LOG  = 

000001 

FA.NSR= 

000200 

CHANGS 

001766R 

025 

CHR..S= 

000163 

C.SPFX= 

000100 

D.LT  ^ 

000000 

FA.POS= 

010000 

CHANG9 

0021 50R 

025 

CHR..T= 

000164 

C.SPGL= 

000200 

D.MAX  = 

000000 

FA.RD  = 

000001 

CHAN10 

002332R 

025 

CHR..U= 

000165 

C . SPLX= 

000001 

D.MEM  = 

000002 

FA.RWD= 

004000 

CHAN11 

00251 4R 

025 

CHR..Z= 

000172 

C . SPRS= 

000002 

D.MIN  = 

000000 

FA.SEQ= 

040000 

CHAN12 

002676R 

025 

CHR..O= 

000060 

C.SRC  = 

1 7777^ 

D.MUL  = 

000000 

FA.SHR= 

000040 

CHAN13 

000022R 

023 

CHR..1= 

000061 

C.SRCP= 

000024 

D.NE  = 

000000 

FA.TMP= 

000020 

CHANU 

000204R 

023 

CH.AND= 

000001 

C.TT  = 

000004 

D.NN  = 

000000 

FA.WCK= 

020000 

CHNOPN= 

104471 

CLEAR  = 

•***i^i^  GX 

C.WIDC= 

177770 

D.NR  = 

000000 

FA.WRT= 

000002 

CHRAM)= 

000051 

CLSFIL= 

••*••*  GX 

C.WIDR= 

1 77772 

D.OR  = 

000000 

fd.blk:= 

000010 

CHRBEL= 

000007 

CMDBUF 

003250R 

025 

DEBUG  = 

000000 

D.PLUS= 

000000 

FD.CCL-^ 

000002 

CHRBICR= 

000133 

CriDMAX= 

000010 

DEFERR= 

104405 

D.PSUB= 

000006 

FD.COM=  020000 

CHRBOL= 

000200 

CMDNAM 

000001 R 

010  DEVIL 

0051 14R 

025 

D.PWR  = 

000001 

FD.CR  = 

000002 

CHRBOX= 

000114 

CMD1 

000240R 

020  DEVNTF= 

104470 

D.QQAD= 

000000 

FD.DIR= 

000010 

CHRCWA= 

000054 

CNTFIL= 

•••••*  GX 

DIGIT  = 

•**•*•  GX 

D . QUAD= 

000000 

FD.FTN= 

000001 

CHRCa= 

000076 

CNiSIZ 

005130R 

025 

DIGITS 

000006R 

025 

D.RES  = 

000000 

FD.F11= 

040000 

CHRDEL= 

000107 

COMAND 

OOOOOORG 

020  DIMAX  = 

000020 

D.RHO  = 

000000 

FD.INS= 

000010 

CHRDIV= 

000053 

COMBIN 

005076R 

025 

DIMBLK 

0031 12R 

025 

D.ROT  = 

000003 

FD.ISP= 

002000 

CHRDLR= 

000176 

COMCNT 

0051 26R 

025 

DIMPTR 

0031 14R 

025  D.SC0N= 

000006 

FD.MNT= 

1 00000 

CHRDLT= 

000110 

COMERR= 

104425 

DIMTYP 

0031 16R 

025 

D.SDIF= 

000006 

FD.0SP= 

004000 

CHRDOT= 

000056 

COMPTR 

005122R 

025 

DIRFUL= 

104466 

D.SUB  = 

000000 

FD.PLC= 

000004 

CHREP  = 

000105 

COMRTN 

0031 56R 

025 

DOMERR= 

104417 

D.SUBS= 

000006 

FD.PRN= 

000004 

CHRERR= 

104431 

COMSKP 

005124R 

025 

DPTERR= 

104416 

D.TAKE= 

000002 

FD.PSE= 

01 0000 
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FD.RAH= 

000001 

F .BKVB= 

000064 

F . SPUN= 

000074 

LINC 

00M02R 

025  M.IBM  = 

000003 

FD.RAN=  000002 

F.BR  = 

000020 

F.STBK= 

000036 

LINE 

00501 6R 

025  M.IDN  = 

000000 

FD.REC= 

000001 

F.CHR  = 

000075 

F.STK  = 

000022 

LINING 

005026R 

025  M.INSP= 

000006 

FD.RWM=  000001 

F . CNTG= 

000034 

F.ST0P= 

000004 

\.\%\ll= 

000020 

M.I0TA= 

000000 

FD.SDI= 

000020 

F.C0DE= 

000010 

F.STP  = 

000001 

LI  TOP 

005072R 

025  M.LIT  = 

000205 

FD.SQD= 

OOOOAO 

F.DFNB= 

000046 

F . SUSP= 

000002 

LNLN6  = 

104541 

M.LN  = 

000001 

FD.TTY= 

000004 

F.DSPT= 

000044 

F.TRC  = 

000002 

LOAD  = 

*•***•  GX 

M.MMD  - 

000010 

FD.WBH= 

000002 

F.DVNM=  000134 

F.UNIT= 

000136 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

FF.CHR= 

000005 

F.EFBK= 

000010 

F.UR8D= 

000020 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

FF.NV  = 

000003 

F.EFN  = 

000050 

F.VAL  = 

1 7777 t 

LSTERP 

004766R 

025  M.NUB  = 

000006 

FF.POE= 

000002 

F.END  = 

002000 

F.VBN  = 

000064 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

FF.RUD= 

000001 

F.E0BB= 

000032 

F.VBSZ= 

000060 

L.8ITS= 

000003 

M.0UTR= 

000012 

FF.RWF= 

000006 

F.ERR  = 

000052 

GNOME 

0031 02R 

025  L.CNT  = 

000002 

M.PITM= 

000000 

FF.SPC= 

OOOOOA 

F.FACC= 

000043 

GROUPC= 

*•••••  GX 

L.PRNT= 

000001 

M.PRDS= 

000006 

F HE ADR 

00501 2R 

025 

F.FFBY= 

000014 

GRPC  = 

•*••*•  GX 

L.PTR  = 

000000 

M.QQAD= 

000000 

FHRET 

0050A0R 

025 

F.FLAG= 

000002 

GRPS  = 

M-k-k-k-k-k   GX 

L.PTR1= 

000004 

M.QUAD= 

000000 

FILNTF= 

10AA67 

F.FLB  = 

000100 

HASHC 

0051 36R 

025  L.SUBS= 

000002 

M.RAND= 

000012 

FIS   = 

000000 

F.FNAM=  000110 

HASHTB 

005140R 

025  MACHIN= 

000106 

M.RAVL= 

000000 

FISCON= 

0A6000 

F.F^B  = 

000102 

HSHMSK= 

177601 

MAXCHN= 

000014 

M.RCIP= 

000000 

FIXPTR 

003074R 

025 

F.FNDF= 

000010 

HSHSIZ= 

000200 

MONBLK 

0031 20R 

025  M.RDCT= 

00001 1 

FLAGS 

004764R 

025 

F.FTYP= 

000116 

KHAN 

005050R 

025  MONCVT 

0031 32R 

025  M.REVS= 

000003 

FLCBUF 

003250R 

025 

F.FUN  = 

000010 

ILFNAM= 

104464 

MONLEN 

0031 30R 

025  M.R0LL= 

000000 

FLINE 

00501 4R 

025 

F.FVER= 

000120 

ILLCHN= 

104540 

MONPTR 

0031 22R 

025  M.SATA= 

000001 

FLOEXP 

003270R 

025 

F.HEAD= 

000006 

ILLSW  = 

104565 

MONSFT 

0031 26R 

025  M.SCAN= 

000011 

FLONEG 

003272R 

025 

F.HIBK= 

000004 

INDERR= 

104410 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FLSWTB 

000222R 

025 

F.LBL  = 

000020 

INNTMP 

003250R 

025  MONVAL 

0031 34R 

025  M.SIGN= 

000000 

FLTLEN= 

000010 

F.LINE= 

000012 

INNTM2 

00501 6R 

025  M.ABS  = 

000000 

M.SIfiR= 

000001 

FNINSI 

005044R 

025 

F.LOC  = 

000004 

INPTR 

000064R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FNS   = 

*••••*  GX 

F.LSTC= 

000004 

INSNAM= 

1 04462 

M.8XAV= 

000007 

M.SYN  = 

000201 

FORIGN 

000032R 

025 

F.LUN  = 

000042 

lOERR  = 

104477 

M.8XCR= 

000007 

M.TRAN= 

000012 

FO.APD= 

000106 

r.MBCT= 

000054 

I.CNT  = 

1 7777b 

M.8XCT= 

000007 

M.$ABS= 

000000 

FO.MFY= 

000002 

F.MBC1= 

000055 

l.DIM  = 

1 77771 

M.BXEX= 

000007 

M.$CEI= 

000000 

FO.RD  = 

000001 

F.MBFG= 

000056 

I.LEN  = 

00001 2 

M.8XFX= 

000007 

M.$FLR= 

000000 

FO.UPD= 

000006 

F.MON  = 

000002 

I.OERR= 

000062 

M.BXIO= 

000007 

M.$IDN=  000000 

FO.WRT= 

000016 

F.NIL  = 

000001 

I. OLD  = 

1 7777^ 

M.8XLC= 

000003 

M.$NEG= 

000000 

FPMOOE 

000042R 

025 

F.NRBD= 

000024 

I.PTR  = 

1 7777  i. 

M.BXNC= 

000007 

M.$SIG= 

000000 

FPP   = 

000000 

F.NREC= 

000030 

l.STR  = 

1 77766 

M.BXNL= 

000007 

M.1RDT= 

000011 

FPPLEN=  OOOOOA 

F.OPN  = 

000010 

LABERR= 

104406 

M.BXPP= 

000007 

M.1REV= 

000003 

FREBLK 

007400R 

025 

F.OVBS= 

000030 

LABLPT 

005042R 

025  M.BXPW= 

000007 

M.1SCN=  000011 

FUZZ 

0001 42R 

025 

F.PREV= 

000000 

LARGBL 

0031 62R 

025  M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FUZZY  = 

^••••1^  GX 

F.PRNT= 

100000 

LAR6CV 

0031 76R 

025  M.BXTS= 

000007 

NAMELN= 

000004 

FXPTR1 

003076R 

025 

F.PROT= 

010000 

LAR6FL 

0031 60R 

025  M.8XWA= 

000007 

NB.DEV= 

000200 

F$EVAL= 

000100 

F.RACC= 

000016 

LAR6LE 

0031 74R 

025  M.CEI  = 

y77777 

NB.DIR= 

000100 

F$EVI  = 

000200 

F.RATT= 

000001 

LARGLN 

0031 66R 

025  M.CHR  = 

000202 

NB.NAM=  000004 

F$EXEC= 

000400 

F.RCNri=  000034 

LARGPT 

0031 64R 

025  M.CMT  = 

000206 

NB.SD1= 

000400 

F$FUNC= 

001000 

F.RCTL= 

00001 7 

LARGSF 

0031 72R 

025  M.D0UT= 

000006 

NB.SD2= 

001000 

F.ACTL= 

000076 

F.READ= 

004000 

LARGTY 

0031 70R 

025  M.DQAD= 

000006 

NB.SNM= 

000040 

F.ALOC= 

000040 

F.REDF= 

000040 

LARGVA 

003200R 

025  M.ENCD= 

000004 

NB.STP= 

000020 

F.RRFS= 

000062 

F.RES  = 

000040 

LBINC 

0051 OOR 

025  M.EXE  = 

000000 

NB.SVR= 

000010 

F.BD6  = 

000070 

F.RET  = 

^77772 

L8UFF 

00331 6R 

025  M.EXP  = 

000001 

NC . TYP= 

000002 

F.BGBC= 

000057 

F.RS1Z= 

000002 

LBUFLN- 

000621 

M.FACT= 

000001 

NB./ER= 

000001 

F.BITS= 

1 7777^ 

F.RTYP= 

000000 

LCOUNT 

0051 06R 

025  M.FIL  = 

0001 77 

nd.dlv= 

000200 

F.BKDN= 

000026 

F.R2  = 

000014 

LENERR= 

104412 

M.FLR  -~ 

1 77777 

ND.EX»= 

000002 

F.BKDS= 

000020 

F.R3  = 

000016 

LENTA8 

000054R 

025  M.FMT  = 

000004 

ND.NAM= 

000004 

F.BKEf= 

000050 

F.R4  = 

000020 

LEXPTR 

0031 OOR 

025  M.GDUP= 

000003 

ND.PPN= 

000100 

F.BKP1  = 

000051 

F.SEQN= 

000100 

LFTOP 

005066R 

025  M.CDWN= 

000003 

ND.$EX= 

000000 

F.BKST= 

000024 

F.SPDV= 

000072 

LJ8C  = 

♦•**••  GX 

M.GETI= 

000006 

ND.$E$= 

000020 

COMANO 
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SYNBOL 

TABLE 

ND.SNM=  000000 

0PTMP2 

005072R 

025 

RLTBAS 

005066R 

025 

SYMTAB 

005352R 

025 

T.CON  = 

004000 

ND.$NS= 

OOOOAO 

0PTMP3 

005074R 

025 

ROTINC 

005070R 

025 

SYMTBF= 

104404 

T.DIM  = 

000100 

ND.$PN= 

001AOO 

0PTMP4 

005076R 

025 

ROUND 

00001 OR 

025 

SYMTOP 

005350R 

025 

T.FUN  = 

010000 

NEGSGN 

005063R 

025  0PTMP5 

0051 OOR 

025 

ROVER 

00331 2R 

025 

SYMTP 

006272R 

025 

T.LIST= 

000400 

NINPT1 

003302R 

025  0PTMP6 

005102R 

025 

RSTS  = 

000000 

SYMURN= 

000054 

T.LIT  = 

000020 

NINPT2 

003300R 

025 

0PTMP7 

0051 04R 

025 

RSX   = 

0001 1 5 

SYNERR= 

104407 

T.MDN  = 

000010 

NINSTK 

00330AR 

025  0PTMP8 

005106R 

025 

RTOP 

005070R 

025 

SYSER  = 

t-kt'kiii'k    GX 

T.NIL  = 

000004 

NINTMP 

00331 OR 

025 

0PTMP9 

00511 OR 

025 

RT11  = 

000000 

SYSERR= 

104402 

T.NUM  = 

002000 

NINTYP 

003306R 

025  OPTM10 

0051 12R 

025 

R.8ITS= 

000005 

SYSTAT 

OOOOOOR 

024 

T.OPFN= 

000001 

NOTAVL= 

104A72 

0PTM14 

005026R 

025 

R.FIX  = 

000001 

SY.BAD= 

000001 

T.OTHR= 

040000 

NOTOPN= 

10AA73 

ORIGIN 

000030R 

025 

R.LCT  = 

000002 

SY.BRK= 

100000 

T.SOP  = 

000002 

NPRT1 

004762R 

025 

0RIGNN= 

«j)r*^**  GX 

R.LN  = 

000002 

SY.BS  = 

000010 

T.SPOP= 

000040 

NULL 

00736AR 

025  OUTPTR 

000066R 

025 

R.LNUM= 

000010 

SY.CLR= 

000040 

T.TMP  = 

000200 

NUMCHN=  000020 

0VR0PR= 

000000 

R.NEXT= 

000006 

SY.ERP= 

000020 

T.VAL  = 

100000 

NUMDFL 

003230R 

025  PATCH 

007344R 

025 

R.OFF  = 

000000 

SY.N0U=  000100 

T.VAR  = 

001000 

NUMEFL 

003233R 

025 

PCOPYC= 

••*••*  GX 

R.PREV= 

000004 

SY.OPN= 

000002 

UPPER  = 

177400 

NUMESN 

003236R 

025 

PKILL  = 

••••••  GX 

R.PTR  = 

000000 

SY.PMT= 

001000 

UTNAME 

000344R 

023 

NUMFLG 

003230R 

025  PRECSN 

000052R 

025 

R.SEQ  = 

000003 

SY.SRT= 

000400 

VALERR= 

104413 

NUMLEN 

000062R 

025  RANDAC 

003064R 

025 

R.VAR  = 

000002 

SY.SVC= 

000004 

VARBLE 

007400R 

025 

NUMNEG 

003232R 

025  RANDY 

003062R 

025 

R6 

X000006 

SY.SVL= 

000200 

VARBLS 

OOOOOOR 

025 

NUMQFL 

003234R 

025 

RANERR= 

104411 

R7 

X000007 

S.AB  = 

1 77776 

VARS  = 

idt-k-k-k-k    GX 

Mff^lG 

003231 R 

025 

RARGBL 

003204R 

025 

SAVE  = 

••••••  GX 

S.ASB  = 

100000 

VERNUM 

OOOOOOR 

025 

NUMUID 

003226R 

025 

RARGCV 

003220R 

025 

SET8IG= 

••••♦*  GX 

S.BFHD= 

000020 

VRSION= 

000002 

M.f1ZFL 

003235R 

025 

RARGFL 

003202R 

025 

SI 

X000005 

S.BITS= 

000002 

WIDTH 

000072R 

025 

NYIER  = 

*K^««*«  QX 

RARGLE 

00321 6R 

025 

SIDAMN= 

104433 

S.CHR1= 

000003 

WIDTTH= 

•*••••  GX 

NYIERR= 

10AA32 

RARGLN 

00321  OR 

025 

SIFRAM 

00331 4R 

025 

S.FATT= 

000016 

WROUND 

000020R 

025 

N.BLSZ= 

000036 

RARGPT 

003206R 

025 

SILIS  = 

••••••  GX 

S.FDB  = 

000140 

WSDATE 

0001 36R 

025 

N.DESC= 

000020 

RARGSF 

00321 4R 

025 

SISTAK 

006350R 

025 

S.FLB  = 

040000 

WSFULL= 

104403 

N.DEV  = 

000032 

RARGTY 

00321 2R 

025 

SI  TOP 

006346R 

025 

S.FNAM=  000006 

WSID  = 

*•••••  GX 

N.DEVN=  00003A 

RARGVA 

003222R 

025 

SITP 

0071 44R 

025 

S.FNB  = 

000036 

WSNAME 

000074R 

025 

N.DID  = 

000024 

RBASE 

005074R 

025 

SIV   = 

•*••*•  GX 

s.F^ew= 

000017 

WSTIME 

0001 32R 

025 

N.DVNM=  000032 

RCOUNR 

005112R 

025 

SIWARN=  000200 

S.FNTY= 

000004 

$FIS  = 

*••*•*  G 

N.EXT  = 

OOOOH 

RCOUNT 

00511  OR 

025 

SIZTAB 

000044R 

025 

S.FTYP= 

000002 

%VP9     = 

••••••  G 

N.FID  = 

000000 

REDCNT 

005070R 

025 

SI.BIT= 

177774 

S.LEN  = 

000002 

$FPP;_M^ 

*•••••  G 

N.FNAW=  000006 

REDIGN 

005066R 

025 

SI.LEN= 

1 77772 

S.LINK= 

-{7777  i. 

$MACHN= 

••••••  G 

N.FTYP= 

000014 

REDOFF 

005072R 

025 

SI.RET= 

1 77772 

S.NFEN= 

000020 

$RSTS  = 

••••••  G 

N.FVER= 

000016 

REENTR 

003060R 

025 

SI.VAL= 

1 77776 

S.TYPE= 

140000 

$RSX  = 

•*•*••  G 

N.NAME= 

000006 

RENFIL= 

••*•••  GX 

SKPSIZ 

0051 34R 

025 

S.VAL  = 

000000 

$RT11  = 

*••*••  G 

N.NEXT= 

000022 

RESBIT 

0031 42R 

025 

SPHOLD 

000004R 

024 

TKDIMS 

005072R 

025 

.BOOLE= 

000002 

N.PPN  = 

000024 

RESCVT 

0031 52R 

025 

SPINIT 

000002R 

024 

TKFRAM 

005066R 

025 

.CHARA= 

000000 

N.STAT= 

000020 

RESERR= 

104440 

STKINC= 

000774 

TKLEFT 

005070R 

025 

.DEF.  = 

000002 

N.UNIT= 

000034 

RESLEN 

0031 50R 

025 

STOP  = 

104420 

TMODE 

000403R 

023 

.FLOAT= 

000006 

aBUFLN=  001000 

RESPTR 

0031 40R 

025 

SLBCNT 

0031 04R 

025 

TMPTAG= 

000064R 

002 

.FSRCB= 

••*•••  G 

OCHAN 

005052R 

025 

RESSFT 

0031 46R 

025 

SU8DCT 

0031 06R 

025 

TTYBUF 

0041 40R 

025 

.INTEG= 

000004 

OFF    := 

••••••  GX 

RESTYP 

0031 44R 

025 

SI.BPTR 

00311  OR 

025 

TTYLEN= 

000622 

.MOLUN 

000404R 

02'' 

GMODE 

000402R 

023  RESULT 

0031 36R 

025 

SYMB1 

005344R 

025 

TURKEY= 

104436 

...GRL= 

000000 

OPTMPO 

005066R 

025  RESVAL 

0031 54R 

025 

SYMF 

005340R 

025 

TYPE  = 

000166 

...TPC= 

000020 

0PTMP1 

005070R 

025 

RINC 

0051 04R 

025 

SYMPT1 

005346R 

025 

T.BOL  = 

020000 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000066 

002 

WONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

MONBJB 

000000 

006 

DYDBTB 

000000 

007 

COMAND 
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3  0 

SYMBOL 

TABLE 

COMTB 

000262 

010 

CHRTEL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

OH 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

miRlL 

000000 

017 

CODE 

000A26 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEF$0 

000406 

023 

DEFSI 

000006 

024 

DEF$2 

OO7A00 

025 

ERRORS 

DETECTED: 

0 
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1 

000000 

2 

000000 

3 

0001 1 5 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
FIS 
FPP 

ooo 

II  II  11 

FPPLEN 

=  4 

DEBUG 

=  0 

;N0T  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

;SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 


nr 
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DEFINITIONS 

ERRORS 

1 

.TITLE 

COMRT 

5 
6 

.IDENT 

\V02.03\ 

.S8TTL 

COMPAR 

COMPARE  ROUTINES 

1 

•++ 

7 

1 

•  FUNCTIONAL  DESCRIPTION: 

8 

t 

t 

These  Routines  are  used  to  compare  arguments  by                             I 

9 

1 

the  Sea 

lar  Operators, 

Grade  Up/Down,  EpsiLon,  Iota,  Etc... 

10 

t 

• 

r 

They  take  Args  in  the 

Standard  PLaces  and  (Non-Destructively) 

11 
12 
13 
14 
15 

t 

* 

Return 

with  the  appropriate  Condition  Codes  Set 

000000 

t 

t 

.PSECT 

CODE 

000000 

( 

:f^.f:: 

STF 

AC2,AC3 

;Copy  the  Right  argument 

16 

000006 

ABSF 

AC3 

;Get  its  magnitude 

17 

000014 

STF 

AC1,AC0 

;Copy  the  Left  argument 

18 

000022 

ABSF 

ACO 

;Get  its  mr.gnitude 

19 

000030 

CMPF 

AC0,AC3 

; Compare  the  magnitudes  of  the  arguments 

20 

000036 

CFCC 

;And  use  the  Large  one 

21 

000042 

003403 

BLE 

1$ 

;Left  magnitude  greater  than  the  Right? 

22 

000044 

STF 

AC0,AC3 

;Yes,  Save  the  Left  magnitude 

23 

000052 

1$: 

STF 

AC1,AC0 

;Get  the  Left  argument 

24 

000060 

SUBF 

AC2,AC0 

;  L  -  R 

25 

000066 

ABSF 

ACO 

;   !  L  -  R 

26 

000074 

MULF 

^UZZ,AC3 

;  FUZZ  X  (  1  L  )  .ce  (  !  R  ) 

27 

000104 

SUBF 

AC3,AC0 

;   (  !  L  -  R  )  -  FUZZ  x  (  I  1  )  .ce  (  !  R  ) 

28 

0001 1 2 

CFCC 

;Result  >  0  ? 

29 

000116 

003003 

BGT 

CMP..F 

;yes.  Implies  arguments  not  ^'  al 

30 

000120 

000257 

CCC 

;No,  Implies  arguments  fuz?"  equal 

31 

000122 

000264 

SEZ 

:Set  the  zero  bit 

32 

000124 

RETURN 

33 

34 

000126 

( 

:!^..F: 

CMPF 

AC1,AC2 

;Not  eguaU  So  what  are  they? 

35 

000134 

CFCC 

;Set  the  condition  codes 

36 

000140 

RETURN 

37 

38 

000142 

023757 

003200' 

003222'  ( 

:MP.I:: 

0^ 

LARGVA,RARGVA 

; COMPARE,  INTEGER  LEVEL 

39 
40 
41 

0001 50 

RETURN 

.•FINISHED 

0001 52 

( 

:MP.8:: 

42 

000152 

123737 

003200' 

003222' 

CMP8 

LARGVA,RARGVA 

; COMPARE,  BOOLEAN 

43 
44 
45 

000160 

RETURN 

.-FINISHED 

000162 

( 

:MP.C:: 

46 

000162 

023737 

003200 ' 

003222' 

CMP 

LARGVA,RARGVA 

; COMPARE  CHARACTERS  AS  WORDS  (UNSIGNED) 

47 

000170 

RE  1  URN 

.•FINISHED 
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000016  000126' 


C  16 

COMRT   MACRO  M1113  08-FEB-80  11:20  PAGE  47 
COMPAR  COMPARE  ROUTINES 

1        000001  .END 


COMRT 

MACRO  M1 1 1 3 

08-FEB-80 

11:20  PAGE 

47-1 

D  16 

SYI>©OL 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

CS.ONE= 

000100 

D.C0MB= 

000001 

D.1R0T= 

000003 

AC1   = 

X000001 

CHRLPR= 

000072 

CTEPS 

0001 52R 

025 

D.C0MP= 

000001 

E COMCT 

00001 ORG 

002 

AC2   = 

X000002 

CHRftJS= 

000137 

CTMAX 

00021 2R 

025 

D.CONT= 

000006 

EDICHR 

005063R 

025 

AC3   = 

X000003 

CHRMUL= 

000075 

CTRMAX 

0001 72R 

025 

D.CTLM= 

000000 

EDICNT 

005064R 

025 

ACA   = 

XOOOOOA 

CHRNE6= 

000100 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIFLG 

005062R 

025 

ACS   = 

X000005 

CHRPDL= 

000271 

C.BLO>C= 

000064 

D.DECD= 

000002 

EDIT  = 

000003 

ALLINT 

00327AR 

025 

CHRPLU= 

000055 

C.BLSZ= 

000140 

D.DIV  = 

000000 

EIS   = 

000000 

ARYRET 

CK)3276R 

025 

CHRPWR= 

000120 

C.BUFF= 

1 77760 

D.DMD  = 

000010 

ELESIZ 

0051 32R 

025 

ASCQUO=  0000A2 

CHRQST= 

000121 

C.BUFL= 

1 77762 

D.DQAD= 

1 77777 

ENDCOR 

000004R 

025 

A.ALEN= 

OOOOOA 

CHRQU0=  000113 

C.CCNT= 

1 77766 

D.DROP= 

000002 

EOF   = 

104475 

A.ARG  = 

OOOOAO 

CHRRBR= 

000047 

C.CPTR= 

1 77764 

D.ENCD= 

000002 

ERRMAX= 

000166 

A.AS8  = 

000200 

CHRRPR= 

000042 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRNUM 

004772R 

025 

A.BITS= 

000003 

CHRSEri= 

000074 

C.D.TG  = 

000040 

D.EXPD= 

000002 

ERRPTR 

004770R 

025 

A.tON  = 

000020 

CHRSM0= 

000112 

C.FASW= 

020000 

D.F6ET= 

000005 

ERRO 

004774R 

025 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.FLEN= 

000010 

D.FMT  = 

000004 

EXEBUF 

005054R 

025 

A.DIM1= 

000006 

CHRUPA= 

000131 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$CT 

005056R 

025 

A.NLM  = 

000006 

CHR.BS= 

000010 

C.FRC  = 

000001 

D.FPUT= 

000005 

E$PT 

005060R 

025 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.IDEN= 

000010 

D.GE  = 

000000 

FA.APD= 

000100 

A.TMP  = 

U00010 

CHR.CR= 

00001 5 

C.NAME= 

000102 

D.GT  = 

000000 

FA.CRE= 

000010 

BADDIR= 

10AA63 

CHR.CZ= 

000032 

C.NOBF= 

000400 

D.18M  = 

000002 

FA.DLK= 

001000 

BADERR= 

10AA37 

CHR.GT= 

000046 

C.NUM  = 

000020 

D  IND  = 

000002 

FA.E^B= 

100000 

BLzae 

0051 16R 

025 

CHR.LF= 

000012 

COP  = 

000004 

D.INNR= 

000013 

FA.EXC= 

002000 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.OPN  = 

010000 

D.JNTR= 

000006 

FA.EXT= 

000004 

CCNT 

005072R 

025 

CHR.SJ= 

00001 7 

C.RDLN= 

1 77776 

D.LE  = 

000000 

FA.NSP- 

OOO'iOO 

CHA^€X 

003060R 

025 

CHR.SL= 

000057 

I  REWT= 

002000 

D.LOG  = 

000001 

FA.NSR= 

000200 

CHANOO 

000256R 

025 

CHR.S0= 

000016 

C.RND  = 

000010 

D.LT  = 

000000 

FA.POS= 

010000 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C .  SBI  T= 

1 77756 

D.MAX  = 

000000 

FA.RD  = 

000001 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.RWD= 

004000 

CHAN03 

000674R 

025 

CHR..A= 

000141 

C.SP6L= 

000200 

D.MIN  = 

000000 

FA.SEQ= 

040000 

CHANOA 

001056R 

025 

CHR..E= 

000145 

C . SPLX= 

ooooo: 

D.MUL  = 

000000 

FA.SHR= 

000040 

CHAN05 

001240R 

025 

CHR..S= 

000163 

C .  SPRS-^ 

000002 

D.NE  = 

IaOOOO 

FA.TMP= 

000020 

CHAN06 

001A22R 

025 

CHR..T= 

000164 

C.SRC  = 

1 7777^ 

D.NN  = 

OOGv  % 

FA.WCK= 

020000 

CHAN07 

00160AR 

025 

CHR..U= 

000165 

:.zxp= 

000024 

D.NR  = 

000000 

FA.WRT= 

000002 

CHAN08 

001766R 

025 

CHR..Z= 

0001 72 

■^J-^    ^ 

:oooo4 

D.OR  = 

000000 

FD.BU= 

000010 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

C.Wi^.*C= 

177770 

D.PLUS= 

000000 

FD.CCL= 

000002 

CHAN10 

002332R 

025 

CHR..1= 

000061 

c.wi;R= 

1 r7772 

D.PSUB= 

000006 

FD.COM= 

020000 

CHAN11 

0025KR 

025 

CH.AND= 

000001 

DEBl  = 

000000 

D.PWR  = 

00000 1 

FD.CR  = 

000002 

CHAN12 

002676R 

025 

cnmjf 

003250R 

025 

DEFEH^^- 

104405 

D.QQAD= 

000000 

FD.DIR= 

000010 

CHAM  3 

000022R 

023 

CMDWAX= 

000010 

DEVIL 

:^05114R 

025 

D.QUAD= 

000000 

FD.FTN= 

000001 

CHANU 

00020AR 

023 

CMP.B 

0001 52R6 

020 

DEVNTF- 

'04470 

D.RES  = 

000000 

FD.F11= 

040000 

CHNOPN= 

10A471 

CliP.C 

0001 62RG 

020 

DIGITS 

000006R 

025 

D.RHO  = 

000000 

FD.1NS= 

000010 

CHRAND= 

000051 

CMP.F 

000000R6 

020  DIMAX  = 

000020 

D.ROT  = 

000003 

FD.ISP= 

002000 

CHRBEL= 

000007 

CMP.  I 

0001 42RG 

020  DIMBLK 

0031 12R 

025 

D.SD>I= 

000006 

FD.MNT= 

100000 

rNRBICR= 

000133 

CMP..F 

0001 26R 

020  DIMPTR 

0031 14R 

025 

D.SDJF= 

000006 

FD.OSP= 

004000 

HRRa= 

000200 

CNTSIZ 

005130R 

025 

DJMTYP 

0031 16R 

025 

D.SIB  = 

000000 

FD.PLC= 

000004 

lHRBOX= 

0001K 

COMBIN 

005076R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PRN=  000004 

CHRCMA= 

000054 

COMCNT 

0051 26R 

025 

DOMERR= 

104417 

D.TAKE= 

000002 

FD.PSE= 

010000 

CHRCOL= 

000076 

COMCT 

000000R6 

002  DPTERR= 

104416 

D.TRAN= 

000004 

FD.RAH= 

000001 

CHRDEL= 

000107 

COMERR= 

104425 

DYDCNT 

003224R 

025 

D.iJNON= 

000006 

FD.RAN= 

000002 

CHRDIV= 

000053 

COMPTR 

0051 22R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.REC= 

000001 

CHRDLR= 

000176 

COMRTN 

0031 56R 

025 

D.BXCT= 

000007 

D.$MIN= 

000000 

FD.Rli«=  000001 

CHRDLT= 

000110 

COMSKP 

005124R 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SD1= 

000020 

CHRDOT= 

000056 

CORPTR 

0051 20R 

025 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.SQD= 

000040 

CHREP  = 

000105 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.TTY= 

000004 

CHRERR= 

104431 

CS.BOO= 

000010 

D.BXPW= 

000007 

D.$Slfi= 

000000 

FD.WBH= 

000002 

CHRFIL= 

000177 

CS.FLO= 

000020 

D.8XRL= 

000007 

D.1C0M= 

000001 

FF.CHR= 

000005 

CHRFRO= 

000135 

CS.IDN= 

000040 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.NV  = 

000003 
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FF.POE= 

000002 

-.ERR  = 

000052 

GNOME 

0031 02R 

025  MACHIN= 

000106 

M.RAVL= 

000000 

FF.RWD= 

000001 

•.FACC= 

000043 

HASHC 

0051 36R 

025  MAXCHN= 

000014 

M.RCIP= 

000000 

FF.RWF= 

000006 

•.FFBY= 

000014 

HASHT8 

005140R 

025  MONBLK 

0031 20R 

025  M.RDCT= 

00001 1 

FF.SPC= 

OOOOOA 

■.FLAG= 

000002 

HSHMSK= 

1 77601 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

F  HE  ADR 

00501 2R 

025  1 

".FLB  = 

000100 

HSHSIZ= 

000200 

MONLEN 

0031 30R 

025  M.R0LL= 

000000 

FHRET 

OOSOAOR 

025  1 

•.FNAM= 

000110 

I  CHAN 

005050R 

025  MONPTR 

0031 22R 

025  M.SATA= 

000001 

FILNTF= 

10AA67 

■.FNB  = 

000102 

ILFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

FIS   = 

000000 

■.FNDF= 

000010 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

F1SC0N-- 

046000 

■.FTYP= 

000116 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SIGN= 

000000 

FIXPTR 

003074R 

.25  1 

'.FUN  = 

000010 

INDERR= 

104410 

M.ABS  = 

000000 

M.SUBR= 

000001 

FLAGS 

004764R 

025  f 

■.FVER= 

000120 

INNTMP 

003250R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLCBUF 

003250R 

025  F 

■.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FLINE 

00501 AR 

025  f 

■.HIBK= 

000004 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN= 

000012 

FLOEXP 

003270R 

025  f 

•.LBL  = 

000020 

INSNAM= 

104462 

M.BXCT= 

000007 

M.$ABS= 

000000 

FLCMG 

003272R 

025  f 

■.LINE= 

000012 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI= 

000000 

FLSWTB 

0O0222R 

025  1 

•.LOC  = 

000004 

I.CNT  = 

1 77776 

M.BXFX= 

000007 

M.$FLR= 

000000 

FLTLEN= 

000010 

•.LSTC= 

000004 

I. DIM  = 

1777/2 

M.BXIO= 

000007 

M.$IDN= 

000000 

FNINSl 

005044R 

025  1 

•.LUN  = 

000042 

I.LEN  = 

00001 2 

M.8XLC= 

000003 

M.$NEG= 

000000 

FORIGN 

000032R 

025  1 

■.MBCT= 

000054 

I.OERR= 

0OC062 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.APD= 

000106 

•.MBC1  = 

000055 

I. OLD  = 

1 77770 

M.BXNL= 

000007 

M.1RDT= 

00001 1 

FO.MFY= 

000002 

■.MBF6= 

000056 

I.PTR  = 

1 7777^ 

M.BXPP= 

000007 

M.1REV= 

000003 

FO.RD  = 

000001 

-.MON  = 

000002 

I. SIR  = 

1 77766 

M.BXPW= 

000007 

M.1SCN= 

000011 

FO.UPO= 

000006 

'.NIL  = 

000001 

LABERR= 

1 04406 

M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FO.WRT= 

000016 

•.NRBD= 

000024 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FPMOOE 

000042R 

025  1 

■.NREC= 

000030 

LARGBL 

0031 62R 

025  M.BXWA= 

000007 

l«.DIR= 

000100 

FPP   = 

000000 

'.OPN  = 

000010 

LARGCV 

0031 76R 

025  M.CEI  = 

1 77777 

NB.NAM=  000004 

FPPLEN= 

000004 

•.OVBS= 

000030 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FREBLK 

007400R 

025  1 

•.PREV= 

000000 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

FUZZ 

0001 42R 

025  f 

•.PRNT= 

100000 

LARGLN 

0031 66R 

025  M.DOUT= 

000006 

NB.SNM=  000040 

FXPTR1 

003076R 

025  1 

■.PROT= 

010000 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$EVAL= 

000100 

•.RACC= 

000016 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

FSEVI  = 

000200 

•.RATT= 

000001 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F$EXEC= 

000400 

■.RCM«1= 

000034 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F$FUNC= 

001000 

■.RCTL= 

00001 7 

LBINC 

005100R 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.ACTL= 

000076 

•.READ= 

004000 

LBUFF 

00331 6R 

025  M.FIL  = 

000177 

ND.EXT= 

000002 

F.ALOC= 

000040 

■.REDF= 

000040 

LBUFLN= 

000621 

M.FLR  = 

^77777 

ND.NAM=  000004 

F.RRFS= 

000062 

-.RES  = 

000040 

LCOUNT 

005106R 

025  M.FMT  = 

000004 

ND. PPN=  000100 

F.BOB  = 

000070 

-.RET  = 

1 77772 

LENERR= 

104412 

M.6DUP= 

000003 

ND.$EX= 

000000 

F.BGBC= 

000057 

".RSIZ= 

000002 

LENTAB 

000054R 

025  M.6DWN=  000003 

ND.$E$= 

000020 

F.BITS= 

177774 

-.RTYP= 

000000 

LEXPTR 

0031 OOR 

025  M.6ETI= 

000006 

ND.$NM=  000000 

F.BICDN= 

000026 

\R2  = 

000014 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$= 

000040 

F.BKDS= 

000020 

^R3  = 

000016 

LINC 

0051 02R 

025  M.IDN  = 

000000 

ND.$PN= 

001400 

F.BKEF= 

000050 

■.R4  = 

000020 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN 

005063R 

025 

F.BKP1= 

000051 

•.SEQN= 

000100 

LININC 

005026R 

025  M.I0TA= 

000000 

NINPT1 

003302R 

025 

F.BKST= 

000024 

■ . SPDV= 

000072 

L1S1ZE= 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.BKVB= 

000064 

".SPUN= 

000074 

LI  TOP 

005072R 

025  M.LN  = 

000001 

NINSTK 

003304R 

025 

F.BR  = 

000020 

■.STBK= 

000036 

LNLNG  = 

104541 

M.MMD  = 

000010 

NINTMP 

00331 OR 

025 

F.CHR  = 

000075 

-.STK  = 

000022 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINTYP 

003306R 

025 

F . CNTG= 

000034 

".STOP= 

000004 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

N0TAVL= 

104472 

F.CODE= 

000010 

--.SJP  = 

000001 

LSTERP 

004766R 

025  M.NUB  = 

000006 

N0T0PN= 

104473 

F.DF^B= 

000046 

■ . SUSP= 

000002 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

NPRT1 

004762R 

025 

F.DSPT= 

000044 

".TRC  = 

000002 

L.BITS= 

000003 

M.0UTR= 

000012 

NULL 

007364R 

025 

F.D\/NM=  000134 

■.UNIT= 

000136 

L.CNT  = 

000002 

M.PITM= 

000000 

NUMCHN= 

000020 

F.EFBK= 

000010 

■.URBD= 

000020 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

r.EFN  = 

000050 

".VAL  = 

1 77776 

L.PTR  = 

000000 

M.QQAD= 

000000 

NUMEFL 

003233R 

025 

F.END  = 

002000 

•.VBN  = 

000064 

L.PTR1= 

000004 

M.QUAD= 

000000 

NUMESN 

003236R 

025 

F.EnRR= 

000032 

■.VBSZ= 

000060 

L.SUBS^ 

000002 

M.RAND= 

000012 

NUMFLG 

003230R 

025 
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NUMLEN 

000062R 

025 

RANDAC 

00306AR 

025 

R.OFF  = 

000000 

SY.N0U= 

000100 

T.OPFN= 

000001 

NUMNEG 

003232R 

025 

RANDY 

003062R 

025 

R.PREV= 

OOOOOA 

SY.0PN= 

000002 

T.OTHR= 

OAOOOO 

NUMQFL 

00323AR 

025 

RANERR= 

10AA11 

R.PTR  = 

000000 

SY.PMT= 

001000 

T.SOP  = 

000002 

NUMRIG 

003231 R 

025 

RARGBL 

00320AR 

025 

R.SEQ  = 

000003 

SY.SRT= 

OOOAOO 

T.SPOP= 

OOOOAO 

NUMUID 

003226R 

025 

RARGCV 

003220R 

025 

R.VAR  = 

000002 

SY.SVC= 

OOOOOA 

T.TMP  = 

000200 

NUMZFL 

003235R 

025 

RARGFL 

003202R 

025 

R6 

Z000006 

SY.SVL= 

000200 

T.VAL  = 

100000 

NYIERR= 

10A432 

RARGLE 

00321 6R 

025 

R7 

X000007 

S.AB  = 

1 77776 

T.VAR  = 

001000 

N.BLS2= 

0000^6 

RARGLN 

00321  OR 

025 

SI 

X000005 

S.ASB  = 

100000 

UPPER  = 

177A00 

N.DESC= 

00002i. 

RARGPT 

003206R 

025 

SIDAMN= 

10AA35 

S.BFHD= 

000020 

UTNAME 

0003AAR 

023 

N.DEV  = 

00003^ 

RARGSF 

00321 AR 

025 

SIFRAM 

00331 AR 

025 

S.BITS= 

000002 

VALERR= 

10AA13 

N.DE\/N= 

00003A 

RARGTY 

00321 2R 

025 

SISTAK 

006350R 

025 

S.CHR1= 

000003 

VARBLE 

007A00R 

025 

N.DID  = 

00002A 

RARGVA 

003222R 

025 

SITOP 

0063A6R 

025 

S.FATT= 

000016 

VARBLS 

OOOOOOR 

025 

N.D\/^f1= 

000032 

RBASE 

00507AR 

025 

SITP 

0071 AAR 

025 

S.FDB  = 

0001 AO 

VERNUM 

OOOOOOR 

025 

N.EXT  = 

OOOOK 

RCOUNR 

0051 12R 

025 

SIWARN= 

000200 

S.FLB  = 

OAOOOO 

VRSION= 

000002 

N.FID  = 

000000 

RCOUNT 

00511  OR 

025 

SIZTAB 

OOOOAAR 

025 

S.FNAM= 

000006 

WIDTH 

000072R 

025 

N.FNAM= 

000006 

REDCNT 

005070R 

025 

SI.BIT= 

1 7777^ 

S.FNB  = 

000036 

WROUND 

000020R 

025 

N.FTYP= 

000014 

REDJGN 

005066R 

025 

SI.LEN= 

1 77772 

S.FNBW= 

000017 

WSDATE 

0001 36R 

025 

N.FVER= 

000016 

REDOFF 

0^'^'^72R 

025 

SI.RET= 

1 77772 

S.FNTY= 

OOOOOA 

WSFULL= 

10AA03 

N.NAME= 

000006 

REENTR 

C   SOR 

025 

SI.VAL= 

1 77776 

S.FTYP= 

000002 

WSNAME 

00007AR 

025 

N.^€XT= 

000022 

RESBIT 

00- .  »2R 

025 

SKPSIZ 

0051 3AR 

025 

S.LEN  = 

000002 

WSTIME 

0001 32R 

025 

N.PPN  = 

00002A 

RESCVT 

0031 52R 

025 

SPHOLD 

OOOOOAR 

02A 

S.LINK= 

1 7777^ 

$ABSF  = 

••••••  6X 

N.STAT= 

000020 

RESERR= 

10AAA0 

SPINIT 

000002R 

02A 

S.NFEN= 

000020 

$CFCC  = 

••••••  QX 

N.UN1T= 

00003A 

RESLEN 

0031 50R 

025 

STKINC= 

00077A 

S.TYPE= 

1A0000 

$CMPF  = 

*•••••  GX 

nRUFLN= 

001000 

RESPTR 

0031 AOR 

025 

STOP  = 

10AA20 

S.VAL  = 

000000 

$F1S     = 

••••••  Q 

OCHAN 

005052R 

025 

RESSFT 

0031 A6R 

025 

SUBCNT 

0031  OAR 

025 

TKDIMS 

005072R 

025  $FPP     = 

*•••••  G 

OMODE 

000402R 

023 

RESTYP 

0031 AAR 

025 

SUBDCT 

0031 06R 

025 

TKFRAM 

005066R 

025  $FPPLN= 

••••••  G 

OPTMPO 

005066R 

025 

RESULT 

0031 36R 

025 

SIRPTR 

00311  OR 

025 

TKLEFT 

005070R 

025  $MACHN= 

••••••  G 

0PTMP1 

005070R 

025 

RESVAL 

0031 5AR 

025 

SYMB1 

0053AAR 

025 

TMODE 

000A03R 

023  $MULF  = 

*«r«***  GX 

0PTMP2 

005072R 

025 

RINC 

0051  OAR 

025 

SYMF 

0053A0R 

025 

TMPTA6= 

000166 

$RSTS  = 

••••••  G 

0PTMP3 

0^507AR 

025 

RLTBAS 

005066R 

025 

SYMPT1 

0053A6R 

025 

TTYBUF 

OOAIAOR 

025  $RSX  = 

••••♦*  G 

OPTMPA 

Ov  3076R 

025 

ROTINC 

005070R 

025 

SYMTAB 

005352R 

025 

TTYLEN=  000622 

$RT11  = 

*•••••  G 

0PTMP5 

0051 OOR 

025 

ROUND 

00001  OR 

025 

SYMTBF= 

10AA0A 

TURKEY= 

10AA36 

$STF  = 

Ic-kHlc-k-k    GX 

0PTMP6 

0051 02R 

025 

ROVER 

00331 2R 

025 

SYMTOP 

005350R 

025 

TYPE  = 

000166 

$SIBF  = 

ftttickifk   GX 

0PTMP7 

0051 OAR 

025 

RSTS  = 

000000 

SYMTP 

006272R 

025 

T.BOL  = 

020000 

.B00LE= 

000002 

0PTMP8 

005106R 

025  RSX   = 

0001 1 5 

SYMURN= 

00005A 

T.CON  = 

OOAOOO 

.CHARA= 

000000 

0PTMP9 

00511 OR 

025 

RTOP 

005070R 

025 

SYNERR= 

10AA07 

T.DIM  = 

000100 

.DEF.  = 

000002 

GPrmo 

0051 12R 

025 

RT11  = 

000000 

SYSERR= 

10AA02 

T.FUN  = 

010000 

.FLOAT= 

000006 

OPTMU 

005026R 

025 

R.BJTS= 

000003 

SYSTAT 

OOOOOOR 

02A 

T.LIST= 

OOOAOO 

.FSRCB= 

•••*••  G 

ORIGIN 

000030R 

025 

R.FJX  = 

000001 

SY.BAD= 

000001 

T.LIT  = 

000020 

.INTEG= 

OOOOOA 

OUTPTR 

000066R 

025 

R.LCT  = 

000002 

SY.BRK= 

100000 

T.MON  = 

000010 

.MOLUN 

OOOAOAR 

023 

OVROPR= 

000000 

R.LN  = 

000002 

SY.BS  = 

000010 

T.NIL  = 

OOOOOA 

...GBL= 

000000 

PATCH 

0073AAR 

025 

R.LNUM= 

000010 

SY.CLR= 

OOOOAO 

T.NUM  = 

002000 

...TPC= 

000020 

PRECSN 

000052R 

025 

R.NEXT= 

000006 

SY.ERP= 

000020 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000020 

002 

MONTB 

000000 

003 

DYDTB 

000000 

OOA 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYDBTB 

000000 

007 

CGMTB 

000000 

010 

CHRTBL 

000000 

011 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

01A 

COMRT 

MACRO  Mil 

13  0 

SYMBO' 

TABLE 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

000172 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEFSO 

0OOA06 

023 

DEFSI 

000006 

024 

DEFS2 

007400 

025 

ERRORS 

DETECTED: 

0 
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1 

000000 

2 

000000 

3 

0001 1 5 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
FJS 
FPP 

II  II  II 
ooo 

FPPLEN 

=  4 

DEBUG 

=  0 

;NOT  RT-11 
;NaT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;NQ  FPP 

;SINGLE  PRECISION 

;DQN'T  DISPLAY  REGISTERS  ON  ERRORS 
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1  .S8TTL  APLDEF 
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DEFINITIONS     ERRORS 

2513  .LIST  SEQ,SRC,LOC,BIN,BEX,MEB 
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.TITLE  CONVER 
.IDENT  \V02.03\ 

.SBTTL  CONVERT 


M  16 


CHANGE  TYPE  OF  DATA  IN  SJ  FRAME 


FUNCTIONAL  DESCRIPTION: 

This  routine  is  passed  a  pointer  to  an  SI  frame  in  R2 
and  a  type  description  in  R1.  GETSM3  is  called  to  create 
a  (new)  item  on  the  SI.  The  type  is  converted  from  the 
old  type  to  the  new  type  if  possible,  otherwise 
a  DOMAIN  ERROR  occurs. 


CALLING  SEQUENCE: 

MOV     SI,R2 

MOV    #<New  Type>,Rl 

CALL    CONVERT 


.-point  to  val  on  SI  to  convert 
;type  to  convert  to 


INPUTS: 
R1 

R2 

OUTPUTS: 
RO 
R1 
R2 


-  Type  of  result  wanted:  .CHARACTER,  .BOOLEAN, 
.INTEGER,  .FLOAT 

-  Pointer  to  SI  frame  for  array  block  to  be  converted 


-  Points  to  converted  array  storage  block. 

-  <Preserved> 

-  <Preserved> 


ROUTINES  CALLED: 

GETSM3  -  Get  a  new  block  for  result 
SM.8    -  Store  result  as  Boolean 
SM.I    -  Store  result  as  Integer 

.PSECT  CODE 


B 
C 

D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
< 
L 
M 
N 
6 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
< 
L 
M 
N 
B 
C 
0 
E 
F 
G 
H 
I 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 

4 

A 
A 
4 
4 
A 

4 
4 
4 
5 
5 
5 
5 
5 
5 
5 
5 


BINSCH 


BLDLST 


BRKCHK 


CARVE 


CHRTAB 


J 

5 

E  ' 

10 

K 

5 

F  ' 

10 

L 

5 

G  ' 

10 

M 

5 

H  ' 

10 

N 

5 

I  ' 

10 

B 

6 

J  ' 

10 

C 

6 

K  ' 

10 

D 

6 

L  ' 

10 

E 

6 

M  ' 

10 

F 

6 

N  ■ 

10 

G 

6 

B  ' 

n 

H 

6 

C  ' 

11 

I 

6 

D  ' 

11 

J 

6 

E  ' 

11 

K 

6 

F  ' 

11 

L 

6 

G  ' 

11 

M 

6 

H  ' 

11 

N 

6  CKFNSJ 

I  ' 

11 

B 

7 

J  ' 

11 

C 

7 

K   ' 

11 

D 

7 

L  ' 

11 

E 

7 

M  ' 

11 

F 

7 

N  ' 

11 

G 

7 

B  ' 

12 

H 

7 

C  ' 

12 

I 

7 

D  ' 

12 

J 

7 

E  ' 

12 

K 

7 

F  ' 

12 

L 

7  CLRCOR 

G  ' 

12 

M 

7 

H  ' 

12 

N 

7 

I  ' 

12 

B 

8 

J  ' 

12 

C 

8 

K  ' 

12 

D 

8 

L  ' 

12 

E 

8 

M  ' 

12 

F 

8 

N  ' 

12 

G 

8 

B  ' 

13 

H 

8 

C  ' 

13 

I 

8 

D  ' 

13 

J 

8 

E  ' 

13 

K 

8 

F  ' 

13 

L 

8  CLRSI 

G  ' 

13 

M 

8 

H  ■ 

13 

N 

8 

I  ' 

13 

B 

9 

J  ' 

13 

C 

9 

K  ' 

13 

D 

9 

L  ' 

13 

E 

9 

M  ' 

13 

F 

9 

N  ' 

13 

G 

9 

B  ' 

14 

H 

9 

C  ' 

14 

I 

9 

D  ' 

14 

J 

9 

E  ' 

14 

K 

9  CLSFIL 

F  ' 

14 

L 

9 

G  ' 

14 

M 

9 

H  ' 

14 

N 

9 

I  ' 

14 

B 

10 

J  ' 

14 

C 

10 

K  ' 

14 

D 

,0 

L  ' 

14 

CMDCHN 


CWDMBR 


CMPRSS 


CW'TRT 


COMAMD 


M  14 
N  14 
B  15 
C  15 
D  15 
E  15 
F  15 
G  15 
H  15 
I  15 
J  15 
K  .5 
L  15 
M  15 
N  15 
B  16 
C  16 
D  16 
E  16 
F  16 
G  16 
H  16 
I  16 
J  16 
K  16 
L  16 
M  16 


COMRT 


CONVER 
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B  1 


CO 
CP 


36  000000 

37  000000 

38  000006 

39  000012 

40  000016 
A1  000020 

42  000024 

43  000026 

44  000030 

45  000032 

46  000034 

47  000040 

48  000042 

49  000044 

50  000046 

51  000050 

52  000052 

53  000054 

54  000056 

55  000060 

56  000062 

57  000064 

58  000066 

59  000070 

60  000076 

61  000100 

62  000106 

63  000112 

64  000114 

65  000120 

66  000124 
67 

68  000126 

69  000132 

70  000134 
72  000142 

77  000150 

78  000154 

79  000156 
80 

81 
82 

83  000162 

84  000164 

85  0166 

86  000172 

87  000174 

88  000176 

89  000200 

90  000204 

91  000210 

92  000216 

93  000222 


016200 
116003 
010302 
04^703 

020103 
003007 
002405 
132702 
001003 
005726 
000461 
010316 
006316 
006316 
001404 
005701 
001435 
005703 
001433 
061603 
016337 
062601 
016137 
016601 
011002 

016003 
001416 


102410 
013737 


104417 


1 1777 t 
000003 

1 1777y 


OOOOjO 


OOOOOOG  0031  j.^' 


OOOOOOG 
000002 


000004 


003152* 


003134*  003154' 


010503 
011602 
012700 
0H3O1 
014213 
010112 


000002 


016200     177776 


CONVtl 

PUSH 

<R3,R1.R2> 

MOV 

SI.VAL(R2),R0 

MOVB 

\.BITS(R0),R3 

MOV 

R3,R2 

BIC 

**C^A.NU:>  R3 

PUSH 

R1 

CMP 

R1,R3 

B6T 

1$ 

BLT 

7$ 

BITS 

#A.TMf>A.CQN,R2 

BNE 

1$ 

TST 

(SP)^ 

BR 

6$ 

7$: 

MOV 

R3,(SP) 

1$: 

ASL 

(SP) 

ASL 

(SP) 

BEO 

2S 

TST 

R1 

BEO 

4$ 

TST 

R3 

BEO 

4$ 

2S: 

ADD 

(SP),R3 

MOV 

M0^.'CT(R3),M0NCVT 

ADD 

(Sf)>,R1 

MOV 

RESCT(R1),RESCVT 

MOV 

2.(SP),R1 

MOV 

(R0),R2 

CALL 

GETSM3 

MOV 

A.ALEN(R0).R3 

BEO 

8$ 

3$: 

CALL 

aWONCVT 

BVS 

4$ 

MOV 

MONVAL,RESVAL 

STF 

AC1,AC0 

CALL 

aRESCVT 

4$: 

DOMERR 

SOB 

R3,3$ 

;  FINISH  UP  Ca.VERSION 

6S: 

MOV 

SI,R3 

MOV 

asp,R2 

MOV 

#<-SI.8IT>/2,R0 

5$: 

MOV 

-(R3),R1 

MOV 

-(R2).(R3) 

MOV 

R1,(R2) 

see 

R0,5$ 

CALL 

KILL 

6$: 

POP 

<R2,R1,R3> 

MOV 

SI.VAL(R2),R0 

SAVE  REGISTERS 

POINT   TO  AS8 

GET  THE  TYPE  OF  SOURCE 

Copy  the  bits 

CLEAR  GARBAGE  BITS 

STORE  NEW  TYPE 

Which  is  "larger"? 

Result 

Source 

Is  the  source  temporary  or  code  string? 

No,  Have  to  do  the  confers  ion 

Yes,  Clean  up  the  stack 

And  do  a  quick  return 

No,  source 

TIMES  2 

TIMES  4 
Result,  source  ^r^   character 
Is  either 
one 

of  them 

character? 
Lookup  conversion 

routine 
Lookup  conversion 

routine 
Result  type  is  ... 
POINT  TO  THE  VALUE 
TIME  ^0  COPY 
#  OF  ELEMENTS  IN  RESULT 
No  elements  to  convert 

Fetch  source 
Conversion  Error 
Copy  to 

Result 
Store  result 

Yes,  conversion  is  fatal 
Loop  tor  each  element 


COPY  PTR  TO  SI 
AND  PTR  TO  OLD  FRAME 
LOOP  LENGTH 
EXCHANGE 
THE 

SI  FRAMES 
LOOP 

die:  die:  you  all  die  horriblf  deaths 

GET  registers 

POINT    TO  RESULT  BLOCK 


RETURN 
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1 

000001 

.END 

CO 
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D     1 

SYMBOL 

TABLE 

ACO        = 

XOOOOOO 

CHRLBR= 

000073 

C.BLOK= 

000064 

D.DECD= 

000002 

EIS       = 

OOOOOO 

AC1        = 

X000001 

CHRLPR= 

000072 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

AC2        = 

X000002 

CHRMNS= 

000137 

C.BUFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

AC3       = 

X000003 

CHRMUL= 

000075 

C.BUFL= 

1 llltl 

D.DQAD= 

^  77777 

EOF       = 

104475 

AC4 

XOOOOOA 

CHRNEG= 

000100 

C.CCNT= 

1 77766 

D.DR0P= 

000002 

ERRMAX= 

000166 

ACS        = 

XOOOOOS 

CHRPDL= 

000271 

C.CPTR= 

1 77764 

D.ENCD= 

000002 

ERRMJW 

004772R 

025 

ALL  I  NT 

003274R 

025 

CHRPLl'= 

000055 

C.CZ     = 

001000 

D.EQ     = 

000000 

ERRPTR 

004770R 

025 

ARYRET 

003276R 

025 

CHRPVK 

000120 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRO 

004774R 

025 

ASCQUO=  000042 

CHRQST- 

000121 

C . FASW= 

020000 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

A.ALE^4=  OOOOOA 

CHRQUO= 

000113 

C.FLEN= 

000010 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.AR6  = 

000040 

CHRRBR= 

000047 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.ASB  = 

000200 

CHRRPR= 

000042 

C.FRC  = 

000001 

D.FPUT= 

000005 

FA.APD= 

000100 

A.BITS= 

000003 

CHRSEM=  000074 

C.IDEN^ 

000010 

D.GE     = 

000000 

FA.CRE= 

000010 

A.CON  = 

000020 

CHRSMO= 

000112 

C.NAME= 

000102 

D.GT     = 

oooooo 

FA.DLX= 

001000 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.NOBF= 

000400 

D.I8M  = 

000002 

FA.ENB= 

100000 

A.DIW1  = 

000006 

CHRUPA= 

000131 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.EXC= 

002000 

A.MW  = 

000006 

CHR.BS= 

00001 0 

COP     = 

000004 

D.INNR= 

000013 

FA.EXT= 

000004 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.NSP= 

000100 

A.TMP  = 

000010 

CHR . CR= 

000015 

C.RDLN= 

1 7117 t 

D.LE     = 

OOOOOO 

FA.NSR= 

000200 

BADDIR= 

104463 

CHR.C2= 

000032 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.POS= 

010000 

BADERR= 

104437 

CHR.GT= 

000046 

C.RND  = 

000010 

D.LT     = 

oooooo 

FA.RD  = 

000001 

BLZWn 

005116R 

025 

CHR.LFr 

000012 

C.SBIT= 

1 77756 

D.inAX  = 

oooooo 

FA.RWD= 

004000 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.SPFX= 

000100 

D.nEM  = 

000002 

FA.SEQ= 

040000 

CCNT 

005072R 

025 

CHR. Sl= 

000017 

C.SPGL= 

000200 

D./>^IN  = 

oooooo 

FA.SHR= 

000040 

CHA^€X 

003060R 

025 

CHR.SL^ 

000057 

C.SPLX= 

000001 

D.HUL   = 

oooooo 

FA.TMP= 

000020 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C.SPRS= 

000002 

D.NE     = 

oooooo 

FA.WCK= 

020000 

CHAN01 

000330R 

025 

CHR.TB= 

000011 

C.SRC  = 

1 1117 1, 

D.NN     = 

oooooo 

FA.URT= 

000002 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.SRCP= 

000024 

D.NR     = 

oooooo 

FD.BLK= 

000010 

CHAN03 

000674R 

025 

L  MK • • A— 

000141 

C.TT     = 

000004 

D.OR     = 

oooooo 

FD.CCL= 

000002 

CHANCK 

001056R 

025 

CHR..E= 

000145 

C.WIDC= 

1 7777^ 

D.PLUS= 

oooooo 

FD.COM=  020000 

CHANGS 

001240R 

025 

LHK • ■ b— 

000163 

C.WJDR= 

1 77772 

D.PS1R= 

000006 

'^D.CR  = 

000002 

CHAN06 

001422R 

025 

CHR..T= 

000164 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEFERR= 

104405 

D.QQAD= 

oooooo 

FD.FTN= 

000001 

CHAN08 

001766R 

025 

CHR.. 2= 

000172 

DEVIL 

0051 14R 

025  D.OUAD= 

oooooo 

FD.Fllr 

040000 

CHAN09 

0021 50R 

025 

CHR..O^ 

000060 

DEVNTF= 

104470 

D.RES  = 

oooooo 

FD.INS= 

000010 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIGITS 

000006R 

025  D.RHO  = 

oooooo 

FD.ISP= 

002000 

CHAN11 

00251 4R 

025 

CH.AND= 

0OOO01 

Dimx  = 

000020 

D.ROT   = 

000003 

FD./1NT= 

100000 

CHAN12 

002676R 

025 

CMD8UF 

0O3250R 

025 

DIWBU 

0031 12R 

025  D.SCaN= 

000006 

FD.OSP= 

004000 

CHAN13 

000022R 

023 

CMDf1AX= 

00001 0 

DIMPTR 

0031 14R 

025  D.SDIFr 

000006 

FD.PLC= 

000004 

CHANK 

000204R 

023 

CNTSIZ 

005130R 

025 

DIMTYP 

0031 16R 

025  D.SUB  = 

oooooo 

FD.PRN= 

000004 

CHNaPN= 

104471 

COMBIN 

005076R 

025 

DIRFUL= 

104466 

D.SIBS= 

000006 

FD.PSE= 

010000 

CHRAND= 

000051 

CQWCNT 

005126R 

025 

DaiERR= 

104417 

D.TAKE= 

000002 

rD.RAH= 

000001 

CHRBEL= 

000007 

COMERR= 

104425 

DPTERR:^ 

104416 

D.TRAN= 

000004 

FD.RAN= 

000002 

CHR8KR= 

000133 

CGMPTR 

005122R 

025 

DYDCNT 

003224R 

025  D.UNGN= 

000006 

FD.REC= 

000001 

CHRflOI.= 

000200 

COWRTN 

0031 56R 

025 

D.AND  = 

000000 

D.$WAX= 

oooooo 

FD.R«H= 

000001 

CHWH()X= 

000114 

COWSKP 

005124R 

025 

D.BXCT= 

000007 

D.$WIN=  000000 

FD.SDI= 

000020 

CHRC«A= 

000054 

CONVER 

OOOOOORG 

020 

D.BXIO= 

000007 

D.$«UL= 

oooooo 

FD.SQD= 

000040 

CHRCOL= 

000076 

CORPTR 

0O5120R 

025 

D.BXNL= 

000007 

D.$PLU= 

oooooo 

FD.TTY= 

000004 

CHRDEL= 

000107 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

oooooo 

FD.WBH= 

000002 

CHRL'IV= 

000053 

CS.800= 

000010 

D.8XPW= 

000007 

D.$SUB= 

oooooo 

FF.CHR= 

000005 

CHRDLR= 

000176 

CS.FLO= 

000020 

D.BXRL= 

000007 

D.1C0«= 

000001 

FF.NV  = 

000003 

CHROLT= 

000110 

CS.IDN= 

000040 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.POe= 

000002 

CHRDOT= 

000056 

CS.ONE= 

0001 00 

D.COI>©= 

000001 

D.1R0T= 

000003 

FF. RWD= 

000001 

CHREP  = 

000105 

CTEPS 

0001 52R 

025 

D.CO«P= 

000001 

EDICHR 

005063R 

025  FF.RWF= 

000006 

CHRERR= 

104431 

CT»iAX 

00021 2R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF.SPC= 

000004 

CHRFIL= 

000177 

CTRWAX 

0001 72R 

025 

D.CTLW= 

000000 

EDIFLG 

005062R 

025  FHEADR 

00501 2R 

025 

CHRFRO= 

000135 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT     = 

000003 

FHRET 

00504 OR 

025 
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E  1 

SYMBOL  TABLE 

FILNTF=  104467 

F.FNB  = 

000102 

KHAN 

005050^ 

025  MONCVT 

003132R 

025  M.REVS= 

000003 

FIS   =  000000 

F.FNDF= 

000010 

ILFNAM= 

104464 

MONLEN 

0031 30R 

025  M.ROLL= 

OOOOOO 

FISCON=  OA6000 

F.FTYP= 

000116 

ILLCHN= 

104540 

MONPTR 

0031 22R 

025  M.SATA= 

000001 

FIXPTR  00307AR 

025 

F.FUN  = 

000010 

ILLSW  = 

104565 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

FLAGS   00476AR 

025 

F.FVER= 

000120 

INDERR= 

104410 

MONTYP 

0031 24R 

025  M.SHAP= 

oooooo 

FLCBUF  003250R 

025 

F.HEAD= 

000006 

INNTMP 

003250R 

025  MONVAL 

0031 34R 

025  M.SIGN= 

oooooo 

FLINE   0050HR 

025 

F.HIBK= 

000004 

INNTM2 

00501 6R 

025  M.ABS  = 

000000 

M.SUBR= 

000001 

FLOEXP  003270R 

025 

F.LBL  = 

000020 

INPTR 

000064R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLONEG  003272R 

025 

F.LINE= 

000012 

INSNAW= 

104462 

M.BXAV= 

000007 

M.SYN  = 

000201 

FLSWTB  000222R 

025 

F.LOC  = 

000004 

lOERR  = 

104477 

M.BXCR= 

000007 

M.TRAN= 

000012 

FLTLEN=  000010 

F.LSTC= 

000004 

I.CNT  = 

1 77776 

M.BXCT= 

000007 

M.$ABS= 

OOOOOO 

FNINSI  005044R 

025 

F.LUN  = 

000042 

I. DIM  = 

1 77772 

M.BXEX= 

000007 

M.SCEI= 

oooooo 

FORIGN  000032R 

025 

F.liBCT= 

000054 

I.LEN  = 

00001 2 

M.BXFX= 

000007 

M.$FLR= 

oooooo 

F0.APD=  000106 

F./«C1  = 

000055 

I.OERR= 

000062 

M.BXIO= 

000007 

M.$IDN= 

oooooo 

F0.MFY=  000002 

F.MBFG= 

000056 

I. OLD  = 

1 77770 

M.BXLC= 

000003 

M.$NEG= 

oooooo 

FO.RD  =  000001 

F.WON  = 

00000? 

I.PTR  = 

1 7777^ 

M.BXNC= 

000007 

M.$SIG= 

oooooo 

FO.UPO=  000006 

F.NIL  = 

000001 

I. SIR  = 

177766 

M.BXNL= 

000007 

M.1RDT= 

000011 

F0.URT=  000016 

F.NRBD= 

0C0024 

KILL  = 

-;***♦*  GX 

M.BXPP= 

000007 

M.1REV= 

000003 

"^PflOOE  000042R 

025 

F.NREC= 

000030 

LABERR= 

104406 

M.BXPW= 

000007 

M.1SCN=  000011 

FPr*   =  000000 

F.QPN  = 

000010 

LABLPT 

005042R 

025  M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FPPLEN=  000004 

F.0VBS= 

000030 

LARGBL 

0031 62R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FRERLX  007400R 

025 

F.PREV= 

000000 

LAR6CV 

0031 76R 

025  M.BXUA= 

000007 

NB.DIR= 

000100 

FUZZ    00OK2R 

025 

F.PRNT= 

100000 

LARGFL 

0031 60R 

025  M.CEI  = 

1 77777 

NB.NAW=  000004 

FXPTR1  003076R 

025 

F.PROT= 

010000 

LARGLE 

0031 74R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

F$EVAL=  000100 

F.RACC= 

000016 

LARGLN 

0031 66R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

F$EVI  =  000200 

F.RATT= 

000001 

LARGPT 

0031 64R 

025  M.DOUT= 

000006 

NB.SM^  000040 

F$EXEC=  000400 

F.RCNM= 

000034 

LARGSF 

0031 72R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$FUNC=  001000 

F.RCTL= 

000017 

LARGTY 

0031 70R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F.ACTL=  000076 

F.READ= 

004000 

LAR6VA 

00320OR 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F.ALOC=  000040 

F.REDF= 

000040 

LBINC 

0051 OOR 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F.aBFS=  000062 

F.RES  = 

000040 

LBUFF 

00331 6R 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.RDR  =  000070 

F.RET  = 

1 77772 

LBUFLN= 

000621 

M.FIL  = 

000177 

ND.EXT= 

000002 

F.BGBC=  000057 

F.RSIZ= 

000002 

LCOUNT 

005106R 

025  M.FLR  ^ 

1 77777 

ND.NAW=  000004 

F.BITS=  1////4 

F.RTYP= 

000000 

L  ENERR= 

104412 

M.FMT  = 

000004 

ND. PPN= 

000100 

F.BKDN=  000026 

F.R2  = 

000014 

LENTAB 

000054R 

025  M.GDUP= 

000003 

ND.$EX= 

oooooo 

F.BKDS=  000020 

F.R3  = 

000016 

LEXPTR 

0031009 

025  M.GDWN=  000003 

ND.$E$= 

000020 

F.BICEF=  000050 

F.R4  = 

000020 

LFTOP 

005066« 

025  M.GETI= 

000006 

ND.$Mn=  OOOOOO 

F.BKP1=  000051 

F.SEQN= 

000100 

LINC 

005102R 

025  M.IBM  = 

000003 

ND.$NS=  000040 

F.BICST=  000024 

F.SPDV= 

000072 

LINE 

00501 6R 

025  M.IDN  = 

000000 

ND.$PN= 

001400 

F.BIC\/B=  000064 

F.SPUN= 

000074 

LINING 

0O5026R 

025  M.INSP= 

000006 

NEGSGN 

005063R 

025 

F.BR  =  000020 

F.STBK= 

000036 

LISIZE= 

C00020 

M.I0TA= 

000000 

NINPT1 

003302R 

025 

F.CHR  =  000075 

F.STK  = 

000022 

LITOP 

005072R 

025  M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.CNTG=  000034 

F.STOP= 

000004 

LNLNG  = 

104541 

M.LN  = 

000001 

NINSTK 

003304R 

025 

F.CODE=  000010 

F.STP  = 

000001 

LOClCT 

U05036R 

025  M.MMD  = 

00001 0 

NINTMP 

00331 OR 

025 

F.DF^e=  000046 

F . SUSP= 

000002 

LOWCOR 

000002R 

025  M.NEG  = 

000000 

NINTYP 

003306R 

025 

F.DSPT=  000044 

F.TRC  = 

000002 

LSTERP 

004766R 

025  M.NOT  = 

000000 

N0TAVL= 

104472 

F.D\/^f1=  000134 

F.UNIT= 

000136 

LWIDTH 

00007CR 

025  M.NUB  = 

00C006 

N0T0PN= 

104473 

F.EFBK=  000010 

F.URBD= 

000020 

L.BITS= 

000003 

M.NUM  = 

000204 

NPRT1 

004762R 

025 

?.EfN  =   000050 

F.VAL  = 

1 77776 

L.CNT  = 

00COO2 

M.0UTR= 

000012 

NULL 

007364R 

025 

F.END  =  002000 

F.V8N  = 

000064 

L.PRNT= 

000001 

M.PITMr 

000000 

NUMCHN= 

000020 

F.EnRB=  000032 

F.VBSZ= 

000060 

L.PTR  = 

000000 

M.PRDS= 

000006 

NUWDFL 

003230R 

025 

F.ERR  =  000052 

GETS«3= 

******  GX 

L.PTR1= 

000004 

M.OQAO= 

oooooo 

NUMEFL 

003233R 

025 

F.FACC=  000043 

GNOME 

0031 02R 

025  L.SUBS= 

000002 

M.OUAD= 

000000 

NUMESN 

003236R 

025 

F.FFBY=  000014 

HASHC 

005136R 

025  MACHIN= 

000106 

M.RAND= 

000012 

NUWFLG 

003230R 

025 

F.F LAG=  000002 

HASHTB 

005140R 

025  n^XCHN= 

000014 

M.RAVL= 

oooooo 

NUMLEN 

000062R 

025 

F.FL6  =  000100 

HSHMSKr 

177601 

MONBLK 

0031 20R 

025  M.RCIP= 

oooooo 

NUMNEG 

0032^2R 

025 

F.FNAM=  000110 

HSHSIZ= 

000200 

MONCT  = 

******  (3x 

M.RDCT- 

000011 

NUMQFL 

003234R 

025 

cc 
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F  1 

SYMBa 

TABLE 

NUMRIG 

003231 R 

025 

RANERR= 

104411 

R.NEXT= 

000006 

SY.8S  = 

000010 

T.LIT  = 

000020 

NUMUID 

0O3226R 

025 

RARGBL 

003204R 

025  R.OFF  = 

OOOOOO 

SY.CLR= 

000040 

T.MON  = 

000010 

NUM2FL 

003235R 

025 

RARGCV 

003220R 

025  R.PREV= 

000004 

SY.ERP= 

000020 

T.NIL  = 

000004 

NYIERR= 

10A432 

PJ\RGFL 

003202R 

025  R.PTR  = 

OOOOOO 

SY.NOU= 

000100 

T.NUM  = 

002000 

N.BLSZ= 

000036 

RARGLE 

00321 6R 

025 

R.SEQ  = 

000003 

SY.OPN= 

000002 

T.0PFN= 

000001 

N.DESC= 

000020 

RAR6LN 

00321 OR 

025 

R.VAR  = 

000002 

SY.PMT= 

001000 

T.0THR= 

040000 

N.DEV  = 

000032 

RARGPT 

003206R 

025 

R6 

X000006 

SY.SRT= 

000400 

T.SOP  = 

000002 

N.DE\/N=  00003A 

RARGSF 

00321 4R 

025 

R7 

X000007 

SY.SVC= 

000004 

T.SP0P= 

000040 

N.DID  = 

000024 

RARGTY 

00321 2R 

025 

SI 

X000005 

SY.SVL= 

000200 

T.TUP  = 

000200 

N.D\/^#1=  000032 

RARGVA 

003222R 

025 

SIDAMN= 

104433 

S.AB  = 

1 77776 

T.VAL  = 

100000 

N.EXT  = 

000014 

RBASE 

005074R 

025 

SIFRAW 

00331 4R 

025 

S.ASB  = 

100000 

T.VAR  = 

001000 

N.FID  = 

000000 

RCOUNR 

0051 12R 

025 

SISTAK 

006350R 

025 

3.8FHD= 

000020 

UPPER  = 

1 77400 

N.FNAM=  000006 

RCOUNT 

00511  OR 

025 

SI  TOP 

006346R 

025 

S.BITS= 

000002 

UTNAWE 

000344R 

023 

N.FTYP=  00001A 

REDCNT 

005070R 

025 

SITP 

0071 44R 

025 

S.CHR1= 

000003 

VALERR= 

104413 

N.FVER= 

000016 

REDIGN 

005066R 

025 

SIWARN= 

000200 

S.FATT= 

000016 

VARBLE 

007400R 

025 

N.NAME= 

000006 

REDOFF 

005072R 

025 

SIZTAB 

000044R 

025 

S.FDB  = 

000140 

VARBLS 

OOOOOOR 

025 

N.NEXT= 

000022 

REENTR 

003060R 

025 

SI.8IT= 

1 7777^ 

S.FLB  = 

040000 

VERNUM 

OOOOOOR 

025 

N.F>PN  = 

000024 

RESBIT 

0031 42R 

025 

SI.LEN= 

1 77772 

S.FNAW= 

000006 

VRSION= 

000002 

N.STAT= 

000020 

RESCT  = 

••••••  GX 

SI.RET= 

1 777^2 

S.FNB  = 

000036 

WIDTH 

OOO072R 

025 

N.UNIT= 

000034 

RESCVT 

0031 52R 

025 

SI  VAL= 

1 77776 

s.Ffew= 

00001 7 

WROUND 

000020R 

025 

aBUFLN=  001000 

RESERR= 

104440 

SKPSIZ 

0051 34R 

025 

S.FNTY= 

000004 

WSDATE 

0001 36R 

025 

OCHAN 

0O5O52R 

025 

RESLEN 

0031 50R 

025 

SPHOLD 

000004R 

024 

S.FTYP= 

000002 

WSFULL= 

104403 

OMODE 

000402R 

023 

RESPTR 

0031 40R 

025 

SPINIT 

000002R 

024 

S.LEN  = 

000002 

WSNAME 

000074R 

025 

OPJf^PO 

005066R 

025 

RESSFT 

0031 46R 

025 

STKINC= 

000774 

S.LINK= 

\7777t. 

WSTIME 

0001 32R 

025 

0PTMP1 

005070R 

025 

RESTYP 

0031 44R 

025 

STOP  = 

104420 

S.NFEN= 

000020 

$FIS  -■- 

Ick-k-kM-k     G 

0PTI»f>2 

005072R 

025 

RESULT 

0031 36R 

025 

SUBCNT 

0031 04R 

025 

S.TYPE= 

140000 

%^9?     = 

•♦***•  G 

0PTMP3 

005074R 

025 

RESVAL 

0031 54R 

025 

SUBDCT 

0031 06R 

025 

S.VAL  = 

OOOOOO 

$FPPLN= 

•*•*•♦  G 

OPTMPA 

005076R 

025 

RINC 

005104R 

025 

SIRPTR 

00311  OR 

025 

TKDIMS 

005072R 

025  $MACHN= 

■ktcktfk-k     G 

0PTWP5 

005100R 

025 

RLTBAS 

005066R 

025 

sym^ 

005344R 

025 

TKFRAW 

005066R 

025  SRSTS  = 

♦•*•**  G 

0PTMP6 

005102R 

025 

ROTINC 

005070R 

025 

SYMF 

005340R 

025 

TKLEFT 

005070R 

025  $RSX  = 

*••**•  G 

0PTMP7 

0051 04R 

025 

ROUND 

00001  OR 

025 

SYflPTI 

005346R 

025 

TMODE 

000403R 

023  $RT11  = 

**•*♦♦  G 

0PTMP8 

005106R 

025 

ROVER 

00331 2R 

025 

SYMTA8 

005352R 

025 

TMPTAG= 

000166 

$STF  = 

«*««**  GX 

0PTMF>9 

005110R 

025 

RSTS  = 

OOOOOO 

SYMTBF= 

104404 

TTYBUF 

004140R 

025  .B00LE= 

000002 

GPTWIO 

0051 12R 

025 

RSX   = 

000115 

SYMTOP 

005350R 

025 

TTYLEN= 

000622 

,CHARA= 

OOOOOO 

OPTWIA 

005026R 

025 

RTOP 

005070R 

025 

SYMTP 

006272R 

025 

TURKEY= 

104436 

.DEF.  = 

000002 

ORIGIN 

000030R 

025 

RT11   = 

OOOOOO 

SYMURN- 

000054 

TYPE  = 

000166 

.FLOAT= 

000006 

OUTPTR 

000066R 

025 

R.B1TS= 

000003 

SYNERR= 

104407 

T.80L  = 

020000 

.FSRCB= 

*****i^  G 

0VROF>R= 

000000 

R.FIX  = 

000001 

SYSERR= 

104402 

T.CON  = 

004000 

.INTEG= 

000004 

PATCH 

007344R 

025 

R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.DIM  = 

000100 

.MOLUN 

000404R 

023 

PRECSN 

0OOO52R 

025 

R.LN  = 

000002 

SY.8AD=^ 

000001 

T.FUN  = 

010000 

...GBL= 

OOOOOO 

RANDAC 

003064R 

025 

R.LNUM= 

000010 

SY.BRK= 

1000OO 

T.L1ST= 

000400 

...TPC= 

000020 

RANDY 

OOi062R 

025 

•  Aob « 

000000 
000000 

000 
001 

TABLES 

000000 

002 

liONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYDBTB 

000000 

007 

COWTB 

000000 

010 

CHRTBL 

000000 

Oil 

VfBL 

000000 

012 

ASCTBL 

oooooo 

013 

OVRTBL 

oooooo 

014 

TRNTBL 

oooooo 

015 

CC 

cc 
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SYWBa  TABLE 

MNTBL      000000           016 

MNTRTL    OOOOOC           017 

CODE        0O022A           020 

PATCH      000000           021 

SSFSR1     000000           022 

DEFSO      000406           023 

DEFSI       000006           024 

DEF$2      0O7A00           025 

ERRORS  DETECTED:      0 

C( 
C( 


VIRTUAL  MEMORY  USED:     12953  WORDS     (   51   PAGES) 

DYNAMIC  MEMORY:      14478  WORDS     (    55  PAGES) 

ELAPSED  TIME:     00:01:47 

CONVER, DM1 :'i05,301]CONVER/-SP=APLRXl ,APLDEF, CONVER, END 
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**FILE**ID**COPYC 


CI 
C( 


cccccccc 

000000 

pppppppp 

YY 

YY 

cccccccc 

cccccccc 

000000 

pppppppp 

YY 

YY 

cccccccc 

cc 

00 

00 

pp    pp 

YY 

YY 

CC 

cc 

CX) 

00 

pp    pp 

YY 

YY 

cc 

c': 

00 

00 

pp    pp 

YY   YY 

CC 

cc 

00 

00 

pp    pp 

YY   YY 

CC 

cc 

00 

00 

pppppppp 

YY 

CC 

cc 

00 

00 

pppppppp 

YY 

CC 

cc 

00 

00 

pp 

YY 

cc 

cc 

00 

00 

pp 

YY 

CC 

cc 

00 

00 

pp 

YY 

cc 

cc 

00 

00 

pp 

YY 

CC 

cccccccc 

000000 

pp 

YY 

cccccccc 

cccccccc 

000000 

pp 

YY 

CCCCCCCC 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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2- 
2- 
2- 
2- 
2- 
2- 
2- 
2- 
2- 
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2- 
2- 
2- 
2- 
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2- 
3- 
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9- 
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11- 
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13- 

1A- 

16- 

17- 

18- 

19- 

20- 

22- 

23- 

33- 

35- 

36- 

AA- 


1 

8 

9 

10 

11 

12 

13 

U 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

46 
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268 

331 

377 

426 
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515 
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607 
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DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
CPINAM 


ASSEMBLY  PARAMETERS 

OPERATOR  OVERLAYS 

REGISTERS 

MEMORY  ORGANIZATION 

ORDERING  PSECTS 

SI  PARSE  FRAMES 

TOKEN  DESCRIPTION  BITS 

SI  EXECUTION  FRAMES 

SPECIAL  ?f^Sl   CHARACTERS 

CHRTAB  BITS 

SYSTEM  STATUS  BITS 

F-FRAMES 

FUNCTION  LINE  BLOCKS 

ARRAY  STORAGE  BLOCK 

LIST  STORAGE  BLOCK 

INDEXING  STACK  FRAME 

SYMBOL  TABLE  ENTRY 

CHANNEL  BLOCK 

RSX  DATA 
NAME  BLOCKS 
MACROS 

APL  CHARACTERS 
ERRORS 
)COPY  -  INPUT  NAME  STRING 
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45- 

55 

CPONAM 

46- 

99 

OWORD 

46- 

123 

GETWRD 

47- 

148 

COPYC 

)COPY  -  OUTPUT  NAWE  STRING 

OUTPUT  A  WORD  TO  THE  CURRENT  OUTPUT  CHANNEL 

INPUT  A  WORD  FROM  THE  CURRENT  INPUT  CHANNEL 
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1 

000000 

2 

000000 

3 

0001 1 5 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

- 

0 
0 

EIS 
FIS 
FPP 

- 

0 
0 
0 

FPPLEN 

- 

A 

DEBUG 

^ 

0 

K  1 

;N0T  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;Nn  EIS 
;m  FIS 
;N0  FPP 

;SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 


COPYC       MACRO  M1113     08-FEB-80  11:24     PAGE  2 
APLDEF 

1  .S8TTL  APLDEF 

2  .IDENT  \V02.03\ 
3 


L  1 


M     1 
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DEFINITIONS  ERRORS 

2513  .LIST     SEQ,SRC,LQC,BIN,BEX,WEB 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
33 
39 
40 
41 
42 
43 
44 

45 

46 

47 
48 
49 
50 
51 
52 
53 
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N  1 


ERRORS 


> « 


000000 

000000 

000000 

000010 

000014  C  •/ 

000016  0(V 

000020  01?  .1 

000024 

000030  012704 

000034  112403 

000036  003412 

000040  112402 

000042  005303 

000044 

000050 

000060  005700 

000062 

OOt.064     104402 


.TITLE     COPYC 
.IDENT     \V02.03\ 

.S8TTL  L.  INAM 


)COPY  -  INPUT  NAME  STRING 


FUNCTIONAL  DESCRIPTION: 

This  routine  inputs  a  name  in  the  "standard"  copy 
format  to  the  currently  open  channel.  The  format  is 


♦  N^ne  Length  * 

♦  Chr  1  *  Length* 

♦  ...   *  Chr  2  * 


■kidfklilfkltlckifkltitiilfit 


(Words) 


IMPLICIT  INPUTS: 

This  routine  inputs  the  name  specified  to  the  current 
output  channel. 


OUTPUTS: 
RO 


-  Pointer  to  Name  entry  in  Symbol  Table 


ROUTINES  CALLED: 

GET8LK  -  Input  a  #  of  bytes  from  the  input  file 


CPINAM; 


003240' 
003240' 


1$, 


2$ 


.PSECT 

CODE 

PUSH 

<R1.R2.R3,R4> 

CALL 

GETWRD 

MOV 

R0,R4 

BEQ 

1$ 

r 

/TNAMBUF.RI 

C-',L 

GETBLK 

MOt 

#NAMBUF , R4 
(R4)*-,R3 

Move 

BLE 

2$ 

Move 

(R4)^,R2 

DEC 

R3 

CALL 

SYMBOL 

POP 

<R4,R3,R2,R1> 

TST 

RO 

RETURN 

SYSERR 


Save  most  registers 

Get  the  Length 

Copy  size  (in  bytes) 

Nothing  there.  Finished 

Set  up  Pointer  to  the  Name  Buffer 

Get  a  block  of  characters 

Pointer  to  N^ne  Buffer  (again) 

Name  length  iff   of  chars) 

Really  shouldn't  happen 

Get  the  ne:t  character 

and  decrement  count  remaining 
Find  it-  (Qf  •""t  it)  in  th-^  symbol  table 
Rertore  th  '   isters 
See  ^!t  r  p  ■   d  Pointer 


;Re.Jl'.y  shouldn't  happen 
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55 
56 

57 

58 
59 
60 
61 
62 
63 
6^ 
65 
66 
67 
68 
69 
70 
71 
72 
75 
74 
75 
76 
71 
78 
79 

80 
81 
82 
83 
84 
85 
86 
%7 

88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
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S8TTL      CPONA^! 


TT 


)COPV   -  OUTPUT   NAME    STRING 


000066 

000066 
000066 

000072  005721 
000074  111104 


♦♦ 


FUNCTIONAL  DESCRIPTION: 

This  routine  outputs  a  name  in  the  "standard"  copy 
format  to  the  currently  open  channel.  The  format  is 


*****  ,*w********* 

*  Name  Length  * 

*  Chr  1  •  Length* 

*  ...   •  Chr  2  • 

■ 

•******•*******•• 


(Words) 


INPUTS: 
R1 


-  Pointe'  to  Name  to  output 


IMPLICIT  OUTPUTS: 

This  routine  outputs  the  n^ne  specified  to  rhe  current 
output  channel. 

ROUTINES  CALLED: 

0UT8LK  -  Output  the  name  blocl^ 
OWORD   -  Output  the  size,  in  bytes 


CPOfuAW: 


000076 
000102 
000106 
000110 
000114 
000120 
000124 


062704 
042 70^ 
010400 


000002 
000001 


.PSECT 

CODE 

PUSf< 

<R4,R1> 

TST 

(RD* 

f10V8 

(R1),R4 

ADD 

#2.,R4 

BIC 

#<1^,R<. 

liOV 

R4,R0 

CALL 

OyORD 

CALL 

OUTBLK 

POP 

<R1,R4> 

RETURN 


Save  toork  registers 

Point  to  the  length 

Get  size,  in  bytes,  of  the  name 

Add  in  2  for  overhead 

Clear  the  loy  bit  (Copy  words) 

Copy  the  size 

Ojtput,  no  translation 

Output  a  block 

Restore  the  registers 

F  in i shed 


COPYC 

inACRO  1 

DWORD 

99 

100 

101 

102 

103 

10A 

105 

106 

107 

108 

109 

110 

111 

^^^ 

000126 

113 

114 

000126 

115 

000126 

116 

000132 

117  000134 

118 

000140 

119 

000142 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

000144 

137 

138 

0001^4 

139 

000144 

i40 

000146 

141 

000152 

142 

000156 

143 

0C<jl60 

144 

0O0164 

145 

000^70 

146 

0C0174 

1113     08-FEB-80  11:24 
OUTPUT  A  WORD   TO   THE 
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CURRENT  OUTPUT  CHANNEL 

.S8TTL     OWORD 


rr 


OUTPUT  A  WORD  TO  THE  CURRENT  OUTPUT  CHANNEL 


CI 
Al 


•f-f 


FUNCTIONAL  DESCRIPTION: 

This  routine  outputs  a  word  to  the  currently  open 
output  channel. 


INPUTS 


RO 


-  The  word  to  be  output 


ROUTINES  CALLED: 


OWORD : 


000300 
000300 


OCHAR 

-  Outputs 

a  byte 

.PSECT 

^ODE 

CALL 
SWAB 
CALL 
SWAB 
RETURN 

OCHAR 
RO 

OCHAR 
RO 

;Output  the  lower  half 
;Switch  bytes 
;Output  the  Upper  half 
;8ack  as  before 
;  Finished 

.S8TTL   GETWRD 


INPUT  A  WORD  FROM  THE  CURRENT  INPUT  CHANNEL 


♦  ♦ 


FUNCTIONAL  DESCRIPTION: 

This  routine  inputs  a  word  from  the  currently  open 
input  channel. 


INPUTS 


RO 


-The  word  to  be  input 


ROUTINES  CALLED: 

GETBVT  -  inputs  a  byte 


GETWRD 


013702  005050' 


n00o6  000001 


.PSECT 

CODE 

PUSH 

R2 

MOV 

ICHAN,R2 

CALL 

GET8YT 

PUSH 

RO 

.All 

GETev'T 

^iOVB 

R0,1.(SP) 

POP 

<R0,R2> 

RETURN 


.-Save  R2 

;Get  tne  input  channel 
; inp"t  the  lower  half 
;Save  the  character 
.•input  I  he  'Jpper  half 
;Put  in  top  byte 
;Get  the  word 
;r  ini-^hed 


1 

D  2 

COPYC 

WACRO  Mill  3  08 

-FEB-80 
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COPYC 

H8 

« 

.S8TTL 

COPYC 

K9 

150 

•  ♦•♦• 

151 

•  FUNCTIONAL  DESCRIPTION: 

152 

This  routine  is  used  to 

per 

form   the  copy  command.  It  does 
I'LL  describe  in  the  code. 

153 

a  whole 

'  mess  of  stuff  tl 

lat 

154 

;  — 

155 

000176 

.PSECT 

CODE 

156 

.ENA8L 

LS8 

157 

158 

000176 

PCOPYC: 

• 
• 

159 

000176 

012757 

000001 

005070" 

MOV 

#1.,0PTMP1 

.•Indicate  PCOPY 

160 
161 
162 

000204 

000402 

BR 

IS 

and  go 

000206 

( 

:OPYC:: 

163 

000206 

005037 

005070' 

CLR 

0PTMP1 

.•Indicate  Copy 

164 

165 

•  Take 

care  of 

scanning  the  fiU 

?  name,  putting  it  in  a                              | 

166 

•  file 

name  descriptor 

167 

168 

000212 

162706 

000006 

1$: 

SIR 

^6.,SP 

.•Reserve  space  on  SP  stack 

169 

000216 

PUSH 

<R4,R3> 

.•Save  the  current  pointers 

170 

000222 

CALL 

GETNB 

;6et  1st  non-bLank  character 

171 

000226 

2$: 

GETC 

3$ 

;Get  another  character 

000226 

005303 

DEC  R3 

;AJ^Y  CHARACTERS  LEFT? 

000230 

002404 

BLT  3$ 

;N0 

.  BRANCH  TO  3$ 

000232 

112402 

MOVb  (R4)^,R2 

;YES.  GET  NEXT  CHAR 

172 

000234 

122702 

000040 

CMPB 

#CHRSPA,R2 

;Is  it  a  space? 

173 

000240 

001372 

BNE 

2$ 

;No,  continue 

174 

000242 

010466 

000004 

5$: 

MOV 

R4,4.(SP) 

.-Save  current  string  info 

175 

000246 

010366 

000006 

MOV 

R3,6.(SP) 

(aLL  three 

176  000252 

010266 

000010 

MOV 

R2,8.(SP) 

registers) 

177  000256 

005103 

COM 

R5 

.-Make  it  negative 

178  000260 

062603 

ADD 

(SP)^,R5 

to  get  string  Length 

179  000262 

POP 

R4 

.•Restore  address,  too 

180 

000264 

012702 

OOOOOOG 

MOV 

#DFLTSV,R2 

.-Point  to  defauLt  name  bLock 

181 

000270 

CALL 

GETNAM 

; Decode  the  fiLe  name 

182 

:♦ 

183 

•  We  must  save 

the  current  file 

for 

Later 

184 

185 

000274 

012702 

000022 • 

MOV 

#CHAN15,R2 

.-UtiLity  channeL 

186 

000300 

052762 

000400 

177756 

BIS 

#C.N08F,C.SBIT(R2) 

; Norma L  buffering 
.•Parameters  for  OPNSET 

188  000306 

012701 

1 77775 

MOV 

#-5.,R1 

205 

000312 

CALL 

OPNSET 

.-Open  a  temporary  fiLe 
.•Pointer  to  FID  FieLd 

209  000316 

012700 

000124' 

MOV 

#CHAN13^C.NAMEJ 

^0 

210 

000322 

012701 

000544' 

MOV 

#UTNAME,R1 

;PLace  to  save  it 

211 

000326 

012705 

000017 

MOV 

#N.BLS2/2,R3 

.•Length  to  copy 
;Word  by  word 

212 

000332 

012021 

4$: 

MOV 

(R0)*,(R1)* 

213 

000334 

SOB 

R5,4$ 

.-Copy  it  aLL 

214 

000540 

CALL 

SAVOVR 

.•Save  the  WS 

215 

000544 

052737 

000004 

000000' 

BIS 

#SY.SVC,SYSTAT 

;Copy  in  progress 

Af 
DE 


L 


COPYC 
COPYC 
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E  2 


CI 
Dl 


217 
218 
219 

220  000352 

221  000356 

222  000362 

224  000366 

225  000370 
227  000374 
228 

229 
230 

231  000400 

232  000402 

233  000410 

234  000414 

235  000416 

236  000422 

237  000424 

238  000430 

239  000434 

240  000440 

241  000442 

242  000446 

243  000450 

244  000452 

245  000454 

246  000456 

247  000462 

248  000466 

249  000472 

250  000476 


012701 
012702 

010200 

010237 

005000 


002411 
122702 
001406 

016502 
1 1 6200 


001406 
011202 
012201 


012702 
005062 


177775 
000022 • 


005052' 


Set  up  the  temporary  file  for  outputting  the  names 


000015 


177776 
000002 


000022 • 
1 77760 


MOV 

xr-3.,R1 

MOV 

#CHAN13,R2 

CALL 

OPNSET 

MOV 

R2,R0 

CALL 

.MRKDL 

•  ^ 

MOV 

R2,0CNAN 

;  Now 

we  scan 

the  input  line. 

CLR 

RO 

POP 

<R4,R3,R2> 

CALL 

GETNB2 

BLT 

5$ 

CMPB 

#CHR.CR,R2 

BEO 

5$ 

CALL 

BLDLST 

MOV 

SJ.VAL(SI),R2 

Move 

L.CNT(R2),R0 

5$: 

PUSH 

RO 

CALL 

DWORD 

POP 

R3 

BEQ 

7$ 

MOV 

(R2),R2 

6$: 

MOV 

(R2)^,R1 

CALL 

CPONAM 

SOB 

R3,6$ 

7$: 

MOV 

#CHAN13,R2 

CALL 

WRIT«^P 

CLR 

C.BUFf (R2) 

:Jemporary   file 

on  Utility  Channel  *1 
;Ask  for  a  temporary 
.-Point  to  the  FDB 
;Mark  file  for  deletion 
.•Channel  for  output 


and  output  the  values. 


Assume  no  elements 

Restore  string  info  registers 

Get  the  next  non-blank  character 

Nothing  Specified,  copy  all 

Hello?  End  of  Line? 

Yes,  same  thing 

Build  a  list  or  the  stuff 

Get  a  pointer  to  the  list 

Get  the  M   of  n^nes 

Save  ff   of  names 

Output  count 

Anything  there? 

No,  fini' 

Point  to  element 

Pointer  to  name 

Output  the  name 

Loop  for  every  element 

Point  to  Utility  Channel  »^ 

Write  it  out 

No  more  buffer,  am  loading  new  WS 
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F  2 

COPYC 

252 

j-f 

253 

;  Load  in  the 

WS  we  will  copy  from,  read 

the  names,  output  the 

25A 
255 
256  000502 

;  corresponding  data,  read  in  the  name  block  of  the  temporary                       1 

01 2702 

000204 • 

MOV 

*CHAN14,R2 

:Point  to  Utility  Channel  1*2 

257  000506 

005001 

CLR 

R1 

;File  Should  exist 

258  000510 

052762 

000400 

177756 

BIS 

4fC.N08F,C.SBIT(R2) 

; Indicate  no  buffer 

259  000516 

CALL 

OPNSET 

;Ask  for  it 

260  000522 

CALL 

LODOVR 

;Load  the  file 

261  000526 

052737 

000004 

000000' 

BIS 

#SY.SVC,SYSTAT 

;Copy  in  progress 

262  00053A 

012702 

000204 • 

MOV 

#CHAN14,R2 

;Temp  file  for  data 

263  0005A0 

012701 

1 7777^ 

MOV 

*-3.,R1 

;It  is  a  temporary  file 

26A  0005A4 

CALL 

OPNSET 

;Get  the  file 

266  000550 

010200 

MOV 

R2,R0 

;Point  to  the  FDB 

267  000552 

CALL 

.MRKDL 

;Mark  file  for  deletion 

269  000556 

010237 

005052' 

MOV 

R2,0CHAN 

rThis  is  the  output  file 

270  000562 

01 2702 

000022 • 

MOV 

#CHAN13,R2 

; Input  channel 

272   000566 

005062 

000064 

CLR 

F.BKVB(R2) 

;Point  to 

2/3  000572 

01 2762 

000001 

000066 

MOV 

*1.,F.BICVB^2(R2) 

;   beginning  of  file 

281  000600 

010237 

005050' 

MOV 

R2,ICHAN 

;Now  input  file 

282  000604 

CALL 

READB 

;Now  read  it  in 

284  000610 

005062 

000064 

CLR 

F.8KVB(R2) 

;Point  to 

285  000614 

293 

294 

295 

012762 

000001 

000066 

MOV 

#1.,F.B<VB^2(R2) 

;   beginning  of  file 

;  Copy  the  date  the  WS  was  saved 

296  000622 

012701 

000136' 

MOV 

*WSDATE,R1 

;Point  to  WS  date 

297  000626 

012704 

000003 

MOV 

*3.,R4 

;Date  Info 

298  000632 

CALL 

OUTBLK 

: Output  it 

299  000636 

012701 

000132' 

MOV 

#WSTIME,R1 

; Point  to  WS  time 

300  000642 

012704 

000003 

MOV 

#3.,R4 

;Time  info 

301  000646 

302 

303  000652 

CALL 

OUTBLK 

; Output  it 

CALL 

CPOARG 

;Copy  out  the  stuff 

304  000656 

013702 

005050' 

MOV 

ICHAN,R2 

;Point  to  input  channel 

305  000662 

CALL 

RESCHN 

;Reset  it 

306  000666 

013702 

005052' 

MOV 

0CHAN,R2 

;Point  to  output  stuff 

307  000672 

CALL 

WRITEB 

'Write  out  last  buffer 

308  000676 

309 

310 

311 

312  000702 

005062 

1 77760 

CLR 

C.8UFF(R2) 

;Clear  buffer  pointer 

•  Re- load  the 

old  WS 

012700 

000344' 

MOV 

#UTNAME,RO 

•Pointer  to  Save  area 

313  000706 

012703 

000124' 

MOV 

#CHAN13K.NAME,R3 

•Pointer  to  channel  block 

314  000712 

012701 

000017 

MOV 

#N.8LSZ/2,R1 

•*  of  words  to  copy 

315  000716 

012023 

( 

?$ :     MOV 

(R0)*,(R3)* 

•Word  copy 

316  000720 

308 

R1,9$ 

real  fast 

317  000724 

012702 

000022 • 

MOV 

#CHAN13,R2 

•Point  to  the  channel 

318  000730 

052762 

000400 

17^756 

BIS 

<rC.NaBF,C.SBIT(R2) 

•Indicate  no  buffer 

319  000736 

CALL 

OPNSET 

•Open  the  file 

321  000742 

010200 

MOV 

R2,R0 

■Point  to  the  FD8 

322  000744 

CALL 

.MRKDL 

•Mark  file  for  deletion 

324  000750 

CALL 

LODOVR 

•LoaJ  the  file 

336  000754 

062/06 

000006 

ADD 

#6.,SP 

•Pop  arguments  we  don't  need 

c 

CI 
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MACRO  Ml  113  08-FEB-80  11:24  PAGE  50 


6  2 


C 

c 


338 
339 
340 

341  000760 

342  000764 

344  000770 

345  000774 
353  001002 

355  001006 

356  001012 

364  001 C?0 

365  0010^4 

366  001030 

367  001034 

368  001040 

369  001044 
370 

371  001050 

372  001054 
001060 
001064 
001100 
001104 


012702 
010237 
005062 
012762 

005062 
01 2762 
012701 
01 2704 

012701 
01 2704 


000204 • 

005050' 

000064 

000001  000066 

000064 

000001  000066 

000136' 

000003 

000132' 
000003 


Copy  the  data  from  the  temporary  file  into  the  system 


373 
374 
375 
376 
377 
578 
379 
380 
381 


382 
383 


013702  005050' 


000000 

000000 
000003 
000006 


MOV 

*CHAN14,R2 

MOV 

R2,1CHAN 

CLR 

F.BKVB(R2) 

MOV 

/iri.,F.BKVB^2(R2) 

CALL 

READB 

CLR 

F.8K:Vb(R2) 

MOV 

#1.,F.BKVB^-2(R2) 

MOV 

4fWSDATE,R1 

MOV 

*3.,R4 

CALL 

6ETBLK 

MOV 

/nJSTlME,R1 

MOV 

M3,M 

CALL 

GETBLK 

CALL 

CPIARG 

MOV 

ICHAN,R2 

CALL 

RESCHN 

MPRINT 

SAVMSG 

CALL 

DATIME 

CALLR 

NEWLIN 

.DSABL 

LSB 

.PSECT 

TABLES 

Input  channel 

This  IS  the  Input  file 

Point  to 

beginning  of  file 
Now  read  it  in 
Point  to 

beginning  of  file 
Point  to  the  date 
Read  in  3.  bytes 
Read  in  a  block 
Point  to  the  time 
Read  in  3.  bytes 
Get  the  time 


Point  to  the  input  channel 
Close  the  channel 
"SAVED  " 

Print  the  date/time 
and  a  <CR><LF> 


163 
145 
000 


141 
144 


166 
040 


SAVMSG:  .ASCIZ  /saved  / 


.EVEN 
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000001 


.END 


COPYC 
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SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRFR0= 

000135 

CS.0NE= 

000100 

D.BXRL= 

000007 

D.1C0M= 

000001 

AC1   = 

XjOOOOI 

CHRLBR= 

000073 

CTEPS 

0001 52R 

025 

D.CIRC= 

000001 

D.I EXP= 

000002 

AC2   = 

X000002 

CHRLPR= 

000072 

CTMAX 

00021 2R 

025 

D.COMB= 

000001 

D.1R0T= 

000003 

AC3   = 

X000003 

CHRMNS= 

000137 

CTRMAX 

0001 72R 

025 

D.COMP= 

000001 

EDICHR 

005063R 

025 

AC4   = 

XOOOOOA 

CHRMUL= 

000075 

C.ALOC= 

000162 

D.CONT= 

000006 

EDICNT 

005064R 

025 

ACS   = 

X000005 

CHRNEG= 

000100 

C.8L0K= 

000064 

D.CTLM=  000000 

EDIFLG 

005062R 

025 

ALLINT 

G0327AR 

025 

CHRPDL= 

000271 

C.BLSZ= 

000140 

D.DEAL= 

000003 

EDIT  = 

000003 

ARYRET 

003276R 

025 

CHRPLU=  000055 

C.BUFF= 

1 77760 

D.DECD= 

000002 

U%       = 

000000 

ASCQUO= 

0000A2 

CHRPWR= 

000120 

C.BUFL= 

1 77762 

D.DIV  = 

000000 

ILE%\1 

005132R 

025 

A.ALEN=  OOOOOA 

CHRQST= 

000121 

C.CCNT= 

177766 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

A.ARG  = 

000040 

CHRQU0=  000113 

C.CPTR= 

177764 

D.DQAD= 

^77777 

EOF   = 

104475 

A.ASB  = 

000200 

CHRRBR= 

000047 

C.CZ  = 

001000 

D.DROP= 

000002 

ERRMAX= 

000166 

A.BITS= 

000003 

CHRRPR= 

000042 

C.DIG  = 

000040 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

A. CON  = 

000020 

CHRSEM=  000074 

C.FASW= 

020000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

A.DIMS= 

000002 

CHRSM0=  000112 

C.FLEN= 

000010 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.Dim  = 

000006 

CHRSPA= 

000040 

C.FLSH= 

004000 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

A.NUM  = 

000006 

CHRUPA= 

000131 

C.FRC  = 

000001 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.PTR  = 

000000 

CHR.BS= 

000010 

C.IDEN= 

000010 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.TFf>  = 

000010 

CHR.CC= 

000003 

C.NA«E= 

000102 

D.FPUT= 

000005 

FA.APD= 

000100 

BADDIR= 

104463 

CHR.CR= 

000015 

C.N0BF= 

000400 

D.6E  = 

000000 

FA.CRE= 

000010 

BADERR= 

104437 

CHR.CZ= 

000032 

c.Nur  = 

000020 

D.GT  = 

000000 

FA.DLK= 

001000 

BLDLST= 

i^****«  GX 

CHR.GT= 

000046 

COP  = 

000004 

D.IBM  = 

000002 

FA.ENB= 

100000 

BLZBUB 

00S116R 

025 

CHR.LF= 

000012 

C.OPN  = 

010000 

D.IND  = 

000002 

FA.EXC= 

002000 

BRSELF 

005046R 

025 

CHR.LT=^ 

000043 

C.RDLN= 

1 77776 

D.INNR= 

000013 

FA.EXT= 

000004 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C.REWT= 

002000 

D.INTR= 

000006 

FA.NSP= 

000100 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C.RND  = 

000010 

D.LE  = 

000000 

FA.NSR= 

000200 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C.S8IT= 

177756 

D.LOG  = 

000001 

FA.POS= 

010000 

CHAN01 

00033GR 

025 

CHR.TB= 

000011 

C.SPFX= 

000100 

D.LT  = 

000000 

FA.RD  = 

000001 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.SPGL= 

000200 

D.MAX  = 

000000 

FA.RWD= 

004000 

CHAN03 

000674R 

025 

LrlH  •  mf\~ 

000141 

C . SPLX= 

000001 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CHANOO 

001GS6R 

025 

CHR..E= 

000145 

C.SPRS= 

000002 

D.MIN  = 

OOOOOC 

FA.SHR= 

0000 ;o 

CHANGS 

001240R 

025 

CHR..S= 

000163 

C.SRC  = 

1 7777^ 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHAN06 

001422R 

025 

CHR..T= 

000164 

C.SRCP= 

000024 

D.NE  = 

000000 

FA.WCK= 

020000 

CNAN07 

001604R 

025 

CHR..U=  000165 

C.TT  = 

000004 

D.NN  = 

000000 

FA.WRT= 

000002 

CHANGS 

001766R 

02" 

CHR..Z= 

0001 72 

C.WIDC= 

1 77770 

D.NR  = 

000000 

FD.BLK= 

000010 

CHANG9 

0021 5GR 

025 

CHR..0= 

000060 

C.WJDR= 

1 77772 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DATII1E= 

******  GX 

D.PLUS= 

000000 

FD.COM= 

020000 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DEBUG  = 

000000 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN12 

G02676R 

025 

CMD8UF 

003250R 

025  DEFERR= 

104405 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN13 

G00022R 

023 

CI>f)«AX= 

000010 

DEVIL 

0051 14R 

025 

D.OQAD= 

000000 

FD.FTN= 

000001 

CHANH 

000204R 

023 

CNTSIZ 

005130R 

025 

DEVNTF= 

104470 

D.OUAD= 

000000 

FD.F11= 

040000 

CHNOPN= 

104471 

COMBIN 

005076R 

025 

DFLTSV= 

******  GX 

D.RES  = 

000000 

FD.INS= 

000010 

CHRAND= 

000051 

COMCNT 

005126R 

025 

DIGITS 

000006R 

025 

D.RHO  = 

000000 

FD.ISP= 

002000 

CHRBEL= 

000007 

COMERR= 

104425 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHR8ICR= 

000133 

COMPTR 

005122R 

025 

DII^LK 

0031 12R 

025 

D.SCON= 

000006 

FD.OSP= 

004000 

CHRPOL= 

000200 

COMRTN 

0031 56R 

025 

DIMPTR 

0031 14R 

025 

D.SDIF= 

000006 

FD.PLC= 

000004 

CHHBOX= 

000114 

COMSKP 

005124R 

025 

DIMTYP 

0031 16R 

025 

D.SUB  = 

000000 

FD.PRN= 

000004 

CHRC«A= 

000054 

COPYC 

000206R6 

020  DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRCOL= 

000076 

CORPTR 

005120R 

025 

DOWERR= 

104417 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRDEL= 

000107 

CPIARG= 

♦♦♦♦♦♦  GX 

DPTERR= 

104416 

D.TRAN= 

000004 

FD.RAN= 

000002 

CHRDIV= 

000053 

CPINAM 

OOOOOORG 

020  DYDCNT 

003224R 

025 

D.UNON= 

000006 

FD.REC= 

000001 

CHRDLR= 

000176 

CPOARG= 

♦»♦*♦*  GX 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RVn= 

000001 

CHRDLT= 

000110 

CPONAM 

000066RG 

020  D.8XCT= 

000007 

D.$MIN= 

000000 

FD.SDI= 

000020 

CHRDOT= 

000056 

CS.ASS= 

000200 

D.8XI0= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHREP  = 

000105 

CS.BOO= 

000010 

D.BXNL^ 

000007 

D.$PLU= 

000000 

FD.TTY= 

000004 

CHRERR= 

104431 

CS.FLO= 

000020 

D.8XPP= 

0000G7 

D.$RES= 

000000 

FD.WBH= 

000002 

CHRFIL= 

000177 

CS.JDN= 

000040 

D.8XPW= 

000007 

D.$SI8--= 

000000 

FF.CHR= 

000005 
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SYMBOL  TABLE 

FF.NV  =  000003 

■.EOBB= 

000032 

F.VBSZ= 

000060 

LSTERP 

004766R 

025  M.NUB  = 

000006 

FF.POE=  000002 

-.ERR  = 

000052 

GETBLK= 

******  GX 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

FF.RWD=  000001 

■.FACC= 

000043 

GETBYT= 

idtlfklr-k    GX 

L.BITS= 

000003 

M.0UTR= 

000012 

FF.RWF=  000006 

■.FFBY= 

000014 

GETNA«= 

ifitnif-kit   GX 

L.CNT  = 

000002 

M.PITM= 

000000 

FF.SPC=  OOOOOA 

•.FLAG= 

000002 

GETNB  = 

******  GX 

L.PRNT= 

000001 

M.PRDS= 

000006 

FHEADR  00501 2R 

025  1 

'.FLB  = 

000100 

GET^e2= 

******  GX 

L.PTR  = 

000000 

M.QCIAD= 

000000 

FHRET   0050A0R 

025  1 

■.FNAM= 

000110 

GETWRD 

0001 44RG 

020  L.PTR1= 

000004 

M.QUAD= 

000000 

FILNTF=  104467 

'.FNB  = 

000102 

GNOME 

0031 02R 

025  L.SUBS= 

000002 

M.RAND= 

000012 

FIS   =  000000 

■.FNDF= 

000010 

HASHC 

0051 36R 

025  MACHIN= 

000106 

M.RAVl= 

OOOCX)0 

FISCON=  046000 

•.FTYP= 

000116 

HASHTB 

005140R 

025  MAXCHN=  000014 

\\MZ\?= 

000000 

FIXPTR  003074R 

025  1 

-.FUN  = 

000010 

HSHMSK= 

1 77601 

MONBLK 

0031 20R 

025  M.RDCT= 

000011 

FLAGS   004764R 

025  f 

■.FVER= 

000120 

HSHSIZ= 

000200 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

FLCBUF  003250R 

025  1 

■.HEAD= 

000006 

KHAN 

005050R 

025  MONLEN 

0031 30R 

025  M.R0LL= 

000000 

FLINE   005014R 

025  1 

■.HIBK= 

000004 

ILFNAM= 

1 04464 

MONPTR 

0031 22R 

025  M.SATA= 

000001 

FLOEXP  003270R 

025  f 

".LBL  = 

000020 

ILLCHN= 

104540 

MONSFT 

0031 26R 

025  M.SCAN= 

000011 

FLONEG  003272R 

025  f 

■.L1NE= 

00001 2 

ILLSW  = 

104565 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FLSWTB  000222R 

025  1 

-.LOC  = 

000004 

INDERR= 

104410 

MONVAL 

0031 34R 

025  M.SIGN= 

000000 

FLTLEN=  000010 

■.LSTC= 

000004 

INNTMP 

003250R 

025  M.ABS  = 

000000 

M.SU8R= 

000001 

FNINSI  005044R 

025  1 

-.LUN  = 

000042 

INNTM2 

00501 6R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FGRIGN  000032R 

025  1 

■.MBCT= 

000054 

INPTR 

000064R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FO.APO=  000106 

'.MBC1  = 

000055 

INSNAM= 

104462 

M.BXCR= 

000007 

M.TRAN= 

000012 

FO.MFY=  000002 

•.WBF6= 

000056 

lOERR  = 

104477 

M.BXCT= 

000007 

M.$ABS= 

000000 

FO.RD  =  000001 

-.MON  = 

000002 

I.CNT  = 

1 77776 

M.BXEX= 

000007 

M.$CEI= 

000000 

FO.UPD=  000006 

'.NIL  = 

000001 

I. DIM  = 

1 77772 

M.8XFX= 

000007 

M.$FlR= 

000000 

FO.WRT=  000016 

■.NRBD= 

000024 

I.LEN  = 

000012 

M.BXIO= 

000007 

M.$IDN= 

000000 

FPfCOE  000042R 

025  1 

■.NREC= 

000030 

I.OERR= 

000062 

M.BXLC= 

000003 

M.$NEG= 

000000 

fPP       =  000000 

'.OPN  = 

000010 

I. OLD  = 

1 77770 

M.BXNC- 

000007 

M.$SIG= 

000000 

FPPLEN=  000004 

'.0V8S= 

C00030 

I.PTR  = 

1 7777^ 

M.BXNL= 

000007 

M.1RDT= 

000011 

FREBLK  007400R 

025  1 

■.PREV= 

000000 

I.STR  = 

1 77766 

M.BXPP= 

000007 

M.1REV= 

000003 

FUZZ    0001 42R 

025  ( 

'.PRNT= 

100000 

LABERR= 

104406 

M.BXPW= 

000007 

M.1SCN= 

000011 

FXPTR1  003076R 

025  1 

'.PROT= 

010000 

LABLPT 

005042R 

025  M.BXRL= 

000007 

NAMBUF 

003240R     025 

F$EVAL=  000100 

'.RACC= 

000016 

LARGBL 

0031 62R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

F$EVI  =  000200 

'.RATT= 

000001 

LAR6CV 

0031 76R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

F$EXEC=  000400 

•.RCM>1=  000034 

LARGFL 

0031 60R 

025  M.CEI  = 

^77777 

NB.NAM= 

000004 

F$FUNC=  001000 

'.RCTL= 

000017 

LARGLE 

0031 74R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

F.ACTL=  000076 

".READ= 

004000 

LARGLN 

0031 66R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

F.ALOC=  000040 

'.REDF= 

000040 

LARGPT 

0031 64R 

025  M.DOUT= 

000006 

NB.SM1= 

000040 

F.aBFS=  000062 

'.RES  = 

000040 

LARGSF 

0031 72R 

025  M.DQAD= 

000006 

NB.STP= 

00002*^ 

F.BOB  =  000070 

'.RET  = 

1 77772 

LARGTY 

0031 70R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F.BGBC=  000057 

'.RSIZ= 

000002 

LARGVA 

003200R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F.BITS=  177774 

'.RTYP= 

000000 

LBINC 

005100R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F.BKDN=  000026 

'.R2  = 

000014 

LBUFF 

00331 6R 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.BICDS=  000020 

'.R3  = 

000016 

LBUFLN= 

000621 

M.FIL  = 

000177 

ND.EXT= 

000002 

F.BKEF=  000050 

'.R4  = 

000020 

LCOUNT 

005106R 

025  M.FLR  = 

^77777 

ND.NAM= 

000004 

F.BICP1=  000051 

' . SEQN= 

000100 

LENERR= 

104412 

M.FMT  = 

000004 

ND.PPN= 

000100 

F.B»CST=  000024 

' . SPDV= 

000072 

LENTAB 

000054R 

025  M.GDUP= 

000003 

ND.$EX= 

000000 

F.BK\/B=  000064 

'.SPUN= 

000074 

LEXPTR 

003100R 

025  M.GDWN=  000003 

ND.SE$= 

000020 

F.BR  =  000020 

'.ST»C= 

000036 

LFTOP 

005066R 

025  M.GETI= 

000006 

ND.y#1= 

000000 

F.CHR  =  000075 

'.STK  = 

000022 

LINC 

005102R 

025  M.IBM  = 

000003 

ND.$N$= 

000040 

F.CNTG=  000034 

'.ST0P= 

000004 

LINE 

00501 6R 

025  M.IDN  = 

OOOCOO 

ND.SPN= 

001400 

F.CQDE=  000010 

'.STP  = 

000001 

LININC 

005026R 

025  M.INSP= 

000006 

NEGSGN 

005063R    025 

F.DFI«=  000046 

' . SUSP= 

000002 

LISIZE= 

000020 

M.IOTA= 

000000 

NEWLIN= 

******  GX 

F.DSPT=  000044 

'.TRC  = 

000002 

LITOP 

005072R 

025  M.LIT  = 

000205 

NINPT1 

003302R    025 

F.D\/NW=  000134 

'.UN]T= 

000136 

LNLNG  = 

104541 

M.LN  = 

000001 

NINPT2 

003500R    025 

F.EFBK=  000010 

'.URBD= 

000020 

LOCLCT 

005036R 

025  M.MMD  = 

000010 

NINSTK 

003304R     025 

F.EFN  =   000050 

'.VAL  = 

1 77776 

LODOVR= 

*•♦•♦♦  GX 

M.NEG  = 

000000 

NINTMP 

00331  OR    025 

F.ZNO  =   002000 

'.V8N  = 

000064 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

NINTYP 

003306R     025 
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SYMBOL 

TABLE 

NOTAVL= 

10A472 

0PTMP9 

00511  OR 

025 

ROVER 

00331 2R 

025 

SYMTOP 

005350R 

025 

T.DIM  = 

000100 

NOTOPN= 

104A73 

0PTM10 

0051 12R 

0^5 

RSTS  = 

000000 

SYMTP 

006272R 

025 

T.FUN  = 

010000 

NPRT1 

004762R 

025  0PTM14 

005026R 

025 

RSX   = 

0001 1 5 

SYMWRN= 

000054 

T.LIST= 

000400 

NULL 

007364R 

025 

ORIGIN 

000030R 

025 

RTOP 

005070R 

025 

SYNERR= 

104407 

T.LIT  = 

000020 

Nl.WCHN=  000020 

0UTBLK= 

*t^i^**4^  GX 

RT11  = 

000000 

SYSERR= 

1 04402 

T.WON  = 

000010 

NUMDFL 

003230R 

025  OUTPTR 

000066R 

025 

R.BITS= 

000003 

SYSTAT 

OOOOOOR 

024 

T.NIL  = 

000004 

NUMEFL 

003233R 

025  0VR0PR= 

000000 

R.FIX  = 

000001 

SY.8AD= 

000001 

T.NUM  = 

002000 

NUMESN 

003236R 

025  DWORD 

0001 26R6 

020  R.LCT  = 

000002 

SY.BRK= 

100000 

T.0PFN= 

000001 

NUMFLG 

003230R 

025  PATCH 

007344R 

025 

R.LN  = 

000002 

SY.BS  = 

000010 

T.0THR= 

040000 

NUMLEN 

000062R 

025  PCOPYC 

0001 76RG 

020  R.LNUri= 

000010 

SY.CLR= 

000040 

T.SOP  = 

000002 

NUMNEG 

003232R 

025  PRECSN 

000052R 

025 

R.NEXT= 

000006 

SY.ERP= 

000020 

T.SP0P= 

000040 

NUMQFL 

003234R 

025  PRINTM= 

•**•••  GX 

R.OFF  = 

000000 

SY.N0U= 

000100 

T.TMP  = 

000200 

NUMRIG 

003231 R 

025  RANDAC 

003064R 

025 

R.PREV= 

000004 

SY.0PN= 

000002 

T.VAL  = 

100000 

NUMUID 

003226R 

025 

RANDY 

003062R 

025 

R.PTR  = 

000000 

SY.PMT= 

001000 

T.VAR  = 

001000 

NUMZFL 

003235R 

025 

RANERR= 

104411 

R.SEQ  = 

000003 

SY.SRT= 

000400 

\JPPER  = 

1 77400 

NY1ERR= 

104A32 

RARGBL 

003204R 

025 

R.VAR  = 

000002 

SY.SVC= 

000004 

UTNAME 

000344R 

023 

N.BLSZ= 

000036 

RARGCV 

003220R 

025 

R6 

X000006 

S^'  SVL= 

000200 

VALERR= 

104413 

N.DESC= 

000020 

RARGFL 

003202R 

025 

R7 

X000007 

S.AB  = 

1 77776 

VARBLE 

007400R 

025 

N.DEV  = 

000032 

RARGLE 

00321 6R 

025 

SAVMSG 

OOOOOOR 

002 

S.ASB  = 

100000 

VARBLS 

OOOOOOR 

025 

N.DEVN=  00003A 

RARGLN 

00321  OR 

025 

SAVOVR= 

••*•••  GX 

S.8FHD= 

000020 

VERNUM 

OOOOOOR 

025 

N.DID  = 

000024 

RARGPT 

003206R 

025 

SI 

X000005 

S.8ITS= 

000002 

VRSI0N= 

000002 

N.DVI^M^  000032 

RARGSF 

00321 4R 

025 

SIDAMN= 

104433 

S.CHR1= 

000003 

WIDTH 

000072R 

025 

N.EXT  = 

000014 

RARGTY 

0032 12R 

025 

SIFRAW 

00331 4R 

025 

S.FATT= 

000016 

WRITEB= 

******  GX 

N.FID  = 

000000 

RARGVA 

003222R 

025 

SISTAK 

006350R 

025 

S.FD6  = 

000140 

WROUND 

000020R 

025 

N.FNAM=  000006 

R8ASE 

005074R 

025 

SI  TOP 

006346R 

025 

S.FIR  = 

040000 

WSDATE 

0001 36R 

025 

N.FTYP= 

000014 

RCOUNR 

0051 12R 

025 

SITP 

0071 44R 

025 

S.FNAM= 

000006 

WSFULL= 

104403 

N.FVER= 

000016 

RCOUNT 

00511  OR 

025 

SIWARN= 

000200 

S.FNB  = 

000036 

WSNAME 

000074R 

025 

N.NAME= 

000006 

READP  = 

**t^*fr«  GX 

SIZTAB 

000044R 

025 

S.FNBW= 

000017 

WSTIME 

0001 32R 

025 

N.NEXT= 

000022 

red: 

005070R 

025 

SI.BIT= 

1 7777^ 

S.FNTY= 

000004 

$FIS  = 

******  G 

N.PPN  = 

000024 

REDI(> 

05066R 

025 

SI.LEN= 

1 77772 

S.FTYP= 

000002 

%fPP     = 

******  G 

N.STAT= 

000020 

REDOFF 

v05072R 

025 

SI.RET= 

1 77772 

S.LEN  = 

000002 

$FPPLN= 

******  G 

N.UNIT= 

000034 

REENTR 

003060R 

025 

SI.VAL= 

1 77776 

S.LINK= 

1 7777 A 

$«ACHN= 

******  G 

OBUFLN=  001000 

RESBIT 

0031 42R 

025 

SKPSIZ 

0051 34R 

025 

S.NFEN= 

000020 

$RSTS  = 

******  G 

DC  HAN 

0O5052R 

025 

RESCHN= 

******  GX 

SPHOLD 

000004R 

024 

S.TYPE= 

140000 

SRSX  = 

******  G 

OCHAR  = 

******  QX 

RESCVT 

0031 52R 

025 

SPINIT 

000002R 

024 

S.VAL  = 

000000 

$RT11  = 

******  G 

ur«>E 

C'^O402R 

023  RESERR= 

104440 

STKINC= 

000774 

TKDIMS 

005072R 

025 

.B00LE= 

000002 

OPNSET= 

♦1  ♦•♦*  GX 

RESLEN 

0031 50R 

025 

STOP  = 

104420 

TKFRAM 

005066R 

025 

.CHARA= 

000000 

OPTWF»0 

005066R 

025 

RESPTR 

0031 40R 

025 

SUBCNT 

0031 04R 

025 

TKLEFT 

005070R 

025 

.DEF.  = 

000002 

0PTMP1 

005070R 

025 

RESSFT 

003U'i^ 

025 

SUBDCT 

003106R 

025 

TMODE 

000403R 

023 

.FLOAT= 

000006 

0PTMP2 

005072R 

025 

RESTYP 

0031 44R 

025 

SlflPTR 

00311  OR 

025 

TI1PTAG= 

000166 

.FSRCB= 

******  G 

0PTMP3 

0O5074R 

025  RESULT 

0031 36R 

025 

SYreOL= 

******  GX 

TTY8UF 

004140R 

025 

.INTEG= 

000004 

OPTMPA 

005076R 

025 

RESVAL 

0031 54R 

025 

SY/«1 

005344R 

025 

TTYLEN= 

000622 

.MOLUN 

000404R 

023 

0PTMP5 

005100R 

025 

RING 

005104R 

025 

SYMF 

005340R 

025 

TURKEYr 

104436 

.MRKDL= 

******  GX 

0PTMP6 

0051 02R 

025 

RLTBAS 

005066R 

025 

SYMPT1 

005346R 

025 

TYPE  = 

000166 

...GBL=: 

000000 

0PTMP7 

005104R 

025 

ROTINC 

005070R 

025 

SYMTAB 

005352R 

025 

T.BOL  = 

020000 

...TPC= 

000020 

0PTMP8 

005106R 

025 

ROUND 

00001  OR 

025 

SYMTBF^ 

104404 

T.CON  = 

004000 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000010 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYD6TB 

000000 

007 

C0WT8 

000000 

010 

CHRTBL 

000000 

oil 

COPYC 
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TABLE 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

OK 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

001110 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEFSO 

000A06 

023 

DEF$1 

000006 

024 

DEF$2 

007400 

025 

ERRORS 

DETECTED: 

0 
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FT 


1 

000000 

2 

000000 

3 

000115 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

000004 

10 

11 

000000 

RTIl 
RSTS 
RSX 

=  0 

-  0 

EIS 
FIS 

fTOp 

II  II  II 
ooo 

FPPLFN 

=  4 

DE8UG 

=   0 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

.-SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 
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2 
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.IDENT 


-TT 
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CI 

1/ 


2513 


.LIST  SEQ,SRC,LOC,BIN,BEX,MEB 
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E 

5 

DEFINITIONS 

ERRORS 

1 

.TITLE 

CPIARG 

2 
3 

A 

5 

.IDENT 

\V02.03\ 

.S8TTL 

CPIARG 

COPY 

ARGUMENT 

FROM  THE  TEMP  FILE 

6 

7 

;  FUNCTIONAL  DESCRIPTION: 

8 

This  routine  is  used 

to  input 

elements  that  have  been 

9 

COPYed 

from  the  speci 

fied  WS 

into  the  current  WS.  The 

10 
11 
12 

format 

transmitted  is 

\   the  same  as  specified  in  CPOARG.                        1 

:  IMPLICIT  OUTPUTS: 

13 
K 
15 

The  COPYed  arguments 

are  plac* 

?d  in  the  current  WS. 

■  ROUTINES  CALLED: 

16 

CPINAM 

-  Inputs  the 

name  of  < 

irguments 

17 

FNHEAD 

-  Inputs  a  function  header                                        | 

18 

FNLINE 

-  Inputs  a  function  I 

ine 

19 

GET8LK 

-  Reads  in  a 

block  of 

data 

20 

GETWRD 

-  Gets  a  wore 

i  of  data 

21 

22 

23  000000 

24 

25  000000 

PRINTM 

-  Prints  a  message  to 

the  console/execute  channel 

.PSECT 

CODE 

CPIARG: 

• 
• 

26  000000 

r  ^ 

CPINAM 

1 

;Get  the  next  name 

27   000004 

001001 

L... 

1$ 

1 

;   if  there  is  one 

28  000006 

29 

30  000010 

P'  URN 

i 

;  There  isn't 

010004 

1$: 

MOV 

R0,R4 

;Copy  the  pointer 

;Read  in  the  H   of  elements 

31  000012 

CALL 

GETWRD 

32  000016 

010003 

MOV 

R0,R3 

;Get  that  ntmber 

33  000020 

001012 

BNE 

3$ 

;The  nunber  appears  to  be  0< 

34  000022 

012701 

000000 • 

MOV 

#aBNTFD,R1 

;'tBJECT  NOT  FOUND:  " 

35  000026 

2$: 

CALL 

PRINTM 

; Print  the  message 

36  000032 

010401 

MOV 

R4,R1 

;Copy  the  name  pointer 

37  000034 

CALL 

NAMOUT 

; Print  the  name 

38  000040 

CALL 

NEWLIN 

and  a  <CR><LF> 

39  000044 

40 

41  000046 

000755 

BR 

CPIARG 

;Loop  for  all  entries 

3$: 

CALL 

GLBSCH 

;Look  tn  see  the  qlobal 

42  000052 

001416 

BEQ 

6$ 

i 

; There  is  none 

43  000054 

005737 

005070' 

TST 

0PTMP1 

i 

;Is  the  command  'OPCOPY"? 

44  000060 

001022 

BNE 

7$ 

t 

:Yes,  don't  copy  the  object 

45  000062 

013701 

003314* 

MOV 

SIFRAM,R1 

i 

;Get  the  pointer  to  the  SI  Frame 

46  000066 

032761 

001000 

000002  4$: 

BIT 

#F$FUNC,F.FLAG(R1) 

i 

;Is  it  a  Function  Execution  Frame? 

47  000074 

001403 

BEQ 

5$ 

1 

•No,  ignore  this  frame 

48  000076 

021061 

000010 

CMP 

(R0),F.FUN(R1) 

1 

;Is  it  the  same  as  the  object? 

49  000102 

001411 

BEQ 

7$ 

1 

;Yes,  we're  not  allowed  to  copy  it 

50  000104 

011101 

5$: 

MOV 

(R1),R1 

1 

; Go  up  a  level  on  the  SI 

51  000106 

001767 

BEQ 

4$ 

4 

;All  finished?  Maybe  more  stuff 

52  000110 

6$: 

PUSH 

<R4,(R0)> 

1 

[Save  the  name  pointer,  value  direct 

53  000114 

020327 

000001 

CMP 

R3.4fl. 

I 

;What  type  of  data  is  it? 
;Array  block 

54  000120 

0014A3 

3E0 

16i 

1 

55  m)y22 

002460 

BLT 

17$ 

i 

;List 

56  000124 

000510 

BR 

20$ 

i 

■Function  Definition 
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TT 


c 

A 


58 
59 
60 

61  000126 

62  000130 

63  000132 

64  000134 

65  000136 

66  000142 

67  000144 

68  000146 
000152 
000156 
000162 


69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 


000164 
000166 
000172 
000174 
000176 
000200 

000202 
000204 
000206 
000212 
000214 
000216 
000220 
000224 


SPECIAL  CASE  -  LET'S  SKIP  THIS  GARBAGE 


005703 
C03002 
001432 
005403 

010001 
001404 


000416 


010600 

001010 
005726 
010436 
000677 

010416 
010600 

001005 
005726 

012701  000024' 
000700 


7$: 

TST 

R3 

BGT 

8$ 

BEQ 

14$ 

NEG 

R3 

8$: 

CALL 

GETWRD 

MOV 

R0,R1 

BEQ 

10$ 

9$: 

CALL 

GETBYT 

SOB 

R1,9$ 

10$: 

SOB 

R3,8$ 

•  X 

BR 

14$ 

;  FINISH  UP  THE 

ARGUMENT: 

11$: 

MOV 

SP,RO 

CALL 

ERASE 

BNE 

13$ 

TST 

(SP)^ 

MOV 

R4.a(SP)> 

BR 

CPIARG 

12$: 

MOV 

R4,(SP) 

MOV 

SP,RO 

CALL 

ERASE 

BNE 

15$ 

13$: 

TST 

(SP)^ 

POP 

R4 

14$: 

MOV 

*0eNTCP,R1 

BR 

2$ 

000226  104402 


15$ 


SYSERR 


Take  absolute  value  of  * 

It's  non-negative,  is  QX 

Zero  -  skip  the  skipping 

Negate  the  count 

Get  the  *  of  words  to  skip 

Save  the  count 

Nothing  there 

Get  a  Byte 

Loop  for  all  of  it 

Loop  for  each  element 

Now,  we  print  error  msg 


Pointer  **  2  to  Old 
Eliminate  old  value 
Erase  attempt  failed 
Pop  the  name 
New  value  is  ... 

and  loop  for  each  name 


.•Store  the  allocated  stuff 

; Point  to  it 

;Get  rid  of  it 

;The  attempt  failed,  bad  error 

;pop  this  stuff 

;Get  name  pointer 

;'t)BJECT  NOT  COPIED:  " 

; Print  the  message 

;An  error 


rr 
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TEMP  FILE 

93 

;  + 

9A 

;  Copy 

in  an 

Array  Block 

95 

%  000230 

16$: 

CALL 

GETWRD 

97  0OO23A 

PUSH 

RO 

98  000236 

CALL 

GETC01 

99  0002A2 

000757 

BR 

12$ 

100  000244 

011604 

MOV 

(SP),R4 

101  000246 

010001 

MOV 

R0,R1 

102  000250 

010016 

MOV 

R0,(SP) 

103  000252 

CALL 

6ETBLK 

104  000256 

POP 

R4 

105  000260 

060414 

ADD 

R4,(R4) 

106  000262 

000740 

BR 

11$ 

107 

108 

109 

110 

111 

;  -f 

112 

;  Here, 

we  input  List  blocks 

113 

•- 

114  000264 

005403 

17$: 

NEG 

R3 

115  000266 

010300 

MOV 

R3,R0 

116  000270 

006300 

ASL 

RO 

117  000272 

062700 

000006 

ADD 

*L.PTRU2.,R0 

118  000276 

CALL 

GETC01 

119  000302 

000744 

BR 

13$ 

120  000304 

010002 

MOV 

R0,R2 

121  000306 

PUSH 

RO 

122  000310 

010212 

MOV 

R2,(R2) 

123  000312 

062722 

000006 

ADD 

#L.PTRU2.,(R2)^' 

124  000316 

110322 

MOVB 

R3,(R2)^ 

125  000320 

105022 

CLR8 

(R2)  + 

126  000322 

011022 

MOV 

(R0),(R2)^ 

127  000324 

005703 

TST 

R3 

128  000326 

001405 

BEQ 

19$ 

129  000330 

18$: 

CALL 

CPINAM 

130  000334 

010022 

MOV 

R0,(R2)+ 

131  000336 

soe 

R3J8$ 

132  000342 

19$: 

POP 

R4 

133  000344 

000707 

BR 

11$ 

c 


Get  the  total  size  of  the  item 
Save  It  for  transfer 
Do  a  conditional  Memory  Request 
Error,  say  not  copied 
Restore  the  length 
Copy  result  field  pointer 
Save  the  new  value's  address 
Read  in  the  data 
Restore  the  address 
Point  to  self 
and  finish  up 


Make  the  count  positive 
Copy  the  count 
Convert  to  bytes 
Add  in  overhead 
Attempt  to  allocate  space 
The  attempt  failed 
Copy  the  result  pointer 
Save  it  on  the  stack,  too 
Point  to  self 
Add  in  offset  to  pointer 
ff   of  elements 
No  flag  bits 
Pointer  to  last  element 
Any  elements  at  all? 
No 

Input  a  name 
Point  to  the  name  entry 
Loop  for  each  entry 
Restore  pointer  to  block 
and  go 
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ITT 


135 
136 
137 

138  000346 

139  000350 

140  000352 

141  000354 

142  000360 

143  000364 

144  000370 

145  000374 

146  000376 

147  000400 

148  000404 

149  000410 

150  000414 

151  000416 

152  000422 

153  000424 

154  000430 

155  000454 

156  0004<»0 

157  000444 

158  000450 

159  000452 

160  000454 

161  000456 

162  000462 

163  000466 

164  000472 

165  000474 

166  000500 

167  000504 

168  000506 

169  000512 

170  000514 

171  000520 
172 

173 

174  000000 

175  000000 

176  000000 
000003 
000006 
000011 
000014 
000017 
000022 

177 

178  000024 

179  000024 
000027 
000032 
000035 
000040 
000045 
000046 


005014 
005303 

010337  005072' 
005037  005044' 
005037  005012' 

010004 

01 2701  OOOOOOG 

01 2700  OOOOOOG 

104402 

010037  005012' 

012676  000002 

005037  005016' 

005237  005016' 

010004 
001415 

012701  OOOOOOG 
012704  OOOOOOG 


104402 

005337  005072' 

003352 

000621 


157 
145 
040 
164 
157 
144 
040 


157 

145 
040 
164 
157 

145 

040 


142 
143 
156 
040 
165 
076 
000 


142 
143 
156 
040 
160 
144 
000 


This 


50$; 


21$: 


22% 


section 

of  code  handle 

PUSH 

(R4) 

CLR 

(R4) 

DEC 

R3 

MOV 

R3,0PTMP2 

CLR 

FNINSI 

CLR 

FHEADR 

CALL 

GETWRD 

MOV 

R0,R4 

PUSH 

RO 

MOV 

#CP0UTL,R1 

CALL 

GETBLK 

MOV 

/(^CPOUTL.RO 

POP 

R1 

CALL 

FNHEAD 

SYSERR 

MOV 

RO^FHEADR 

MOV 

(SP)^,a2.(SP) 

CLR 

LINE 

INC 

LINE 

CALL 

GETWRD 

MOV 

R0,R4 

BEQ 

22% 

PUSH 

RO 

MOV 

#CP0UTL,R1 

CALL 

GETBLK 

MOV 

/rCP0UTL,R4 

POP 

R3 

CALL 

GETNB 

CALL 

FNLINE 

SYSERR 

DEC 

0PTMP2 

BGT 

21$ 

CALL 

FNEND 

BR 

11$ 

function  definition 


152 
164 
157 
146 
156 
040 


152 
164 
157 
143 
151 
076 


06NTFD: 


.PSECT  TABLES 

.ASCIZ  /object  not  found>  / 


OBNTCP: 


.ASCIZ  /object  not  copied>  / 


Save  the  old  v/alue 

Now  clear  it  for  later 

Skip  the  header 

Save  the  count 

No,  it  is  OK  to  do  this 

No  function  yet 

Get  the  length 

Copy  for  block  read 

Save  size  of  line 

Temporary  space  for  copy 

Read  in  a  block  of  info 

Point  to  the  buffer 

Restore  count 

Get  the  function  header 

Should  not  ever  happen 

Point  to  the  function  header 

Restore  local  value 

Header  is  line  0 

Start  w/  line  1 

Read  in  the  next  line's  length 

Copy  for  block  read 

Nothing  to  read 

Save  for  later 

Tempory  space  for  COPY 

Read  in  tne  stuff 

Pointer  to  buffer 

Count  remaining 

Scan  into  the  line 

Enter  a  line 

Should  never  happen 

Decrement  count 

and  loop  for  all 
Take  care  of  labels,  etc. 
All  is  ok,  continue 


TT 
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180  .EVEN 


J"T 
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TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

CTRMAX 

0001 72R 

025  D.CTLM= 

000000 

EDIFLG 

005062R 

025 

AC1   = 

Z000001 

CHRLPR= 

000072 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

AC2   = 

X000002 

CHRMNS= 

000137 

C.BLOK= 

000064 

D.DECD= 

000002 

EIS       = 

000000 

ACS   = 

X000003 

CHRMUL= 

000075 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

0051  ::2R 

025 

ACA   = 

XOOOOOA 

CHRNEG= 

000100 

C.BUFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

ACS   = 

X000005 

CHRPDL= 

000271 

C.BUFL= 

177762 

D.DQAD= 

1 77777 

EOF   = 

104475 

ALLINT 

0O327AR 

025 

CHRPLU= 

000055 

C.CCNT= 

1 77766 

D.DR0P= 

000002 

ERASE  = 

******  GX 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C.CPTR= 

1 77764 

D.ENCD= 

000002 

ERRMAX= 

OCJ'66 

ASCQUO=  0000A2 

CHRQST= 

000121 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRNUM 

004;?2»^ 

025 

A.ALEN=  000004 

CHRQU0= 

000113 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRPTR 

0047V0R 

025 

A.ARG  = 

OOOOAO 

CHRRBR= 

000047 

C.FASW= 

020000 

D.FGET= 

000005 

ERRO 

004774R 

025 

A.AS8  = 

000200 

CHRRPR= 

000042 

C.FLEN= 

000010 

D.FMT  = 

000004 

EXEBUF 

005054R 

025 

A.BITS= 

000003 

CHRSEM= 

000074 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$CT 

005056R 

025 

A. CON  = 

000020 

CHRSM0= 

000112 

C.FRC  = 

000001 

D.FPUT= 

000005 

E$PT 

005060R 

025 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.IDEN= 

000010 

D.GE  = 

000000 

FA.APD= 

000100 

A.DIW1= 

000006 

CHRUPA= 

000131 

C.NAME= 

000102 

D.GT  = 

000000 

FA.CRE= 

000010 

A. MUM  = 

000006 

CHR.BS= 

000010 

C.N08F= 

000400 

D.IBM  = 

000002 

FA.DLK= 

001000 

A.PTR  = 

000000 

CHR.CC= 

000003 

CNLW  = 

000020 

D.IND  = 

000002 

FA.E^e= 

100000 

A.TWP  = 

000010 

CHR.CR= 

000015 

COP  = 

000004 

D.INNR= 

000013 

FA.EXC= 

002000 

BADDIR= 

10AA63 

CHR.CZ= 

000032 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.EXT= 

000004 

BADERR= 

104437 

CHR.GT= 

000046 

C.RDLN= 

1 77776 

D.LE  = 

000000 

FA.NSP= 

000100 

BLZRl.fi 

005116R 

025 

CHR.LF= 

000012 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.NSR= 

000200 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.RND  = 

000010 

D.LT  = 

000000 

FA.P0S= 

010000 

CCNT 

0O5072R 

025 

CHR.SI= 

00001 7 

C.S81T= 

177756 

D.MAX  = 

000000 

FA.RD  = 

000001 

CHA^€X 

003060R 

025 

CHR.SL= 

000057 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.RWD= 

004000 

CHANOO 

000256R 

025 

CHR.S0= 

000016 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.SEQ= 

040000 

CHAN01 

000330R 

025 

CHR.TB= 

000011 

C.SPLX= 

000001 

D.MUL  = 

000000 

FA.SHR= 

000040 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.SPRS= 

000002 

D.NE  = 

000000 

FA.TMP= 

000020 

CHAN03 

000674R 

025 

L  Hn  a  « A— 

000141 

C.SRC  = 

1 7777^ 

D.NN  = 

000000 

FA.WCK= 

020000 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.SRCP= 

000024 

D.NR  = 

000000 

FA.WRT= 

000002 

CHAN05 

001240R 

025 

LNH • • j~ 

000163 

C.TT  = 

000004 

D.OR  = 

000000 

FD.BLK= 

000010 

CHAN06 

001422R 

025 

CHR..T= 

000164 

C.WJDC= 

1 77770 

D.PLUS= 

000000 

FD.CCL= 

000002 

CHAN07 

001604R 

025 

CHR..U= 

000165 

C.WJDR= 

1 77772 

D.PS(B= 

000006 

FD.C0M=  020000 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.CR  = 

000002 

CHAN09 

0021 50R 

025 

CHR..0= 

000060 

DEFERR= 

104405 

D.OQAD= 

000000 

FD.DIR= 

000010 

CHAN10 

002332R 

025 

CHR..1= 

00006' 

DEVIL 

0051 14R 

025  D.OUAD= 

000000 

FD.FTN= 

000001 

CHAN11 

0025 14R 

025 

CH.AND= 

00000  J 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.F11= 

040000 

CHAN12 

002676R 

025 

CMD8UF 

003250R 

025 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.INS= 

000010 

CHAN13 

000022R 

023 

CMDMAX= 

000010 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.ISP= 

002000 

CHANU 

000204R 

023 

CNTSIZ 

0051 30R 

025 

DI/>©LK 

0031 12R 

025  D.SCON= 

000006 

FD.MNT= 

100000 

CHWOPN= 

104471 

COMBJN 

005076R 

025 

DI/1PTR 

0031 14R 

025  D.SDIF= 

000006 

FD.0SP= 

004000 

CHRAND= 

000051 

COMCNT 

0051 26R 

025 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PLC= 

000004 

CHRBEL= 

000007 

C0I1ERR= 

104425 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PRN= 

000004 

C^'RBKR= 

000133 

COMPTR 

005122R 

025 

DOWERR= 

104417 

D.TAKE= 

000002 

FD.PSE= 

010000 

(   Tr)L= 

000200 

CGMRTN 

0031 56R 

025 

DPTERR^ 

104416 

D.TRAN=  000004 

FD.RAH= 

000001 

CHRflnX= 

000114 

CGWSKP 

005124R 

025 

DYDCNT 

00322-  R 

025  D.UNON= 

000006 

FD.RAN=  000002 

CHRC«A= 

000054 

CORPTR 

005120R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.REC= 

000001 

CHRCa= 

000076 

CPIARG 

OOOOOORG 

020  D.8XCT= 

000007 

D.$MIN= 

000000 

FD.RWW=  000001 

CHRDEL= 

000107 

CP]NAM= 

♦♦*♦♦♦  GX 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SDI= 

000020 

CHRD1V= 

000053 

CPOUTL= 

******  GX 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.SQD= 

000040 

CHRDLR= 

000176 

CS.ASS= 

000200 

D.8XPP= 

000007 

D.$RES= 

000000 

FD.TTY= 

000004 

CHRDLT= 

000110 

CS.800= 

000010 

D.BXPW= 

000007 

D.$SUB= 

000000 

FD.WBH= 

000002 

CHRDOT= 

000056 

CS.FLO= 

000020 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.CHR= 

000005 

CHREP  = 

000105 

CS.IDN= 

000040 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.NV  = 

000003 

CHRERR= 

104431 

CS.ONE= 

000100 

o.com= 

000001 

D.1R0T= 

000003 

FF.P0E= 

000002 

CHRFJL= 

000177 

CTEPS 

0001 52R 

025 

D.COMP= 

000001 

EDICHR 

005063R 

025  FF.RWD= 

000001 

CHRFRO= 

000135 

CTMAX 

00021 2R 

025 

D.CONTr 

000006 

EDICNT 

005064R 

025  FF.RWF= 

000006 

CPIARG 
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FF.SPC= 

000004 

-.ERR  = 

000052 

GETBLK= 

••••••  GX 

L.8ITS= 

000003 

M.0UTR=  000012 

F HE ADR 

00501 2R 

025  f 

•.FACC= 

000043 

GET8YT= 

*♦*•*•  GX 

L.CNT  = 

000002 

M.PITM=  000000 

FHRET 

0050A0R 

025  f 

•.FFBY= 

000014 

GETC01= 

**••••  GX 

L.PRNT= 

000001 

M.PRDS=  000006 

FILNTF= 

104467 

■.FLAG= 

000002 

GETNB  = 

**•••«  GX 

L.PTR  = 

000000 

M.QQAD=  000000 

FIS   = 

000000 

-.FLB  = 

000100 

GETWRD= 

ti^«i^««  GX 

L.PTR1= 

000004 

M.QUAD=  000000 

FISCON=  (K6000 

•.FNAM= 

000110 

GLBSCH= 

******  GX 

L.SU8S= 

000002 

M.RAND=  000012 

FIXPTR 

003074R 

025  1 

•.FNB  = 

000102 

GNOME 

0031 02R 

025  MACHIN= 

000106 

M.RAVL=  000000 

FLAGS 

004764R 

025  f 

■.FNDF= 

000010 

HASHC 

0051 36R 

025  MAXCHN= 

000014 

M.RCIP=  000000 

FLCBUF 

003250R 

025  f 

■.FTYP= 

000116 

HASHTB 

0051 40R 

025  MONBLK 

0031 20R 

025  M.RDCT=  000011 

FLINE 

00501 4R 

025  F 

".FUN  = 

000010 

HSHMSK= 

177601 

MONCVT 

0031 32R 

025  M.REVS=  000003 

FLOeXP 

003270R 

025  F 

•.FVER= 

000120 

HSHSIZ= 

000200 

MONLEN 

0031 30R 

025  M.ROLL=  000000 

FLONEG 

003272R 

025  F 

■.HEAD= 

000006 

I  CHAN 

005050R 

025  MONPTR 

0031 22R 

025  M.SATA=  000001 

FLSWTB 

000222R 

025  1 

•.HIBK= 

000004 

ILFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SCAN=  000011 

FLTLEN^  000010 

-.LBL  = 

000020 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP=  000000 

FNEND  = 

*♦**♦♦  GX 

■.LINE= 

000012 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SIGN=  000000 

FNHEAD= 

♦**♦♦*  GX 

•.LOC  = 

000004 

INDERR= 

104410 

M.ABS  = 

000000 

M.Sl«R=  000001 

FNINSI 

005044R 

025  1 

•.LSTC= 

000004 

INNTMP 

003250R 

025  M.BOL  = 

000200 

M.SYM  =  000203 

FNL1I^= 

*♦*♦♦♦  GX 

".LUN  = 

000042 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.SYN  =  000201 

FORIGN 

000032R 

025  1 

■.MBCT= 

000054 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN=  000012 

FO.APO= 

000106 

■.MBC1= 

000055 

INSNAM= 

104462 

M.8XCT= 

000007 

M.$ABS=  000000 

FO.MFY= 

000002 

■.MBFG= 

000056 

lOERR  = 

104477 

M.8XEX= 

000007 

M.$CEI=  000000 

FG.RD  = 

OOUOOI 

'.MON  = 

000002 

I.CNT  = 

1 77776 

M.8XFX= 

000007 

M.$FLR=  000000 

FO.UPO= 

000006 

-.NIL  = 

000001 

I. DIM  = 

1 77772 

M.BXIO= 

000007 

M.$IDN=  000000 

FO.URT= 

000016 

■.NR8D= 

000024 

I.LEN  = 

00001 2 

M.8XLC= 

000003 

M.$NEG=  000000 

FPMODE 

000042R 

025  1 

^^IREC= 

000030 

I.OERR= 

000062 

M.8XNC= 

000007 

M.$SIG=  OCOOOO 

FPP   = 

000000 

'.OPN  = 

000010 

l.OLD  = 

1 77770 

M.8XNL= 

000007 

M.1RDT=  000011 

FPPLEN= 

000004 

■.OVBS= 

000030 

I.PTR  = 

1 7777£* 

M.8XPP= 

000007 

M.1REV=  000003 

FREBLK 

007400R 

025  1 

■.PREV= 

000000 

I. SIR  = 

1 77766 

M.BXPW^ 

000007 

M.1SCN=  000011 

FUZZ 

0001 42R 

025  F 

■.PRfiT= 

100000 

LABERR= 

104406 

M.8XRL= 

000007 

NAMBUF  003240R     025 

FXPTR1 

003076R 

025  1 

■.PROT= 

010000 

LABLPT 

005042R 

025  M.8XTS= 

000007 

NAMOUT=  ******  GX 

F$EVAL= 

000100 

•.RACC= 

000016 

LARQBL 

0031 62R 

025  M.BXUA= 

000007 

l«.DEV=  000200 

FSEVI  = 

000200 

■.RATT= 

000001 

LARGCV 

0031 76R 

025  M.CEI  = 

1 77777 

NB.D!R=  000100 

F$EXEC= 

000400 

■.RCNM= 

000034 

LARGFL 

003160R 

025  M.CHR  = 

000202 

NB.NAM=  000004 

F$FUNC= 

-^1000 

■.RCTL= 

000017 

LAR6LE 

0031 74R 

025  M.CMT  ^ 

000206 

NB.SD1=  000400 

F.ACTL= 

t  :076 

■.READ= 

004000 

LARGLN 

0031 66R 

025  M.DOUT= 

000006 

NB.SD2=  001000 

F.ALOC= 

000040 

■.REDF= 

000040 

LAR6PT 

0031 64R 

025  M.DQAD= 

000006 

NB.Sf#1=  000040 

F.flBFS= 

000062 

■.RES  = 

000040 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.STP=  000020 

f.K)H   = 

000070 

'.RET  = 

1 77772 

LAR6TY 

0031 70R 

025  M.EXE  = 

000000 

NB.SVR=  000010 

F.BGBC= 

000057 

".RS1Z= 

000002 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.TYP=  000002 

F.BITS= 

1 7777 A 

■.RTYP= 

000000 

LBINC 

005100R 

025  M.FACT= 

000001 

^B.VER=  000001 

f.BKOH= 

000026 

',R2     = 

000014 

LBUFF 

00331 6R 

025  M.FIL  = 

000177 

ND.DEV=  000200 

F.BKDS= 

000020 

•.R3  = 

000016 

LBUFLN= 

000621 

M.FLR  = 

1 77777 

ND.EXT=  000002 

F.BKEF= 

000050 

■.R4  = 

000020 

LCOUNT 

005106R 

025  M.FMT  = 

000004 

ND.NA«=  000004 

F.BKP1  = 

000051 

•.SEQN= 

000100 

LENERR^- 

104412 

M.GDUP= 

000003 

ND.PPN=  000100 

F.BKST= 

000024 

■.SPDV= 

000072 

LENTAB 

000054R 

025  M.GDWN= 

000003 

ND.SEX=  000000 

F.BKVB= 

000064 

•.SPUN= 

000074 

LEXPTR 

003100R 

025  M.GETI= 

000006 

ND.$ES=  000020 

F.BR  = 

000020 

•.STBK= 

000036 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$NM=  000000 

F.CHR  = 

000075 

-.STK  = 

000022 

LINC 

005102R 

025  M.IDN  = 

000000 

ND.$N$=  000040 

F . CNTG= 

000034 

'.STOP= 

000004 

LINE 

00501 6R 

025  M.INSP= 

000006 

ND.SPN=  001400 

F.CODE= 

000010 

•.STP  = 

000001 

LININC 

005026R 

025  M.IOTA= 

000000 

NEGSGN  005065R    025 

F.DFNB= 

000046 

• . SUSP= 

000002 

LISIZE= 

000020 

M.LIT  = 

000205 

NEWLIN=  ******  GX 

F.DSPT= 

000044 

■.TRC  = 

000002 

LITOP 

005072R 

025  M.LN  = 

000001 

NINPT1  003302R     025 

f.ovm= 

000134 

'.UNIT= 

000136 

LNLNG  = 

104541 

M.MMD  ~ 

000010 

NINPT2  003300R    025 

F.EFBK= 

000010 

•.URBD= 

000020 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINSTK  003304R    025 

F.EFN  = 

000050 

'.VAL  = 

1 77776 

LOWCOR 

000002R 

0?5  M.NOT  = 

000000 

NINTMP  003310R    025 

F.END  = 

002000 

•.\/8N  = 

00006A 

LSTERP 

004766R 

025  M.NU8  = 

000006 

NINTYP  003506R    025 

f.EOBB= 

000052 

■.V8SZ= 

000060 

LWIDTH 

0000 70R 

025  M.NUM  = 

000204 

N0TAVL=  104472 

CPIARG 

MACRO  Ml 11 3  08-FEB-80 
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48-3 

M  3 

SYMBa 

TABLE 

NOTOPN=  10AA73 

0PTMP8 

0051 06R 

025 

RSX   = 

0001 1 5 

SYNERR= 

104407 

T.DIM  = 

000100 

NPRT1 

004762R 

025  0PTMP9 

00511  OR 

025 

RTOP 

005070R 

025 

SYSERR= 

104402 

T.FUN  = 

010000 

NULL 

00736AR 

025 

OPTM10 

005112R 

025 

RT11  = 

000000 

SYSTAT 

OOOOOOR 

024  T.LIST= 

000400 

NUMCHN=  000020 

0PTM14 

005026R 

025 

R.8ITS= 

000003 

SY.aAD= 

000001 

T.LIT  = 

000020 

NUMDFL 

003230R 

025 

ORIGIN 

000030R 

025 

R.FIX  = 

000001 

SY.8RK= 

100000 

T.MON  = 

000010 

NUMEFL 

003233R 

025  OUTPTR 

000066R 

025 

R.LCT  = 

000002 

SY.8S  = 

000010 

T.NIL  = 

000004 

MUMESN 

003236R 

025  0VR0PR= 

000000 

R.LN  = 

000002 

SY.CLR= 

000040 

T.NUM  = 

002000 

NUMFLG 

003230R 

025 

PATCH 

007344R 

025 

R.LNUM=  000010 

SY.ERP= 

000020 

T.0PFN= 

000001 

NUMLEN 

000062R 

025  PRECSN 

000052R 

025 

R.NEXT= 

000006 

SY.N0U= 

000100 

T.0THR= 

040000 

NUMNEG 

003232R 

025 

?RINTM= 

**•**•  GX 

R.OFF  = 

000000 

SY.OPN= 

000002 

T.SOP  = 

000002 

NUMQFL 

00323AR 

025  RANDAC 

003064R 

025 

R.PREV= 

000004 

SY.PMT= 

001000 

T.SP0P= 

000040 

NUMRIG 

003231 R 

025  RANDY 

003062R 

025 

R.PTR  = 

000000 

SY.SRT= 

000400 

T.TMP  = 

000200 

NUMUID 

003226R 

025 

RANERR= 

104411 

R.SEQ  = 

000003 

sy.svc= 

000004 

T.VAL  = 

100000 

NUMZFL 

003235R 

025 

RARQBL 

003204R 

025 

R.VAR  = 

000002 

SY.SVL= 

000200 

T.VAR  = 

001000 

NYIERR= 

104432 

RARGCV 

003220R 

025 

R6 

X000006 

S.AB  = 

1 77776 

UPPER   = 

1 77400 

N.BLSZ= 

000036 

RARGFL 

003202R 

025 

R7 

X000007 

S.ASB  = 

100000 

UTNAME 

000344R 

023 

N.DESC= 

000020 

'^'^RGLE 

00321 6R 

025 

SI 

X000005 

S.8FHD= 

000020 

VALERR= 

104413 

N.DEV  = 

000032 

.iA^";LN 

00321 OR 

025 

SIDAMN-^ 

1 04433 

S.BITS= 

000002 

VARBLE 

007400R 

025 

N.DEVN=  000034 

:^,RjPT 

003206R 

025 

SIFRAM 

00331 4R 

025 

S.CHR1= 

000003 

VARBLS 

OOOOOOR 

025 

N.DID  = 

000024 

vaGSF 

00321 4R 

025 

SISTAK 

006350R 

025 

S.FATT= 

000016 

VERNUM 

OOOOOOR 

025 

N.DV^f1=  000032 

RARGTY 

00321 2R 

025 

SI  TOP 

006346R 

025 

S.FDB  = 

000140 

^'"SI0N= 

000002 

N.EXT  = 

000014 

RARGVA 

003222R 

025 

SITP 

0071 44R 

025 

S.FLB  = 

040000 

L.DTH 

000072R 

025 

N.FID  = 

000000 

RBASE 

005074R 

025 

SIWARN= 

000200 

S.FNA«=  000006 

WROUND 

000020R 

025 

N.FNAW=  000006 

RCOUNR 

0051 12R 

025 

SIZTAB 

000044R 

025 

S.FNB  = 

000036 

WSDATE 

0001 36R 

025 

N.hTYP= 

000014 

RCOUNT 

00511 OR 

025 

SI.8IT= 

1 7777^ 

S.FN3W= 

00001 7 

WSFULL= 

104403 

N.FVER= 

000016 

REDCNT 

005070R 

025 

SI.LEN= 

1 77772 

S.FNTir= 

000004 

WSNAME 

000074R 

025 

N.NAME= 

000006 

REDIGN 

005066R 

025 

SI.RET= 

1 77772 

S.FTY.'^= 

000002 

WSTIME 

0001 32R 

025 

N.NEXT= 

000022 

REDOFF 

005072R 

025 

SI.VAL= 

1 77776 

S.LEN  = 

000002 

SFIS  = 

******  Q 

N.PPN  = 

000024 

REENTR 

003060R 

025 

SKPSIZ 

0051 34R 

025 

S.LINK= 

1 7777^ 

$FPP  = 

******  G 

N.STAT= 

000020 

RESBIT 

0031 42R 

025 

SPHOLD 

000004R 

024 

S.NFEN^ 

000020 

$FPPLN= 

******  Q 

N.UNIT= 

000034 

RESCVT 

0031 52R 

025 

SPINIT 

000002R 

024 

S.TYPE= 

140000 

$MACHN= 

******  Q 

OBNTCP 

000024R 

002  RESERR= 

104440 

STKINC= 

000774 

S.VAL  = 

000000 

SRSTS  = 

******  Q 

OBNTFD 

OOOOOOR 

002  RESLEN 

0031 50R 

025 

STOP  = 

104420 

TKDIMS 

005072R 

025  $RSX  = 

******  (3 

r»JFLN=  001000 

RESPTR 

0031 40R 

025 

SUBCNT 

0031 04R 

025 

TKFRAM 

005066a 

025  $RT11  = 

******  Q 

OCHAN 

0O5052R 

025 

RESSFT 

0031 46R 

025 

SI  ADC  T 

003106R 

025 

TKLEFT 

0050'  OR 

025  .800LE= 

000002 

0«00E 

000402R 

023  RESTYP 

0031 44R 

025 

SIRPTR 

00311  OR 

025 

TMODE 

000403R 

023  .CHARA= 

000000 

OPTWPO 

005066R 

025  RESULT 

0031 36R 

025 

SYMB1 

005344R 

025 

TMPTAG= 

000166 

.DEF.  = 

000002 

0PTMP1 

005070R 

025 

RESVAL 

0031 54R 

025 

SYMF 

005340R 

025 

TTY8UF 

OO^HOR 

025  .FLOATS 

000006 

0PTMP2 

005072R 

025 

RINC 

005104R 

025 

SYMPT1 

005346R 

025 

TTYLEN= 

000622 

.FSRCB= 

******  Q 

0PTMP3 

005074R 

025 

RLTBAS 

005066R 

025 

SYMTAB 

005352R 

025 

TURKEY= 

104436 

. INTEG= 

000004 

0PTMP4 

005076R 

025 

ROTINC 

005070R 

025 

SYMT8F= 

104404 

TYPE  - 

000166 

.i^LUN 

000404R 

023 

0PTMP5 

005100R 

025 

ROUND 

00001  OR 

025 

SYMTOP 

005350R 

025 

T.80L  - 

??000u 

...GSL= 

OOOOOO 

0PTWP6 

005102R 

025 

ROVER 

00331 2R 

025 

SYMTP 

006272R 

025 

T.CON  = 

004000 

...TPC= 

000020 

0PTMP7 

005104R 

025 

RSTS  = 

000000 

SYMWRN= 

000054 

■  Aoo  • 

000000 
000000 

000 
001 

TABLES 

000050 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

nONBTB 

000000 

006 

DYD6TB 

000000 

007 

COHTB 

ooooco 

010 

CHRTBL 

000000 

011 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

CPIARG 
SYMBOL 

OVRTBL 

TRNTBL 

MNTBL 

MNTRTL 

CODE 

PATCH 

SSFSRI 

DEFSO 

DEFSI 

DEF$2 

ERRORS 


MACRO 
TABLE 
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N  3 


000000 
000000 
000000 
000000 
000522 
000000 
000000 
000406 
000006 
007A00 
DETECTED 


0 


014 
015 
016 
017 
020 
021 
022 
023 
024 
025 


WORDS 
(  55 


(  52  PAGES) 
PAGES) 


VIRTUAL  MEMORY  USED:   13120 

DYNAMIC  MEMORY:   14478  WOPDS 

ELAPSED  TIME:   00:01:49 

CPIARG, DM1 : C305, 301 3CPIARG/-SP=APLRX1,APLDEF, CPIARG, END 


B  4 

♦♦FILE**1D*< 

'CPOARG 

CCCiCCCC 

pppppppp 

000000 

^AAAAA 

RRRRRRRR 

GGGGGGGG 

LLCCC^CC 

pppppppp 

0CK3000 

AAAAAA 

RRRRRRRR 

GGGGGGGG 

cc 

?P              PP 

00      00 

AA      AA 

RR      RR 

GG 

cc 

PP      PP 

00      00 

AA      AA 

RR      RR 

GG 

cc 

PP              PP 

00      00 

AA      AA 

RR      RR 

GG 

cc 

PP              PP 

00      00 

AA      AA 

RR      RR 

GG 

cc 

pppppppp 

00      00 

AA      AA 

RRRRRRRR 

GG 

cc 

pppppppp 

00      00 

AA      AA 

RRRRRRRR 

GG 

cc 

PP 

00      00 

AAAAAAAAAA 

RR   RR 

GG  GGGGGG 

cc 

PP 

00      00 

AAAAAAAAAA 

RR   RR 

GG  GGGGGG 

cc 

PP 

00      00 

AA      AA 

RR    RR 

GG      GG       .... 

cr 

PP 

00      00 

AA      AA 

RR    RR 

GG      GG       .... 

cccccccc 

PP 

000000 

AA      AA 

RR      RR 

GGGGGG         .... 

cccccccc 

?P 

000000 

AA      AA 

RR      RR 

GGGGGG         

ssssssss 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLIL 

ssssssss 

LILLLLLLLL 

ssssssss 
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DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
CPOARG 


ASSEMBLY  PARAMETERS 

OPERATOR  OVERLAYS 

REGISTERS 

MEMORY  ORGANIZATION 

ORDERING  PSECTS 

SI  PARSE  FRAMES 

TOKEN  DESCRIPTION  BITS 

SI  EXECUTION  FRAMES 

SPECIAL  PARSE  CHARACTERS 

CHRTAB  BI rs 

SYSTEr  STATUS  BITS 

F-FPAMES 

FUNCTION  LINE  BLOCKS 

ARRAY  jTORAGE  BLOCK 

list  storage  block 
indexing  stack  frame 
symbol  table  entry 
ch.;nnel  block 

RSX  DATA 
NAMT  BLOCKS 
MACROS 
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ERRORS 
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D  4 


C 
S 


A6-   66 


CPOELE 


COPY  OUT  AN  ELEMENT 
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1 

000000 

2 

000000 

3 

0001 1 5 

A 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

II  II  II 

3COO 

EIS 

FIS 
FPP 

II  II  II 
ooo 

FPPLEN 

=  U 

DEBUG 

=  0 

E  A 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

;SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 


CPOARG 
APLDEF 
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F  A 


1 
2 
3 


.SBTTL  APLDEF 
.IDENT  \V02.03\ 


C 
S 

T 

n 

c 
p 
I 

D 
D 
D 
E 


C 
E 
C 


APL  MACRO 

DEFINITIONS 

2513 
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G    A 


.LIST     SEQ,SRC,LOC,BIN,BEX,MEB 


H  4                                                1 
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DEFINITIONS     ERRORS 

1 

.TITLE  CPOARG 

1 

.IDENT  \V02.03\ 

4 
5 
6 

.S8TTL  CPOARG         COPY  ARGUMENT  TO  TMP  FILE 

i-f-f 

7 

;  FUNCTIONAL  SPECIFICATION: 

8 

;      This  routine  is  used  to  elements  (Arrays,  Functions, 
;      and  Groups)  to  the  temporary  file  for  later  input 
;      and  addition  to  the  COPYing  workspace.  The  format 

9 

10 

11 

\               for  the  file  i>: 

12 

13 

•         1)  Name    -  The  Name  in  Symbol  Table  Format 

14 

\                      2)  Count    -  The  number  of  items/ type  specifier 

15 

\                                                   for  Array  blocks,  -  1 

16 

r                    for  Functions,    =  n  (Positive  Integer  >  1) 

17 

;                                                 for  Groups,      =-n  (Negative  Integer) 

18 

;                    for  Nothing,     =  0 

19 

20 

;       For  Array  Blocks: 

21 

]                       3)  Array    -  The  Array  Block  in  internal  format,  save  the 

22 

;                    1st  word  which  is  an  offset  to  the  data,  (i.e.. 

23 

r                    you  add  the  Array  Block's  new  address  to  the 

24 
25 
26 

r                    first  word  in  the  array  block  to  set  it  up) 

;      For  Functions:  (For  each  of  n  times,  n  =  /(^  of  lines  in  the  function) 

27 

J         3)  Function  -  The  function  line,  in  FIXLIN  format  (Size 

28 

:                    rounded  up  to  words,  pad  character  as  needed) 

29 

30 

;  IMPLICIT  OUTPUTS: 

31 

;      The  data  specified  by  the  Symbol  table  Pointer  is  output  to 

32 

;      the  file. 

33 

34 

'  ROUTINES  CALLED: 

35 

;       FLNLST  -  List  a  line  of  the  function 

36 

;      0UT8LK  -  Output  a  block  of  data  to  the  TMP  file 

37 

\               OWORD   -  Output  a  word  of  data 

38 

. — 

39  000000 

.PSECT  CODE 

40 

.ENABL  LS8 

CPOARG 
CPOARG 


A2 
43 
44 
45 

46 
47 
48 
49 
50 
51 
52 
53 
54 
55 

^ 

58 
59 
60 
61 
62 
63 
64 
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000000 


I  4 


000000  012704 
000004 

000010  010002 

000012  001415 


005344' 


000014 
000020 
000022 
000026 
000032 


000034 
000040 
000042 
000046 
000052 
000054 
000056 


01000A 


000410 


001402 

016404 
001370 
005000 


1 77776 
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FILE 

CPOARG 

•  • 

•  • 

;  Now 

we  read 

back  in  the 

* 

MOV 

/!rSYMB1,R4 

CALL 

GETWRD 

MOV 

R0,R2 

BEQ 

3$ 

1$; 

CALL 

CPINAM 

MOV 

R0,R4 

CALL 

CPOELE 

SOB 

R2J$ 

BR 

4$ 

;  Special  Case 

-  we  write 

2$: 

CALL 

GL8SCH 

BEO 

3$ 

CALL 

CPOELE 

3$: 

MOV 

S.AB(R4.\ 

PNE 

2$ 

4$; 

CLR 

RO 

CALLR 

OWORD 

List  of  names,  and  write  out  the  items 

.-Point  to  start  of  alphabetic  list 

;Read  in  ft   of  elements  to  read 

;Copy  the  count 

.•Nothing  to  copy 

.-Copy  in  the  name 

;Mo\/e  ptr  to  R4 

.•Output  the  argument 

;Loop  for  each  element 

.•Finish  up 


write  out  everything 


,R4 


;Find  global 

.•Nothing  there 

.•Output  the  arg 

.•Pointer  to  next  element 

.-Loop  for  all 

.•Clear  RO 

.•Output  end  flag,  quit 
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66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76  000062 

77 

78  000062 

79  000072 

80  000076 

81  000100 

82  0001 OA 

83  000106 

84  000110 

85  000112 

86  000116 

87  000120 

88  000122 

89  000124 

90  000130 
000134 
000150 
000154 
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.S8TTL  CPOELE 


■f-f 


J  4 


COPY  OUT  AN  ELEMENT 


Funcfional  Description: 

This  routine  copys  a  specified  item  to  the  current 
output  channel  in  ")COPY"  format 


Inputs: 
R4 


-  The  Pointer  to  the  item  in  the  Symbol  Table 


91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 


000156 
000160 
000162 
000164 


000166 
000172 

102  000176 

103  000200 

104  000202 

105  000204 

106  000206 

107  000212 

108  000214 

109  000216 

110  000222 

111  000224 

112  000232 

113  000234 

114  000236 

115  000240 

116  000244 

117  000246 

118  000252 
119 

120  000254 

121  000256 

122  000262 


001403 
021027 
001475 

010401 


011001 
001463 
012710 
116104 

042704 
060407 

000403 
000530 
000453 
104402 


116103 
001440 
011101 
012104 


001423 
011001 
020127 
001417 
032761 
001010 

010401 


000403 
010400 


1 77777 


1 77777 
000003 

177771 


000002 


1 77777 
140000 


.PSECT  CODE 

CPOELE:  PUSH  <R1 ,R2,R3,R4> 

CALL  GLBSCH 

BEQ  6$ 

CMP  (R0),#-1. 

BEQ  13$ 

6$:     PUSH  RO 

MOV  R4,R1 

CALL  CPONAM 

POP  RO 

MOV  (R0),R1 

BEQ  12$ 

MOV  4f-1.,(R0) 

M0V8  A.B1TS(R1),R4 

ASH  #-5.,R4 

BIC  /(f^C<6>,R4 

ADD  R4,PC 

BR  7$ 

BR  15$ 

BR  14$ 
SYSERR 

7$:     CALL  18$ 

M0V8  L.CNT(R1),R3 

BEQ  13$ 

MOV  (R1),R1 

8$:     MOV  (R1)^-,R4 

PUSH  R1 

CALL  GLBSCH 

BEQ  10$ 

MOV  (R0),R1 

CMP  R1,#-1. 

BEQ  10$ 

000002         BIT  *<S.ASB>S.FLB>,2.(R1) 

BNE  9$ 

PUSH  R1 

MOV  R4,R1 

CALL  CPONAM 

POP  R1 

CALL  18$ 

BR  1 0$ 

9$:     MOV  R4,R0 

CALL  CPOELE 

10$:    POP  R1 


Save  the  name  pointer 

Do  a  search  for  the  global  value 

No,    finished 

Alread)f  been  copied? 

Yes,  finished 

Save  data  pointer 

Copy  the  symbol  table  entry 

Output  the  name 

Point  to  it 

Copy  pointer  to  item 

Nothing  there,  error 

but  don't  let  it  happen  again! 
Get  the  data  type 
Shift  High  bits  to  2X  position 
Clear  out  unwanted  bits 
•CASE'  Statement 

Groups  (&  Lists) 
Functions 
Arrays 
SYSTEM  ERROR 

Output  the  names  of  the  elements 

Get  the  Loop  Count 

Nothing  there,  finished 

Point  to  1st  element 

Get  pointer  to  item 

Save  R1  for  Later 

Do  a  search  for  the  global  value 

Nothing  there,  pretend 

Copy  the  pointer 

Has  it  already  been  COPYed? 

Yes,  don't  do  it  again 

Is  it  a  group? 

No,  so  recurse 

Save  Pointer  to  Item 

Copy  pointer  to  name 

Output  the  name 

Restore  the  data  pointer 

Output  the  list 

but  not  each  item 

Copy  the  symbol  table  pointer 

A  little  recursion,  it  you  please 

Restore  R1 
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123  00026A 

12A  000270  000A03 

125 

126  000272  005000 

127  00027A 

128  000300 

129  000310 
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K     A 


12$: 
13$: 


SOB 
BR 

CLR 
CALL 
POP 
RETURN 


R3,8$ 
13$ 

RO 

OWORD 

<RA,R3,R2,R1> 


;Loop  for  all  the  elements 
;Fim  • 

; Clear  the  count 
; Output  zero  length 
.•Restore  the  name  pointer 
.•Finished 
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131 
132 
133 

134  000312 

135  000316 

136  000322 

137  000324 

138  000330 

139  000334 

140  000340 
K1  000344 

142  000350 

143  000364 

144  000366 

145  000372 

146  000374 

147  000400 

148  000404 

149  000406 

150  000412 

151  000414 

152  000420 

153  000422 

154  000426 

155  000432 

156  000434 

157  000440 


116104  000003 

1 32704  000020 
001363 

012700  000001 


042704  1 7177^ 
016100  000004 

005200 
042700  000001 

116104  000002 

006304 

062704  000006 

060400 

010411 


010136 
00071 7 


Output  an  Array 


14$: 


MOVB 

A.8ITS(R1) 

,R4 

BITS 

*A.C0N,R4 

BNE 

12$ 

MOV 

4f1.,R0 

CALL 

OWORD 

PUSH 

<R1,(R1)> 

BIC 

#^C<A.NUM> 

,R4 

MOV 

A.ALEN(RI) 

,R0 

ASH 

SIZTAB(R4) 

,R0 

INC 

RO 

BIC 

#<1>,R0 

PUSH 

RO 

MOVB 

A.DIMS(RI) 

,R4 

CONINC 

R4 

ASL 

R4 

ADD 

/(rA.DIM1,R4 

ADD 

R4,R0 

CALL 

OWORD 

MOV 

R4,(R1) 

CALL 

OUTBLK 

POP 

<R4,R1> 

MOV 

R1,a(SP)+ 

CALL 

OUTBLK 

BR 

13$ 

Get  the  type 

Is  It  a  label? 

Yes,  must  not  copy  it 

Indicate  1  Block,  is  Array 

Output  word  count 

Save  pointers 

Extract  it  from  BITS  field 

Get  the  ti  of  elements 

Get  the  size  in  bytes 

Round  to 

words 
Save  count  for  data 
Get  dim  count 
(Cheat  for  scalar) 

times  2 
Plus  overhead 

This  is  the  total  size,  in  bytes 
Output  the  Total  Size 
Move  it  to  the  offset  field 
Output  the  block 
Restore  some  pointers 
Also  an  indirect 
Output  the  data 
And  go 
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159 
160 
161 
162  000AA2 

;  Output  a  Function 

010137 

005012' 

15$: 

MOV 

R1,FHEADR 

•Set  a  pointer  to  the  Function  Header 

163  000A46 

005000 

CLR 

RO 

;  Start  w/  none 

164  000450 

016101 

000006 

16$: 

MOV 

R.NEXT(R1),R1 

; Point  to  the  next  line 

165  000454 

005200 

INC 

RO 

■Increment  line  count 

166  000456 

020137 

005012' 

CMP 

RUFHEADR 

•Finished  yet? 

167  000462 

001372 

BNE 

16$ 

•Nope,  keep  looping 

168  000464 

010003 

MOV 

R0,R3 

•Copy  the  real  count 

169  000466 

020027 

000001 

CMP 

R0,#1. 

;Only  1  element? 

170  000472 

CONINC 

RO 

; Cheat  if  only  1 

171  000476 

CALL 

OWORD 

; Output  the  count 

172  000502 

17$: 

PUSH 

R.NEXT(RI) 

;Sa\/e  the  pointer  to  the  next  line 

173  000506 

012700 

003036 ' 

MOV 

*C.SBIT^-CHANEX,RO 

; Point  to  the  output  channel 

174  000512 

012720 

010400 

MOV 

#C.OPN1C.N08F,(RO)> 

; Channel  is  open,  special  buffering 

175  000516 

012720 

OOOOOOG 

MOV 

/irCPOUTL,(R0)  + 

; Output  to  copy  utility  area 

176  000522 

01 2720 

001000 

MOV 

*512.,(R0)+ 

•Size  of  Util  area 

177  000526 

012720 

OOOOOOG 

MOV 

^CPOUTL,(R0)^ 

; Start  at  the  beginning 

178  000532 

012720 

001000 

MOV 

»5^2.^R0)* 

;Adjust  accordingly 

179  000536 

005020 

CLR 

(RO)^ 

:No  width 

180  000540 

005020 

CLR 

(RO)^ 

at  all 

181  000542 

PUSH 

OCHAN 

;Sav/e  output  channel 
[Output  channel 

182  000546 

012737 

003060'  005052 

1 

MOV 

*CHANEX,OCHAN 

183  000554 

CALL 

FLNLST 

;List  the  line  to  Utility  Area 

184  000560 

POP 

OCHAN 

; Res tore  output  channel 

185  000564 

013704 

003044 • 

MOV 

C.CPTR^CHANEX,R^ 

[Pointer  past  last  char  used 
;Pad  whetnter  we  need  it  or  not 

186  000570 

112724 

000040 

MOVB 

#CHRSPA,(R4)^ 

187  000574 

042704 

000001 

BJC 

#<1>,R4 

;Even  ft   of  words 

188  000600 

013701 

003040' 

MOV 

CHANEX<-C.BUFF,R1 

; Point  to  the  Buffer 

189  000604 

160104 

SUB 

R1,R4 

; Subtract  to  get  size 

190  000606 

010400 

MOV 

R4,R0 

;Copy  the  size 

191  000610 

CALL 

OWORD 

•Output  size,  in  bytes 

192  000614 

CALL 

OUTBLK 

■Output  it 

193  000620 

POP 

R1 

■Restore  pointer  to  the  next  line 

194  000622 

SOB 

R3J7$ 

■Loop  for  each  line 

195  000626 

020161 

000006 

CMP 

R1,R.NEXT(R1) 

■Only  1  Line? 

196  000632 

001222 

BNE 

13i 

•  Nope 

197  000634 

000616 

BR 

12$ 

•Finished 

CPOARG 
CPOELE 

199 
200 
201 
202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2K 
215 
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000636 

000642  '16100  000002 

000646  010003 

000650  005400 

000652 

000656  001406 

000660  011104 

000662  012401 

000664 

000670 

000674 

000700 


;  Copy 

•  ^9 

a  group 

to  the  file 

18$: 

PUSH 

<R1,R3> 

M0V8 

L.CNT(R1),R0 

MOV 

R0,R3 

NEG 

RO 

CALL 

OWORD 

BEQ 

20$ 

MOV 

(R1),R4 

19$: 

MOV 

(R4)+,R1 

CALL 

CPONAM 

SOB 

R3,19$ 

20$: 

POP 

<R3,R1> 

RETURN 
.DSABL  LS8 


Save  the  pointer  to  the  data 

Get  tf  of  elements  in  the  group 

Save  count  for  loop 

Hack  for  List 

Output  the  *  of  Elements 

If  nothing,  do  nothing 

Pointer  to  the  list 

Point  to  the  1st  name 

Output  a  name 

Loop  for  all  the  names 

Restore  Pointer 

FINISHED 


r 
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1 


000001 


.END 
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SYMBa 

TABLE 

AC 

XOOOOOO 

CHRL8R= 

000073 

CTEPS 

0001 52R 

025 

D.COMP= 

000001 

EDICHR 

005063R 

025 

AC1   ^ 

X000001 

CHRLPR= 

000072 

CTMAX 

00021 2R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025 

AC2   = 

X000002 

CHRMNS= 

0001 37 

CTRMAX 

0001 72R 

025 

D.CTLW= 

000000 

EDJFLG 

005062R 

025 

AC3   = 

X000003 

CHRI1UL= 

000075 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

ACA   = 

X000004 

CHRNEG= 

000100 

C.BLOK= 

000064 

D.DECD= 

000002 

U^       = 

000000 

ACS   = 

X000005 

CHRPDL= 

000271 

C.8LSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

ALL  I  NT 

00327AR 

025 

CHRPLU= 

000055 

C.8UFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C.8UFL= 

1 77762 

D.DQAD= 

1 77777 

EOF   = 

104475 

ASCQUO=  CXX)042 

CHRQST= 

000121 

C.CCNT= 

1 77766 

D.DROP= 

000002 

ERRMAX= 

000166 

A.ALEN=  000004 

CHRQUO=  000113 

C.CPTR= 

1 77764 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

A.ARG  = 

000040 

CHRRBR= 

000047 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

A.ASB  = 

000200 

CHRRPR= 

000042 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.BITS= 

000003 

CHRSEW= 

000074 

C.FASW= 

020000 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

A. CON  = 

000020 

CHRSWO= 

0001 1 2 

C.FLEN- 

000010 

D.FWT  = 

000004 

E$CT 

005056R 

025 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.FLSH= 

004000 

D.FPNTr 

000005 

FSPT 

005060R 

025 

A.DIW1= 

000006 

CHRUPA= 

000131 

C.FRC  = 

000001 

D.FPUT= 

000005 

FA.APD= 

000100 

A.NL^  = 

000006 

CHR.8S= 

000010 

C.IDEN= 

000010 

D.GE  = 

000000 

FA.CRE= 

000010 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.NAWE= 

000102 

D.GT  = 

000000 

FA.DLK= 

001000 

A.  IMP  = 

000010 

CHR.CR= 

000015 

C.NOBF= 

000400 

D.iBM  = 

000002 

FA.ENB= 

100000 

BADDIR= 

104463 

CHR.CZ= 

000032 

C.NUM  = 

000020 

D.JND  = 

000002 

FA.EXC= 

002000 

BADERR= 

104437 

CHR.GT= 

000046 

COP  = 

000004 

D.1NNR= 

000013 

FA.EXT= 

000004 

BLZBUB 

005116R 

025 

CHR.LF= 

000012 

C.OPN  = 

010000 

D.1NTR= 

000006 

FA.NSP= 

000100 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.RDLN= 

1 77776 

D.LE  = 

000000 

FA.NSR= 

000200 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.POS= 

010000 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C.RND  = 

000010 

D.LT  = 

000000 

FA.RD  = 

000001 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C.S8IT= 

177756 

D.riAX  = 

000000 

FA.RWD= 

004000 

CHAN01 

000330R 

025 

CHR.TB= 

000011 

C.SPFX= 

000100 

D.flEM  = 

000002 

FA.SEQ= 

040000 

CHAN02 

0005 12R 

025 

CHR.UL= 

000106 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHAN03 

000674R 

025 

LMK • • A— 

000141 

C.SPLX= 

000001 

D.nUL  = 

000000 

FA.T«P=: 

000020 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C . SPRS= 

000002 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN05 

001240R 

025 

CHR..S= 

000163 

C.SRC  = 

1 7777^ 

D.NN  = 

000000 

FA.yRT= 

000002 

CHAN06 

001422R 

025 

CHR..T= 

000164 

C.SRCP= 

000024 

D.NR  = 

000000 

FD.8LK= 

000010 

CHAN07 

001604R 

025 

CHR..U= 

000165 

C.TT  = 

000004 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

C.WIDC= 

1 77770 

D.PLUS= 

000000 

FD.CO«= 

020000 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

C.WIDR= 

y77772 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN11 

0025 14R 

025 

CH.AND= 

000001 

DEFERR= 

104405 

D.OQAD= 

000000 

FD.FTN= 

000001 

CHAN12 

002676R 

025 

CMMUF 

003250R 

025 

DEVJL 

0051 14R 

025 

D.OUAD= 

000000 

FD.F11= 

040000 

CHAN13 

000022R 

023  CWD«AX= 

000010 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN14 

000204R 

023  CNTSIZ 

005130R 

025 

DIGITS 

000006R 

025 

D.RHO  = 

000000 

FD.ISP= 

002000 

CHNOPN= 

104471 

COMBIN 

005076R 

025 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.«NT= 

100000 

CHRAND= 

000051 

COMCNT 

005126R 

025 

D1«BLK 

0031 12R 

025 

D.SCON= 

000006 

FD.OSP= 

004000 

CHRBEL= 

000007 

COWERR= 

104425 

DIWPTR 

0031 i4R 

025  D.SDIF= 

000006 

fD.PLC= 

000004 

CHR6KR= 

000133 

COMP^R 

005122R 

025 

OIMTY? 

0031 16R 

025 

D.SUB  = 

000000 

FD."RN= 

000004 

CHNBuL- 

000200 

COMRTN 

0031 56R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.r^SE^ 

010000 

C4RP0X= 

000114 

COH£<P 

005124R 

025 

DO«ERR= 

104417 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRC«A= 

000054 

CORPTR 

00512CR 

0^5 

DPTFRR= 

1044(6 

D.TNAN^ 

000004 

FD.RAN= 

000002 

CHRCa= 

000076 

CPINA«= 

******  GX 

DYDCNT 

003224R 

025 

D.UNON= 

000006 

FD.REC= 

000001 

CMRDEL= 

000107 

CPOARG 

OOOOOORG 

020 

D.AND  = 

000000 

D.$«AX= 

000000 

FD.RW«=  000001 

CHR0IV= 

000053 

CPOELE 

000062R 

020 

D.8XCT= 

000007 

D.$WIN= 

000000 

FD.SDI= 

000020 

CHRDLR= 

000176 

CPONAW= 

******  GX 

D.8XJ0= 

000007 

D.$«UL  = 

000000 

FD.SQD= 

000040 

CHRDLT= 

000110 

CPOUTL^ 

******  GX 

D.8XNL  = 

000007 

D.$PLU= 

000000 

FD.TTYr 

000004 

rNR00T= 

000056 

CS.ASS= 

000200 

D.8XPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHREP  = 

000105 

CS.BOO^ 

000010 

D.8XPW= 

000007 

D.$SL8-- 

000000 

FF.CMR^ 

000005 

CHRERR= 

104431 

CS.FLO= 

000020 

D.8XRL= 

000007 

0.1CO«= 

000001 

FF.NV  = 

000003 

CHRFIL^ 

000177 

CS.IDN= 

000040 

D.CJRC= 

000001 

D.1EXP= 

000002 

FF.P0E= 

000002 

CHRFRO^ 

0001 3S 

CS.ONE= 

000100 

o.com= 

000001 

D.1R0T= 

000005 

FF. RWO 

000001 

c 
s 
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FF.RWF- 

000006 

■.FACC= 

000043 

GLBSCH= 

nnitiutt   GX 

L.PTR1= 

000004 

M.QUAD=  000000 

FF.SPC= 

OOOOOA 

•.FFBY= 

000014 

GNOME 

0031 02R 

025  L.SUBS= 

000002 

M.RAND=  000012 

F HE ADR 

00501 2R 

025  1 

•.FLAG= 

000002 

HASHC 

0051 36R 

025  MACHIN= 

000106 

M.RAVL=  000000 

FHRET 

0050A0R 

025  1 

•.FLB  = 

000100 

HASHT8 

0051 40R 
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14  000006 

15  000012 

16  OOOOH 
OOOOH 
000016 
000020 
000022 


TITLE  CRTFIL 
I DENT  \V02.03\ 

SBTTL  COMMANDS 


CREATE 


■f-f 


FUNCTIONAL  DESCRIPTION: 

CREATE  A  FILE  BUT  DO  NOT  ATTACH  IT  TO  A  PARTICULAR  CHANNEL 


17 
18 
19 
20 


000024 
000026 

21  000034 

22  000042 

23  000044 
000050 
000056 
000060 


24 
25 
26 
27 
28 
29 
30 
31 
32 


000062 
000066 
000072 
000074 
000076 

33  000102 

34  000106 

35  000112 

36  000116 

37  000122 

38  000126 

60  000130 

61  000134 


1 22702 
001004 

005303 
002421 
112402 
000771 

010200 

132760 
001407 

032762 
001403 
104471 


000040 


CRTFIL: 
10$: 


11$; 


000040  OOOOOOG 


010000  177756 


012702  000204' 


010200 
010201 
062701 
012702 

012701 

022702 
001002 


13$: 
14$; 


000102 
OOOOOOG 

M7777 

000204 • 


1$: 
2$: 


.PSECT  CODE 


PUSH 
CMP8 
BNE 
GETC 
DEC  R3 
BLT  13$ 
M0V8  m 
BR 

MOV 

POP 

BITS 

BEQ 

CALL 

BIT 

BEQ 

CHNOPN 

MOV 

CALL 

MOV 

MOV 

ADD 

MOV 

CALL 

MOV 

CALL 

CMP 

BNE 

CALL 

RETURN 


<R2,R3,R4> 

;SAVE  INPUT  REGS 

*CHRSPA,R2 

; SPACE? 

11$ 

;N0 

13$ 

;GET  NEXT  CHAR 

;ANY  CHARACTERS  LEF 

;N0,  BRANCH  TO  13$ 

)-^,R2 

;YES,  GET  NEXT  CHAR 

10$ 

; IGNORING  SPACES 

R2,R0         ;COPY  CURRENT  CHAR 
<R4,R3,R2>      ;RESTORE  INPUT  REGS 
/(fC.DIG,CHRTAB(RO);IS  IT  A  DIGIT? 
13$  ;N0,  SO  NO  CHANNEL  SPECIFIED 

CMDCHN         ;GET  FILE  CHANNEL  TO  USE 
4fC.OPN,C.SBIT(R2)  .-CHANNEL  OPEN? 
14$  ;No,  IS  Alright 

;yes.  An  Error 


/(fCHANl4,R2 

RESCHN 

R2,R0 

R2,R1 

4fC.NAME,R1 

#DFLTEX.R2 

DECNAM 

/lf-1,R1 

OPNSET 

*CHAN14,R2 

2$ 

RESCHN 


USE  UTILITY  CHANNEL 
Clear  the  channel,  ust  in  case 
Point  to  FDB 
Point  to  the 
Name  Block 
Default  name  block 
Get  the  file  name 
SET  'CREATE'  FLAG 
OPEN  THE  FILE 
USING  UTILITY  CHANNEL? 
\^   NOT.  KEEP  FILE  OPEN  ON  CHANNEL 
AND  CLOSE  IT 
DONE! 


FT 
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SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

CTRMAX 

0001 72R 

025  D.COMP= 

000001 

EDI CHR 

005063R 

025 

AC1   = 

X000001 

CHRLPR= 

000072 

C.ALOC= 

000162 

D.CONT= 

000006 

EDICNT 

005064R 

025 

AC2   = 

X000002 

CHRMNS= 

000137 

C.BLOK= 

000064 

D.CTLW= 

000000 

EDIFLG 

005062R 

025 

AC3   = 

X000003 

CHRMUL= 

000075 

C.BLSZ= 

000140 

D.DEAL= 

000003 

EDIT  = 

000003 

ACA   = 

XOOOOOA 

CHRNEG= 

000100 

C.BUFF= 

1 77760 

D,DECD= 

000002 

EIS   = 

000000 

ACS   = 

XOOOOOS 

CHRPDL= 

000271 

C.8UFL= 

1 77762 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

ALLINT 

003274R 

025 

CHRPLU=  000055 

C.CCNT= 

1 77766 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C.CPTR= 

1 77764 

D.DQAD= 

1 77777 

EOF   = 

104475 

ASCQUO=  000042 

CHRQST= 

000121 

C.CZ  = 

001000 

D.DROP= 

000002 

ERRMAX= 

000166 

A.ALEN=  OOOOOA 

CHRQUO= 

000113 

C.DIG  = 

000040 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

A.ARG  = 

000040 

CHRRBR= 

000047 

C.FASW= 

020000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

A.AS8  = 

00020C 

CHRRPR= 

000042 

C.FLEN= 

000010 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.BITS= 

000003 

CHRSEM=  000074 

C.FLSH= 

004000 

D.F6ET= 

000005 

EXEBUF 

005054R 

025 

A. CON  = 

000020 

CHRSM0= 

0001 1 2 

C.FRC  = 

000001 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.DIWS= 

000002 

CHRSPA= 

000040 

C.IDEN= 

000010 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.Dim  = 

000006 

CHRTA8= 

******  GX 

C.NAME= 

000102 

D.FPUT= 

000005 

FA.APD= 

000100 

A.NUM  = 

000006 

CHRUPA= 

000131 

C.NOBF= 

000400 

D.6E  = 

000000 

FA.CRE= 

000010 

A.PTR  = 

000000 

CHR.8S= 

000010 

C.NUM  = 

000020 

D.GT  = 

000000 

FA.DLIC= 

001000 

A.TfXF  = 

000010 

CHR.CC= 

000003 

COP  = 

000004 

D.IBM  = 

000002 

FA.ENB= 

100000 

BADD1R= 

104463 

CHR.CR= 

000015 

C.OPN  = 

010000 

D.IND  = 

000002 

FA.EXC= 

002000 

BADERR= 

104437 

CHR.CZ= 

000032 

C.RDLN= 

1 77776 

D.INNR= 

000013 

FA.EXT= 

000004 

BLZR(.R 

0051 16R 

025 

CHR.GT= 

000046 

C.REWT= 

002000 

D.INTR= 

000006 

FA.NSP= 

000100 

BRSELF 

005046R 

025 

CHR.LF= 

000012 

C.RND  = 

000010 

D.LE  = 

000000 

FA.NSR= 

000200 

CCNT 

005072R 

025 

CHR.LT= 

000043 

C.S8IT= 

177756 

D.LOG  = 

000001 

FA.POS= 

010000 

CHA^€X 

003060R 

025 

CHR.SI= 

000017 

C.SPFX= 

000100 

D.LT  = 

000000 

FA.RD  = 

000001 

CHANOO 

000256R 

025 

CHR.SL= 

000057 

C.SPGL= 

000200 

D.MAX  = 

000000 

FA.RWD= 

004000 

CHAN01 

000330R 

025 

CHR.S0= 

000016 

C.SPLX= 

000001 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CHAN02 

0005 12R 

025 

CHR.T8= 

00001 1 

C . SPRS= 

000002 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHAN03 

000674R 

025 

CHR.UL= 

000106 

C.SRC  = 

1 7777^ 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHANOA 

001056R 

025 

CHH. .A— 

000141 

C.SRCP= 

000024 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN05 

001240R 

025 

CHR..E= 

000145 

C.TT  = 

000004 

D.,NN  = 

000000 

FA.WRT= 

000002 

CHAN06 

001422R 

025 

CHR. .S= 

000163 

C.WIDC= 

1 77770 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN07 

001604R 

025 

CHR..T= 

000164 

C.WIDR= 

1 77772 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN08 

001766R 

025 

CHR..U= 

000165 

DEBUG  = 

000000 

D.PLUS= 

000000 

FD.CQM= 

020000 

CHAN09 

0021 50R 

025 

CHR. .2= 

0001 72 

DECNAM= 

******  GX 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN10 

002332R 

025 

CHR..0= 

000060 

DEFERR= 

104405 

D.PWR  = 

0OOO01 

FD.DIR= 

000010 

CHAN11 

00251 4R 

025 

CHR..1= 

000061 

DEVIL 

0051 14R 

025  D.QQAD= 

000000 

FD.FTN= 

000001 

CHAN12 

002676R 

025 

CH.AND= 

000001 

DEVNTF= 

104470 

D.QUAD= 

000000 

FD.F11= 

040000 

CHAN13 

000022R 

023 

CMD8UF 

003250R 

025 

DFLTEX= 

******  GX 

D.RES  = 

000000 

FD.INS= 

000010 

CHANU 

000204R 

023 

CMDCHN= 

******  GX 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CHNnPN= 

104471 

CMDWAX= 

000010 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHRAND= 

000051 

CNTSJZ 

005130R 

025 

DI^LK 

0031 12R 

025  D.SC0N= 

000006 

FD.OSP= 

004000 

CHRBEL= 

000007 

COMBIN 

005076R 

025 

DinPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.PLC= 

000004 

Ci9BKR= 

000133 

COMCNT 

005126R 

025 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN= 

000004 

CHRflnL= 

000200 

CO«ERR= 

104425 

DIRFUL= 

1 04466 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRBOX= 

000114 

COMPTR 

005122R 

025 

DOWERR= 

104417 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRCWA= 

000054 

COWRTN 

0031 56R 

025 

DPTERR= 

104416 

D.TRAN= 

000004 

FD.RAN= 

000002 

CHRCa= 

000076 

COMSKP 

005124R 

025 

DYDCNT 

0032?mR 

025  D.UNON= 

000006 

FD.REC= 

000001 

CHRDEL= 

000107 

CORPTR 

005120R 

025 

D.AND  = 

OOOOuO 

D.$«AX= 

000000 

FD.RWM= 

000001 

CHRDIV= 

000053 

CRTFIL 

OOOOOORG 

020 

D.8XCT= 

000007 

D.$MIN= 

000000 

FD.SDI= 

000020 

CHRDLR= 

000176 

CS.ASS^ 

000200 

D.8XI0= 

?00007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRDLTr 

000110 

CS.800= 

000010 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.TTY= 

000004 

CHRDOT= 

000056 

CS.FL0= 

000020 

D.8XPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHREP  = 

000105 

CS.1DN= 

000040 

D.8XPW= 

000007 

D.$sue= 

000000 

FF. CHR= 

000005 

CHRERR= 

104431 

CS.ONE= 

000100 

D.BXRL^ 

000007 

D.ICOM^ 

000001 

FF.NV  = 

000003 

CHRFIL^ 

000)77 

CTEPS 

0001 52R 

025 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.POE^ 

000002 

CHRFRO^ 

000135 

cir^x 

0002 12R 

025 

D.C0I1B= 

000001 

D.IROT^ 

000003 

FF. RWD= 

000001 
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SYMBOL 

TABLE 

FF.RWFr 

000006 

■.FFBY= 

OOOOU 

HASHT8 

0051A0R 

025  MONBLK 

003120R 

025  M.RDCT= 

00001 1 

FF.SPC= 

OOOOOA 

■.FLAG= 

000002 

HSHMSK= 

1 77601 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

F HE ADR 

00501 2R 

025  1 

-.FLB  = 

000100 

HSHSIZ= 

000200 

MONLEN 

0031 30R 

025  M.ROLL= 

000000 

FHRET 

0050A0R 

025  1 

•.FNAM= 

000110 

I  CHAN 

005050R 

025  MONPTR 

0031 22R 

025  M.SATA= 

000001 

FILNTF= 

10A467 

-.FMB  = 

000102 

ILFNAM= 

10AA6A 

MONSFT 

0031 26R 

025  M.SCAN= 

000011 

FIS   = 

000000 

■.FNDF= 

000010 

ILLCHN= 

10A5A0 

MONTYP 

0031 2AR 

025  M.SHAP= 

000000 

FISCON= 

0A6000 

•.FTYP= 

000116 

ILLSW  = 

10A565 

MONVAL 

0031 3AR 

025  M.SIGN= 

000000 

FIXPTR 

00307AR 

025  i 

-.FUN  = 

000010 

INDtRR= 

10AA10 

M.ABS  = 

000000 

M.SUBR= 

000001 

FLAGS 

00A76AR 

025  F 

■.FVER= 

000120 

ir^TMP 

003250R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLCBUF 

003250R 

025  f 

■.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.8XAV= 

000007 

M.SYN  = 

000201 

FLINE 

0050KR 

025  f 

•.HJBK= 

OOOOOA 

INPTR 

00006AR 

025  M.8XCR= 

000007 

M.TRAN= 

000012 

FLOEXP 

003270R 

025  f 

-.LBL  = 

000020 

INSNAM= 

10AA62 

M.8XCT= 

000007 

M.$ABS= 

000000 

FLONEG 

003272R 

025  f 

•.LINE= 

000012 

lOERR  = 

10AA77 

M.6XEX= 

000007 

M.$CEI= 

000000 

FLSWTB 

000222R 

025  1 

-.LOC  = 

OOOOOA 

I.CNT  = 

1 77776 

M.8XFX= 

000007 

M.$FLR= 

000000 

FLTLEN= 

000010 

■.LSTC= 

OOOOOA 

I. DIM  = 

1?777: 

M.8XI0= 

000007 

M.$IDN= 

000000 

FNINSI 

0050AAR 

025  1 

-.LUN  = 

0000A2 

l.LEN  = 

000012 

M.8XLC= 

000003 

M.$NEG= 

000000 

FORIGN 

000032R 

025  1 

■.MBCT= 

00005A 

I.OERR= 

000062 

M.8XNC= 

000007 

M.$SIG= 

000000 

FO.APO= 

000106 

■.MBC1= 

000055 

J. OLD  = 

1 77770 

M.8XNL= 

000007 

M.1RDT= 

00001 1 

'^O.MFYr 

000002 

■.MBFG= 

000056 

I.PTR  = 

\7777k 

M.8XPP= 

000007 

M.1REV= 

000003 

FO.RD  = 

000001 

-.MON  = 

000002 

I.STR  = 

1 77766 

M.BXPW= 

000007 

M.1SCN= 

000011 

FO.UPO= 

000006 

".NIL  = 

000001 

LABERR= 

10AA06 

M.8XRL= 

000007 

NAWBUF 

0032A0R 

025 

Fn.WRT^ 

000016 

■.NRBD= 

00002A 

LABLPT 

0050A2R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FPMOOE 

0000A2f^ 

025  1 

■.NREC= 

000030 

LARGBL 

0031 62R 

025  M.BXUA= 

000007 

NB.DIR= 

000100 

FPP 

000000 

-.OPN  = 

000010 

LARGCV 

0031 76R 

025  M.CEI  = 

y77777 

NB.NAM= 

OCOOOA 

FPPLEN= 

OOOOOA 

■.0\/BS= 

000030 

LAR6FL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1= 

OOOAOO 

FREBLK 

007400R 

025  1 

■.PREV= 

000000 

LARGLE 

0031 7AR 

025  M.CMT  = 

000206 

NB.SD2= 

001 000 

FUZZ 

0OOU2R 

025  f 

■.PRNT= 

1 00000 

LARGLN 

0031 66R 

025  M.D0UT= 

000006 

NB.S)^1= 

OOOOAO 

FXPTR1 

003076R 

025  1 

■.PROT= 

010000 

LARGPT 

0031 6AR 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$EVAL= 

000100 

■.RACC= 

000016 

LARGSF 

0031 72R 

025  M.ENCD= 

OOOOOA 

NB.SVR= 

000010 

FSEVI  = 

000200 

■.RATT= 

000001 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

FSEXEC= 

OOOAOO 

■.RCN«= 

00003A 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F$F UNC= 

001000 

'.RCrL= 

000017 

LBJNC 

005100R 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.ACTL= 

000076 

■.READ= 

GOAOOO 

LBUFF 

00331 6R 

025  M.FIL  = 

0001 77 

ND.EXT= 

000002 

F.ALOC= 

OOOOAO 

■.REDF= 

OOOOAO 

LBUFLN= 

000621 

M.FLR  = 

^77777 

ND.NAM= 

OOOOOA 

F.RRFS= 

000062 

■".RES  = 

OOOOAO 

LCOUNT 

005106R 

025  M.FMT  = 

OOOOOA 

ND.PPN= 

000100 

F.BOe  = 

0OOC70 

-.RET  = 

]77772 

LENERR= 

10AA12 

M.GDUP= 

000003 

ND.SEX-^ 

000000 

F .BGBC= 

000057 

■.RSIZ= 

000002 

LENTAB 

00005AR 

025  M.GDUN= 

000003 

ND.$E$= 

000020 

F.BITS= 

1 7777^ 

•.RTYP= 

000000 

LEXPTR 

003100R 

025  M.6ETI= 

000006 

ND.$Nri= 

000000 

f.BKON= 

000026 

^R2  = 

00001 A 

LFTOP 

005066R 

025  M.I8M  = 

000003 

ND.$N$= 

OOOOAO 

F.BKDS= 

000020 

■.R3  = 

000016 

LINC 

005102R 

025  M.IDN  = 

000000 

ND.$PN= 

001 AOO 

F.BKEF= 

000050 

■.RA  = 

000020 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN 

005063R 

025 

f.bk:pi  = 

000051 

•.SEQN= 

000100 

LININC 

005026R 

025  M.IOTA= 

000000 

NINPT1 

003302R 

025 

F.BKST= 

00002A 

'.SPDV= 

000072 

LISIZE= 

000020 

M.LIT  = 

000205 

NINPT2 

0033OOR 

025 

f  .BKVB= 

00006A 

".SPUN= 

00007A 

LITOP 

005072R 

025  M.LN  = 

000001 

NINSTK 

00330AR 

025 

F.BR  = 

000020 

'.ST»C= 

000036 

LNLNG  = 

10A5A1 

M.MMD  = 

000010 

NINTMP 

00331  OR 

025 

F.CHR  = 

000075 

'.STK  = 

000022 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINTYP 

003306R 

025 

F . CNTG= 

0000  3A 

^STOP= 

OOOOOA 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

NOTAVL= 

10A A 72 

F.CODE= 

000010 

'.STP  = 

000001 

LSTERP 

00A766R 

025  M.NUB  = 

000006 

NOTOPN= 

10AA73 

f.OfNB= 

0OOOA6 

■ . SUSP= 

000002 

LWIDTH 

000070R 

025  M.NLW  ^ 

00020A 

NPRT1 

00A762R 

025 

F.DSPT= 

OOOOAA 

MRC  = 

000002 

L.8jrs= 

000003 

M.OUTR= 

000012 

NULL 

00736AR 

025 

F.DVf^l^ 

000134 

'.UNir= 

000136 

L.CNT  = 

000002 

M.PITM= 

000000 

NUMCHN= 

000020 

F.EF8IC= 

000010 

'.UR80= 

000020 

L.PRNTr 

000001 

M.PRDS^ 

000006 

NUMDFL 

003: 30R 

025 

F.EFN  = 

000050 

'.VAL  = 

177776 

L.PTR  = 

000000 

M.OQAD= 

000000 

NUMEFL 

003233R 

025 

F.END  = 

002000 

'.VBN  = 

00006A 

L.PTR1= 

OOOOOA 

M.QUAD^ 

000000 

NUMESN 

003236R 

025 

F.Enfifl^ 

000032 

'.\ms2= 

000060 

L.SUBS= 

000002 

M.RAND= 

000012 

NUMFLG 

003230R 

025 

F.ERR  ^ 

000052 

3N0ME 

003102R 

025  MACHINE 

000106 

M.RAVL= 

000000 

NUMLEN 

000062R 

025 

^JACC  = 

0OOOA3 

HASHC 

005136R 

025  MAXCHN^ 

00001 A 

M.RCIP= 

000000 

NUMNEG 

003232R 

025 
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SYWBOL 

TABLE 

NUMQFL 

00323AR 

025  RANDAC 

00306AR 

025 

R.LNUM= 

000010 

SY.8RK= 

100000 

T.LIST= 

000400 

NUMRIG 

003231 R 

025  RANDY 

003062R 

025 

R.NEXT= 

000006 

SY.BS  = 

000010 

T.LIT  = 

000020 

NinJlD 

003226R 

025  RANERR= 

104411 

R.OFF  = 

OOOOOO 

SY.CLR= 

000040 

T.WON  = 

000010 

NUMZFL 

003235R 

025  RARGBL 

003204R 

025 

R.PREV= 

000004 

SY.ERP= 

000020 

T.NIL  = 

000004 

NY1ERR= 

104A32 

RARGCV 

003220R 

025 

R.PTR  = 

OOOOOO 

SY.N0U= 

000100 

T.NUM  = 

002000 

N.BLSZ= 

000036 

RARGFL 

003202R 

025 

R.SEQ  = 

000003 

SY.OPN= 

000002 

T.0PFN= 

000001 

N.DESC= 

000020 

RARGLE 

00321 6R 

025  R.VAR  = 

000002 

SY.Pf1T= 

001000 

T.0THR= 

040000 

N.DEV  = 

000032 

RARGLN 

00321  OR 

025 

R6 

X000006 

SY.SRT= 

000400 

T.SOP  = 

000002 

N.DE\/N=  00003A 

RARGPT 

003206R 

025 

R7 

X000007 

SY.SVC= 

000004 

T.SPOP= 

000040 

N.DID  = 

00002A 

RARGSF 

0032  UR 

025 

SI 

X000005 

SY.SVL= 

000200 

T.TMP  = 

000200 

N.DV^f1=  000032 

RARGTY 

00321 2R 

025 

SIDAWN= 

104433 

S.AB  = 

1 77776 

T.VAL  = 

100000 

N.EXT  = 

OOOOU 

RARGVA 

003222R 

025 

SIFRAW 

00331 4R 

025 

S.AS8  = 

100000 

T.VAR  = 

001000 

N.FID  = 

000000 

RBASE 

005074R 

025 

SISTAK 

006350R 

025 

S.BFHD= 

000020 

UPPER  = 

1 77400 

N.FNAM=  000006 

RCOUNR 

005112R 

025 

SITOP 

006346R 

025 

S.BITS= 

000002 

UTNAWE 

000344R 

023 

N.FTYF>=  00001A 

RCOUNT 

00511  OR 

025 

SITP 

0071 44R 

025 

S.CHR1= 

000003 

VALERR= 

104413 

N.FVER= 

000016 

REDCNT 

005070R 

025 

SIWARN= 

000200 

S.FATT= 

000016 

VARBLE 

007400R 

025 

N.NAME= 

000006 

REDIGN 

005066R 

025 

SIZTAB 

000044R 

025 

S.FDB  = 

000140 

VARBLS 

OOOOOOR 

025 

N.I^XT= 

000022 

REDOFF 

005072R 

025 

SI.8IT= 

1 7777^ 

S.FLB  = 

040000 

VERNUM 

OOOOOOR 

025 

N.PF>N  = 

00002A 

REENTR 

003060R 

025 

SI.LEN= 

1 77772 

S.FNAM= 

000006 

VRSION= 

000002 

N.STAT= 

000020 

RES8IT 

003U2R 

025 

SI.RET= 

1 77772 

s.F^e  = 

000036 

WIDTH 

000072R 

025 

N.UNIT= 

00003A 

RESCHN= 

******  GX 

SI.VAL= 

1 77776 

S.FNBW= 

000017 

WROUND 

000020R 

025 

OBUFLN=  001000 

RESCVT 

0031 52R 

025 

SKPSIZ 

0051 34R 

025 

S.FNTY= 

000004 

WSDATE 

0001 36R 

025 

OCf^AN 

005052R 

025  RESERR= 

1 0AA40 

SPHOLD 

000004R 

024 

S.FTYP= 

000002 

WSPULL= 

104403 

GMOOE 

000402R 

023  RESLEN 

0031 50R 

025 

SPINIT 

000002R 

024 

S.LEN  = 

000002 

WSNAME 

000074R 

025 

OPNSET= 

♦**♦♦*  GX 

RESPTR 

003K0R 

025 

STKINC= 

000774 

S.LINK= 

1 7777^ 

WSTIME 

0001 32R 

025 

OPTMF>0 

005066R 

025  RESSFT 

0031 46R 

025 

STOP  = 

104420 

S.NFEN= 

000020 

$FIS  = 

******  Q 

0PTMP1 

005070R 

025  RESTYP 

003U4R 

025 

SUBCNT 

0031 04R 

025 

S.TYPE= 

140000 

%fPP     = 

******  (5 

0PTMP2 

005072R 

025  RESULT 

0031 36R 

025 

SUBDCT 

0031 06R 

025 

S.VAL  = 

OOOOOO 

%fPPlN= 

******  Q 

0PTMP3 

00507AR 

025  RESVAL 

0031 54R 

025 

SlfiPTR 

003 11  OR 

025 

TKDIWS 

005072R 

025  $WACHN= 

******  (5 

0PTMP4 

005076R 

025  RINC 

0051  OAR 

025 

SY^B1 

005344R 

025 

TKFRAW 

005066R 

025  SRSTS  = 

******  (3 

0PTMP5 

005100R 

025  RLTBAS 

005066R 

025 

SYWF 

005340R 

025 

TKLEFT 

005070R 

025  $RSX  = 

******  Q 

0PTMP6 

005102R 

025  ROTINC 

005070R 

025 

SY/iPTI 

005346R 

025 

TWDE 

000403R 

023  $RT11  = 

******  Q 

0PTMP7 

00510AR 

025  ROUND 

00001  OR 

025 

SYWTAB 

005352R 

025 

TMPTAG= 

000166 

.800LE= 

000002 

0PTMP8 

005106R 

025  ROVER 

00331 2R 

025 

SYWT8F= 

104404 

TTYBUF 

004140R 

025  .CHARA= 

OOOOOO 

0PTMF>9 

005110R 

025  RSTS  = 
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SYMTOP 

005350R 

025 

TTYLEN= 

000622 

.DEF.  = 
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OPTMIO 

0051 12R 

025  RSX   = 

0001 1 5 

SYHTP 

0062 72R 

025 

TURKEY= 

104436 

.FLOAT= 
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OPTMU 

005026R 

025  RTOP 

005070R 

025 

SY/1URN= 

000054 

TYPE  = 
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******  Q 

ORIGIN 

000030R 

025  RT11  = 
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SYNERR= 

104407 

T.80L  = 

020000 
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000004 

a'TPTR 

000066R 

025  R.BITS= 
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SYSERR= 

104402 

T.CON  = 

004000 

.WOLUN 

000404R 

023 

OVROPR= 

000000 

R.FIX  = 
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SYSTAT 

OOOOOOR 

024 

T.DIM  = 

000100 

...G8L= 

OOOOOO 

PATCH 

0073AAR 

025  R.LCT  = 

000002 

SY.8AD= 
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T.FUN  = 

010000 

...TPC= 

000020 

PRECSN 

0OOO52R 

025  R.LN  = 
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TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

C.BLOK= 

000064 

D.DECD= 

000002 

EIS   = 

000000 

AC1   = 

X000001 

CHRLPR= 

000072 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

AC2   = 

X000002 

CHRMNS= 

000137 

C.8UFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

AC3   = 

X000003 

CHRMUL= 

000075 

C.BUFL:-- 

1 77762 

D.DQAD= 

1 77777 

EOF   = 

104475 

AC4   = 

X000004 

CHRNEG= 

000100 

C.CCNT= 

1 77766 

D.DROP= 

000002 

ERRMAX= 

000166 

ACS   = 

X000005 

CHRPDL= 

000271 

C . CPTR= 

1 77764 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

ALLINT 

003274R 

025 

CHRPLU=  000055 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRO 

004774R 

025 

ASCQUO=  000042 

CHRQST= 

000121 

C.FASW= 

020000 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

A.ALEN=  000004 

CHRQUO= 

000113 

C.FLEN= 

000010 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.ARG  = 

000040 

CHRRBR= 

000047 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.ASB  = 

000200 

CHRRPR= 

000042 

C.FRC  = 

000001 

D.FPUT= 

000005 

FA.APD= 

000100 

A.BITS= 

000003 

CHRSEM=  000074 

C.IDEN= 

000010 

D.6E  = 

000000 

FA.CRE= 

000010 

A. CON  = 

000020 

CHRSM0= 

0001 1 2 

C.NAME= 

000102 

D.GT  = 

000000 

FA.DL)C= 

001000 

A.DIMS= 

000002 

CHRSPA= 

000040 

v;.NOBF= 

000400 

D.IBM  = 

000002 

FA.E^B= 

100000 

A.DIM1= 

000006 

CHRUPA= 

000131 

C.NLW  = 

000020 

D.IND  = 

000002 

FA.EXC= 

002000 

A.MJM  = 

000006 

CHR.BS= 

000010 

COP  = 

000004 

D.INNR= 

000013 

FA.EXT= 

000004 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.OPN  = 

010000 

D-INTR= 

000006 

FA.NSP= 

000100 

A.TMP  = 

000010 

CHR.CR= 

000015 

C.RDLN= 

1 77776 

D.LE  = 

000000 

FA.NSR= 

000200 

BADDIR= 

104463 

CHR.CZ= 

000032 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.P0S= 

010000 

BADERR= 

104437 

CMR.GT= 

000046 

C.RND  = 

000010 

D.LT  = 

000000 

FA.RD  = 

000001 

BLZBUB 

005116R 

025 

CHR.LF= 

00001 2 

C.S8JT= 

1 77756 

D.MAX  = 

000000 

FA.RWD= 

004000 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CCNT 

OO5072R 

025 

CHR.SI= 

000017 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHA^EX 

003060R 

025 

CHR.SL= 

000057 

C . SPLX= 

000001 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C . SPRS= 

000002 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN01 

000330R 

025 

CHR.TB= 

000011 

C.SRC  = 

1 7777^ 

D.NN  = 

000000 

FA.WRT= 

000002 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.SRCP= 

000024 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN03 

000674R 

025 

CHn . .A— 

000141 

C.TT  = 

000004 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.WIDC= 

1 77770 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN05 

001240R 

025 

CHR..S= 

000163 

C.WIDR= 

1 77772 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN06 

001422R 

025 

CHR..T= 

000164 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.FTN= 

000001 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DFVIL 

005114R 

025  D.QUAD= 

ocoooo 

FD.F11= 

040000 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DEVNTF= 

104470 

D.RES  :r 

000000 

FD.INS= 

000010 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIGITS 

000006R 

025  D.RHO  -- 

000000 

FD.ISP= 

002000 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN12 

002676R 

025 

CMD8UF 

003250R 

025 

oimiK 

0031 12R 

025  D.SCON= 

000006 

FD.OSP= 

004000 

CHAN13 

000022R 

023 

CMD«AX= 

000010 

DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.PLC= 

000004 

CHAN14 

000204R 

0^3 

CNTSIZ 

005130R 

025 

DIMTVP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN= 

000004 

CHNOPN= 

104471 

COMBIN 

005076R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRAND= 

000051 

COMCNT 

005126R 

025 

DOMERR= 

104417 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRRFL= 

000007 

COMERR= 

104425 

DPTERR= 

104416 

D.TRAN= 

000004 

FD.RAN= 

000002 

CHRBKR= 

000133 

COMPTR 

005122R 

025 

DYDCNT 

003224R 

025  D.UNON= 

000006 

FD.REC= 

000001 

CHRBOL= 

000200 

COMRTN 

0031 56R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RWM= 

000001 

CHRBax= 

000114 

COMSKP 

005124R 

025 

D.8XCT= 

000007 

D.$MIN= 

000000 

FD.SDI= 

000020 

CHRC«A= 

000054 

CORPTR 

00512OR 

025 

D.8XI0= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRCa= 

000076 

CPOUTL 

0OOOOOR6 

026 

D.8XNL= 

000007 

D.SPLU= 

000000 

FD.TTY= 

000004 

CHRDEL= 

000107 

CS.ASS= 

000200 

D.8XPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHROIV= 

000053 

CS.BOO= 

000010 

D.8XPW= 

000007 

D.$SUB= 

000000 

FF.CHR= 

000005 

CHRDLR= 

000176 

CS.FLO= 

000020 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.NV  = 

000003 

CNRDLT= 

000110 

CS.IDN= 

000040 

D.CIRC= 

000001 

D.I EXP= 

000002 

FF.POE^ 

000002 

CHRDOT= 

000056 

CS.ONE= 

000100 

D.COMB= 

000001 

D.1R0T= 

000003 

FF. RWD= 

000001 

CHREP  = 

000105 

CTEPS 

0001 52R 

025 

D.corip= 

000001 

EDICHR 

005063R 

025  FF.RWFr 

000006 

CHRERR= 

104431 

CTMAX 

0002 12R 

025 
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SYSTEM  STATUS  BITS 

13- 

640 

DEFINITIONS 

F-FRAMES 

14- 

724 

DEFINITIONS 

FUNCTION  LINE  BLOCKS 

16- 

807 

DEFINITIONS 

ARRAY  STORAGE  BLOCK 

17- 

869 

DEFINITIONS 

LIST  STORAGE  BLOCK 

18- 

911 

DEFINITIONS 

INDEXING  STACK  FRAME 

19- 

940 

DEFINITIONS 

SYMBOL  TABLE  ENTRY 

20' 

969 

DEFINITIONS 

CHANNEL  BLOCK 

22' 

1085 

DEFINITIONS 

RSX  DATA 

23- 

1110 

DEFINITIONS 

NAME  BLOCKS 

33- 

1612 

DEFINITIONS 

MACROS 

35- 

1905 

DEFINITIONS 

APL  CHARACTERS 

36- 

1967 

DEFINITIONS 

ERRORS 

44- 

4 

NE  WD  T 

PRINT  CURRENT  DATE  I   TIME 

DATIME  MACRO  Ml  113  08-FEB-80  11 :35 
TABLE  OF  CONTENTS 


TT 


ji 


AA-       H 


DATIME 


PRINT   DATE   &  TIME 
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1 

000000 

I 

000000 

000115 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

000004 

10 

11 

000000 

RT11 
RSTS 
RSX 

= 

0 

0 

•M 

EIS 
FIS 
FPP 

— 

0 
0 
0 

FPPLEN 

= 

A 

DEBUG 

~ 

0 

TT 


;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;Na  FIS 
;N0  FPP 

; SINGLE  PRECISION 

;D0N'T  DISPLAY  REGISTERS  ON  ERRORS 


D 


DATIME 
APLDEF 


1 
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.S8TTL 
.IDEM 


6"T 


D 
A 


APLDEF 
\V02.03\ 


APL     MACRO  Ml 1 1 3  08-F  EB-80  11:35  PAGE  42 
DEFINITIONS     ERRORS 


TT 


2513 


.LIST  SEQ,SRC,LOC,BIN,BEX,MEB 


DATIME     MACRO 
DEFINITIONS 

1 


M1113  08-FEB-80  11:35 
ERRORS 


PAGE  AA 


TT 


000000 
000000 


4 
5 
6 
7 

8 

9 
10 
11 

H 
15 
16 
17 
18 

19  OOOOOA 

20  OOOOOA 

21  000016 

22  000022 

23  000026 

24  000032 

25  000034 

26  000040 

27  000044 

28  000050 

29  000056 

30  000062 

31  000066 

32  000070 

33  000074 

34  000100 

35  000102 

36  000104 

37  000110 

38  000114 

39  000120 

40  000122 

41  000126 

42  000132 

43  000136 

44  000140 

45  000144 

46  000152 

47  000154 

48  000162 

49  000166 

50  000172 

51  000204 


TITLE  DATIME 
I  DENT  \V02.03\ 

SBTTL  NEWDT 


PRINT  CURRENT  DATE  &  TIME 


;  THIS  ROUTINE  COMPUTES  AND  THE  PRINTS  THE   CURRENT  DATE  i   TIME 

.PSECT  CODE 
NEWDT;:  CALL    6ETMDT         ; COMPUTE  CURRENT  DATE,  TIME 


.SBTTL  DATIME 


NORMAL  ENTRY  POINT 


PRINT  DATE  &  TIME 


DATIME 


012700 
012701 
01 2702 
112203 


005066' 

000003 

000132' 


1$: 


112720  000076 


112760 
112720 
012701 
114103 

112720 
114103 
006303 
016302 

112720 
114103 

012701 
122711 
001002 
112711 
122761 
001003 
112761 
105061 


000040  1 77777 

000040 

0001 4r 


000137 

OOOOOC 
000137 


005066 • 
000060 

OOOOAO 

000060  00001 2 

000040  000012 
000023 


2$: 


3$: 


PUSH  <R0,R1,R2,R3,R4> 

MOV  #OPTMPO,RO 

MOV  #3.,R1 

MOV  *WSTIME,R2 

MOVB  (R2)+,R3 

CALL  NUMOVE 

MOVB  #CHRCOL,(R0)+ 

SOB  R1,1$ 

MOVB  *CHRSPA,-1(R0) 

MOVB  ^CHRSPA,(RO)^ 

MOV  #WSDATE*3,R1 

MOVB  -(R1),R3 

CALL  NUMOVE 

MOVB  #CHRMNS,(RO)+ 

MOVB  -(R1),R3 

ASL  R3 

MOV  M0NTHT(R3),R2 

CALL  RAD$ 

MOVB  #CHRMNS,(RO)^ 

MOVB  -(R1),R3 

CALL  NUMOVE 

MOV  WPTMP0,R1 

CMPB  #CHR..0,aR1 

BNE  2$ 

MOVB  *CHRSPA,aR1 

CMP8  *CHR..0,12(R1) 

BNE  3$ 

MOVB  /(fCHRSPAJ2(Rl) 

CLRB  23(R1) 

CALL  PRINTM 

POP  <R4,R3,R2,R1,R0> 

RETURN 


SAVE  REGISTERS 

POINT  TO  WORK  AREA 

LOOP  COUNT 

POINTER  TO  DATA 

GET  THE  NEXT  TIME  ITEM 

MOVE  TWO  DIGITS 
t ... . 

AND  LOOP  (3  TIMES) 
A  SPACE 

DATE  FOR  MESSAGE 
GET  THE  DAY 
PRINT  IT 

GET  THE  MONTH 
TIMES  2 

GET  THE  MONTH  (RAD50) 

CONVERT 

GET  THE  YEAR 

PRINT  THE  YEAR 

AGAIN, POINT  TO  TEMPORARY 

IS  IT  A  LEADING  0  ? 

NO,  IS  OK 

CONVERT  TO  A  SPACE 

DATE  START  WITH  A  "0"? 

NO,  IS  OK 

CONVERT  TO  SPACE 

END  THE  STRING 

PRINT  IT  OUT  (FINALLY) 

RESTORE  REGISTERS 

AND  RETURN 


DATIME  MACRO  Ml  113  08 

-FEB-80 

11:35 

DATIME 

PRINT  DATE  &  TIME 

53 

54 

55 

56 

57  000206 

58  000210 

005002 

59  000212 

60  000226 

062702 

000060 

61  000232 

062703 

000060 

62  000236 

110220 

63  000240 

110320 

64  000242 

65  000244 

66 

67  000000 

68 

69  000000 

134745 

70  000002 

037266 

023112 

050572 

000010 

004322 

050601 

040726 

71  000016 

0A0724 

00461 7 

073630 

000024 

0571K 

054756 

014713 

PAGE  45 


J  7 


THIS  ROUTINE  MOVES  A  TWO-DIGIT  (BASE  10)  NUMBER  TO 
THE  AREA  POINTED  TO  BY  RO. 


NUMOVE 


PUSH 

<R2> 

;SAVE  HIGH  PART  OF  DBL-WORD 

CLR 

R2 

; CLEAR  HIGH-WORD 

DIV 

/no.,R2 

;DIVIDE  BY  TEN   -  GET  TWO  NUMBERS 

ADD 

*CHR..0,R2 

; CONVERT  BOTH  TO 

ADD 

4rCHR..0,R3 

;   ASCII 

M0V8 

R2,(R0)^- 

•AND  MOVE  BOTH  TO 

MOVB 

R3,(R0)+ 

;   TEMPORARY 

POP 

R2 

;RESTORE  R2 

RETURN 

.PSECT 

TABLES 

MONTHT: 


.WORD   35*50^35*50^-35  ;MONTH  TABLE 
.RAD50  /JANFEBMARAPRMAYJUN/ 

.RAD50  /JULAUGSEPOCTNOVDEC/ 


K  7 

DATIME  MACRO  Ml  11 3  OS- 

-FEB-80  11:35 

PAGE  46 

DAT  IME 

PRINT  DATE  &  TIME 

73 

;-f 

74 

;  GET  THE  CURRENT  TIME,  DATE 

75 

;- 

76  000246 

77 

78  000246 

.PSECT 

CODE 

GETMDT:: 

80  000246 

PUSH 

RO 

•SAVE  REGS 

81  000250 

162706 

000020 

SLR 

/lf16.,SP 

•SPACE  FOR  PARAMETERS 

82  000254 

010600 

MOV 

SP,RO 

•COPY  POINTER  TO 

PARAM  SPACE 

83  000256 

GTIMSS 

RO 

■GET  THE  PARAMETERS 

000256 

010046 

MOV 

RO,-(SP) 

000260 

012746 

MOV 

(PC)+,-(SP) 

000262 

075 

002 

.BYTE 

61., 2 
*0<377> 

000264 

104377 

EMT 

84  000266 

012700 

000136* 

MOV 

/ni/SDATE,RO 

; POINTER  TO  DATE 

FIELD 

85  000272 

1 1 2620 

MOVB 

(SP)  +  ,(RO)^- 

;GET  THE  YEAR 

86  000274 

112620 

MOVB 

(SP)'^,  (RO)^' 

;    THE  MONTH 

87  000276 

112620 

MOVB 

(SP)  +  ,(RO)^• 

;    THE  DAY 

88  000300 

012700 

000132* 

MOV 

/nJSTIME,RO 

;POINTER  TO  TIME 

FIELD 

89  000304 

112620 

MOVB 

(SP)+,(RO)+ 

;GET  THE  HOUR 

90  000306 

112620 

MOVB 

(SP)^-,(RO)  + 

;    THE  MINUTE 

91  000310 

1 1 2620 

MOVB 

(SP)-^, (R0)  + 

;    THE  SECOND 

92  000312 

062706 

000004 

ADD 

#4.,SP 

;SKIP  TICK  INFO 

93  000316 

POP 

RO 

:RESTORE  RO 

165  000320 

RETURN 

166 

L  7 
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DATIME         PRINT  DATE  &  TIME 

1        000001  .END 
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SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

C.BLSZ= 

0001 AO 

D.DECD= 

000002 

EIS   = 

000000 

AC1   = 

X000001 

CHRLPR= 

000072 

C.8UFF= 

1 77760 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

AC2   = 

X000002 

CHRMNS= 

000137 

C.BUFL= 

1 77762 

D.DMD  = 

000010 

ENDCOR 

OOOOOAR 

025 

AC3   = 

X000003 

CHRMUL= 

000075 

C.CCNT= 

1 77766 

D.DQAD= 

1 77777 

EOF   = 

10AA75 

ACA   = 

XOOOOOA 

CHRNEG= 

000100 

C . CPTR= 

1 7776A 

D.DR0P= 

000002 

ERRMAX= 

000166 

ACS   = 

XOOOOOS 

CHRPDL= 

000271 

C.CZ  = 

001000 

D.ENCD= 

000002 

ERRNUM 

00A772R 

025 

ALL INT 

00327AR 

025 

CHRPLU=  000055 

C.DIG  = 

OOOOAO 

D.EQ  = 

000000 

ERRPTR 

00A770R 

025 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C . FASW= 

020000 

D.EXPD= 

000002 

ERRO 

00A77AR 

025 

ASCQUO=  00OOA2 

CHRQST= 

000121 

C.FLEN= 

000010 

D.FGET= 

000005 

EXEBUF 

00505AR 

025 

A.ALEN=  OOOOOA 

CHRQU0= 

000113 

C.FLSH= 

OOAOOO 

D.FMT  = 

OOOOOA 

E$CT 

005056R 

025 

A.ARG  = 

OOOOAO 

CHRRBR= 

0000A7 

C.FRC  = 

000001 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.ASe  = 

000200 

CHRRPR= 

0000A2 

C.IDEN= 

000010 

D.FPUT= 

000005 

FA.APD= 

000100 

A.BITS= 

000003 

CHRSEM=  00007A 

C.NAME= 

000102 

D.GE  = 

000000 

FA.CRE= 

000010 

A. CON  = 

000020 

CHRSM0= 

000112 

C.NOBF= 

OOOAOO 

D.6T  = 

000000 

FA.DLK= 

001000 

A.DIMS= 

000002 

CHRSPA= 

OOOOAO 

C.NUM  = 

000020 

D.IBM  = 

000002 

FA.ENB= 

100000 

A.DIM1= 

000006 

CHRUPA= 

000131 

COP  = 

OOOOOA 

D.IND  = 

000002 

FA.EXC= 

002000 

A.NUM  = 

000006 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.INNR= 

000013 

FA.EXT= 

OOOOOA 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.RDLN= 

1 77776 

D.INTR= 

000006 

FA.NSP= 

000100 

A.  IMP  = 

000010 

CHR.CR= 

00001 5 

C.REWT= 

002000 

D.LE  = 

000000 

FA.NSR= 

000200 

BADDIR= 

10AA63 

CHR.CZ= 

000032 

C.RND  = 

000010 

D.LOG  = 

000001 

FA.POS= 

010000 

BADERR= 

10AA37 

CHR.GT= 

0000A6 

C.SBIT= 

177756 

D.LT  = 

000000 

FA.RD  = 

000001 

BLZBUB 

00S116R 

025 

CHR.LF= 

000012 

C.SPFX= 

000100 

D.MAX  = 

000000 

FA.RWD= 

OOAOOO 

BRSELF 

0050A6R 

025 

CHR.LT= 

0O00A3 

C.SPGL= 

000200 

D.MEM  = 

000002 

FA.SEQ= 

OAOOOO 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C.SPLX= 

000001 

D.MIN  = 

000000 

FA.SHR= 

OOOOAO 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C . SPRS= 

000002 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHANOO 

0002S6R 

025 

CHR.SO= 

000016 

C.SRC  = 

1 7777^ 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN01 

000330R 

025 

CHR.TB= 

000011 

C.SRCP= 

00002A 

D.NN  = 

000000 

FA.WRT= 

000002 

CHAN02 

000S12R 

025 

CHR.UL= 

000106 

C.TT  = 

OOOOOA 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN03 

00067AR 

025 

CNn  m .A" 

0001 A1 

C.WIDC= 

1 77770 

D.OR  = 

000000 

FD.CCL= 

000002 

CHANOA 

001056R 

025 

CHR..E= 

0001  AS 

C.WIDR= 

1 77772 

D.PLUS= 

000000 

FD.COM=  020000 

CHANGS 

0012A0R 

025 

Lnn  * . o— 

000163 

DATIME 

OOOOOARG 

020  D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN06 

001A22R 

025 

CHR..T= 

0001 6A 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN07 

00160AR 

025 

CHR..U= 

000165 

DEFERR= 

10AA05 

D.QQAD= 

000000 

FD.FTN= 

000001 

CHAN08 

001766R 

025 

CHR..Z= 

0001 72 

DEVIL 

0051 1AR 

025  D.QUAD= 

000000 

FD.F11= 

OAOOOO 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DEV^'TF= 

10AA70 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN11 

00251 AR 

025 

CH.AND= 

000001 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN12 

002676R 

025 

CMOaiF 

003250R 

025 

DimiK 

0031 12R 

025  D.SCON= 

000006 

FD.OSP= 

OOAOOO 

CHAN13 

000022R 

023 

CMDMAX= 

000010 

DIMPTR 

0031 1AR 

025  D.SDIF= 

000006 

FD.PLC= 

OOOOOA 

CHAN1A 

00020AR 

023 

CNTSIZ 

005130R 

025 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN= 

OOOOOA 

CHNCIPN= 

10AA71 

COMBIN 

005076R 

025 

DIRFUL= 

10AA66 

D.SI.FS= 

000006 

FD.PSE= 

010000 

CHRAND= 

000051 

COMCNT 

0051 26R 

025 

DOMERR= 

10AA17 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRBEL= 

000007 

COriERR= 

10AA25 

DPTERR= 

10AA16 

D.TRAN= 

OOOOOA 

FD.RAN= 

000002 

CHR»CR= 

000133 

COMPTR 

0051 22R 

025 

DYDCNT 

00322AR 

025  D.UN0N= 

000006 

FD.REC= 

000001 

CHRBOL= 

000200 

COMRTN 

0031 56R 

025  D.AND  = 

000000 

D.$MAX= 

000000 

FD.RUM= 

000001 

CHRBOX= 

00011A 

COMSKP 

00512AR 

025 

D.BXCT= 

000007 

D.$MIN= 

000000 

FD.SDI= 

000020 

CHRCWA= 

00005A 

CORPTR 

005120R 

025 

D.8XI0= 

000007 

D.$MU'..= 

000000 

FD.SQD= 

OOOOAO 

CHRCa= 

000076 

CS.ASS= 

000200 

D.8XNL= 

000007 

D.$PLU= 

000000 

FD.TTY= 

OOOOOA 

CHRDEL= 

000107 

CS.BOO= 

000010 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.WBH= 

000002 

CHRDIV= 

000053 

CS.FLO= 

000020 

D.BXPW= 

000007 

D . $SUB= 

000000 

FF. CHR= 

000005 

CHRDLR= 

000176 

CS. IDN= 

OOOOAO 

D.6XRL= 

000007 

D.1C0M= 

000001 

FF.NV  = 

000003 

CHRDLT= 

000110 

CS.ONE= 

000100 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.POE= 

000002 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D.corc= 

000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHREP  = 

000105 

CTMAX 

00021 2R 

025 

D.COMP= 

000001 

EDI  CNR 

005063R 

025  FF.RWF= 

000006 

CHRERR= 

10AA31 

CTRMAX 

0001 72R 

025 

D.CONT= 

000006 

EDICNT 

00506AR 

025  FF.SPC= 

OOOOOA 

CHRFIL= 

000177 

C.ALOC= 

000162 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  F HE ADR 

00501 2R 

025 

CHRFRO 

000135 

C.BLOK= 

00006A 

D.DEAL= 

000003 

EDIT  = 

000003 

FHRET 

0050A0R 

025 

DATIME 
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SYMBOL 

FABLE 

FILNTF= 

1 04467 

F.FNB  = 

000102 

6.TIMJ= 

000010 

L.PRNT= 

000001 

M.PITM= 

000000 

FIS   = 

000000 

F.FNDF= 

000010 

G.TIM0= 

000002 

L.PTR  = 

000000 

M.PRDS= 

000006 

FISCON= 

0A6000 

F.F TYP= 

000116 

G.TISC= 

00001 2 

L.PTR1= 

000004 

M.QQAD= 

000000 

FIXPTR 

003074R 

025 

F.FUN  = 

000010 

G.TIYR= 

000000 

L . SUBS= 

000002 

M.QUAD= 

000000 

FLAGS 

00476AR 

025 

F.FVER= 

000120 

HASHC 

0051 36R 

025  MACHIN= 

000106 

M.RAND= 

000012 

FLCBUF 

003250R 

025 

F.HEAD= 

000006 

HASHTB 

0051 40R 

025  MAXCHN= 

000014 

M.RAVL= 

000000 

FLINE 

0050HR 

025 

F.HIBK= 

000004 

HSHMSK= 

1 77601 

MONBLK 

0031 20R 

025  f^.RClP= 

000000 

FLOEXP 

003270R 

025 

F.LBL  = 

000020 

HSHSIZ= 

000200 

MONCVT 

0031 32R 

025  M.RDCT= 

00001 1 

FLC>€G 

003272R 

025 

F.LINE= 

000012 

I  CHAN 

005050R 

025  MONLEN 

0031 30R 

025  M.REVS= 

000003 

FLSWTB 

000222R 

025 

F.LOC  = 

000004 

IDIV  = 

***•••  Gx 

MONPTR 

0031 22R 

025  M.ROLL= 

000000 

FLTLEN= 

000010 

F.LSTC= 

000004 

ILFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SATA= 

000001 

FNINSI 

0050AAR 

025 

F.LUN  = 

000042 

ILLCHN= 

104540 

MONTHT 

OOOOOOR 

002  M.SCAN= 

000011 

FORIGN 

000032R 

025 

F.MBCT= 

000054 

ILLSW  = 

104565 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FO.APO= 

000106 

F.MBC1  = 

000055 

INDERR= 

104410 

MONVAL 

0031 34R 

025  M.SIGN= 

000000 

FO.MFY= 

000002 

F.MBFG= 

000056 

INNTMP 

003250R 

025  M.ABS  = 

000000 

M.S(RR= 

000001 

FO.RD  = 

000001 

F.MON  = 

000002 

INNTM2 

00501 6R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FO.UF>D= 

000006 

F.NIL  = 

000001 

INPTR 

000064R 

025  M.8XAV= 

000007 

M.SYN  = 

000201 

FO.WRT= 

000016 

F.NRBD= 

000024 

INSNAM= 

104462 

M.BXCR= 

000007 

M.TRAN= 

000012 

FPMOOE 

0000A2R 

025 

F.NREC= 

000030 

lOERR  = 

104477 

M.BXCT= 

000007 

M.$ABS= 

000000 

FPP   = 

000000 

F.OPN  = 

000010 

I.CNT  = 

1 77776 

M.BXEX= 

000007 

M.$CEI= 

000000 

FPPLEN= 

000004 

F.OVBS= 

000030 

I. DIM  = 

1 77772 

M.BXFX= 

000007 

M.$FLR= 

000000 

FREBLK 

007400R 

025 

F.PREV= 

000000 

I.LEN  ■= 

C00012 

M.BXI0= 

000007 

M.$IDN= 

000000 

FUZZ 

0001 42R 

025 

F.PRNT= 

100000 

I.0ERR= 

000062 

M.BXLC= 

000003 

M.$NEG= 

000000 

FXPTR1 

003076R 

025 

F.PROT= 

010000 

I. OLD  = 

1 77770 

M.BXNC= 

000007 

M.$SIG= 

000000 

FSEVAL= 

0C0100 

F.RACC= 

000016 

I.PTR  = 

1 7777^ 

M.BXNL= 

000007 

M.1RDT= 

000011 

FSEVI  = 

000200 

F.RATT= 

000001 

I. SIR  = 

1 77766 

M.BXPP= 

000007 

M.1REV= 

000003 

F$EXEC= 

000400 

F.RCNM= 

000034 

LABERR= 

104406 

M.BXPW= 

000007 

M.1SCN= 

000011 

F$FUNC= 

001000 

F.RCTL= 

00001 7 

LABLPT 

005042R 

025  M.BXRL= 

000007 

NAMBUF 

003240R 

025 

F.ACTL= 

000076 

F.READ= 

004000 

LARGBL 

0031 62R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

F.ALOC= 

000040 

F.REDF= 

000040 

LARGCV 

0031 76R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

F.RRFS= 

000062 

F.RES  = 

000040 

LARGE L 

0031 60R 

025  M.CEI  = 

1 77777 

NB.NAM=  000004 

F.BOB  = 

000070 

F.RET  = 

1 77772 

LARGLE 

0031 74R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

F.BGBC= 

000057 

F.RSIZ= 

000002 

LARGLN 

0031 66R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

F.BITS= 

1 7777^ 

F.RTYP= 

000000 

LARGPT 

0031 64R 

025  M.D0UT= 

000006 

fB.Sht^   000040 

F.BKDN= 

000026 

F.R2  = 

000014 

LARGSF 

0031 72R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F.BKDS= 

000020 

F.R3  = 

000016 

LARGTY 

0031 70R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F.BICEF= 

000050 

F.R4  = 

000020 

LARGVA 

00320OR 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F.BKP1= 

000051 

F.SEQN= 

000100 

LBINC 

005100R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F.BKST= 

000024 

F . SPDV= 

000072 

LBUFF 

00331 6R 

025  M.F  CT= 

000001 

ND.DEV= 

000200 

f.BK\JB= 

000064 

F.SPUN= 

000074 

LBUFLN= 

000621 

M.FIL  = 

000177 

ND.EXT= 

000002 

F.BR  = 

000020 

F.STBK= 

000036 

LCOUNT 

005106R 

025  M.FLR  = 

1 77777 

ND.NAM= 

000004 

F.CHR  = 

000075 

F.STK  = 

000022 

LENERR= 

104412 

M.FMT  = 

000004 

ND. PPN=  000100 

F . CNTG= 

000034 

F.STOP= 

000004 

LENTAB 

000054R 

025  M.GDUP= 

000003 

ND.$EX= 

000000 

F.CCX)E= 

000010 

F.STP  = 

000001 

LEXPTR 

0031 OOR 

025  M.GDWN= 

000003 

ND.$E$= 

000020 

f.OfNB= 

000046 

F . SUSP= 

000002 

LFTOP 

005066R 

025  M.GETI= 

000006 

ND.$NM= 

000000 

F.DSPT= 

000044 

F.TRC  = 

000002 

LINC 

005102R 

025  M.IBM  = 

000003 

ND.$N$= 

000040 

F.DV^f1= 

000134 

f.UNlJ= 

000136 

LINE 

00501 6R 

025  M.IDN  = 

000000 

ND.SPN= 

001400 

F.EFBK= 

000010 

F.URBD= 

000020 

LININC 

005026R 

025  M.INSP= 

000006 

NEGSGN 

005063R 

025 

F.EFN  = 

000050 

F.VAL  = 

1 77776 

LISIZE= 

000020 

M.IOTA= 

000000 

NEWDT 

OOOOOORG 

020 

F.END  = 

002000 

F.VBN  = 

000064 

LITOP 

005072R 

025  M.LIT  = 

000205 

NINPT1 

003502R 

025 

F.EnBR= 

000032 

F.VBSZ= 

000060 

LNLNG  = 

104541 

M.LN  = 

000001 

NINPT2 

003300R 

025 

F.ERR  = 

000052 

GETMDT 

000246RG 

020  LOCLCT 

005036R 

025  M.MMD  = 

000010 

NINSTK 

003304R 

025 

F.FACC= 

000043 

GNOME 

0031 02R 

025  LOWCOR 

000002R 

025  M.NE6  = 

000000 

NINTMP 

00331 OR 

025 

F.FFBY= 

000014 

G.TICP= 

000016 

LSTERP 

004766R 

025  M.NOT  = 

000000 

NINTYP 

003306R 

025 

F.F LAG= 
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G.TICTr 

000014 

LWIDTH 

000070R 

025  M.NUB  = 
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NOTAVL= 

104472 

F.FLB  = 

000100 

G.riDA= 

000004 

L.8ITS= 

000003 

M.NUM  = 

000204 

NOTOPN^ 

104473 

F.FNAf1= 

000110 

G.TIHR= 

000006 

L.CNT  = 

000002 

M.OUTR^ 

000012 

NPRT1 

004762R 

025 
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NULL 

00736AR 

025 

OPTMU 

005026R 

025 

RTOP 

005070R 

025 

SYSERR= 

104402 

T.FUN  = 

010000 

NUMCHN= 

000020 

ORIGIN 

000030R 

025 

RT11  = 

000000 

SYSTAT 

OOOOOOR 

024  T.LIST= 

000400 

NUMDFL 

0032 30R 

025  OUTPTR 

000066R 

025 

R.BITS= 

000003 

SY.BAD= 

000001 

T.LIT  = 

000020 

NUMEFL 

003233R 

025 

0VROPR= 

000000 

R.FIX  = 

000001 

SY.8RK= 

100000 

T.MON  = 

000010 

NUMESN 

003236R 

025  PATCH 

0073AAR 

025 

R.LCT  = 

000002 

SY.BS  = 

000010 

T.NIL  = 

000004 

NUMFLG 

003230R 

025 

PRECSN 

00005 2R 

025 

R.LN  = 

000002 

SY.CLR= 

000040 

T.NUM  = 

002000 

MWLEN 

000062R 

025 

PRINTM= 

•  •«**i^  GX 

R.LNUM= 

00001 0 

SY. ERP= 

000020 

T.0PFN= 

000001 

NUMNEG 

003232R 

025 

RAD$  = 

iti,i,iti(if   GX 

R.NEXT= 

000006 

SY.NOU= 

000100 

T.0THR= 

040000 

NUMOVE 

000206R 

020  RANDAC 

003064R 

025 

R.OFF  = 

000000 

SY.0PN= 

000002 

T.SOP  = 

000002 

NUMQFL 

00323AR 

025 

RANDY 

003062R 

025 

R.PREV= 

000004 

SY.PnT= 

001000 

T.SP0P= 

000040 

NUMRIG 

003231 R 

025 

RANERR= 

104411 

R.PTR  = 

000000 

SY.SRT= 

000400 

T.TMP  = 

000200 

NinJID 

003226R 

025 

RARGBL 

003204R 

025 

R.SEQ  = 

000003 

SY.SVC= 

000004 

T.VAL  = 

100000 

NUMZFL 

003235R 

025 

RARGCV 

003220R 

025 

R.VAR  = 

000002 

SY.SVL= 

000200 

T.VAR  = 

001000 

NYIERR= 

10A432 

RARGFL 

003202R 

025 

R6 

X000006 

S.AB  = 

1 77776 

UPPER  = 

1 77400 

N.BLS2= 

000036 

RARGLE 

00321 6R 

025 

R7 

X000007 

S.ASB  = 

100000 

UTNAME 

000344R 

023 

N.DESC= 

000020 

RARGLN 

00321  OR 

025 

SI 

X000005 

S.8FHD= 

000020 

VALERR= 

104413 

N.DEV  = 

000032 

RARGPT 

003206R 

025 

SIDAMN= 

104433 

S.BITS= 

000002 

VARBLE 

007400R 

025 

N.DE\/N= 

00003A 

RARGSF 

00321 4R 

025 

SIFRAM 

00331 4R 

025 

S.CHR1= 

000003 

VARBLS 

OOOOOOR 

025 

N.DID  = 

00002A 

RARGTY 

00321 2R 

025 

SISTAK 

006350R 

025 

S.FATT= 

000016 

VERNUM 

OOOOOOR 

025 

N.DVf#1= 

000032 

RARGVA 

003222R 

025 

SITOP 

006346R 

025 

S.FD6  = 

000140 

VRSI0N= 

000002 

N.EXT  = 

000014 

RBASE 

005074R 

025 

SITP 

0071 44R 

025 

S.FLB  = 

040000 

WIDTH 

000072R 

025 

N.FID  = 

000000 

RCOUNR 

0051 12R 

025 

SIWARN= 

000200 

S.FNA^^= 

000006 

WROUND 

000020R 

025 

N.FNAM= 

000006 

RCOUNT 

00511  OR 

025 

SIZTAB 

000044R 

025 

s.F^e  = 

000036 

WSDATE 

0001 36R 

025 

N.FTYP= 

OOOOU 

REDCNT 

005070R 

025 

SI.BIT= 

1 7777^ 

s,Fraw= 

00001 7 

WSFULL= 

104403 

N.FVER= 

000016 

REDIGN 

005066R 

025 

SI.LEN= 

1 77772 

S.FNTY= 

000004 

WSNAME 

000074R 

025 

N.NiAWE= 

000006 

REDOFF 

005072R 

025 

SI.RET= 

1 77772 

S.FTYP= 

000002 

WSTIME 

0001 32R 

025 

N.NEXT= 

000022 

REENTR 

003060R 

025 

SI.VAL= 

1 77776 

S.LEN  = 

000002 

$FIS  = 

itititltlfK     Q 

N.PF>N  = 

00002A 

REGTYP= 

000002 

SKPSIZ 

0051 34R 

025 

S.LINK= 

^7777U 

%^?P     = 

KUKIilfk     G 

N.STAT= 

000020 

RES8IT 

0031 42R 

025 

SPHOLD 

000004R 

024 

S.NFFN= 

000020 

$FPPLN= 

l^**l|-*«r  G 

N.UNIT= 

00003A 

RESCVT 

0031 52R 

025 

SPINIT 

000002R 

024 

S.TYPE= 

140000 

$MACHN= 

******  G 

aeuFLN= 

001000 

RESERR= 

104440 

STKINC= 

000774 

S.VAL  = 

000000 

$RSTS  = 

•*♦•••  G 

OCHAN 

005052R 

025 

RESLEN 

0031 50R 

025 

STOP  = 

104420 

TKD IMS 

005072R 

025  $RSX  = 

******  G 

OMOOE 

0OOA02R 

023 

RESPTR 

0031 40R 

025 

SLRCNT 

0031 04R 

025 

TKFRAM 

005066R 

025  $RT11  = 

**•♦*♦  G 

OPTMPC 

005066R 

025 

RESSFT 

0031 46R 

025 

SUBDCT 

0031 06R 

025 

TKLEFT 

005070R 

025  $$$OST= 

000020 

0PTMP1 

005070.-^ 

025 

RESTYP 

0031 44R 

025 

SI8PTR 

00311  OR 

025 

TMODE 

000403R 

023  .BOOLE= 

000002 

GPTMP2 

005072R 

025 

RESULT 

003136R 

025 

SYHBI 

005344R 

025 

TMPTA6= 

000166 

.CHARA= 

000000 

0PTMP3 

005074R 

025 

RESVAL 

0031 54R 

025 

SYMF 

005340R 

025 

TTYBUF 

004140R 

025  .DEF.  = 

000002 

OPTMPA 

005076R 

025 

RINC 

005 1 04R 

025 

SYWPT1 

005346R 

025 

TTYLEN^ 

000622 

.FL0AT= 

000006 

0Pri1P5 

005100R 

025 

RLTBAS 

005066R 

025 

SYMTAB 

005352R 

025 

TURKEY= 

104436 

.FSRCB= 

•*»♦**  G 

0PTMP6 

OO5102R 

025 

ROT  INC 

005070R 

025 

SYMT8F= 

104404 

TYPE   = 

000166 

.INTEG= 

000004 

0PT^f^7 

0O5104R 

025 

ROUND 

00001  OR 

025 

SYMTOP 

005350R 

025 

T.80L  = 

020000 

.MOLUN 

0004 04R 

023 

OPT WPS 

005106R 

025 

ROVER 

00331 2R 

025 

SYMTP 

006272R 

025 

T.CON  = 

004000 

...GBL= 

000000 

0PTI1P9 

0051 lOR 

025 

RSTS  = 

000000 

SYMWRN^ 

000054 

T.DIM  r 

000100 

...TPC= 

000020 

0PTM1C 

0051 12R 

025 

RSX 

000115 

SYNERR^ 

104407 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000032 

002 

MONTB 

000000 

003 

DYDTB 

000000 

OOA 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYD6TB 

000000 

007 

COWTB 

000000 

010 

CHRTBL 

000000 

o^^ 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

DATIWE 
SYlxBa 
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TITLE  DECNAM 
I DENT  \V02.03\ 

S8TTL  DECNAM 


DECODE  FILE  NAME 


'DECNAM*  TAKES  AN  APL  NAME  AND  CONVERTS  IT  TO  AN  INTERNAL  FORMAT. 

THE  DESCTRIPTION  OF  THE  RETURNED  FORMAT  CAN  BE  FOUND  IN  THE  APL  COMMON 

DEFINITION  FILE  UNDER  'NAME  BLOCKS'.   THE  GENERAL  NAME  FORMAT  J^; 

DEVn:Cprj,prg]NAME.EXT  <; genera tion> 

THIS  FORMAT  GETS  PRETTY  COMPLICATED,  BUT  NOT  ALL  OF  THESE  FIELDS  MUST 
BE  SPECIFIED.  THE  MOST  COMMONLY  USED  PART  OF  THE  NAME  IS: 


DEVn  .-NAME.  EXT 

THIS  ROUTINE  IS  USED  ON  THE  RSX-11/IAS/RSTS/RT-11  VERSIONS  OF  APL. 
PARTS  OF  THE  NAME  DESCRIBED  BRIEFLY  ARE: 


THE 


DEVn: 


DEVICE  NAME  AND  NUMBER 


THE  DEVICE  MUST  BE  TWO  LETTERS  FOLLOWED  BY  AN  OPTIONAL  NUMBER, 
THEN  A  SEMI -COLON  (:).   IF  THE  NUMBER  IS  LEFT  OUT,  A  ZERO  IS 
ASSUMED.  IF  A  NUMBER  IS  SPECIFIED,  IT  MUST  BE  FROM  0  TO  99  FOR  RSX, 


NAME. EXT 


NAME  AND  EXTENSION 


ALTHOUGH  THESE  ARE  TWO  SEPARATE  FIELDS,  THEY  ARE  VERY  SIMILAR 

AND  ARE  SOMETIMES  THOUGHT  OF  AS  THE  NAME  WHEN  COMBINED.   THE 

NAME  CAN  BE  UP  TO  NINE  (SIX  FOR  RSTS  AND  RT11)  CHARACTERS  ALTHOUGH 

ANYMORE  THAN  THAT  ARE  IGNORED.   THE  EXTENSION  CAN  BE  UP  TO  THREE 

CHARACTERS  AND  ANY  MORE  THAN  THAT  ARE  IGNORED.  A  SPECIAL  CASE  OF 

THE  NAME  AND  EXTENSION  IS  SIMPLY  AN  ASTERISK  (*),  WHICH  IS  A  WILD  CARD 

CHARACTER.   LEGAL  CHARACTERS  FOR  THE  NAME  AND  EXTENSION 

INCLUDE:    ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 

THE  NAME  AND  EXTENSION  NEED  NOT  APPEAR  TOGETHER  AS  IN  THE  EXAMPLE 

ABOVE,  BUT  THE  DOT  (.)  MUST  ALWAYS  PRECEED  THE  EXTENSION. 


Cpri,prg3 


PROJECT/PROGRAMMER  NUMBER 


THIS  SPECIFIES  THE  ACCOUNT  ON  RSTS.   THE  TWO  NUMBERS  ARE  TAKEN 
MODULO  256  AND  ARE  PUT  TOGETHER  IN  ONE  WORD  TO  SPECIFY  THE 
ACCOUNT.  SPECIAL  CHARACTERS  CAN  ALSO  BE  USED  TO  SPECIFY  THE 
ACCOUNT  AND  NEED  NOT  BE  ENCLOSED  IN  SQUARE  BRACKETS.  THESE  ARE 

CHARACTER      ACCOUNT 

a  ASSIGNED  ACCOUNT 

GROUP  ACCOUNT  [YOUR  OWN  PRJ#,Oj 

$  CI, 23 

1  [1,33 

X  [1,43 

&  [1,53 

THE  PPN  IS  IGNORED  ON  RT11 
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55  000000 

56 

57  000000 

.PSECT 

CODE 

DECNAM: 

• 
• 

58  000000 

PUSH 

<R0,R1,R2> 

;SAVE  LENGTH,  POINTER,  ETC... 

59  000006 

005000 

CLR 

RO 

; COUNT  OF  H   OF  CHARACTERS 

60  000010 

CALL 

GETNB 

;6ET  A  NON-BLANK  CHAR 

61  00001 A 

PUSH 

<R2,R4> 

;Sa\/e  Character  Data 

62  000020 

1 20227 

00001 5 

1$: 

CMP8 

R2,/(fCHR.CR 

;A  <CR>  ? 

63  000024 

001413 

BEQ 

3$ 

;YES,  FINISHED 

64  000026 

005200 

INC 

RO 

.•INCREMENT  RO 

65  000030 

006302 

ASL 

R2 

;M0D  THE  CHARACTER 

66  000032 

105762 

000001 G 

TSTB 

ASCTAB+1(R2) 

; TWO-CHAR  MNEUMONIC? 

67  000036 

001402 

BEQ 

2$ 

;NOPE 

68  000040 

062700 

000002 

ADD 

*2,R0 

;YES,  INCREMENT  CHAR 

69  000044 

2$: 

GETC 

3$ 

;GET  ANOTHER  CHARACTER 

000044 

005303 

DEC  R3 

;ANY  CHARACTERS  LEFT? 

000046 

002402 

BLT  3$ 

;N0,  BRANCH  TO  3$ 

000050 

112402 

MOVB  (R4)-^,R2 

;yES,  GET  NEXT  CHAR 

70  000052 

000762 

BR 

1$ 

;LOOP  UNTIL  DONE 

71  000054 

010001 

3$: 

MOV 

R0,R1 

;COPY  SIZE 

75  000056 

CALL 

GETCOR 

;GET  MEMORY,  PLEASE 

76  000062 

SIFRAM 

,#T.TMP 

;Put  block  on  SI 

77   000074 

POP 

<R4,R2> 

.•Restore  Data  Pointers 

78  000100 

PUSH 

RO 

;SAVE  STRING  POINTER 

79  000102 

010103 

MOV 

R1,R3 

;Get  count  to  use 

80  000104 

005303 

DEC 

R3 

.-Adjust  count.  We've  used  a  char 

already 

81  000106 

002446 

BLT 

11$ 

.•Nothing  Left,  Null  string 
;USE  STACK  AS  A  FLAG 

83  000110 

005046 

CLR 

-(SP) 

85  000112 

120227 

000054 

5$: 

CMPB 

R2,*CHRCMA 

;A  COMMA  ? 

86  000116 

001005 

BNE 

6$ 

;N0 

88  000120 

005716 

rsT 

asp 

.•WITHIN  BRACKETS  ? 

89  000122 

001014 

BNE 

8$ 

;YES 

91  000124 

012702 

000056 

MOV 

4^CHRD0T,R2 

;N0,  TRANSLATE  TO  "." 

92  000130 

000411 

BR 

8$ 

93  000132 

6$: 

94  000132 

120227 

000073 

CMPB 

R2,/ifCHRLBR 

;LEFT  BRACKET  ? 

95  000136 

001002 

BNE 

7$ 

;N0 

96  000140 

010516 

MOV 

si,asp 

;FLAG  (WITHIN  BRACKETS) 

97  000142 

000404 

BR 

8$ 

98  000144 

120227 

000047 

7$: 

CMPB 

R2,*CHRRBR 

.•RIGHT  BRACKET  ? 

99  000150 

001001 

BNE 

8$ 

;N0 

100  000152 

005016 

CLR 

asp 

102  000154 

006302 

8$: 

ASL 

R2 

.•MULTIPLY  BY  2  FOR  WORD  OFFSET 

103  000156 

016202 

OOOOOOG 

MOV 

ASCTAB(R2),R2 

;GET  ASCII  MNEUMONIC 

104  000162 

032702 

1 77400 

BIT 

/(fUPPER,R2 

;2  LETTERS  ? 

105  000166 

001406 

BEQ 

9$ 

;N0... 

106  000170 

162703 

000002 

SUB 

#2,R3 

.•COUNT  THE  EXTRA  CHARACTERS 

107  000174 

112720 

000056 

MOVB 

*CHRD0T,(R0)+ 

;GET  A  DOT 

108  000200 

110220 

MOVB 

R2,(R0)^ 

.•OUTPUT  A  CHARACTER 

109  000202 

000302 

SWAB 

R2 

.•SWITCH  BACK 

110  000204 

110220 

9$: 

MOVB 

R2,(R0)> 

.•STORE  THE  CHARACTER 

111  000206 

GETC 

lOi 

;6et  Next  Character 

000206 

005303 

DEC  R3 

;ANY  CHARACTERS  LEFT? 

000210 

002404 

BLT  10$ 

;N0,  BRANCH  TO  10$ 

000212 

112402 

MOVB  (R4)+,R2 

;YES.  GET  NEXT  CHAR 

112  000214 

042702 

1 77400 

BIG 

/njPPER,R2 

.•Clear  Upper  Byte 
;LOOP  UNTIL  DONE 

113  000220 

000734 

BR 

5$ 
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114 

115  000222 
117  000222 
119  000224 

121  000224 

122  000230 

123  000234 

124  000246 
000246 
000252 
000256 

125  000262 
000262 
000266 
000274 

126  000300 

127  000302 

128  000304 

129  000310 

130  000316 

131  000324 

132  000326 

133  000330 

134  000334 

135  000340 

136  000344 

137  000350 

138  000354 

199  000360 

200  000364 

201  000370 

202  000372 


005726 
01 2700 


012660 
010160 
004737 

112710 
012760 
004737 
103001 
104565 
016603 
042763 
056063 

011601 
016600 
016502 
062702 


000054 


000004 
000002 
OOOOOOG 


PAGE  45-1 

10$: 
11$: 


K    8 


000002 

000222'  000022 
OOOOOOG 


000004 

020000  1 77756 

000026  1 77756 


000002 
1 77776 
000006 


16$; 


010002 


TST 

MOV 

CALL 

SIFRAM 

CSI$1 

MOV 

MOV 

JSR 

CSI$2 

MOVB 

MOV 

JSR 

BCC 

ILLSW 

MOV 

BIC 

BIS 

POP 

MOV 

MOV 

MOV 

ADD 

CALL 

CALL 

CALL 

CALL 

POP 

MOV 

RETURN 


(SP)^ 


;GET  RID  OF  FLAG 


#C.SIZE,RO 
GET COR 

R0,(SP)+,R1     .- 

(SP)+,C.CMLD+2(R0) 

RI.C.CMLD(RO) 

PC  CSIl 

R0!6UTPUT,#FLSWTB 

*CS.OUT,(RO) 

#FLSWTB,C.SWAD(RO) 

PC,.CSI2 

16$ 


GET  SIZE  OF  CSI  BLOCK  +  DUMMY  AREA 
GET  IT,  PLEASE 
Build  SI  Frame  Info 
START  PARAMETERS 


;GET  THE  NAME 


4(SP),R3 

/!^C.FASW,C.SBIT(R3) 

C.MKW2(R0),C.SBIT(R3) 

R3 

(SP), R1 

2(SP),R0 

SI. VAL(SI),R2 

/«fC.DSDS,R2 

.PARSE 

RSXERR 

KILL 

KILL 

<R1,R0> 

R0,R2 


All  ok 

Probably  an  illegal  switch  on  file  spec 

Get  pointer  to  FDB 

No  switch  yet 

CR/LF's  bit 
POP  DATA  POINTER 
Get  Pointer  to  Name  Block 
Get  Pointer  to  FDB 
POINT  TO  CSI  BLOCK 
POINT  TO  GOOD  STUFF 
PUT  STUFF  IN  PLACE 
CHECK  FOR  ERRORS 
KILL  CSI  BLOCK 
KILL  TRANSLATED  STUFF 
Pointer  to  Name  Block,  FDB 
Restore  Channel  Block  Pointer 


L  8 
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SY^f^OL 

TABLE 

ACO   = 

XGOGOGO 

CHRFR0= 

000135 

CS.NMF= 

000001 

DII1BLK 

0031 12R 

025  D.SCON= 

000006 

AC1   = 

X000001 

CHRLBR= 

000073 

CS.ONE= 

000100 

DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

AC2   = 

X000002 

CHRLPR= 

000072 

CS.OUT= 

000002 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

AC3   = 

X000003 

CHRMNS= 

000137 

CS.WLD= 

000010 

DIRFUL= 

104466 

D.SUBS= 

000006 

ACA   = 

XOOOOOA 

CHRMUL= 

000075 

CTEPS 

0001 52R 

025  D0MERR= 

104417 

D.TAKE= 

000002 

ACS   = 

X000005 

CHRNE6= 

000100 

CTMAX 

00021 2R 

025  DPTERR= 

104416 

D.TRAN= 

000004 

ALLINT 

003274R 

025 

CHRPDL= 

000271 

CTRMAX 

0001 72R 

025  DYDCNT 

003224R 

025  D.UNON= 

000006 

ARYRET 

003276R 

025 

CHRPLU= 

000055 

C.ALOC= 

000162 

D.AND  = 

000000 

D.$MAX= 

000000 

ASCQUO=  0000A2 

CHRPWR= 

000120 

C.BLOK= 

000064 

D.BXCT= 

000007 

D.$MIN= 

000000 

ASCTAB= 

iufkit-kn   GX 

CHRQST= 

000121 

C.8LSZ= 

000140 

D.BXIO= 

000007 

D.$MUL= 

OOC'OOO 

A.ALEN= 

000004 

CHRQUO=  000113 

C.BUFF= 

1 77760 

D.BXNL= 

000007 

D.$PLU= 

oocooo 

A.ARG  = 

000040 

CHRRBR= 

000047 

C.BUFL= 

1 77762 

D.BXPP= 

000007 

D.$RES= 

OOOuOO 

A.ASB  = 

000200 

CHRRPR= 

000042 

C.CCNT= 

1 77766 

D.BXPW= 

000007 

D.$SUB= 

000000 

A.BITS= 

000003 

CHRSEM= 

000074 

C . CMLD= 

000002 

D.6XRL= 

000007 

D.1C0M=  000001 

A. CON  = 

000020 

CHRSM0= 

000112 

C . CPTR= 

1 77764 

D.CIRC= 

000001 

D.I EXP= 

000002 

A.D1MS= 

000002 

CHRSPA= 

000040 

C.CZ  = 

001000 

D.COMB= 

000001 

D.1R0T= 

000003 

A.D1M1= 

000006 

CHRUPA= 

000131 

C.DEVD= 

000006 

D.COMP= 

000001 

EDICHR 

005063R 

025 

A. MUM  = 

000006 

CHR.BS= 

000010 

C.DIG  = 

000040 

D.CONT= 

000006 

EDICNT 

005064R 

025 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.DIRD= 

000012 

D.CTLM=  000000 

EDIFLG 

005062R 

025 

A.  IMP  = 

000010 

CHR.CR= 

000015 

C.DSDS= 

000006 

D.DEAL= 

000003 

EDIT  = 

000003 

BADDIR= 

104A63 

CHR.CZ= 

000032 

C.FA3W= 

020000 

D.DECD= 

000002 

EIS   = 

000000 

BADERR= 

10AA37 

CHR.GT= 

000046 

C.FILD= 

000016 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

BLZRIR 

0051 16R 

025 

CHR.LF= 

000012 

C.FLEN= 

000010 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.FLSH= 

004000 

D.DQAD= 

1 77777 

EOF   = 

104475 

CCNT 

005072R 

025 

CHR.SI= 

00001 7 

C.FRC  = 

000001 

D.DR0P= 

000002 

ERRMAX= 

000166 

CHA^EX 

003060R 

025 

CHR.SL= 

000057 

C.IDEN= 

000010 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

CHANOO 

000256R 

025 

CHR.S0= 

000016 

C.MKW1= 

000024 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C.MKW2= 

000026 

D.EXPD= 

000002 

ERRO 

004774R 

025 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.NAME= 

000102 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

CHAN03 

00067AR 

025 

CHR, • A— 

000141 

C.NOBF= 

000400 

D.FMT  = 

000004 

E$CT 

005056R 

025 

CHANOA 

001056R 

025 

CHH. • c~ 

000145 

C.NUM  = 

000020 

D.FPNT= 

000005 

E$PT 

005060R 

025 

CHAN05 

0012A0R 

025 

CHR..S= 

000163 

COP  = 

000004 

D.FPUT= 

000005 

FA.APD= 

000100 

CHAN06 

001422R 

025 

CHR..T= 

000164 

C.OPN  = 

010000 

D.GE  = 

000000 

FA.CRE= 

000010 

CHAN07 

00160AR 

025 

CHR..U= 

000165 

C.RDLN= 

1 77776 

D.GT  = 

000000 

FA.DLK= 

001000 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

C.REWT= 

002000 

D.IBM  = 

000002 

FA.E^B= 

100000 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

C.RND  = 

000010 

D.IND  = 

000002 

FA.EXC= 

002000 

CHANIO 

002332R 

025 

CHR..1= 

000061 

C.S8IT= 

1 77756 

D.INNR= 

000013 

FA.EXT= 

000004 

CHAN11 

0O25UR 

025 

CH.AND= 

000001 

C.SIZE= 

000054 

D.INTR= 

000006 

FA.NSP= 

000100 

CHAN12 

002676R 

025 

CMDBUF 

003250R 

025  C.SPFX= 

000100 

D.LE  = 

000000 

FA.NSR= 

000200 

CHAN13 

000022R 

023 

CMDWAX= 

000010 

C.SPGL= 

000200 

D.LOG  = 

000001 

FA.POS= 

010000 

CHANK 

00020AR 

023 

CNTSIZ 

005130R 

025  C.SPLX= 

000001 

D.LT  = 

000000 

FA.RD  = 

000001 

CHNOPN= 

10AA71 

COMBIN 

005076R 

025  C.SPRS= 

000002 

D.MAX  = 

000000 

FA.RWD= 

004000 

CHRAND= 

000051 

COMCNT 

005126R 

025  C.SRC  = 

1 7777^ 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CHRBEL= 

000007 

COMERR= 

104425 

C.SRCP= 

000024 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHR»CR= 

000133 

COMPTR 

0O5122R 

025  C.STAT= 

000001 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHRBOL= 

000200 

COflRTN 

0031 56R 

025  C.SUAD= 

000022 

D.NE  = 

000000 

FA.WCK= 

020000 

CHRBOX= 

0001K 

COMSKP 

005124R 

025  C.TT  = 

000004 

D.NN  = 

000000 

FA.WRT= 

000002 

CHRCWA= 

00005A 

CQRPTR 

005120R 

025  C.TYPR= 

000000 

D.NR  = 

000000 

FD.8LK= 

000010 

CHRCOL= 

000076 

CS.ASS= 

000200 

C.WIDC= 

1 77770 

D.OR  = 

000000 

FD.CCL= 

000002 

CHRDEL= 

000107 

CS.800= 

000010 

C.WIDR= 

1 77772 

D.PLUS= 

000000 

FD.COM=  020000 

CHRDIV= 

000053 

CS.DIF= 

000002 

DEBUG  = 

000000 

D.PSIR= 

000006 

FD.CR  = 

000002 

CHRDLR= 

000176 

CS.DVF= 

000004 

DECfiAM 

OOOOOORG 

020  D.PWR  = 

000001 

FD.DIR= 

000010 

CHRDLT= 

000110 

CS.EQU= 

000040 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.FTN= 

000001 

CHRDOT= 

000056 

CS.FLO= 

000020 

DEVIL 

0051 14R 

025  D.OUAD= 

000000 

FD.F11= 

040000 

CHREP  = 

000105 

CS.1DN= 

000040 

DEVN-F= 

104470 

D.RES  = 

000000 

FD.INS= 

000010 

CHRERR= 

10AA31 

CS.iNP= 

000001 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CHRflL= 

0C0177 

CS.MOR= 

000020 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNTr 

1 00000 

DECNAM 
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SYMBOL 

FAL'E 

FD.OSP= 

004000 

F.BKP1= 

000051 

F.SEQN= 

000100 

LFTOP 

005066R 

025  M.IBM  = 

000003 

FD.PLC= 

OOOOOA 

F.BKST= 

000024 

F.SPDV= 

000072 

LINC 

005102R 

025 

M.IDN  = 

000000 

FD.PRN= 

OOOOOA 

F.BKVB= 

000064 

F . SPUN= 

000074 

LINE 

00501 6R 

025 

M.INSP= 

000006 

FD.PSE= 

010000 

F.BR  = 

000020 

F.STBK= 

000036 

LINJNC 

005026R 

025 

M.IOTA= 

000000 

FD.RAH= 

000001 

F.CHR  = 

000075 

F.STK  = 

000022 

L1S1ZE= 

000020 

M.LIT  = 

000205 

FD.RA^4= 

000002 

F.CNT6= 

000034 

F.ST0P= 

000004 

LI  TOP 

005072R 

025  M.LN  = 

000001 

FD.REC= 

000001 

F.C0DE= 

000010 

F.STP  = 

000001 

LNLN6  = 

104541 

M.MMD  - 

000010 

FD.RVf1= 

000001 

F.DFI^= 

000046 

F .  SUSP--= 

000002 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

FD.SDI= 

000020 

F.DSPT= 

000044 

F.TRC  = 

000002 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

FD.SQD= 

OOOOAO 

F.DVNM=  000134 

F.UNJT= 

000136 

LSTERP 

004766R 

025 

M.NUB  = 

000006 

FD.TTY= 

OOOOOA 

F.EFBK= 

000010 

F.URBD= 

000020 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

FD.UBH= 

000002 

F.EFN  = 

000050 

F.VAL  = 

1 77776 

L.8ITS= 

000003 

M.OUTR= 

000012 

FF.CHR= 

000005 

F.END  = 

002000 

F.VBN  = 

000064 

L.CNT  = 

000002 

M.PITM= 

000000 

FF.NV  = 

000003 

F.EnRR= 

000032 

F.VBSZ= 

000060 

L.PRNT= 

000001 

M.PRDS= 

000006 

FF.POE= 

000002 

F.ERR  = 

000052 

GEIC0R= 

•*••••  GX 

L.PTR  = 

000000 

M.QQAD= 

000000 

FF.RWD= 

000001 

F.FACC= 

000043 

GEJNB   = 

•♦••••  GX 

L.PTR1= 

000004 

M.QUAD= 

000000 

FF.RWF= 

000006 

F.FFBY= 

000014 

GNOME 

0031 02R 

025 

L . SUBS= 

000002 

M.RAND= 

000012 

FF,SPC= 

000004 

F.F LA6= 

000002 

HASHC 

0051 36R 

025 

MACHIN= 

000106 

M.RAVL= 

000000 

F HE ADR 

00501 2R 

025 

F.FLB  = 

000100 

HASHTB 

0051 40R 

025  MAXCHN= 

000014 

M.RCIP= 

000000 

FHRET 

005040R 

025 

F.FNAM= 

000110 

HSHMSK= 

1 77601 

MOr^BLK 

0031 20R 

025 

M.RDCT= 

00001 1 

FILNTF= 

10A467 

F.FNB  = 

000102 

HSHSIZ= 

000200 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

FIS   = 

000000 

F.FNDF= 

000010 

I  CHAN 

005050R 

025 

MONLEN 

0031 30R 

025 

M.ROLL= 

000000 

FISCON=  OA6000 

F.FJ>fP= 

000116 

ILFNAM= 

104464 

MONPTR 

0031 22R 

025  M.SATA= 

000001 

FIXPTR 

003074R 

025 

F.FUN  = 

000010 

ILLCHN= 

104540 

MONSFT 

0031 26R 

025 

M.SCAN= 

00001 1 

FLAGS 

00476AR 

025 

F.FVER= 

000120 

ILLSW  = 

104565 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FLCBUF 

003250R 

025 

F.HEAD= 

000006 

1NDERR= 

104410 

MONVAL 

0031 34R 

025 

M.SIGN= 

000000 

FLINE 

00501 AR 

025 

F.HJBK= 

000004 

INNTMP 

003250R 

025 

M.ABS  = 

000000 

M.SIRR= 

000001 

FLOEXP 

003270R 

025 

F.LBL  = 

000020 

1NNTM2 

00501 6R 

025 

M.BOL  = 

000200 

M.SYM  = 

000203 

FLONEG 

003272R 

025 

F.LINE= 

000012 

INPTR 

000064R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FLSWTB 

000222R 

025 

F.LOC  = 

000004 

INSNAM= 

104462 

M.8XCR= 

000007 

M.TRAN= 

000012 

FLTLEN= 

000010 

F.LSTC= 

000004 

lOERR  = 

104477 

M.8XCT= 

000007 

M.$ABS= 

000000 

FNINSI 

0050AAR 

025 

F.LUN  = 

000042 

I.CNT  = 

1 77776 

M.BXEX= 

000007 

M.$CEI= 

000000 

FORIGN 

000032R 

025 

F.UBCT^ 

000054 

I. DIM  = 

1 77772 

M.BXFa= 

000007 

M.$FLR= 

000000 

FO.APO= 

000106 

f.mn= 

000055 

I.LEN  = 

00001 2 

M.BXIO= 

000007 

M.$IDN= 

000000 

FO.MFY= 

000002 

f.mFG= 

000056 

1.0ERR= 

000062 

M.BXLC= 

000003 

M.$NEG= 

000000 

FO.RD  = 

000001 

F.MON  = 

000002 

I. OLD  = 

1 77770 

M.eXNC= 

000007 

M.$SIG= 

000000 

FO.UPD= 

000006 

F.NIL  = 

000001 

I.PTR  = 

1 7777^ 

M.BXNL= 

000007 

M.1RDT= 

000011 

FO.WRT= 

000016 

F.NRBD= 

000024 

l.STR  = 

1 77766 

M.8XPP= 

000007 

M.1REV= 

000003 

FPWCIOE 

0000A2R 

025 

F.NREC= 

000030 

KILL  = 

******  GX 

M.BXPW=  000007 

M.1SCN= 

000011 

FPP 

000000 

F.OPN  = 

000010 

LABERR= 

104406 

M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FPPLEN= 

OOOOOA 

F.O\/BS= 

000030 

LABLPT 

005042R 

025  M.8XTS= 

000007 

NB.DEV= 

000200 

FREBLK 

007A00R 

025 

F.PREV= 

000000 

LARGBL 

0031 62R 

025 

M.BXWA= 

000007 

NB.DIR= 

000100 

FUZZ 

0001 42R 

025 

F.PRNT= 

100000 

LARGCV 

0031 76R 

025  M.CEI  = 

1 77777 

NB.NAM= 

000004 

FXPTR1 

003076R 

025 

F.PROT= 

010000 

LARGFL 

003160R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

F$£VAL= 

000100 

F.RACC= 

000016 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

FSEVI  = 

000200 

F.RATT= 

000001 

LARGLN 

003166R 

025  M.DOUT= 

000006 

NB.SI^1=  000040 

F$EXEC= 

OOOAOO 

F.RCNri= 

000034 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$F UNC= 

001000 

F.RCTL= 

000017 

LAR6SF 

0031 72R 

025 

M.ENCD= 

000004 

NB.SVR= 

000010 

F.ACTL= 

000076 

F.READ= 

004000 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F.ALOC= 

OOOOAO 

F.REDF= 

000040 

LARGVA 

003200R 

025  M.EXP  ^ 

000001 

NB.VER= 

000001 

F.aeFS= 

000062 

F.RES  = 

000040 

LBJNC 

005100R 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.BDB  = 

000070 

F.RET  = 

1 77772 

LBUFF 

00331 6R 

025  M.FIL  = 

000177 

ND.EXT= 

000002 

F.BGRC^ 

000057 

F.RSIZ= 

000002 

LBUFLN= 

000621 

M.FLR  = 

^77777 

ND.NAM= 

000004 

F.BITS= 

1 7777A 

F.RT YP= 

000000 

L COUNT 

005106R 

025 

M.FMT  = 

000004 

ND.PPN= 

000100 

F.BKDN= 

000026 

F.R2  = 

000014 

LENERR= 

104412 

M.GDUP= 

000003 

ND.$EX= 

000000 

F.BKDS^ 

000020 

F.R3  = 

000016 

LENTAB 

000054R 

025 

M.GDWN= 

000003 

ND.SES^ 

000020 

f.BKEf^ 

000050 

F.R4  = 

000020 

LEXPTR 

0031 OOR 

025 

M.GETI= 

000006 

ND.SNM^ 

000000 

DECNAW 
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SYMBOL 

TABLE 

ND.SNS= 

OOOOAO 

0PTMP3 

005074R 

025 

ROUND 

00001  OR 

025 

SYMTP 

006272R 

025  T.DIM  = 

000100 

ND.SPN= 

001400 

0PTMP4 

005076R 

025 

ROVER 

00331 2R 

025 

SYMWRN= 

000054 

T.FUN  = 

010000 

NE6SGN 

005063R 

025  0PTMP5 

0051 OOR 

025 

RSTS  = 

OOOOOO 

SYNERR= 

104407 

T.LIST= 

000400 

N1NPT1 

003302R 

025 

0PTMP6 

0051 02R 

025 

RSX   = 

000115 

SYSER  = 

ttict-kt   GX 

T.LIT  = 

000020 

NINPT2 

003300R 

02? 

0PTMP7 

005104R 

025 

RSXERR= 

***♦♦♦  GX 

SYSERR= 

104402 

T./»10N  = 

000010 

NINSTK 

003304R 

025  0PTMP8 

005106R 

025 

RTOP 

005070R 

025 

SYSTAT 

OOOOOOR 

024  T.NIL  = 

000004 

NINTMP 

00331  OR 

025 

0PTnP9 

00511  OR 

025 

RT11  = 

OOOOOO 

SY.BAD= 

000001 

T.NUM  = 

002000 

NINTYP 

003306R 

025 

0PTM10 

0051 12R 

025 

R.8ITS= 

000003 

SY.8RK= 

100000 

T.0PFN= 

000001 

NOTAVL= 

10AA72 

0PTM14 

005026R 

025 

R.FIX  = 

000001 

SY.8S  = 

000010 

T.0THR= 

040000 

NOTOPN= 

104473 

ORIGIN 

000030R 

025 

R.LCT  = 

000002 

SY.CLR= 

000040 

T.SOP  = 

000002 

NPRT1 

004762R 

025 

OUTPTR 

000066R 

025 

R.LN  = 

000002 

SY.ERP= 

000020 

T . SP0P= 

000040 

NULL 

007364R 

025 

0VR0PR= 

OOOOOO 

R.LNUM= 

000010 

SY.N0U= 

000100 

T.TMP  = 

000200 

NUMCHN^ 

000020 

P.AR$$$-^ 

OOOOOO 

R.NEXT= 

000006 

SY.0PN= 

000002 

T.VAL  = 

100000 

Mff)FL 

003230R 

025 

PATCH 

007344R 

025 

R.OFF  = 

OOOOOO 

SY.PMT= 

001000 

T.VAR  = 

001000 

NUMEFL 

003233R 

025 

PRECSN 

000052R 

025 

R.PREV= 

000004 

SY.SRT= 

000400 

UPPER  = 

1 77400 

NUMESN 

003236R 

025 

RANDAC 

003064R 

025 

R.PTR  = 

OOOOOO 

SY.SVC= 

000004 

UTNAME 

000344R 

023 

NUMFLG 

003230R 

025 

RANDY 

003062R 

025 

R.SEQ  = 

000003 

SY.SVL= 

000200 

VALERR= 

104413 

NUMLEN 

000062R 

025 

RANERR= 

104411 

R.VAR  = 

000002 

S.AB  = 

1 77776 

VAR8LE 

007400R 

025 

MMNEG 

003232R 

025 

RARGBL 

003204R 

025 

R6 

X000006 

S.AS8  = 

100000 

VARBLS 

OOOOOOR 

025 

NUMQFL 

003234R 

025 

RARGCV 

003220R 

025 

R7 

X000007 

S.8FHD= 

000020 

VERNUM 

OOOOOOR 

025 

NIMRIG 

003231 R 

025 

RARGFL 

003202R 

025 

SI 

X000005 

S.8ITS= 

000002 

VRSI0N= 

000002 

NUMWID 

003226R 

025 

RARGLE 

00321 6R 

025 

SlDAm= 

104433 

S.CHR1= 

000003 

WIDTH 

000072R 

025 

NUMZFL 

003235R 

025 

RARGLN 

00321  OR 

025 

SIFRAM 

00331 4R 

025 

S.FATT= 

000016 

WROUND 

000020R 

025 

NYIERR= 

104432 

RARGPT 

003206R 

025 

SISTAK 

006350R 

025 

S.FDB  = 

000140 

WSDATE 

0001 36R 

025 

N.BLSZ= 

000036 

RARGSF 

00321 4R 

025 

SI  TOP 

006346R 

025 

S.FLB  = 

040000 

WSFULL= 

104403 

N.DESC= 

000020 

RARGTY 

00321 2R 

025 

SITP 

0071 44R 

025 

S.FNAM= 

000006 

WSNAME 

000074R 

025 

N.DEV  = 

000032 

RARGVA 

003222R 

025 

SIWARN= 

000200 

S.FNB  = 

000036 

WSTIME 

0001 32R 

025 

N.DEVN= 

000034 

RBASE 

005074R 

025 

SIZTAB 

000044R 

025 

S.FNBW= 

000017 

$FIS  = 

••*•♦•  G 

N.DID  = 

000024 

RCOUNR 

0051 12R 

025 

SI.BIT= 

1 7777^ 

S.FNTY= 

000004 

%^PP     = 

••*•••  G 

N.Dv'Mi=  000032 

RCOUNT 

00511  OR 

025 

SI.LEN= 

1 77772 

S.FTYP= 

000002 

$FPPLN= 

*•***•  G 

N.EXT  = 

000014 

REDCNT 

005070R 

025 

SI.RET^ 

1 77772 

S.LEN  = 

000002 

$MACHN= 

•••**♦  G 

N.FID  = 

OOOOOO 

REDIGN 

005066R 

025 

SI.VAL= 

1 77776 

S.LINK= 

\7777(, 

$RSTS  = 

•**•*♦  G 

N.FNAW= 

000006 

REDOFF 

005072R 

025 

SKPSIZ 

0051 34R 

025 

S.NFEN= 

000020 

$RSX  = 

*•*•♦•  G 

N.FTYP= 

000014 

REENTR 

003060R 

025 

SPHOLD 

000004R 

024 

S.TYPE= 

140000 

$RTI1  = 

*i^*««*  G 

N.FVER= 

000016 

RES8IT 

0031 42R 

025 

SPINIT 

000002R 

024 

S.VAL  = 

OOOOOO 

. BOOLE = 

000002 

N.NAME= 

000006 

RESCVT 

0031 52R 

025 

STKINC= 

000774 

TKDIMS 

005072R 

025  .CHARA= 

OOOOOO 

N.NEXT= 

000022 

RESERR= 

104440 

STOP  = 

104420 

TKFRAM 

005066R 

025  .CSI1  = 

ickick-k-k    G 

N.PPN  = 

000024 

RESLEN 

0031 50R 

025 

SIBCNT 

0031 04R 

025 

TKLEFT 

005070R 

025  .CSI2  = 

it-kit-kifk     G 

N.STAT= 

000020 

RESPTR 

0031 40R 

025 

SUBDCT 

0031 06R 

025 

TMODE 

000403R 

023  .DEF.  = 

000002 

N.UNIT= 

000034 

RESSFT 

0031 46R 

025 

SIfVTR 

003 11  OR 

025 

TMPTAG= 

000166 

.FL0AT= 

000006 

naiFLN= 

001000 

RESTYP 

0031 44R 

025 

SYHBI 

005344R 

025 

TTYBUF 

004140R 

025  .FSRCB= 

*♦**•*  G 

OCHAN 

005052R 

025 

RESULT 

0031 36R 

025 

SYWF 

005340R 

025 

TTYLEN'-^ 

000622 

.INTEG= 

000004 

OMOOE 

000402R 

023  RESVAL 

0031 54R 

025 

SYMPT1 

005346R 

025 

TURKEY= 

104436 

.MOLUN 

000404R 

023 

OPJflPO 

005066R 

025 

RINC 

005104R 

025 

SYMTAB 

005352R 

025 

TYPE  = 

000166 

.PARSE:^ 

««•••*  GX 

0PJf^^ 

00507CR 

025  RLTBAS 

005066R 

025 

SYMTBF= 

1 04404 

T.80L  = 

020000 

...GBL= 

OOOOOO 

0PTMP2 

005072R 

025 

ROTINC 

005070R 

025 

5YMT0P 

005350R 

025 

T.CON  = 

004000 

...TPC= 

000020 

.  Aes. 

OOOOOO 
OOOOOO 

000 
001 

TABLES 

OOOOOO 

002 

MONTB 

OOOOOO 

003 

DYDTB 

OOOOOO 

004 

BOPTB 

OOOOOO 

005 

MONBTB 

OOOGOO 

006 

DYDBTB 

OOOOOO 

007 

COMTB 

OOOOOO 

010 

CHRTBL 

OOOOOO 

Oil 

DO" 
SYI* 

MN1 
MNl 
C0( 
PA1 
%%\ 
DEF 
DEF 
DEF 
ERF 

VIF 
DYf 

ELy 
DO^ 
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TABLE 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

OOOOOO 

01 A 

TRNTBL 

000000 

015 

MNTBL 

OOOOOO 

016 

MNTRTL 

OOOOOO 

017 

CODE 

00037A 

020 

PATCH 

OOOOOO 

021 

SSFSR1 

OOOOOO 

022 

DEFSO 

000406 

023 

DEF$1 

000006 

02A 

DEF$2 

007A00 

025 

ERRORS 

DETECTED: 

0 
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1 

000000 

2 

000000 

3 

0001 1 5 

A 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

1C 

11 

000000 

RT11 
RSTS 
RSX 

= 

0 

0 

•M 

EIS 
FIS 
FPP 

- 

0 
0 
0 

FPPLEN 

- 

4 

DEBUG 

^ 

0 

F  9 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

;SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 
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Dl 
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.LIST     SCQ,SRCAOC,BIN,BEX,MEB 
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1 


4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35  000000 


D 
C 


TITLE     DOT 
JDENT     \V02.03\ 

S8TTL     DOT 


CHECK  FOR  irjNER/OUTER  PRODUCTS 


•f+ 


FUNCTIONAL  DESCRIPTION: 

This  routine  checks  the  syntax  for  inner/outer  products, 


CALLING  SEQUENCE: 
JMP     DOT 

INPUTS: 

NONE 


: Jumped  to  from  EXPR 


IMPLICIT  INPUTS: 

calar  op  is  on  top  of  the  SI. 

OUTPUTS: 

NONE 

IMPLICIT  OUTPUTS: 
NONE 

ROUTINES  CALLED: 

GETNXT  -  Used  to  get  next  token  in  command  string. 
VAL     -  Used  to  get  y/als  for  inner/outer  product 
INNERP  -  For  Inner  Product. 
OUTERP  -  For  Outer  Product. 

SIDE  EFFECTS: 

The  expression  is  computed,  the  result  placed  on  the  SI 


PSECT  CODE 


J     9 


DOT     WACRO  Mil  13  08 

-FEB-80  11:40  PAGE  45 

DOT 

CHECK  FOR  INNER/OUTER  PRODUCTS 

37  000000 

032765 

000002  1 1177k     DOT : : 

BIT 

#T.SOP,SI.BIT(SI. 

); SCALAR  OP  ON  SI? 

38  000006 

001451 

BEQ 

DOTSYN 

;N0,  SYNTAX  ERROR 

39  0C'X)10 

CALL 

GETNXT 

;GET  NEXT  TOKEN 

40  000014 

032703 

000002 

BIT 

n^,%^?M'h 

; SCALAR  OP? 

41  000020 

001417 

BEQ 

IS 

;NOPE,  TRY  FOR  OUTER  PRODUCT 

42  000022 

012725 

000132' 

MOV 

*DOTSYN,(SI)+   . 

;PUSH  OP  ON  SI 

43  000026 

010325 

MOV 

R3,(SI)+ 

;PUSH  BITS 

44  000030 

010425 

MOV 

R4,(SI)^ 

;PUSH  VALUE  (OP  NUMBER) 

45  000032 

CALL 

GETNX1 

;GET  NEXT  TOKEN 

46  000036 

CALL 

VAL 

;GET  LEFT  ARG 

47  000042 

000433 

BR 

DOTSYN 

; ERROR  RETURN  — >SYNTAX  ERROR 

48  000044 

PUSH 

<R2,R3,R4> 

;SAVE  SOME  REGISTERS 

49  000052 

CALL 

DSINNR 

;PROCESS  INNER  PRODUCT 

50  000056 

51 

52 

53 

54  000060 

000420 

BR 

2$ 

;AND  CYCLE 

;TRY  FOR  OUTER 

PRODUCT 

032703 

040000         1  $ : 

BIT 

*T.0THR,R3 

\IS   IT  A  CHAR? 

55  000064 

001422 

BEQ 

DOTSYN 

;N0 

56  000066 

022704 

000112 

CMP 

#CHRSM0,R4 

;  SMALL  't)"? 

57  000072 

001017 

BNE 

DOTSYN 

;NOPE 

58  000074 

CALL 

GETNXT 

;GET  NEXT  TOKEN 

59  000100 

CALL 

VAL 

;GET  LEFT  ARG 

60  000104 

000412 

BR 

DOTSYN 

; ERROR  RETURN 

61  000106 

PUSH 

<R2, R3,R4> 

;SAVE  SOME  RESISTERS 

62  000114 

CALL 

MSOUTR 

;CALL  OUTER  PRODUCT 

63  000120 

2$: 

POP 

<R4,R3,R2> 

;RESTORE  SOME  REGISTERS 

64  000126 

65 

66  000132 

000137 

OOOOOOG 

JMP 

WORKER 

■AND  CONTINUE 

104407 

DOTSYN: 

SYNERR 

< 

; SYNTAX  ERROR 
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.END 
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SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

C.BLS2= 

0001 AO 

D.CTLM= 

000000 

EDIFLG 

005062R 

025 

AC1   = 

X000001 

CHRLPR= 

000072 

C.BUFF= 

1 77760 

D.DEAL= 

000003 

EDIT  = 

000003 

AC2   = 

X000002 

CHRMNS= 

0001 37 

C.BUFL--- 

177762 

D.DECD= 

000002 

U%       = 

000000 

AC3   = 

X000003 

CHRMUL= 

000075 

C.CCNT= 

1 77766 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

ACA   = 

XOOOOOA 

CHRNE6= 

000100 

C . CPTR= 

17776A 

D.DMD  = 

000010 

ENDCOR 

OOOOOAR 

025 

ACS   = 

XOOOOOS 

CHRPDL= 

000271 

C.CZ  = 

001 000 

D.DQAD=- 

1 11111 

EOF   = 

10AA75 

ALL I NT 

00327AR 

025 

CHRPLU= 

000055 

C.DIG  = 

OOOOAO 

D.DROP= 

000002 

ERRMAX= 

000166 

ARYRET 

003276R 

025 

CHRPWR= 

0001 20 

C.FASW= 

020000 

D.ENCD= 

000002 

ERRNUM 

00A772R 

025 

ASCQUO=  0000A2 

CHRQST= 

000121 

C.FLEN= 

000010 

D.EQ  = 

000000 

ERRPTR 

00A770R 

025 

A.ALEN=  OOOOCA 

CHRQU0= 

000113 

C.FLSH= 

OOAOOO 

D.EXPD= 

000002 

ERRO 

00A77AR 

025 

A.ARG  = 

GOOOAG 

CHRRBR= 

0000A7 

C.FRC  = 

000001 

O.FGET= 

000005 

EXEBUF 

00505AR 

025 

A.ASB  = 

000200 

CHRRPR= 

0000A2 

C.JDEN= 

000010 

D.FMT  = 

OOOOOA 

E$CT 

005056R 

025 

A.BITS= 

000003 

CHRSEM= 

00007A 

C.NAME= 

000102 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A. CON  = 

000020 

CHRSM0= 

000112 

C.NOBF= 

OOOAOO 

D.FPUT= 

000005 

FA.APD= 

000100 

A.DIMS= 

000002 

CHRSPA= 

OOOOAO 

C.NUM  = 

000020 

D.GE  = 

000000 

FA.CRE= 

000010 

A.DIM1= 

000006 

CHRUPA= 

000131 

COP  = 

OOOOOA 

D.GT  = 

000000 

FA.DLK= 

001000 

A.NUM  = 

000006 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.I8M  = 

000002 

FA.ENB= 

100000 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.RDLN= 

1 77776 

D.IND  = 

000002 

FA.EXC= 

002000 

A.TI><F  = 

000010 

CHR.CR= 

00001 5 

C.REWT= 

002000 

D.INNR= 

000013 

FA.EXT= 

OOOOOA 

BADDIR= 

10AA63 

CHR.CZ= 

000032 

C.RND  = 

000010 

D.INTR= 

000006 

FA.NSP= 

000100 

BADERR= 

10AA37 

CHR.6T= 

0000A6 

C.S8IT= 

177756 

D.LE  = 

000000 

FA.NSR= 

000200 

BLZafi 

0051 16R 

025 

CHR.LF= 

00001 2 

C.SPFX= 

000100 

D.LOG  = 

000001 

FA.POS= 

010000 

BRSELF 

0050A6R 

025 

CHR.LT= 

0000A3 

C.SPGL= 

000200 

D.LT  = 

000000 

FA.RD  = 

000001 

CCNT 

005072R 

025 

CHR. SI= 

00001 7 

C . SPLX= 

000001 

D.MAX  = 

000000 

FA.RWD= 

OOAOOO 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C . SPRS= 

000002 

D.MEM  = 

000002 

FA.SEQ= 

OAOOOO 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C.SRC  = 

1 7711  i^ 

D.MIN  = 

000000 

FA.SHR= 

OOOOAO 

CHAN01 

000330R 

025 

CI"  T8= 

00001 1 

C.SRCP= 

00002A 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHAN02 

00051 2R 

025 

C'   JL= 

000106 

C.TT  = 

OOOOOA 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN03 

00067AR 

025 

CHK..A= 

0001 A1 

C.WIDC= 

1 1111^ 

D.NN  = 

000000 

FA.URT= 

000002 

CHANOA 

001056R 

025 

CHR..E= 

0001 A5 

C.WIDR= 

1 11112 

D.NR  = 

000000 

FD.BLK= 

000010 

, 

CHAN05 

0O12A0R 

025 

CHR..S= 

000163 

DEBUG  = 

000000 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN06 

001A22R 

025 

CHR..T= 

0001 6A 

DEFERR= 

10AA05 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN07 

00160AR 

025 

CHR..U= 

000165 

DEVIL 

0051 1AR 

025  D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN08 

001766R 

025 

CHR.. 2= 

0001 72 

DEVNTF= 

10AA70 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DIGITS 

000006R 

025  D.QQAD= 

000000 

FD.FTN= 

000001 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIMAX  = 

000020 

D.QUAD= 

000000 

FD.F11= 

OAOOOO 

CHAN11 

00251 AR 

025 

CH.AND= 

000001 

DI/«LK 

0031 12R 

025  D.RES  = 

000000 

FD.INS= 

000010 

CHAN12 

002676R 

025 

CMD8UF 

003250R 

025 

DIMPTR 

0031 1AR 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN13 

000022R 

023 

CMDMAX= 

000010 

DIMTYP 

0031 16R 

025  D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN1A 

00020AR 

023 

CNTSIZ 

005130R 

025 

DIRFUL= 

10AA66 

D.SCON= 

000006 

FD.OSP= 

OOAOOO 

CHNOPN= 

10AA71 

COMBJN 

005076R 

025 

DOMERR= 

10AA17 

D.SDIF= 

000006 

FD.PLC= 

OOOOOA 

CHRAND= 

000051 

COMCNT 

0051 26R 

025 

DOT 

OOOOOORG 

020  D.SUB  = 

000000 

FD.PRN=  OOOOOA 

CHRBEL= 

000007 

COMERR= 

10AA25 

DOTSYN 

0001 32R 

020  D.SUBS= 

000006 

FD.PSE= 

010000 

CHRBICR= 

000133 

COMPTR 

0051 22R 

025 

DPTERR= 

10AA16 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRBOL= 

000200 

COMRTN 

0031 56R 

025 

DYDCNT 

00322AR 

025  D.TRAN= 

OOOOOA 

FD.RAN=  000002 

CHR80X= 

00011A 

COMSKP 

0051 2 AR 

025 

D$INNR= 

***i^**  GX 

D.UN0N= 

000006 

FD.REC= 

000001 

CHRCWA= 

00005A 

CORPTR 

0051 20R 

025 

D.AND  = 

000000 

D.$WAX= 

000000 

FD.RUM=  000001 

CHRCOL= 

000076 

CS.ASS= 

000200 

D.BXCT= 

000007 

D.$MIN= 

ocoooo 

FD.SDI= 

000020 

CHRDEL= 

000107 

CS.BOO= 

000010 

D.8XI0= 

000007 

D.$MUL= 

000000 

FD.SQD= 

OOOOAO 

CHRD1V= 

000053 

CS.FLO= 

000020 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.TTY= 

OOOOOA 

CHRDLR= 

000176 

CS.1DN= 

OOOOAO 

D.8XPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHRDLT= 

000110 

CS.ONE= 

0001 00 

D.BXPW= 

000007 

D.$SUB= 

000000 

FF.CHR= 

000005 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.NV  = 

000003 

CHREP  = 

000105 

CTMAX 

00021 2R 

025 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.P0E= 

000002 

CHRERR= 

10AA31 

CTRMAX 

0001 72R 

025 

D.corB= 

000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHRFIL= 

000177 

C.ALOC= 

000162 

D.C0MP= 

000001 

EDI CHR 

005063R 

025  FF. RWF= 

000006 

CHRFRO= 

000135 

C.8L0K= 

00006A 

D.C0NT= 

000006 

EDICNT 

00506AR 

025  FF.SPC= 

OOOOOA 

DOT 
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SYMBa 

TABLE 

F HE ADR 

00501 2R 

025 

F.FLB  = 

000100 

HSHf^SK= 

1 77601 

MONCVT 

0031 32R 

025  M.RDCT= 

00001 1 

FHRET 

005040R 

025 

F.FNAM=  000110 

HSHSIZ= 

000200 

MONLEN 

0031 30R 

025  M.REVS= 

000003 

FILNTF= 

104467 

F.F^B  = 

000102 

I  CHAN 

005O5OR 

025 

MONPTR 

0031 22R 

025  M.ROLL= 

000000 

FIS   = 

000000 

F.FNDF= 

000010 

IlFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SATA= 

000001 

FISCON=  046000 

F.FTYP= 

000116 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SCAN= 

000011 

FIXPTR 

003074R 

025 

F.FUN  = 

000010 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SHAP= 

000000 

FLAGS 

004764R 

025 

F.FVER= 

000120 

INDERR= 

104410 

M$OUTR= 

******  Gx 

M.SIGN= 

000000 

FLCBUF 

OO3250R 

025 

F.HEAD= 

000006 

INNTMP 

003250R 

025 

M.ABS  = 

000000 

M.SUBR= 

000001 

FLINE 

00501 4R 

025 

F.HIBK= 

000004 

INNTM2 

00501 6R 

025 

M.BOL  = 

000200 

M.SYM  = 

000203 

FLOEXP 

003270R 

025 

F.LBL  = 

000020 

INPTR 

000064R 

025 

M.BXAV= 

000007 

M.SYN  = 

000201 

FLONEG 

003272R 

025 

F.LINE= 

00001 2 

INSNAM= 

1 04462 

M.BXCR= 

000007 

M.TRAN= 

000012 

FLSWTB 

000222R 

025 

F.LOC  = 

000004 

lOERR  = 

104477 

M.BXCT= 

000007 

M.$ABS= 

000000 

FLTLEN=  000010 

F.LSTC=: 

000004 

I.CNT  = 

1 77776 

M.BXEX= 

000007 

M.$CEI= 

000000 

FNINSI 

005044R 

025 

F.LUN  = 

000042 

I. DIM  = 

1 77772 

M.BXFX= 

000007 

M.$FLR= 

000000 

FORIGN 

0OO032R 

025 

F.I«CT= 

000054 

I.LEN  = 

000012 

M.BXIO= 

000007 

M.$IDN= 

000000 

FO.APD= 

000106 

F.MBC1  = 

000055 

I.OERR= 

000062 

M.BXLC= 

000003 

M.$NEG= 

000000 

FO.MFY= 

000002 

F.MBFG= 

000056 

I. OLD  = 

1 77770 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.RD  = 

000001 

F.MON  = 

000002 

I.PTR  = 

1 7777^ 

M.BXNL= 

000007 

M.1RDT= 

00001 1 

FO.UPD= 

000006 

F.NIL  = 

000001 

l.STH  = 

177766 

M.BXPP= 

000007 

M.1REV= 

000003 

FO.WRT= 

000016 

F.NRBD= 

000024 

LABERR= 

104406 

M.BXPW= 

000007 

M.1SCN= 

000011 

FPMOOE 

0OOO42R 

025 

F.NREC= 

000030 

LABLPT 

005042R 

025 

M.BXRL= 

000007 

NA^BUF 

003240R 

025 

FPP   = 

000000 

F.OPN  = 

000010 

LARGBL 

0031 62R 

025 

M.BXTS= 

000007 

NB.DEV= 

000200 

FPPLEN=  OOOOOA 

F.0\/BS= 

000030 

LARGCV 

0031 76R 

025 

M.BXUA= 

000007 

NB.DIR= 

000100 

FRERLK 

007400R 

025 

F.PREV= 

000000 

LARGFL 

0031 60R 

025 

M.CEI  = 

1 77777 

NB.NAM= 

000004 

FUZZ 

0001 42R 

025 

F.PRNT= 

100000 

LARGLE 

0031 74R 

025 

M.CHR  = 

000202 

NB.SD1= 

000400 

FXPTR1 

003076R 

025 

F.PROT= 

010000 

LARGLN 

003166R 

025 

M.CMT  = 

000206 

NB.SD2= 

001000 

F$EVAL= 

000100 

F.RACC= 

000016 

LARGPT 

0031 64R 

025 

M.DOUT= 

000006 

NB.SNM= 

000040 

F$EVI  = 

000200 

F.RATT= 

000001 

LARGSF 

0031 72R 

025 

M.DQAD= 

000006 

NB.STP= 

000020 

F$EXEC= 

000400 

F.RCNM= 

000034 

LARGTY 

0031 70R 

025 

M.ENCD= 

000004 

NB.SVR= 

000010 

F$FUNC= 

001000 

F.RCTL= 

00001 7 

LARGVA 

003200R 

025 

M.EXE  = 

000000 

NB.TYP= 

000002 

F.ACTL= 

000076 

F.READ= 

004000 

LBINC 

0051 OOR 

025 

M.EXP  = 

000001 

NB.VER= 

000001 

F.ALOC= 

000040 

F.REDF= 

000040 

LBUFF 

00331 6R 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.BBFS= 

000062 

F.RES  = 

000040 

LBUFLN= 

000621 

M.FIL  = 

000177 

ND.EXT= 

000002 

F.BOB  = 

000070 

F.RET  = 

1 77772 

L COUNT 

0051 06R 

025  M.FLR  = 

\77777 

ND.NAM=  000004 

F.BGBC= 

000057 

F.RSIZ= 

000002 

LENERR= 

104412 

M.FMT  = 

000004 

ND. PPN= 

000100 

F.BITS= 

1 7777^ 

F.RTYP= 

000000 

LENTAB 

000054R 

025  M.GDUP= 

000003 

ND.$EX= 

000000 

F.B»CDN= 

000026 

F.R2  = 

000014 

LEXPTR 

0031  OOR 

025 

M.GDWN= 

000003 

ND.$E$= 

000020 

F.BICDS= 

000020 

F.R3  = 

000016 

LFTOP 

005066R 

025  M.GETI= 

000006 

ND.$NM= 

000000 

F.BICEF= 

000050 

F.R4  = 

000020 

LINC 

0051 02R 

025 

M.IBM  = 

000003 

ND.$NS= 

000040 

F.acP1  = 

000051 

F.SEQN= 

000100 

LINE 

00501 6R 

025 

M.IDN  = 

000000 

ND.$PN= 

001400 

F.BICST= 

000024 

F.SPDV= 

000072 

LININC 

005026R 

025  M.INSP= 

000006 

NEGSGN 

005063R 

025 

F.BKVB= 

000064 

F.SPUN=  000074 

LISIZE= 

000020 

M.IOTA= 

000000 

NINPT1 

003302R 

025 

F.BR  = 

000020 

F.STBK= 

000036 

LITOP 

005072R 

025 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.CHR  = 

000075 

F.STK  = 

000022 

LNLNG  = 

104541 

M.LN  = 

000001 

NINSTK 

003304R 

025 

F.CNTG= 

000034 

F.STOP= 

000004 

LOCLCT 

005036R 

025  M.MMD  = 

000010 

NINTMP 

00331  OR 

025 

F.COOE= 

000010 

F.STP  = 

000001 

LOWCOR 

000002R 

025 

M.NEG  = 

ooooco 

NINTYP 

003306R 

025 

F.DFI«=  000046 

F . SUSP= 

000002 

LSTERP 

004766R 

025 

M.NOT  = 

000000 

N0TAVL= 

104472 

F.DSPT= 

000044 

F.TRC  = 

000002 

LWIDTH 

000070R 

025 

M.NUB  = 

000006 

N0T0PN= 

104473 

F.DVNW=  000134 

F.UNIT= 

000136 

L.BITS= 

000003 

M.NUM  = 

000204 

NPRT1 

004762R 

025 

F.EFBK^ 

000010 

F-URBD= 

000020 

L.CNT  = 

000002 

M.0UTR= 

00001 2 

NULL 

007364R 

025 

F.EFN  = 

000050 

F.VAL  = 

1 77776 

L.PRNT= 

000001 

M.PITM= 

000000 

NUMCHN= 

000020 

F.END  = 

002000 

F.VBN  = 

000064 

L.PTR  = 

000000 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

F.EnRR= 

000032 

F . V8SZ= 

000060 

L.FTR1= 

000004 

M.QQAD= 

000000 

NUMEFL 

003233R 

025 

F.ERR  = 

000052 

GETNXT= 

******  Gx 

L.SLflS= 

000002 

M.QUAD= 

000000 

NUMESN 

003236R 

025 

F.FACC= 

000043 

GNOME 

0031 02R 

025  MACHIN= 

000106 

M.RAND= 

000012 

NUMFLG 

003230R 

025 

F.FFBY= 

OOOOK 

HASHC 

005136R 

025  MAXCHN= 

OOOOK 

M.RAVL= 

000000 

NUMLEN 

000062R 

025 

F.F LAG= 

000002 

HASHTB 

005140R 

025  MONBLK 

0031 20R 

025 

M.RCIP= 

000000 

NUMNEG 

003232R 

025 
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NUMQFL 

00323AR 

025 

RANDY 

003062R 

025 

R.OFF  = 

000000 

SY.CLR= 

000040 

r.MON  = 

000010 

^AJMRIG 

003231 R 

025 

RANERR= 

104411 

R.PREV= 

000004 

SY.ERP= 

000020 

T.NIL  = 

000004 

NimiD 

003226R 

025 

RARGBL 

003204R 

025 

R.PTR  = 

000000 

SY.NOU= 

000100 

T.NUM  = 

002000 

NUMZFL 

003235R 

025 

RARGCV 

003220R 

025 

R.SEQ  = 

000003 

SY.OPN= 

000002 

T.OPFN= 

U00001 

NY1ERR= 

104A32 

RARGFL 

003202R 

025 

R.VAR  = 

000002 

SY.PMT= 

001000 

T.OTHR= 

040000 

N.BLSZ= 

000036 

RARGLE 

00321 6R 

025 

R6 

X000006 

SY.SRT= 

000400 

T.SOP  = 

000002 

N.DESC= 

000020 

RARGLN 

00321 OR 

025  R7 

X000007 

SY.SVC= 

000004 

T.SPOP= 

000040 

N.DEV  = 

000032 

RARGPT 

003206R 

025 

SI 

X000005 

S/.SVL= 

000200 

J.Tt^   = 

000200 

N.DEVN= 

00003A 

RARGSF 

00321 4R 

025 

SIDAMN= 

104433 

S.AB  = 

1 77776 

T.VAL  = 

100000 

N.DID  = 

00002A 

RARGTY 

00321 2R 

025 

SlFHm 

00331 4R 

025 

S.AS8  = 

100000 

T.VAR  = 

001000 

N.D\/NM=  000032 

RARGVA 

003222R 

025 

SISTAK 

006350R 

025 

S.BFHD= 

000020 

UPPER  = 

1 77400 

N.EXT  = 

000014 

RBASE 

005074R 

025 

SI  TOP 

006346R 

025 

S.BITS= 

000002 

UTNAME 

000344R 

023 

N.FID  = 

000000 

RCOUNR 

0051 12R 

025 

SITP 

0071 44R 

025 

S.CHR1= 
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FD.RAH= 

000001 

CHRBa= 

000200 

COMRTN 

0031 56R 

025 

DROPC 

OOOOOORG 

020  DeTRAN= 

000004 

FD.RAN= 

000002 

CHRBOX= 

000114 

COMSKP 

0051 24R 

025 

DYDCNT 

003224R 

025 

D.UNON= 

000006 

FD.REC= 

000001 

CHRCMA= 

000054 

CORPTR 

0051 20R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RUM= 

000001 

CHRCOL= 

000076 

CS.ASS= 

000200 

D.BXCT= 

000007 

D.$MIN=  000000 

FD.SDI= 

000020 

CHRDEL= 

000107 

CS.BOO= 

000010 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRDIV= 

000053 

CS.FLO^- 

000020 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.TTY= 

000004 

CHRDLR= 

000176 

CS.IDN= 

000040 

D.8XPP= 

000007 

D.$RES= 

000000 

FD.\JBH= 

000002 

CHRDLT= 

000110 

CS.ONE= 

000100 

D.BXPW= 

000007 

D.$SUB= 

000000 

FF.CHR= 

000005 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.NV  = 

000003 

CHREP   = 

000105 

CTMAX 

0002 12R 

025 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.POE= 

000002 

CHRERR= 

104431 

CTRWAX 

0001 72R 

025 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHRF1L= 

000177 

C.ALOC= 

000162 

D.COMP= 

000001 

EDI CHR 

005063R 

025  FF.RWF= 

000006 

CHRFRO= 

000135 

C.BLOK= 

000064 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF.SPC= 

000004 
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F  HE  ADR 

00501 2R 

025 

F.FLAG= 

000002 

HSHMSK= 

1 77601 

MONCVT 

0031 32R 

025  M.REVS=  000003 

FHRET 

005040R 

025 

F.FLB  = 

000100 

HSHSIZ= 

000200 

MONLEN 

0031 30R 

025  M.R0LL=  000000 

FILESD 

OOOOOOR 

002 

F.FNAM= 

000110 

I  CHAN 

005050R 

025  MONPTR 

0031 22R 

025  M.SATA=  000001 

F1LNTF= 

104467 

F.FNB  = 

000102 

ILFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SCAN=  000011 

FIS   = 

000000 

F.FNDF= 

000010 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP=  000000 

FISCON=  046000 

F.FTYP= 

000116 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SIGN=  000000 

FIXPTR 

003074R 

025 

F.FUN  = 

000010 

INDERR= 

104410 

M.ABS  = 

000000 

M.SUBR=  000001 

FLAGS 

004764R 

025 

F.FVER= 

000120 

INNTMP 

003250R 

025  M.80L  = 

000200 

M.SYM  =  000203 

FLCBUF 

003250R 

025 

F.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.SYN  =  000201 

FLINE 

00501 4R 

025 

F.HIBK= 

000004 

INPTR 

000064R 

025  M.QXCR= 

000007 

M.TRAN=  000012 

FLOEXP 

003270R 

025 

F.LBL  = 

000020 

INSNAM= 

104462 

M.8XCT= 

000007 

M.$ABS=  000000 

FLONEG 

003272R 

025 

F.LINE= 

000012 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI=  000000 

FLSWTB 

000222R 

025 

F.LOC  = 

000004 

I.CNT  = 

1 7111 t 

M.BXFX= 

000007 

M.$FLR=  000000 

FLTLEN=  000010 

F.LSTC= 

000004 

I. DIM  = 

1 11112 

M.BXIO= 

000007 

M.$IDN=  000000 

FNINSI 

005044R 

025 

F.LUN  = 

000042 

I.LEN  = 

000012 

M.BXLC= 

000003 

M.$NEG=  000000 

FORIGN 

000032R 

025 

F.MBCT= 

000054 

I.OERR= 

000062 

M.BXNC= 

000007 

M.$SIG=  000000 

FO.AP0= 

000106 

F.MBC1  = 

000055 

I. OLD  = 

1 1111^ 

M.8XNL= 

000007 

M.1RDT=  000011 

FO.MFY= 

000002 

F  .MBF6= 

000056 

I.PTR  = 

1  mm 

M.8XPP= 

000007 

M.1REV=  000003 

FO.RD  = 

000001 

F.MON  = 

000002 

I.STR  = 

1 77766 

M.BXPW= 

000007 

M.1SCN=  000011 

FO.UPD= 

000006 

F.NIL  = 

000001 

LABERR= 

104406 

M.BXRL^ 

000007 

NAMBUF  003240R 

025 

FO.WRT= 

000016 

F.NRBD= 

000024 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV=  000200 

FPMOOE 

000042R 

025 

F.NREC= 

000030 

LARGBL 

0031 62R 

025  M.BXWA= 

000007 

NB.DIR=  000100 

FPP   = 

000000 

F.OPN  = 

000010 

LARGCV 

0031 76R 

025  M.CEI  = 

1 11111 

NB.NAM=  000004 

FF>F>LEN= 

000004 

F.OVBS= 

000030 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1=  000400 

FREBLK 

007400R 

025 

F.PREV= 

000000 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2=  001000 

FUZZ 

0001 42R 

025 

F.PRNT= 

100000 

LARGLN 

0031 66R 

025  M.DOUT= 

000006 

NB.SNM=  000040 

FXPTR1 

003076R 

025 

F.PROT= 

010000 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP=  000020 

F$EVAL= 

000100 

F.RACC= 

000016 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR=  000010 

F$EVI  = 

000200 

F.RATT= 

000001 

LAR6TY 

003170R 

025  M.EXE  = 

000000 

NB.TYP=  000002 

F$EXEC= 

000400 

F.RCNM= 

000034 

LAR6VA 

003200R 

025  M.EXP  = 

000001 

NB.VER=  000001 

F$FUNC= 

001000 

F.RCTL= 

00001 7 

LBINC 

0051 OOR 

025  M.FACT= 

000001 

ND.DEV=  000200 

F.ACTL= 

000076 

F.READ= 

004000 

LBUFF 

00331 6R 

025  M.FIL  = 

000177 

ND.EXT=  000002 

F.ALOC= 

000040 

F.REDF= 

000040 

LBUFLN= 

000621 

M.FLR  = 

1 11111 

ND.NAM=  000004 

F.8BFS= 

000062 

F.RES  = 

000040 

LCOUNT 

0051 06R 

025  M.FMT  = 

000004 

ND. PPN=  000100 

F.BDB  = 

000070 

F.RET  = 

M7772 

LENERR= 

104412 

M.GDUP= 

000003 

ND.$EX=  000000 

F.BGBC= 

000057 

F.RSIZ= 

000002 

LENTAB 

000054R 

025  M.6DWN= 

000003 

ND.$E$=  000020 

F.BITS= 

177774 

F.RTYP= 

000000 

LEXPTR 

0031 OOR 

025  M.6ETI= 

000006 

ND.$NM=  000000 

F.BICDN=  000026 

F.R2  = 

000014 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$=  000040 

F.BKDS= 

000020 

F.R3  = 

000016 

LINC 

005102R 

025  M.IDN  = 

000000 

ND.$PN=  001400 

F.B»CEF= 

000050 

F.R4  = 

000020 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN  005063R 

025 

F.BICP1  = 

000051 

F.SEQn= 

000100 

LINING 

005026R 

025  M.IOTA= 

000000 

NEWDT  =  ******  GX 

F.BKST= 

000024 

F . SPDV= 

000072 

USlll^ 

000020 

M.LIT  = 

000205 

NEWLIN=  ******  GX 

F.8KVB=  000064 

F.SPUN= 

000074 

LITOP 

005072R 

025  M.LN  = 

000001 

NINPT1  003302R 

025 

F.BR  = 

000020 

F.STBK= 

000036 

LNLNG  = 

104541 

M.MMD  - 

000010 

NINPT2  003300R 

025 

F.CHR  = 

000075 

F.STK  = 

000022 

LOCLCT 

005036R 

025  M.NE6  = 

000000 

NINSTK  003304R 

025 

F . CNT6= 

000034 

F.STOP= 

000004 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

NINTMP  00331  OR 

025 

F . CODE= 

000010 

F.STP  = 

000001 

LSTERP 

004766R 

025  M.NUB  = 

000006 

NINTYP  003306R 

025 

f.Ofm= 

000046 

F . SUSP= 

000002 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

N0TAVL=  104472 

F.DSPT= 

000044 

F.TRC  = 

000002 

L.BITS= 

000003 

M.0UTR= 

000012 

N0T0PN=  104473 

F.D\/NW= 

000134 

F.UNIT= 

000136 

L.CNT  = 

000002 

M.PITM= 

000000 

NPRT1   004762R 

025 

F.EFBK= 

000010 

F.URBD= 

000020 

L.PRNT= 

000001 

M.PRDS= 

000006 

NULL    007364R 

025 

F.EFN  = 

000050 

F.VAL  = 

177776 

L.PTR  = 

000000 

M.QQAD= 

000000 

Nlf1CHN=  000020 

F.END  = 

002000 

F.VBN  = 

000064 

L.PTR1= 

000004 

M.QUAD= 

000000 

NUMDFL  003230R 

025 

F.EOBB= 

000032 

F.\/BSZ= 

000060 

L.SUBS= 

000002 

M.RAND= 

000012 

NUMEFL  003233R 

025 

F.ERR  = 

000052 

GMOME 

003102R 

C25  MACHIN= 

000106 

M.RAVL= 

000000 

NUMESN  003236R 

025 

F.FACC= 

000043 

HASHC 

005136R 

025  MAXCHN= 

000014 

M.RCIP= 

000000 

NUMFLG  003230R 

025 

F.FFBY= 

000014 

HASHTB 

005140R 

025  MONBLK 

0031 20R 

025  M.RDCT= 

000011 

NUMLEN  000062R 

025 
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NUMNEG 

003232R 

025 

RANDAC 

003064R 

025 

R.LNUM= 

000010 

SY.BS  = 

000010 

T.MON  = 

000010 

NUMQFL 

00323AR 

025 

RANDY 

003'  62R 

025 

R.NEXT= 

000006 

!:y.clr= 

000040 

T,NIL  = 

000004 

NUMRIG 

003231 R 

025 

RANERR= 

104^11 

R.OFF  = 

000000 

SY.ERP= 

000020 

T.NUM  = 

002000 

N(.»1UID 

003226R 

025 

RARGBL 

003204R 

025 

R.PREV= 

000004 

SY.NOU= 

000100 

T.OPFN= 

000001 

MJMZFL 

003235R 

025 

RARGCV 

003220R 

025 

R.PTR  = 

000000 

SY.OPN= 

000002 

T.OTHR= 

040000 

NYIERR= 

10AA32 

RARGFL 

003202R 

025 

R.SEQ  = 

000003 

SY.PMT= 

001000 

T.SOP  = 

000002 

N.BLSZ= 

000036 

RARGLE 

00321 6R 

025 

R.VAR  = 

000002 

SY.SRT= 

000400 

T.SP0P= 

000040 

N.DESC= 

000020 

RARGLN 

00321  OR 

025 

R6 

X000006 

SY.SVC= 

000004 

T.TMP  = 

000200 

N.DEV  = 

000032 

RARGPT 

003206R 

025 

R7 

XOOOOO? 

SY.SVL= 

000200 

T.VAL  = 

100000 

N.DE\/N=  00003A 

RARGSF 

00321 4R 

025 

SI 

Z000005 

S.AB  = 

1 77776 

T.VAR  = 

001000 

N.DID  = 

000024 

RARGTY 

00321 2R 

025 

SIDAMN= 

104433 

S.ASB  = 

100000 

UPPER  = 

1 77400 

N.D\/M>1=  000032 

RARGVA 

003222R 

025 

SIFRAM 

00331 4R 

025 

S.8FHD= 

000020 

UTNAME 

000344R 

023 

N.EXT  = 

000014 

RBASE 

005074R 

025 

SISTAK 

006350R 

025 

S.BITS= 

000002 

VALERR= 

104413 

N.FID  = 

000000 

RCOUNR 

0051 12R 

025 

SI  TOP 

006346R 

025 

S.CHR1= 

000003 

VARBLE 

007400R 

025 

N.FNAW=  000006 

RCOUNT 

00511  OR 

025 

SITP 

0071 44R 

025 

S.FATT= 

000016 

VARBLS 

OOOOOOR 

025 

N.FTYP=  000014 

REDCNT 

005070R 

025 

SIWARN= 

000200 

S.FDB  = 

000140 

VERNUM 

OOOOOOR 

025 

N.FVER= 

000016 

REDIGN 

005066R 

025 

SIZTAB 

000044R 

025 

S.FLB  = 

040000 

VRSI0N= 

000002 

N.NAME= 

000006 

REDOFF 

005072R 

025 

SI.8IT= 

1 7777^ 

S.FNAM= 

000006 

WIDTH 

000072R 

025 

N.NEXT= 

000022 

REENTR 

003060R 

025 

SI.LEN= 

1 77772 

S.FNB  = 

000036 

WROUND 

000020R 

025 

N.PPN  = 

000024 

RES8IT 

0031 42R 

025 

SI.RET= 

1 77772 

S.F^BW= 

00001 7 

WSDATE 

0001 36R 

025 

N.STAT= 

000020 

RESCVT 

0031 52R 

025 

SI. VAL= 

1 77776 

S.FNTY= 

000004 

WSFULL= 

104403 

N.UNIT= 

000034 

RESERR= 

104440 

SKPSIZ 

0051 34R 

025 

S.FTYP= 

000002 

WSNAME 

000074R 

025 

nRJFLN= 

001000 

RESLEN 

0031 50R 

025 

SPHOLD 

000004R 

024 

S.LEN  = 

000002 

WSPRT  = 

**••*•  GX 

OCHAN 

005052R 

025 

RESPTR 

0031 40R 

025 

SPINIT 

000002R 

024 

S.LINK= 

1 7777^ 

WSTIME 

0001 32R 

025 

OMOOE 

000402R 

023 

RESSFT 

0031 46R 

025 

STKINC= 

000774 

S.NFEN= 

000020 

$FIS  = 

•*•••*  G 

OPTMF>0 

005066R 

025 

RESTYP 

0031 44R 

025 

STOP  = 

104420 

S.TYPE= 

1 40000 

%FPP     = 

••♦♦••  G 

0PTI»f>1 

005070R 

025 

RESULT 

0031 36R 

025 

SUBCNT 

0031 04R 

025 

S.VAL  = 

000000 

$FPPLN= 

••••••  G 

0PTMP2 

005072R 

025 

RESVAL 

0031 54R 

025 

SUBDCT 

0031 06R 

025 

TKDIMS 

005072R 

025  $MACHN= 

ifk-kHtcti    G 

0PTMP3 

005074R 

025 

RINC 

0051 04R 

025 

SIJRPTR 

00311  OR 

025 

TKFRAM 

005066R 

025  SRSTS  = 

•♦•♦•*  G 

OPTMPA 

005076R 

025 

RLTBAS 

005066R 

025 

SYMBI 

005344R 

025 

TKLEFT 

005070R 

025  $RSX  = 

****••  G 

OPTIiPS 

005100R 

025 

ROTINC 

005070R 

025 

SYMF 

005340R 

025 

TMODE 

000403R 

023  $RT11  = 

*•**••  G 

0PTI1P6 

0051 02R 

025 

ROUND 

00001  OR 

025 

SYMPT1 

005346R 

025 

TMPTAG= 

000166 

.BOOLE= 

000002 

0PTMP7 

0051 04R 

025 

ROVER 

00331 2R 

025 

SYMTAB 

005Z52R 

025 

TTYBUF 

0041 40R 

025  .CHARA= 

000000 

OPT^FS 

005106R 

025  RSTS  = 

000000 

SYMTBF= 

104404 

TTYLEN= 

000622 

.DEF.  = 

000002 

0PTMP9 

00511 OR 

025 

RSX   = 

000115 

SYMTOP 

005350R 

025 

TURKEY= 

104436 

.DLFNB= 

***«*«  GX 

OPTWIO 

0051 12R 

025 

RSXERR= 

••••••  Gx 

SYMTP 

006272R 

025 

TYPE  = 

000166 

.FIND  = 

******  GX 

OPTMU 

005026R 

025 

RTOP 

005070R 

025 

SYMWRN= 

000054 

T.BOL  = 

020000 

.FLOAT= 

000006 

ORIGIN 

000030R 

025 

RT11  = 

000000 

SYNERR= 

104407 

T.CON  = 

004000 

.FSRCB= 

*♦♦*♦♦  G 

OUTPTR 

000066R 

025 

R.BITS= 

000003 

SYSERR= 

104402 

T.DIM  = 

000100 

.INTE6= 

OOOOOA 

OVROPR= 

000000 

R.FIX  = 

000001 

SYSTAT 

OOOOOOR 

024 

T.FUN  = 

010000 

.MOLUN 

000404R 

023 

PATCH 

007344R 

025 

R.LCT  = 

000002 

SY.BAD--^ 

000001 

T.LIST= 

000400 

...GBL= 

000000 

PRECSN 

000052R 

025 

R.LN  = 

000002 

SY.8R<= 

100000 

T.LIT  = 

000020 

...TPC= 

000020 

PRINTM= 

••♦•♦♦  GX 

.  ABS. 

000000 
GOOOOO 

000 
001 

TABLES 

C00014 

002 

MDNTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

ro^TB 

000000 

006 

DYD6TB 

000000 

007 

COWTB 

000000 

010 

CHRTBL 

000000 

on 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 
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TRNTBL 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

000160 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEF$0 

000A06 

023 

DEF$1 

000006 

024 

DEF$2 

007400 

025 

ERRORS 

DETECTED 

:  0 

VIRTUAL 

MEMORY 

USED:   12954  WORDS  (  51  PAGES) 

DYNAMIC 

MEMORY: 

14478  WORDS  (  55  PAGES) 

ELAPSED 

TIME: 

00:01:42 

DROPC, DM1 :C305,301]DROPC/-5P=APLRX1,APLDEF, DROPC, END 
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TEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS. 

2- 

29 

TITLE   TO  AND 

OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IH 

2- 

30 

DEC. 

2- 

31 

2- 

32 

THE  INFORMATION 

IN  THIS  SOFTWARE  IS   SI.RJECT  TO  CHANGE  WITHOUT  NOTICE 

2- 

33 

AND  SHOULD  NOT  BE   CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT                                        1 

2- 

34 

CORPORATION. 

2- 

35 

2- 

36 

DEC  ASSUMES  NO 

RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF   ITS 

2- 

37 

SOFTWARE  ON  EQUIPMENT  WHICH  IS   NOT  SUPPLIED  BY  DEC.                                                         1 

2- 

38 

2- 

39 

3- 
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7- 

377 
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8- 

426 
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SI  Pf^SE   FRAMES 

9- 

474 
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10- 

515 

DEFINITIONS 
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11- 

580 

DEFINITIONS 
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12- 

607 

DEFINITIONS 
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624 
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14- 

724 
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FUNCTION  LINE  BLOCKS 
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17- 
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18- 
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DEFINITIONS 
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19- 

940 

DEFINITIONS 
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20- 

969 

DEFINITIONS 
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22- 
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DEFINITIONS 
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23- 
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1 

000000 

2 

000000 

3 

000115 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
FJS 
FPP 

II  II  II 
ooo 

FPPLEN 

=  A 

DEBUG 

=  0 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

;SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 


D  11 


DYAD 
APLDEF 


1 
c 
3 
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.Se^TL 
.IDENT 


D  11 


APLDEF 
\V02.03\ 


D 
S' 

0^ 
Tl 

n 

Ml 
C( 

p> 
%\ 

Di 
Dl 
DI 
El 

V 
D' 
El 
D' 


r 
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APL  MACRO 

DEFINITIONS 

2513 
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E  11 


.LIST     SEQ,SRC,LOC,BIN,BEX,MEB 


F   11 


DYAD    NIACRO 
DEFINITIONS 

1 
2 
3 

4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57  000000 
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TITLE  DYAD 

I DENT  \V02.03\ 

SBTTL  DYAD 


CALL  DYADIC  OPERATOR  OR  FUNCTION 


■f-f 
FUNCTIONAL  DESCRIPTION: 

This  routine  processes  dyadic  operator  and  function  calls. 
For  functions  and  special  operators,  control  is  passed  to  the 
appropriate  routine.  For  scalar  ops,  conformity  of  the  arguments 
is  checked,  and  the  operator  routine  is  called  for  each  element 
in  the  arguments.  For  scalar  ops,  the  left  arg  is  in  AC1,  and 
the  right  arg  is  in  AC2.  The  result  is  returned  in  ACO.  If 
the  operator  takes  an  optional  dimension  arg,  the  arg  is  handled 
by  this  routine.  The  stack  contains  (going  deeper)  the  left 
arg,  the  operator,  optional  left  bracket  followed  by  dim  arg, 
ana  finally  the  right  arg. 

CALLING  SEQUENCE: 
CALL    DYAD 

INPUTS: 

NONE 

IMPLICIT  INPUTS: 

SI     -  The  SI  appears 

(1)  Left  arg 

(2)  Operator 
Optional: 

(3)  T' 

(4)  Dimensional 


as  follows 


arg 


(5)  Right  arg 


OUTPUTS: 

NONE 


IMPLICIT  OUTPUTS: 

SI     -  The  result  of  the  operation  appears  on  the  SI 

ROUTINE  CALLED: 

BRKCHK  -  Check  for  CNTL-C  interrupt 

FNCALL  -  Used  in  case  of  Dyadic  function  call 

GETSM1  -  Used  to  get  space  for  the  result 

KILL    -  Used  to  delete  unwanted  vals  on  the  SI  stack 

SIDE  EFFECTS: 

SCRATCH  VARABLES  USED: 


OPTMPO 
0PTMP1 
0PTMP3 
0PTMP4 
NONE 


Left  argument  SI  frame  pointer 
Right  arrjment  SI  frame  pointer 
Pointer  to  argument  block  which 
Pointer  to  argument  block  which 


has  same  size 
may  be  shared 


as  result 
with  result 


.PSECT  CODE 


6  11 
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59  000000 

60 

61 

62  000002 

63  000006 

64  000014 

65  000020 

66  000024 

67  000032 

68  000040 

69  000042 

70  000046 

71  000052 

72  000056 

73  000060 

74  000064 

75  000070 

76  000076 

77  000104 

78  000112 

79  000116 

80  000122 

81  000130 

82  000132 

83  000136 

84  000 ; 40 

85  000142 

86  000146 

87  000150 

88  000154 

89  000156 


1 04407 
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OR  FUNCTIO/J 

DYDSYN:  SYNERR 


G  11 


DYAD; 


005037 
005037 
052737 
032765 
001757 
016500 
010537 
116001 
002164 
042701 
010137 
016137 
016137 
016137 
010037 
011037 
016037 
010500 
062700 
014004 
014003 
032703 
001714 
032703 
001311 
005740 


003112' 
003114' 
1 00000 
100000 

1 7117 t 

005066* 

000003 

1  iim 

003170' 
000044 ' 
000054 • 
000054 • 
003162' 
003164' 
000004 

1 11772 


000001 
000004 


004764 • 
1 7777k 


003172' 
0031 74 • 
003160' 


003166' 


CALL 

PUSH 

CLR 

CLR 

BIS 

BIT 

BEQ 

MOV 

MOV 

MOVB 

BGE 

BIC 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

ADD 

MOV 

MOV 

BIT 

BEQ 

BIT 

BNE 

TST 


; SYNTAX  ERROR 


BRKCHK 
<R4,R3,R2> 
DIMBLK 
DIMPTR 

*F.PRNT, FLAGS       , .,wwww 

*T.VAL,SI.BIT(SI);VAL  ON  SI? 


CHECK  TO  SEE   IF  HE  WANTS   TO  STOP 

SAVE  CURRENT  TOKEN 

CLEAR     DIM  ARG  BLOCK  POINTER 

AD  VALUE  POINTER 

PRINT  RESULT  OF  OPERATION 


DYDSYN 

SI.VAL(SI),RO 

SI.OPTMPO 

A.8ITS(R0),R1 

DYDSYS 

#*C<A.NUM>,R1 

R1,LARGTY 


NO,   SYNTAX  ERROR 

GET  ARG  POINTER 

SAVE  LEFT  ARG  SI   FRAT-IE  POINTER 

GET  THE  BITS 

NOT  AN  ARRAY 

CLEAR  GARBAGE 


SAVE  THE  TYPE 
SIZTA8(R1),LARGSF    ;LEFT  SHIFT   CONSTANT 
LENTA8(R1),LARGLE   ;LEFT  LENGTH  CONSTANT 
LENTAB(R1),LARGFL   ;SET   ITEM  LENGTH 
ROAARGBL  ;SAVE  BLOCK  POINTER 

aRO,LARGPT  ;SAVE  VALUE  POINTER 

A.ALEN(RO),LARGLN  ;SAVE  ARRAY  LENGTH 


SI,RO 

/ffSI. LEN^RO 

-(R0),R4 

-(R0),R3 

4fT.OPFN,R3 

DYDSYN 

/fT.NIL,R3 

DYDSYN 

-(RO) 


COPY  POINTER 

BACK  UP  1  FRAME 

GET  OP  NUMBER 

GET  ITS  BITS 

IS   IT  AN  OP? 

NO,  SYNTAX  ERROR 

REALLY  A  NILADIC  FUNCTION? 

YES,  DYADIC  USE  IS  ILLEGAL!! 

BACK  UP  TO  FRAME  TOP 


TTTT 


DYAD    MACRO  Mil  13  12 

-FEB-80  07:37  PAGE  46 

> 

H  11 

DYAD 

CALL  DYADIC  OPERATOR  OR 

FUNCTION 

91 

;NOW 

THAT  WE  HAVE  POINTERS  FOR  THE  LEFT  ARG,  CHECK  FOR  OPTIONAL 

92 
93 
94  000160 

.•DIMENSION  ARG 

FOR  OPERATOR. 

010002 

MOV 

R0,R2         ;SAVE  OUR  POSITION  IN  STACK 

95  000162 

022740 

000073 

CMP 

/«fCHRLBR,-(RO) 

;LEFT  BRACKET  ON  %U 

96  000166 

001033 

BNE 

1$ 

;N0,  THUS  NO  DIM  ARG 

97  000170 

032740 

040000 

BIT 

#T.OTHR,-(RO) 

;YES,  BUT  IS  IT  A  CHAR? 

98  000174 

001430 

BEG 

1$ 

;N0,  MUST  BE  OP  SO  NO  DIM  ARG 

99  000176 

005740 

TST 

-(RO) 

:MOVE  PAST  FRAME 

100  000200 

032760 

100000 

1 7777i, 

BIT 

*T.VAL,SI.BIT(RO);VAL  ON  SI?                                         1 

101  000206 

001 504 

BEQ 

4$ 

;N0,  ERROR 

102  000210 

010002 

MOV 

R0,R2 

;SAVE  POINTER 

103  000212 

014000 

MOV 

-(RO),RO 

;POINT  TO  DIMENSTION  ARG 

104  000214 

116001 

000003 

MOVB 

A.BITS(R0),R1 

:GET  THE  BITS 

105  000220 

002103 

BGE 

DYDSYS 

;IT'S  NOT  AN  ARRAY  BLOCK 

106  000222 

042701 

1 7777\ 

BIC 

/r*C<A.NUM>,R1 

; CLEAR  GARBAGE 

107  000226 

002477 

BLT 

DYDDOM 

•A  CHARACTER  Dimension?  RedicuLous! 

108  000230 

010137 

003116' 

MOV 

R1,DIMTYP 

; STORE  THE  TYPE 

109  000234 

010037 

003112' 

MOV 

RO^DIMBLK 

;SAVE  BLOCK  POINTER 

110  000240 

011037 

003114' 

MOV 

aRO,DIMPTR 

;SAVE  VALUE  POINTER 

111  000244 

032703 

000100 

BIT 

XfT.DIM,R3 

;DIM  ARG  LEGAL? 

112  000250 

001463 

BEQ 

4$ 

;N0,  ERROR  AGAIN 

113  000252 

114 

115 

116 

117  000256 

062702 

1 77772 

ADD 

#SI. LEN,R2 

;BACK  POINTER  PAST  DIM  FRAME 

•GET 

POINTERS  f 

-OR  RIGHT  ARGUMENT 

010237 

005070* 

1$: 

MOV 

R2,0PTMP1       ;SAVE  RIGHT  ARG  SI  FRAME  POINTER 

118  000262 

032762 

100000 

1 7777  L, 

BIT 

*T.VAL,SI.BIT(R2);IS  THERE  AN  ARGUMENT? 

119  000270 

001453 

BEQ 

4$ 

:N0! 

120  000272 

014200 

MOV 

-(R2), RO 

;POINT  TO  RIGHT  ARG 

121  000274 

116001 

000003 

MOVB 

A.BITS(R0),R1 

:GET  BITS 

122  000300 

002053 

BGE 

DYDSYS 

;NOT  ARRAY  BLOCK 

123  000302 

042701 

1 7777^ 

BIC 

#^C<A.NUM>,R1 

: CLEAR  GARBAGE 

124  000306 

010137 

003212' 

MOV 

R1 ,RARGTY 

: RIGHT  ARG  TYPE 

125  000312 

016137 

000044 ' 

003214' 

MOV 

SIZTAB(R1),RARGSF  ;RI6HT  SHIFT  CONSTANT 

126  000320 

016137 

000054 ' 

003216' 

MOV 

LENTAB(R1),RARGLE  ;RIGHT  LENGTH  CONSTANT 

127  000326 

016137 

000054 ' 

003202 ' 

MOV 

LENTAB(R1),RARGFL  ;GET  LENGTH  OF  DATA  ITEM 

128  000334 

010037 

003204 ' 

MOV 

RO.RARGBL      ;SAVE  BLOCK  POINTER 

129  000340 

011037 

003206' 

MOV 

aRO,RARGPT      ;SAVE  VALUE  POINTER 

130  000344 

131 

132 

133 

134  000352 

016037 

000004 

003210' 

MOV 

A.ALEN(RO),RARGLN  ;SAVE  ARRAY  LENGTH 

•PROCESS  SPECIAL  OP  OR  FUNCTION 

032703 

000002 

BIT 

#T.S0P,R3      ; SCALAR  OP? 

135  000356 

001025 

BNE 

DYAD1 

;YES,  SO  WE  PROCESS  IT 

136  000360 

032703 

010000 

BIT 

XfT.FUN,R3 

;N0,  FUNCTION? 

137  000364 

001407 

BEQ 

3$ 

;N0,  MUST  BE  SPECIAL  OP 

138  000366 

032703 

000014 

BIT 

*T.NIL-»-T.M0N,R3  . 

;DYADIC  FUNCTION? 

139  000372 

001012 

BNE 

4$ 

;N0,  SYNTAX  ERROR 

140  000374 

CALL 

FNCALL 

;CALL  DYADIC  USER  FUNCTION 

141  000400 

142 

143  000404 

000137 

001162' 

2$: 

JMP 

DYDEXI 

;AND  EXIT 

3$: 

CALL 

5IDYDTAB(R4)     ;CALL  MIXED  OR  SPECIAL  OP 

144  000410 

032765 

1 00000 

1 7777k 

BIT 

*T.VAL,SI.BIT(SI);DID  OP  ROUTINE  RETURN  A  VALUE? 

145  000416 

001370 

BNE 

2$            ;AND  EXIT  IF  VALUE 

146  000420 

104407 

4$: 

SYNERR 

;N0  VALUE,  SYNTAX  ERROR 

I  11 


r 
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U8  0OOA22 

149  00042A 

150  000426 
151 

152  000430 

153 

154 

155 

156 

157  000432 

158  000436 

159  000442 

160  000446 

161  000454 

162  000456 

163  000462 

164  000470 

165  000472 

166  000476 

167  000504 

168  000506 

169  000510 

170  000514 

171  000522 
172 

173  000524 

174  000532 

175  000534 

176  000540 

177  000544 

178  000552 
179 

180  000554 

181  000560 

182  000564 

183  000566 

184  000572 

185  000576 

186  000600 

187  000602 
188 

189  000606 

190  000612 

191  000616 

192  000622 

193  000626 

194  000630 

195  000632 

196  000634 

197  000636 

198  000640 

199  000642 

200  000646 

201  000650 

202  000652 

203  000654 

204  000656 


104411 
104412 
104417 

1 04402 


PAGE  47 
OR  FUNCTION 

DYDRAN:  RANERR 
DYDLEN:  LENERR 
DYDDOM:  DOMERR 


I  11 


RANK  ERROR 
LENGTH  ERROR 
DOMAIN  ERROR 


DYDSYS:  SYSERR  ;ARRRGGGG... 

OP  IS  SCALAR  OP,  SO  WE  MUST  CHECK  FOR  ARGUMENT 
CONFORMITY  THEN  CALL  OP  ROUTINE  ONCE  FOR  EACH 
ELEMENT  IN  THE  ARRAY 


005037 
01 3702 
013703 
022762 
001023 
005037 
022763 
001007 
005037 
1 26263 
003015 
001437 
010337 
01 3737 
000431 

022763 
001010 
005037 
010237 
013737 
000415 

116200 
120063 
001316 
062702 
062703 
022223 
001311 


005074*        DYAD1 
003162' 
003204 • 
000001  000004 

003160* 

000001  000004 

003202* 

000002  000002 


005074*        1$; 
005070*  005076* 


000001  000004  2$: 

003202* 

005074*        3$; 

005066*  005076* 


CLR 

MOV 

MOV 

CMP 

BNE 

CLR 

CMP 

BNE 

CLR 

CMPB 

BGT 

BEQ 

MOV 

MOV 

BR 

CMP 
BNE 
CLR 
MOV 
MOV 
BR 


000002 
000002 

000006 
000006 


4$: 


013702  003170* 

013703  003212* 
016500  177766 
032700  000020 
001004 
005702 
001675 
005703 
001673 
006204 

116400  OOOOOOG 

006304 

020203 

002001 

010302 


5$: 


6$: 


7$: 


0PTMP3 

LARG8L,R2 

RARGBL,R3 

*1,A.ALEN(R2) 

2$ 

LAR6FL 

/Jf1,A.ALEN(R3) 

1$ 

RARGFL 


POINTER  TO  ARG  TO  USE 

POINT  TO  LEFT  ARG 

POINT  TO  RIGHT  ARG 

LEFT  ARG  SCALAR? 

NO 

YES,  DON'T  INCREMENT 

RIGHT  ARG  SCALAR? 

NO 

YES,  DON'T  INCREMENT 


A.DIMS(R2),A.DIMS(R3)  ;80TH  1  ELEMENT,  WHO  MORE  DIMS? 


3$ 

6$ 

R3,0PTMP3 

0PTMP1 ,0PTMP4 

6$ 

*1,A.ALEN(R3) 

4$ 

RARGFL 

R2,OPTMP3 

OPTMP0,OPTMP4 

6$ 


LEFT  ARG  DOES 

BOTH  THE  SAME 

POINT  TO  "SIMILAR"  BLOCK 

Save  pointer  to  n'ght  argument  SI  frame 


RIGHT  ARG  SCALAR? 

NO 

YES,  DON*T  INCREMENT 

POINT  TO  "SIMILAR"  BLOCK 

Save  pointer  to  Left  argument  SI  frame 


8$: 


M0V8 

A.DIMS(R2), 

,R0   . 

■GET  »   OF  DIMS  FOR  LEFT  A 

CMPB 

R0,A.DIMS(R3) 

•SAME  AS  RIGHT  ARG? 

BNE 

DYDRAN 

•RANK  ERROR 

ADD 

MA.Dm,R2 

•ADJUST  POINTERS 

ADD 

#A.DIM1,R3 

•   TO  DIM  LISTS 

CMP 

(R2)+,(R3)H 

K       , 

;COMPARE  DIM  LISTS 

BNE 

DYDLEN 

■DIE! 

SOB 

R0,5$ 

;LOOP  *TIL  DONE 

MOV 

LARGTY,R2 

;GET  LEFT  TYPE 

MOV 

RARGTY,R3 

;AND  RIGHT  TYPE 

MOV 

SI.BIT^-SI.l 

.EN(Si; 

>,R0  ;GET  BITS  OF  OP 

BIT 

*T.LIT,RO 

; LITERALS  ALLOWED? 

BNE 

7$ 

;YES 

TST 

R2 

;LEFT  ARG  CHAR? 

BEQ 

DYDDOM 

;YES,  SO  DIE 

TST 

R3 

; RIGHT  ARG  SCALAR? 

BEQ 

DYDDOM 

;YES,  SO  DIE 

ASR 

R4 

; POINT  TO  BYTE,  NOT  WORD 

M0V8 

DYDBTL(R4) 

,R0   . 

^SPECIAL  STUFF  FOR  SCALAR 

ASL 

R4 

;RE-CONVERT 

CMP 

R2,R3 

:Who  is  Bigger? 

BGE 

8$ 

;Left  is 

MOV 

R3,R2 

;No,  Right  is... 

CALL 

CMPTRT 

; Compute  Result  Type 

OPS 


J  11 
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205  000662 

206  00066A 

207  000670 

208  000674 

209  000702 

210  000710 

211  000714 

212  000720 

213  000724 
214 

215  000726 

216  000732 

217  000736 

218  000744 

219  000752 

220  000754 

221  000762 

222  000764 

223  000770 

224  000772 

225  000776 

226  001000 

227  001006 

228  001010 

229  001012 
230 

231  001020 

232  001022 

233  001026 

234  001032 

235  001034 

236  001040 

237  001044 

238  001052 

239  001054 

240  001060 
241 

242  001064 

243  001070 

244  001074 
245 

246  001076 

247  001102 

248  001104 
249 

250  001110 

251  001114 

252  001116 
253 

254  001122 

255  001126 

256  001132 

257  001134 

258  001140 

259  001142 
260 

261 


010203 
063702 
063703 
016237 
016337 
042701 
010137 
01 3700 
001035 

013702 
013700 
013737 
132762 
001022 
132760 
001 01 2 
023701 
001413 
023701 
001404 
023737 
002004 
010200 
013737 


026526 
001004 
013702 
005062 
016037 
001443 
013702 
013703 


000412 

005737 
001402 


005737 
001402 


003170' 
003212' 

OOOOOOG  003176* 
OOOOOOG  003220' 
1 7771\ 
003144' 
005074 ' 


003162' 
003204 ' 

005070'  005076' 
000030  000003 

000030  000003 

003212' 

003170' 

003212'  003170' 

005066'  005076' 
1 7777 t 


9$: 


10$: 


005076' 
1 77771. 
000004 

003164' 
003206 ' 


003224'  16$: 


003160' 


003202 ' 


11$; 


12$: 


13$: 


14$: 


000404 

005337  003224 ' 

001356 

000407 


MOV 
ADD 
ADD 
MOV 
MOV 
BIC 
MOV 
MOV 
BNE 

MOV 

MOV 

MOV 

BITS 

BNE 

BITS 

BNE 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BGE 

MOV 

MOV 

PUSH 

CALL 

CMP 

BNE 

MOV 

CLR 

MOV 

BEQ 

MOV 

MOV 

CALL 
CALL 
BR 

TST 
BEQ 
CALL 

TST 
BEQ 
CALL 

CALL 

CALL 

BR 

DEC 

BNE 

BR 
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R2,R3         ;Copy  Intermediate  Type 
LARGTY,R2      ;Fix  Up  Left  Fetch 
RARGTY,R3      ;Fix  Up  Right  Fetch 
LARGCT(R2),LARGCV  ;FETCH  LEFT  ROUTINE 
RARGCT(R3),RARGCV  ;FETCH  RIGHT  ROUTINE 


*^C<A.NUM>,R1 
RURESTYP 
0PTMP3,R0 
10$ 

LARGBL,R2 

RARGBL,RO 

0PTMP1 ,0PTMP4 

/fA.TMP+A.C0N,A 

10$ 

#A.TMPM.CON,A 

9$ 

RARGTY,R1 

10$ 

LAR6TY,R1 

9$ 

RARGTY,LARGTY 

10$ 

R2,R0 

0PTMP0,OPTMP4 


DE-CONVERT  RESULT  TYPE 
STORE  RESULT  TYPE 
U   ONLY  1  ARG  IS  RESULT 
•VOU,  YOU'RE  THE  ONE" 


•IMAGE' 


iht  argument 
\  TEMPORARY? 


SI  frame 


;POINT  TO  LEFT  ARG 

AND  RIGHT  ARG 
Save  pointer  to  ri 
.BITS(R2)  lis   LEFT  AR 

;N0,  USE  RIGHT  ARG 
.BITS(RO)  il^   RIGHT  ARG  TEMPORARY? 
;N0,  USE  LEFT  ARG 
SAME  TYPE  AS  RIGHT? 
;YES,  USE  RIGHT  ARG 
SAME  TYPE  AS  LEFT? 
YES,  USE  LEFT  ARG 
; OTHERWISE,  USE  LARGER 

(I.E.,  THE  RIGHT) 
;USE  LEFT  ARG 
Save  pointer  to  left  argument  SI  frame 


iame  as  argument  block? 


RO  ;Save  model  block 

GETSM3         ;GET  RESULT 

SI.\/AL(SI),(SP)  +  ;Result  block 

16$  ;No,  Good 

0PTMP4,R2      ;Yes,  Get  pointer  to  shared  argument 

SI.BITS(R2)     ;Clear  bits  so  KILL  won't  kill  array 

A.ALEN(RO),DYDCNT  ;SAVE  COUNT 


SI  frame 
block  twice 


DYDEXI 

LARGPT,R2 

RARGPT,R3 

aLARGCV 
aRARGCV 
14$ 

LARGFL 

13$ 

aLARGCV 

RARGFL 

14$ 

5IRARGCV 

5)DYDTAB(R4) 

aRESCVT 

15$ 

DYDCNT 

12$ 

DYDEXI 


NOTHING  THERE,  FINISHED 
GET  POINTER  TO  LEFT  DATA 
AND  RIGHT  DATA 

;GET  1ST  ELEMENT 
;   FROM  EACH 


ONLY  1? 

YES 

GET  NEXT 

ONLY  1? 

YES 

GET  NEXT 


LEFT  ELEMENT 


RIGHT  ELEMENT 


EXECUTE  OP 
STORE  RESULT 
ERROR,  OVERFLOW 
DECREMENT  COUNT 
'TILL  DONE 
..DONE.. 


;THJS  CODE  HANDLES  OVERFLOWS,  SUCH  AS  ADDING  TWO  LARGE  INTEGERS 
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262 
263 
26A  001 KA 

265  001150 

266  001154 

267  001160 


TOGETHER  AND  GETTING  A  VALUE  LARGER  THAN  2**15-1 


163702  003160' 

163703  003202* 
000741 


15$:    CALL  DYDEXP 

SUB  LARGFL,R2 

SUB  RARGFL,R3 

BR  11$ 


; EXPAND  INTEGER 
;8ACK  UP  ONE 
;   FOR  SOURCES 
;AND  CONTINUE 


TO  FLOAT 


L  11 
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269 
270 
271 

272  001162 

273  001166 

274  001172 

275  001174 

276  001200 

277  001206 

278  001212 

279  001216 

280  001222 

281  001224 

282  001230 

283  001234 

284  001240 

285  001242 

286  001246 

287  001252 

288  001260 

289  001262 

290  001270 

291  001274 


;P0P  ARGS  FROM  STACK,  RELEASE  THEM,  PROMOTE 
.•RESULT  AND  RETURN 


014537  003136' 

014537  003142' 

005745 

013700  003136' 

152760  000010  000003 


DYDEXI 


005737 
001404 


003112' 


005725 

013725  003142' 

013700  003136' 

142760  000010 
010025 

005037  003112' 


1$: 


000003 


MOV 

-(SI), RESULT 

MOV 

-(SI),RESBIT 

TST 

-(SI) 

MOV 

RESULT, RO 

BIS8 

4rA.TMP,A.BITS 

CALL 

KILL 

CALL 

KILL 

TST 

DIMBLK 

BEQ 

1$ 

CALL 

KILL 

CALL 

KILL 

CALL 

KILL 

TST 

iSl)^ 

MOV 

RESBIT,(SI)+ 

MOV 

RESULT,RO 

BICB 

*A.TMP,A.BITS 

MOV 

RO,(SI)^- 

POP 

<R2,R3,R4> 

CLR 

DIMBLK 

RETURN 

POINT  TO  RESULT 

GET  BITS 

SKIP   OVER  RETURN 
.POINT  TO  THE  RESULT  BLOCK 
(RO);PROTECT  THE  RESULT  BLOCK  FROM  BEING  KILLED 

KILL  LEFT  ARG 

KILL  OP 

DIM  ARG? 

NO 

KILL  BRACKET 

KILL  DIM  ARG 

KILL  RIGHT  ARG 

SKIP  OVER  RETURN 

SET  RESULT  BITS 
.POINT  TO  RESULT 
(RO) .-RESULT  IS  ALWAYS  TEMP 
.•POINT  TO  RESULT 
.•RESTORE  TOKEN 
.•PREVENT  PROBLEMS 


M  11 
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SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRFRO= 

000135 

C.ALOC= 

000162 

D.BXCT= 

000007 

D.$MIN= 

000000 

AC1   = 

X000001 

CHRLBR= 

000073 

C.8L0K= 

00006A 

D.BXI0= 

000007 

D.$MUL= 

000000 

AC2   = 

X000002 

CHRLPR= 

000072 

C.BLSZ= 

0001 AO 

D.BXNL= 

000007 

D.$PLU= 

000000 

AC3   = 

X000003 

CHRMNS= 

000137 

C.BUFF= 

1 77760 

D.8XPP= 

000007 

D.$RES= 

000000 

ACA   = 

XOOOOOA 

CHRMUL= 

000075 

C.BUFL= 

177762 

D.BXPW= 

000007 

D.$SUB= 

000000 

ACS   = 

XOOOOOS 

CHRNEG= 

000100 

C.CCNT= 

1 77766 

D.8XRL= 

000007 

D.1C0M=  000001 

ALLINT 

00327AR 

025 

CHRPDL= 

000271 

C.CPTR= 

1 7776A 

D.CIRC= 

000001 

D.I EXP= 

000002 

ARYRET 

003276R 

025 

CHRPLU= 

000055 

C.CZ  = 

001000 

D.CCjMB= 

000001 

D.1R0T= 

000003 

ASCQUO= 

'X)00A2 

CHRPWR= 

000120 

C.DIG  = 

OOOOAO 

D.C0MP= 

000001 

EDICHR 

005063R 

025 

A.ALEN= 

CXXXK 

CHRQST= 

000121 

C.FASW= 

020000 

D.CONT= 

000006 

EDICNT 

00506AR 

025 

A.ARG  = 

GOOGAO 

CHRQUO=  000113 

C.FLEN= 

000010 

D.CTLM= 

000000 

EDIFLG 

005062R 

025 

A.AS8  = 

000200 

CHRRBR= 

0000A7 

C.FLSH= 

OOAOOO 

D.DEAL= 

000003 

EDIT  = 

000003 

A.BITS= 

000003 

CHRRPR= 

0000A2 

C.FRC  = 

000001 

D.DECD= 

000002 

EIS   = 

000000 

A. CON  = 

000020 

CHRSEM= 

00007A 

C.IDEN= 

OOC010 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

A.DIMS= 

000002 

CHRSMO= 

000112 

C.NAME= 

000102 

D.DMD  = 

000010 

ENDCOR 

OOOOOAR 

025 

A.DIM1  = 

000006 

CHRSPA= 

OOOOAO 

C.NOBF= 

OOOAOO 

D.DQAD= 

1 77777 

EOF   = 

10AA75 

A.NUM  = 

000006 

CHRUPA= 

000131 

C.NUM  = 

000020 

D.DROP= 

000002 

ERRMAX= 

000166 

A.PTR  = 

000000 

CHR.BS= 

000010 

COP  = 

OOOOOA 

D.ENCD= 

000002 

ERRNUM 

00A772R 

025 

A. IMP  = 

000010 

CHR.CC= 

000003 

C.OPN  = 

010000 

D.EQ  = 

000000 

ERRPTR 

00A770R 

025 

BADDIR= 

10AA63 

CHR.CR= 

000015 

C.RDLN= 

1 77776 

D.EXPr= 

000002 

ERRO 

00A77AR 

025 

BADERR= 

10AA37 

CHR.CZ= 

000032 

C.REWT= 

002000 

D.FGET= 

000005 

EXEBUF 

00505AR 

025 

BLZ«« 

00S116R 

025 

CHR.GT= 

0000A6 

C.RND  = 

000010 

D.FMT  = 

OOOOOA 

E$CT 

005056R 

025 

BRKCHIC= 

*t^*«**  GX 

CHR.LF= 

000012 

C.S8JT= 

177756 

D.FPNT= 

000005 

E$PT 

005060R 

025 

BRSELF 

0050A6R 

025 

CHR.LT= 

000043 

C.SPFX= 

000100 

D.FPUT= 

000005 

FA.APD= 

000100 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C.SPGL= 

000200 

D.6E  = 

000000 

FA.CRE= 

000010 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C . SPLX= 

000001 

D.GT  = 

000000 

FA.DLK= 

001000 

CHANOO 

000256R 

025 

CHR.S0= 

000016 

C . SPRS= 

000002 

D.I8M  = 

000002 

FA.ENB= 

100000 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

r.SRC  = 

1 7777^ 

D.IND  = 

000002 

FA.EXC= 

002000 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.SRCP= 

00002A 

D.INNR= 

000013 

FA.EXT= 

OOOOOA 

CHAN03 

00067AR 

025 

CHR..A= 

0001 A1 

C.TT  = 

OOOOOA 

D.INTR= 

000006 

FA.NSP= 

000100 

CHANOA 

001056R 

025 

CHR..E= 

0001  AS 

C.WIDC= 

177770 

D.LE  = 

000000 

FA.NSR= 

000200 

CHANGS 

0012A0R 

025 

CHR..S= 

000163 

C.WIDR= 

1 77772 

D.L06  = 

000001 

FA.POS= 

010000 

CHAN06 

001A22R 

025 

CHR..T= 

0001 6A 

DEBUG  = 

000000 

D.LT  = 

000000 

FA.RD  = 

000001 

CHAN07 

00160AR 

025 

CHR..U=  000165 

DEFERR= 

10AA0S 

D.MAX  = 

000000 

FA.RWD= 

OOAOOO 

CNAN08 

001766R 

025 

CHR..Z= 

000172 

DEVIL 

0051 1AR 

025 

D.MEM  = 

000002 

FA.SEQ= 

OAOOOO 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DEVNTF= 

10AA70 

D.MIN  = 

000000 

FA.SHR= 

OOOOAO 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIGITS 

000006R 

025 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHAN11 

00251 AR 

025 

CH.AND= 

000001 

DIMAX  = 

000020 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN12 

002676R 

025 

CMDBUF 

003250R 

025 

Dir«LK 

0031 12R 

025 

D.NN  = 

000000 

FA.WRT-: 

000002 

CHAN13 

000022R 

023 

CMDMAX= 

000010 

DIMPTR 

0031 1AR 

025 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN1A 

00020AR 

023 

CMPTRT= 

••••*•  6X 

DIMTYP 

0031 16R 

025 

D.OR  = 

000000 

FD.CCL= 

000002 

CHNOPN= 

10AA71 

CNTSIZ 

0051 30R 

025 

DIRFUL= 

10AA66 

D.PLUS= 

000000 

FD.COM=  020000 

CHRAND= 

000051 

COMBIN 

005076R 

025 

DOMERR= 

10AA17 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHR8EL= 

000007 

COMCNT 

005126R 

025 

DPTERR= 

10AA16 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHRBICR= 

000133 

COMERR= 

10AA25 

DYAD 

000002RG 

020 

D.QQAD= 

000000 

FD.FTN=  000001 

CHRBa= 

000200 

COMPTR 

0051 22R 

025 

DYAD1 

000A32R 

020 

D . QUAD= 

000000 

FD.F11= 

OAOOOO 

CHRBOX= 

00011A 

COMRTN 

0031 56R 

025 

DYD6TL= 

•*••••  GX 

D.RES  = 

000000 

FD.INS= 

000010 

CHRCWA= 

00005A 

CQMSKP 

00512AR 

025 

DYDCNT 

00322AR 

025 

D.RHO  = 

000000 

FD.ISP= 

002000 

CHRCOL= 

000076 

CORPTR 

005120R 

025 

DYDDOM 

000A26R 

020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHRDEL= 

000107 

CS.ASS= 

000200 

DYDEXI 

001162R 

020 

D.SCON= 

000006 

FD.OSP= 

OOAOOO 

CHRDIV= 

000053 

CS.BOO= 

000010 

DYDEXP= 

•**«••  GX 

D.SDIF= 

000006 

FD.PLC= 

OOOOOA 

CHRDLR= 

000176 

CS.FLO= 

000020 

DYDLEN 

000A2AR 

020 

D.SUB  = 

000000 

FD.PRN= 

OOOOOA 

CHRDLT= 

000110 

CS.IDN= 

OOOOAO 

DYDRAN 

000A22R 

020 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRDOT= 

000056 

CS.ONE= 

000100 

DYDSYN 

OOOOOOR 

020 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHREP  = 

000105 

CTFPS 

0001 52R 

025 

DYDSYS 

000A3OR 

020 

D . TRAN= 

OOOOOA 

FD.RAN= 

000002 

CHRERR= 

10AA31 

CTMAX 

00021 2R 

025 

DYDTAB= 

*•*•♦♦  GX 

D.UNON= 

000006 

FD.REC= 

000001 

CHRFIL= 

0001 77 

CTRMAX 

0001 72R 

025 

D.AND  = 

000000 

D.SMAX= 

000000 

FD.RWM= 

000001 
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FD.SDI= 

000020 

F.DFNB= 

000046 

F . SUSP= 

000002 

LOCLCT 

005036R 

025 

M.NEG  = 

000000 

FD.SQD= 

OOOOAO 

F.DSPT= 

000044 

F.TRC  = 

000002 

LOUCOR 

000002R 

025  M.NOT  = 

000000 

FD.TTY= 

OOOOOA 

F.DVNM= 

0001 34 

F.UNJT= 

0001 36 

LSTERP 

004766R 

025  M.NUB  = 

000006 

FD.WBH= 

000002 

F.EFBK= 

000010 

F . URBD= 

000020 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

FF.CHR= 

000005 

F.EFN  = 

OOC050 

F.VAL  = 

1 77776 

L.BITS= 

000003 

M.OUTR= 

000012 

FF.NV  = 

000003 

F.END  = 

002000 

F.V8N  = 

000064 

L.CNT  = 

000002 

M.PITM= 

000000 

FF.POE= 

000002 

F.EfWI= 

000032 

F.VBSZ= 

000060 

L.PRNT= 

000001 

M.PRDS= 

000006 

FF.RWD= 

000001 

F.ERR  = 

000052 

GETSM3= 

••••♦•  GX 

L.PTR  = 

000000 

M.QQAD= 

000000 

Fr.RWF= 

000006 

F.FACC= 

000043 

GNOME 

0031 02R 

025 

L.PTR1= 

000004 

M.QUAD= 

000000 

FF.SPC= 

OOOOOA 

F.FFBY= 

000014 

HASHC 

0051 36R 

025 

L.SUBS= 

000002 

M.RAND= 

00001 2 

FHEADR 

00501 2R 

025 

F.FLA6= 

000002 

HASHTB 

005140R 

025 

MACHIN= 

000106 

M.RAVL= 

000000 

FHRET 

0050A0R 

025 

F.FLB  = 

000100 

HSHMSK= 

1 77601 

MAXCHN= 

000014 

M.RCIP= 

000000 

FILNTF= 

104467 

F.FNAM- 

000110 

HSHSJZ= 

000200 

MO^eLK 

0031 20R 

025  M.RDCT= 

00001 1 

FIS   = 

000000 

F.FNB  = 

000102 

KHAN 

005050R 

025 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

FISCON= 

046000 

F.FNDF= 

000010 

1LFNAM= 

1 04464 

MONLEN 

0031 30R 

025 

M.ROLL= 

000000 

FIXPTR 

003074R 

025 

F.FTYP= 

000116 

ILLCHN= 

104540 

MONPTR 

0031 22R 

025  M.SATA= 

000001 

FLAGS 

004764R 

025 

F.FUN  = 

000010 

ILLSW  = 

104565 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

FLCBUF 

003250R 

025 

F.FVER= 

000120 

INDERR= 

104410 

MONTYP 

0031 24R 

025 

M.SHAP= 

000000 

FLINE 

00501 4R 

025 

F.HEAD= 

000006 

INNTMP 

003250R 

025 

MONVAL 

0031 34R 

025 

M.SIGN= 

000000 

FLOEXP 

003270R 

025 

P.HIBK^ 

000004 

INNTM2 

00501 6R 

025 

M.ABS  = 

000000 

M.SUBR= 

000001 

FLONEG 

003272R 

025 

F.LBL  = 

000020 

INPTR 

000064R 

025 

M.BOL  = 

000200 

M.SYM  = 

000203 

FLSWTB 

000222R 

025 

F.LINE= 

00001 2 

INSNAM= 

104462 

M.BXAV= 

000007 

M.SYN  = 

000201 

FLTLEN= 

000010 

F.LOC  = 

000004 

lOERR  = 

104477 

M.BXCR= 

000007 

M.TRAN= 

000012 

FNCALL= 

••••••  GX 

F.LSTC= 

000004 

I.CNT  = 

177776 

M.BXCT= 

000007 

M.$ABS= 

000000 

FNINSI 

005044R 

025 

F.lUN  = 

000042 

I. DIM  = 

1 77772 

M.BXEX= 

000007 

M.$CEI= 

000000 

FORIGN 

000032R 

025 

F.MBCT= 

000054 

I.LEN  = 

00001 2 

M.BXFX= 

000007 

M.$FLR= 

000000 

FO.APD= 

000106 

F.MBC1= 

000055 

I . OERR= 

000062 

M.BXIO= 

000007 

M.$IDN= 

000000 

FO.MFY= 

000002 

F./nBFG= 

000056 

I. OLD  = 

1 77770 

M.BXLC= 

000003 

M.$r^E6= 

000000 

FO.RD  = 

000001 

F.MON  = 

000002 

I.PTR  = 

1 7777^ 

M.BXNC= 

000007 

M.$SI6= 

000000 

FO.UPD= 

000006 

F.NIL  = 

000001 

I. SIR  = 

1 77766 

M.BXNL= 

000007 

M.1RDT= 

00001 1 

FO.WRT= 

000016 

F.NRBD= 

000024 

KILL  = 

••••••  QX 

M.BXPP= 

000007 

m.:rev= 

000003 

F  RHODE 

000042R 

025 

f.NREC= 

000030 

LABERR= 

1 04406 

M.BXPW= 

000007 

M.1SCN= 

000011 

FPP   = 

000000 

F.OPN  ^ 

000010 

LABLPT 

005042K 

025 

M.BXRL= 

000007 

nambuf 

003240R 

025 

FPPLEN= 

000004 

F.OVBS= 

000030 

LARGBL 

0031 62R 

025 

M.8XTS= 

000007 

NB.DEV= 

000200 

FREBLK 

007400R 

025 

F.PREV= 

000000 

LARGCT= 

ic^icirlfk    GX 

M.BXWA= 

000007 

.\B.DIR= 

000100 

FUZZ 

0001 42R 

025 

F.PRNT= 

100000 

LARGCV 

0031 76R 

025 

M.CEI  = 

1 77777 

nb.nam= 

000004 

FXPTR1 

003076R 

025 

F.PROT= 

010000 

LARGFL 

003160R 

025 

M.CHR  = 

000202 

nb.sdi= 

000400 

FSEVAL= 

000100 

F.RACC= 

000016 

LARGLE 

0031 74R 

025 

M.CMT  = 

000206 

NB.SD2= 

001000 

FSEVI  = 

000200 

F.RATT= 

000001 

LARGLN 

0031 66R 

025 

M.DOUT= 

000006 

NB.SNM=  000040 

F$EXEC= 

000400 

F.RCNri= 

000034 

LARGPT 

0031 64R 

025 

M.DQAD= 

000006 

NB.STP= 

000020 

F$F UNC= 

001000 

F.RCTL= 

000017 

LARGSF 

0031 72R 

025 

M.ENCD= 

000004 

NB.SVR= 

000010 

F.ACTL= 

000076 

F.READ= 

004000 

LARGTY 

0031 70R 

025 

M.EXE  :^ 

000000 

NB.TYP= 

000002 

F.ALOC= 

000040 

F.REDF= 

000040 

LARGVA 

003200R 

025 

M.EXP  = 

000001 

NB.VER= 

000001 

F.RRFS= 

000062 

F.RES  = 

000040 

LBINC 

005100R 

025 

M.FACT= 

000001 

nd.de V= 

000200 

F.BDB  = 

000070 

F.RET  = 

1 77772 

LBUF 

00331 6R 

025 

M.FIL  = 

0001 77 

nd.ext= 

000002 

F.BGRC= 

000057 

F.RSJZ= 

000002 

LBUF  LN= 

000621 

M.FLR  = 

1 77777 

ND.NAM=  000004 

F.BITS= 

1 7777^ 

F.RT>P= 

000000 

LCOLNT 

005106R 

025 

M.FMT  = 

000004 

ND.PPN= 

000100 

F.BKDN= 

000026 

F.R2  = 

000014 

LENFRR= 

104412 

M.GDUP= 

000003 

ND.$EX= 

000000 

F.BKDS= 

000020 

F.R3  = 

000016 

LENIAB 

000054R 

025 

M.GDWN= 

000003 

ND.$E$= 

000020 

F.BKEF= 

000050 

F.R4  = 

000020 

LEXPTR 

0031 OOR 

025 

M.6ETI= 

000006 

ND.SM>1=  000000 

f.bk:pi= 

000051 

F.SEON= 

000100 

LFTOP 

005066R 

025 

M.IBM  = 

000003 

ND.$N$= 

000040 

F.BKST= 

000024 

F.SPDV= 

000072 

LINC 

0051 02R 

025 

M.IDN  = 

000000 

ND.$PN= 

001400 

r.B<\/B= 

000064 

F.SPUN= 

000074 

LINE 

00501 6R 

025 

M.INSP= 

000006 

NEGSGN 

005063R 

025 

F.BR  = 

000020 

F.STBK= 

000036 

LINING 

005026R 

025 

M.IOTA= 

000000 

NINPT1 

003302R 

025 

F.CHR  = 

000075 

F.STK  = 

000022 

LISIZE^ 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.CNTG= 

000034 

F.STOP= 

000004 

LI  TOP 

005072R 

025 

M.LN  = 

000001 

NINSTK 

003304R 

025 

F.COOE= 

oooo^o 

F.STP  = 

000001 

LNLNG  = 

104541 

M.MMD  = 

000010 

NINTMP 

00331  OR 

025 

TIT 
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•^0-3 

C  M 

SYMBa 

TABLE 

NINTYP 

003306R 

025 

0PTMP8 

005106R 

025 

RSX   = 

0001 1 5 

SYNERR= 

104407 

T.DIM  = 

000100 

NOTAVL= 

10AA72 

0PTI1P9 

005 11  OR 

025 

RTOP 

005070R 

025 

SYSERR= 

104402 

T.FUN  = 

010000 

NOTOPN= 

10AA73 

0PTM1 0 

0051 12R 

025 

RT11  = 

000000 

SYSTAT 

OOOOOOR 

024  T.LIST= 

000400 

NPRT1 

00A762R 

025 

0PTM14 

005026R 

025 

R.BITS= 

000003 

SY.aAD= 

000001 

T.LIT  = 

000020 

NULL 

00736AR 

025 

ORIGIN 

000030R 

025 

R.FIX  = 

000001 

SY.BRK= 

100000 

T.MON  = 

000010 

NUMCHN=  000020 

OUTPTR 

000066R 

025 

R.LCT  = 

000002 

SY.BS  = 

000010 

T.NIL  = 

000004 

NUMDFL 

003230R 

025 

0VR0PR= 

000000 

R.LN  = 

000002 

SY.CLR= 

000040 

T.NUM  = 

002000 

NUMEFL 

003233R 

025 

PATCH 

007344R 

025  R.LNUM=  000010 

SY.ERP= 

000020 

T.0PFN= 

000001 

MJMESN 

003236R 

025 

PRECSN 

000052R 

025 

R.NEXT= 

000006 

SY.N0U= 

000100 

T.0THR= 

040000 

NUMFL6 

003230R 

025 

RANDAC 

003064R 

025 

R.OFF  = 

000000 

SY.OPN= 

000002 

T.SOP  = 

000002 

NUMLEN 

000062R 

025 

RANDY 

003062R 

025 

R.PREV= 

000004 

SY. PMT= 

001000 

T.SP0P= 

000040 

NUMNEG 

003232R 

025 

RANERR= 

104411 

R.PTR  = 

000000 

SY.SRT= 

000400 

T.TMP  = 

000200 

NUMQFL 

00323AR 

025 

RARGBL 

003204R 

025 

R.SEQ  = 

000003 

SY.SVC= 

000004 

T.VAL  = 

100000 

NUMRIG 

003231 R 

025 

RARGCT= 

••••••  QX 

R.VAR  = 

000002 

SY.SVL= 

000200 

T.VAR  = 

001000 

NUMUID 

003226R 

025 

RARGCV 

003220R 

025 

R6 

X000006 

S.AB  = 

1 77776 

UPPER  = 

1 77400 

NUMZFL 

003235R 

025 

RARGFL 

003202R 

025 

R7 

X000007 

S.ASB  = 

100000 

UTNAME 

000"%  ^R 

023 

NYIERR= 

10AA32 

RARGLE 

00321 6R 

025 

SI 

X000005 

S.BFHD= 

000020 

VALERR= 

104413 

N.BLSZ= 

000036 

RARGLN 

00321  OR 

025 

SIDA/1N= 

104433 

S.BITS= 

000002 

VARBLE 

Ci)7400R 

025 

N.DESC= 

000020 

RARGPT 

003206R 

025 

SIFRAM 

00331 4R 

025 

S.CHR1= 

000003 

VARBLS 

OOOOOOR 

025 

N.DEV  = 

000032 

RARGSF 

00321 4R 

025 

SISTAK 

006350R 

025 

S.FATT= 

000016 

VERNliM 

OOOOOOR 

025 

N.DEVN= 

00003A 

RARGTY 

00321 2R 

025 

SITOP 

006346R 

025 

S.FDB  = 

000140 

VRSIJN= 

000002 

N.DID  = 

00002A 

RARGVA 

003222R 

025 

SITP 

0071 44R 

025 

S.FLB  = 

040000 

WIDTH 

000072R 

025 

N.DV^f1=  000032 

RBASE 

005074R 

025 

SIWARN= 

000200 

S.FNAri=  000006 

WROUND 

000020R 

025 

N.EXT  = 

000014 

RCOUNR 

0051 12R 

025 

SIZTAB 

000044R 

025 

S.FNB  = 

000036 

WSDATE 

0001 36R 

025 

N.FID  = 

000000 

RCOUNT 

00511  OR 

025 

SI.BIT= 

1 7777^ 

S.FNBW= 

00001 7 

WSFULL= 

104403 

N.FNAW=  000006 

REDCNT 

005070R 

025 

SI.LEN= 

1 77772 

S.FNTY= 

000004 

WSNAWE 

000074R 

025 

N.FTYP= 

OOOOU 

REDIGN 

005066R 

025 

SI.RET= 

177772 

S.FTYP= 

000002 

WSTIME 

0001 32R 

025 

N.FVER= 

000016 

REDOFF 

005072R 

025 

SI.VAL= 

1 77776 

S.LEN  = 

000002 

$flS     = 

*•••••  (5 

N.NAME= 

000006 

REENTR 

003060R 

025 

SKPSIZ 

0051 34R 

025 

S..LiNK= 

1 7777^ 

%FPP     = 

1^«r*«4r«  G 

N.N€XT= 

000022 

RESBIT 

0031 42R 

025 

SPHOLD 

000004R 

024 

S.;\JFEN= 

000020 

$FPPLN= 

•*••••  Q 

N.PP^J  = 

000024 

RESCVT 

0031 52R 

025 

SPINIT 

000002R 

024 

S.TYPE= 

140000 

$MACHN= 

••••••  Q 

N.STAT= 

000020 

RESERR= 

104440 

STKINC= 

000774 

S.VAL  = 

000000 

$RSTS  = 

•••••♦  Q 

N.UNIT= 

000034 

RESLEN 

0031 50R 

025 

STOP  = 

104420 

TKDIMS 

005072R 

025  $RSX  = 

••••*•  (5 

OBUFLN=  001000 

RESPTR 

0031 40R 

025 

SU8CNT 

0031 04R 

025 

TKFRAM 

005066R 

025  $RT11  = 

••*••*  Q 

OCHAN 

005052R 

025 

RESSFT 

0031 46R 

025 

SUBDCT 

0031 06R 

025 

TKLEFT 

005070R 

025  .BOOLE= 

000002 

OMODE 

000402R 

023 

RESTYP 

0031 44R 

025 

SiRPTR 

00311  OR 

025 

TWODE 

000403R 

023  .CHARA= 

000000 

OPTMPO 

005066R 

025 

RESULT 

0031 36R 

025 

sym^ 

005344R 

025 

THPTAG= 

000166 

.DEF.  = 

000002 

OPTMPI 

005070R 

025 

RESVAL 

0031 54R 

025 

SYWF 

005340R 

025 

TTYBUF 

0041 40R 

025  .FLaAT= 

000006 

0PTMP2 

005072R 

025 

RINC 

0051 04R 

025 

SYMPT1 

005346R 

025 

TTYLEN= 

000622 

.FSRCB= 

•**•**  Q 

0PTMP3 

005074R 

025 

RLTBAS 

005066R 

025 

SYWTAB 

005352R 

025 

TURKEY= 

104436 

.INTEG= 

000004 

0PTMP4 

005076R 

025 

ROTINC 

005070R 

025 

SYMTBF= 

104404 

TYPE  = 

000166 

.MOLUN 

000404R 

023 

0PTMP5 

005100R 

025 

ROUND 

00001  OR 

025 

SYMTOP 

00535OR 

025 

T.80L  = 

020000 

...GBL= 

000000 

0PTMP6 

0051 02R 

025 

ROVER 

00331 2R 

025 

SYMTP 

006272R 

025 

T.CON  = 

004000 

...TPC= 

000020 

0PTMP7 

0051 04R 

025 

RSTS  = 

000000 

SYnWRN= 

000054 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

DYDTB 

ooocoo 

004 

BOPTB 

000000 

005 

MO^BTB 

000000 

006 

DYDBTB 

000000 

007 

COWTB 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

D' 
S^ 

C( 

P) 
%i 

Di 
Df 
Di 
El 

v: 

D' 
El 
D' 
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OVRTBL 

000000 
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TRNTBL 
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015 
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000000 

016 

MNTRTL 

000000 

017 

CODE 

001 276 

020 

PATCH 

000000 

021 

$$FSR1 

000000 

022 

DEFSO 

0OOA06 

023 

DEFSI 

000006 

024 

DEF$2 

007A00 

025 

ERRORS 

DETECTED: 

0 
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1 

000000 

? 

000000 

3 

0001 1 5 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RbTS 
RSX 

=  0 
=  0 
=  'M 

EJS 
FIS 
FPP 

II  II  II 
ooo 

FPPLEN 

=  4 

DEBUG 

=  0 

T17 


;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

; SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 
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APLDEF 

1  .SBTTL 

2  .IDENT 


TTT?" 


APLDEF 
\V02.03\ 


^  ir\^\       AM  ^  **   ^   ^ 


/NO      ^r-r>      nf\      ^  ^ 


1  «  /-r-      /  ■n 


TT7 


f 


nr 
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DEFINITIONS     ERRORS 

2513  .LIST  SEQ,SRC,LOC,BIN,BEX,MEB 


I '^~~"~" T^ 


CYDEXP  '^.ACRO 
DCFINITIONS 
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ERRORS 


TIT 


1 

2 

3 

A 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 

29  000000 
30 

31  000000 

32  000000 

33  000006 

34  000010 

35  000020 

36  000024 

37  000030 

38  000034 

39  000042 

40  000046 

41  000054 

42  000060 

43  000066 

44  000070 

45  000072 

46  000074 

47  000100 

48  000102 

49  000104 

50  000110 

51  000112 

52  000114 

53  000116 

54  000124 

55  000132 

56  000134 

57  000136 


TITLE  DYDEXP 
IDENT  \V02.03\ 

.S8TTL  DYDEXP 


EXPAND  INTEGER  RESULT  TO  FLOAT 


■♦■+ 
FUNCTIONAL  DESCRIPTION: 

This  Routine  is  Called  from  within  a  Dyadic  Execution 
loop.  Hence,  RO  is  unknown  data,  R1  a  Pointer  to  the 
Left  Arg,  R2  a  pointer  to  the  Right  arq,  R3  a  Pointer 
to  the  Result,  and  R4  the  Op  Number  (-►/-).  This  Routine 
allocates  a  new  block,  converts  from  Inteqer  to  Float, 
deletes  the  old  block,  gets  pointers  to  tne  new  routines, 
and  corrects  the  registers,  fun,  huh? 


Left  Arg 
Right  Arg 
Result 


INPUTS: 

R1 

-  Pointer  to 

R2 

-  Pointer  to 

R3 

-  Pointer  to 

R4 

-  Op  Number 

OUTPUTS: 

R1 

-  Pointer  to 

R2 

-  Pointer  to 

R3 

-  Pointer  to 

R4 

-  Op  Number 

Left  Arg  (back  up  once) 
Right  Arg  (back  up  once) 
Result  (new  data  area) 
(probably  negated) 


.PSECT  CODE 


023727 
001102 

016500 
012701 
010137 
016137 
013702 
016237 
013702 
016237 
005704 
002404 
005404 
005764 
001445 
011002 


020203 
001407 


000767 


003144'  000004 


1 77776 
000006 
003144' 

OOOOOOG  003152' 
003170' 

OOOOOOG  003176' 
003212' 
OOOOOOG  003220' 


OOOOOOG 


DYDEXP; 


1$; 
?$ 


3$ 


CMP 

BME 

PUSH 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TST 

BLT 

NEG 

TST 

BEQ 

MOV 

CALL 

POP 

CMP 

BEQ 

LDCIF 

STF 

BR 

PUSH 

PUSH 


RESTYP,#. INTEGER  ;source  integer? 

;no,  system  error  -  die! 

;save  regs 

;get  pointer  to  result 

; result  type 

;save  new  result  type 

FRESCT(R1),RESCVT  ;new  store  routine 
LARGTY,R2      ;get  left  arg  type 
FLARGC(R2),LARGCV  ;new  left  fetch  routine 
RARGTY,R2      ;get  right  arg  type 
FRARGC(R2),RARGCV  ;new  right  fetch  routine 


6$ 

<R0,R3,R2,R1> 
SI.VAL(SI),RO 
4f. FLOAT, R1 
R1,RESTYP 


R4 

1$ 

R4 

DYDTA8(R4) 

6$ 

(R0),R2 

GETSM2 

R3 

R2,R3 

3$ 

(R2)^-,AC3 

AC3,(R1)^- 

2$ 

R1 


; negative? 

;yes,  don't  change  it 

;make  it  negative 

;any  routine? 

;nope,  die 

;save  pointer  to  old  data 

;get  new  result  block 

; ending  pointer 

; finished? 

» yes 

;get  integer 

.•store  float 

;  loop 

;save  new  r1 


<-(SI),-(SI),-(SI)>  ;save  new  result  block 


TTTT 


DYDEXP 

MACRO 

DYDEXP 

58  0001 AA 

59  000152 

60  0001 5A 

61 

000162 

62 

0001 6A 

63 

000170 

6A 

000174 

65 

000212 

66 

67 

00021 A 

M1113  08-FEB-80  11:A6  PAGE  AA-1 
EXPAND  INTEGER  RESULT  TO  FLOAT 

026537  177776  003162' 
001 AOA 

026537  177776  00320A' 
001 002 

005065  17777A         A$: 

5$: 


10AA02 


6$: 


K  12 


CMP  SI.VAL(SI),LARG8L  ;same  as  left  arg? 

BEQ  A$  ;yes,  don't  kill 

CMP  SJ.VAL(SI),RARGBL  ;same  as  right  arg? 

BNE  5$  ;no,  kiU  it 

CLR  SJ.BIT(SI)      ;screw  around 

CALL  KILL  :die,  die,  die 

POP  <(SI)+,(SI)+,(SI)*,R1,R2,R3,R0>  ;restore  stuff 

RETURN  ;go,  babe 

SYSERR  ;system  error,   die 


LIT 


L  12 
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DYDEXP  EXPAND   INTEGER  RESULT   TO  FLOAT 

1  000001  .END 
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46-1 

M  1^ 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

C.BLSZ= 

000140 

D.DEAL= 

000003 

EDIT  = 

000003 

AC1   = 

X000001 

CHRLPR= 

000072 

C.BUFF= 

1 77760 

D.DECD= 

000002 

EIS   = 

000000 

AC2   = 

X000002 

CHRMNS= 

000137 

C.BUFL= 

1 77762 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

AC3   = 

X000003 

CHRMUL= 

000075 

C.CCNT= 

1 77766 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

ACA   = 

XOOOOOA 

CHRNE6= 

000100 

C.CPTR= 

1 77764 

D.DQAD= 

1 77777 

EOF   = 

104475 

ACS   = 

X000005 

CHRPDL= 

000271 

C.CZ  = 

001000 

D.DROP= 

000002 

ERRMAX= 

000166 

ALLINT 

00327AR 

025 

CHRPLU= 

000055 

C.DIG  = 

000040 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C.FASW= 

020000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

ASCQUO= 

00OOA2 

CHRQST= 

000121 

C.FLEN= 

000010 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.ALEN= 

000004 

CHRQU0= 

000113 

C.FLSH= 

004000 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

A.ARG  = 

OOOOAO 

CHRRBR= 

000047 

C.FRC  = 

000001 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.ASB  = 

000200 

CHRRPR= 

000042 

C.IDEN= 

000010 

D.FPNT= 

000005 

E%PT 

005060R 

025 

A.BITS= 

000003 

CHRSEM=  000074 

C.NAME= 

000102 

D.FPUT= 

000005 

FA.APD= 

000100 

A. CON  = 

000020 

CHRSW0=  000112 

C.N0BF= 

000400 

D.GE  = 

000000 

FA.CRE= 

000010 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.NUM  = 

000020 

D.GT  = 

000000 

FA.DLK= 

001000 

A.Dim  = 

000006 

CHRUPA= 

000131 

COP  = 

000004 

D.IBM  = 

000002 

FA.ENB= 

100000 

A.NUM  = 

000006 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.IND  = 

000002 

FA.EXC= 

002000 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.RDLN= 

1 77776 

D.INNR= 

000013 

FA.EXT= 

000004 

A.TMP  = 

000010 

CHR.CR= 

00001 5 

C.REWT= 

002000 

D.INTR= 

000006 

FA.NSP= 

000100 

BADDIR= 

104463 

CHR.CZ= 

000032 

C.RND  = 

000010 

D.LE  = 

000000 

FA.NSR= 

000200 

BADERR= 

104437 

CHR.6T= 

000046 

C.S8IT= 

177756 

D.LOG  = 

000001 

FA.POS= 

010000 

BLZBUB 

0051 16R 

025 

CHR.LF= 

000012 

C.SPFX= 

000100 

D.LT  = 

000000 

FA.RD  = 

000001 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C . SPGL= 

000200 

D.MAX  = 

000000 

FA.RWD= 

004000 

CCNT 

005072R 

025 

CHR.SI= 

00001 7 

C . SPLX= 

000001 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C . SPRS= 

000002 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHANOO 

0002S6R 

025 

CHR.SO= 

000016 

C.SRC  = 

1 7777^ 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C.SRCP= 

000024 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN02 

00051 2R 

025 

CHR.UL= 

0001 06 

C.TT  = 

000004 

D.NN  = 

000000 

FA.WRT= 

000002 

CHAN03 

000674R 

025 

CHR..A= 

000141 

C.WIDC= 

1 77770 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.WIDR= 

1 77772 

D.OR  = 

000000 

FD.CCL= 

000002 

CHANGS 

001240R 

025 

CHR..S= 

000163 

DEBUG  = 

000000 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN06 

001422R 

025 

CHR  •  •  T— 

000164 

DEFERR= 

104405 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN07 

001604R 

025 

CHR..U=  000165 

DEVIL 

0051 14R 

025 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN08 

001766R 

025 

CHR..2^- 

0001 72 

DEVNTF= 

104470 

D.QQAD= 

000000 

FD.FTN= 

000001 

CHAN09 

0021 50R 

025 

CHR..0= 

000060 

DIGITS 

000006R 

025 

D.QUAD= 

000000 

FD.F11= 

040000 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIMAX  = 

000020 

D.RES  = 

000000 

FD. INS= 

000010 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DI/«LK 

0031 12R 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN12 

002676R 

025 

CMD8UF 

003250R 

025 

DI/1PTR 

0031 14R 

025 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN13 

000022R 

023 

CMDWAX= 

000010 

DIMTYP 

0031 16R 

025 

D.SCON= 

000006 

FD.OSP= 

004000 

CHANU 

000204R 

023 

CNTSIZ 

0051 30R 

025 

DIRFUL= 

104466 

D.SDIF= 

000006 

FD.PLC= 

000004 

CHNOPN= 

104471 

COIiBIN 

005076R 

025 

DOriERR= 

104417 

D.SUB  = 

000000 

FD.PRN= 

000004 

CHRAND= 

000051 

COMCNT 

0051 26R 

025 

DPTERR= 

104416 

D.SIRS= 

000006 

FD.PSE= 

010000 

CHRBEL= 

000007 

COfiERR= 

104425 

DYDCNT 

003224R 

025 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRBKR= 

000133 

COMPTR 

005122R 

025 

DYDEXP 

OOOOOORG 

020  D.TRAN=  000004 

FD.RAN= 

000002 

CHRBOL= 

000200 

COMRTN 

0031 56R 

025 

DYDTAB= 

*•*«*•  GX 

D.UNON= 

000006 

FD.REC= 

000001 

CHRBOX= 

000114 

COMSKP 

0051 24R 

025 

D.AND  = 

000000 

D.$WAX= 

000000 

FD.RVW= 

000001 

CHRCWA= 

000054 

CORPTR 

005120R 

025 

D.BXCT= 

000007 

D.$MIN=  000000 

FD.SDI= 

000020 

CHRCOL= 

000076 

CS.ASS= 

000200 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRDFL= 

000107 

CS.BOO= 

000010 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.TTY= 

000004 

CHRDIV= 

000053 

CS.FLO= 

000020 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.W8H= 

000002 

CHRDLR= 

000176 

CS. IDN= 

000040 

D.8XPW= 

000007 

D.$S(B= 

000000 

FF.CHR= 

000005 

CHRDLT= 

000110 

CS.ONE= 

000100 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.NV  = 

000003 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.POE= 

000002 

CHREP  = 

000105 

CTMAX 

00021 2R 

025 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHRERR= 

104431 

CTRMAX 

0001 72R 

025 

D.COMP= 

000001 

EDI CHR 

005063R 

025  FF.RWF= 

000006 

CHRFIL= 

000177 

C.ALOC= 

000162 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF.SPC= 

000004 

CHRFRO= 

000135 

C.BLOK= 

000064 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  FHEADR 

00501 2R 

025 
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FHRET 

0050A0R 

025 

F.FFBY= 

000014 

HASHC 

0051 36R 

025  MACHIN= 

000106 

M.RAVL= 

000000 

FILNTF= 

10A467 

F.FLAG= 

000002 

HASHTB 

0051 40R 

025  MAXCHN= 

000014 

M.RCIP= 

000000 

FIS       = 

000000 

F.FLB  = 

000100 

HSHMSK= 

1 77601 

MO^BLK 

0031 20R 

025  M.RDCT= 

00001 1 

FISCON= 

0A6000 

F.FNAM= 

000110 

HSHSIZ= 

000200 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

FIXPTR 

00307AR 

025 

F.FNB  = 

000102 

KHAN 

005050R 

025  MONLEN 

0031 30R 

025  M.R0LL= 

000000 

FLAGS 

004764R 

025 

F.FNDF= 

000010 

ILFNAM= 

104464 

MONPTR 

0031 22R 

025  M.SATA= 

000001 

FLARGC= 

•••*••  GX 

F.FTYP= 

000116 

ILLCHN= 

104540 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

FLCBUF 

003250R 

025 

F.FUN  = 

000010 

ILLSW  = 

104565 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FLINE 

00501 4R 

025 

F.FVER= 

000120 

INDERR= 

104410 

MONVAL 

0031 34R 

025  M.SIGN= 

000000 

FLOEXP 

003270R 

025 

F.HEAD= 

000006 

INNTMP 

003250R 

025  M.ABS  = 

000000 

M.SIBR= 

000001 

FLCMG 

003272R 

025 

F.HIBK= 

000004 

INNTM2 

00501 6R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLSWTB 

000222R 

025 

F.LBL  = 

000020 

INPTR 

000064R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FLTLEN- 

000010 

F.LINE= 

00001 2 

INSNAM= 

104462 

M.BXCR= 

000007 

M.TRAN= 

000012 

FNINSI 

005044R 

025 

F.LOC  = 

000004 

lOERR  = 

104477 

M.BXCT= 

000007 

M.$ABS= 

000000 

FORIGN 

000032R 

025 

F.LSTC= 

000004 

I.CNT  = 

1 77776 

M.BXEX= 

000007 

M.$CEI= 

000000 

FO.Af>D= 

0001  Go 

F.LUN  = 

000042 

I. DIM  = 

1 77772 

M.BXFX= 

000007 

M.$FLR= 

000000 

FO.MFY= 

000002 

F.MBCT= 

000054 

I.LEN  = 

000012 

M.BXIO= 

000007 

M.$IDN= 

000000 

FO.RD  = 

000'X)1 

F.MBC1= 

000055 

I.OERR= 

000062 

M.BXLC= 

000003 

M.$NEG= 

000000 

FO.UPD= 

000006 

F,MBFG= 

000056 

I. OLD  = 

1 77770 

M.BXNC= 

000007 

M.$SI6= 

000000 

FO.WRT= 

000016 

F.MON  = 

000002 

I.PTR  = 

1 7777^ 

M.BXNL= 

000007 

M.1RDT= 

000011 

FPWODE 

0000A2R 

025 

F.NIL  = 

000001 

I. SIR  = 

1 77766 

M.BXPP= 

000007 

M.1REV= 

000003 

FPP   = 

000000 

F.NRBD= 

000024 

KILL     = 

**••••  GX 

M.BXPW= 

000007 

M.1SCN= 

000011 

FPPLEN= 

OOOOOA 

F.NREC= 

000030 

LABERR= 

104406 

M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FRARGC= 

iflt-k-k-klr    GX 

F.OPN  = 

000010 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FREBLK 

007A00R 

025 

F.OVBS= 

000030 

LARGBL 

0031 62R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

FRESCT= 

If-kirltifk    GX 

F.PREV= 

000000 

LARGCV 

0031 76R 

025  M.CEI   = 

1 77777 

NB.NAM=  000004 

FUZZ 

0001 A2R 

025 

F.PRNT= 

100000 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FXPTR1 

003076R 

025 

F.PROT= 

010000 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

F$EVAL= 

000100 

F.RACC= 

000016 

LARGLN 

0031 66R 

025  M.DOUT= 

000006 

NB.SNM=  000040 

FSEVI  = 

000200 

F.RATT= 

000001 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$EXEC= 

OOOAOO 

F.RCNM= 

000034 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F$FUNC= 

001000 

F.RCTL= 

00001 7 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F.ACTL= 

000076 

F.READ= 

004000 

LARGVA 

0032C0R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F.ALOC= 

000040 

F.REDF= 

000040 

LBINC 

0051 OOR 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.RRFS= 

000062 

F.RES  = 

000040 

LBUFF 

00331 6R 

025  M.FIL  = 

0001 77 

ND.EXT= 

000002 

F.BOB  = 

000070 

F.RET  = 

177772 

LBUFLN= 

000621 

M.FLR  = 

177777 

ND.NAM= 

000004 

F.BGBC= 

000057 

F.RSIZ= 

000002 

L COUNT 

005106R 

025  M.FMT  = 

000004 

ND.PPN=  000100 

F.BITS= 

1 7777^ 

F.RTYP= 

000000 

LENERR= 

104412 

M.6DUP= 

000003 

ND.$EX= 

000000 

F.BK.DN= 

000026 

F.R2     = 

000014 

LENTAB 

000054R 

025  M.6DWN= 

000003 

ND.$E$= 

000020 

F.BKDS= 

000020 

F.R3     = 

000016 

LEXPTR 

0031 OOR 

025  M.6ETI= 

000006 

ND.$NM=  000000 

F.BKEF= 

000050 

F.o/;     = 

000020 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$= 

000040 

F.BKP1= 

000051 

F.SEUN^ 

000100 

LINC 

005102R 

025  M.IDN  = 

000000 

ND. $PN=  001400 

F.Bi<ST= 

000024 

F . SPDV= 

000072 

LINE 

00501 6R 

025  M.INSP= 

000006 

NE6SGN 

005063R 

025 

F.BK\/B= 

000064 

F.SPUN= 

000074 

LININC 

005026R 

025  M.IOTA= 

000000 

NTNPT1 

003302R 

025 

F.BR     = 

000020 

F.STBK= 

000036 

LISIZE= 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.CHR  = 

000075 

F.STK  = 

000022 

LITOP 

005072R 

025  M.LN     = 

000001 

NINSTK 

003304R 

025 

F . CNTG= 

000034 

F.STOP-- 

000004 

LNLNG  = 

104541 

M.MMD  = 

000010 

NINTMP 

00331 OR 

025 

F.CO0E= 

000010 

F.STP  = 

000001 

LOCLCT 

005036R 

025  M.NE6  = 

000000 

NINTYP 

003^06R 

025 

F.DF^B= 

000046 

F . SUSP= 

000002 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

NOTAVL= 

104s ^2 

F.DSPT= 

000044 

F.TRC  = 

000002 

LSTERP 

004766R 

025  M.NUB  = 

000006 

NOTOPN= 

104473 

f.o\/m= 

000134 

F.UNIT= 

000136 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

NPRT1 

004762R 

025 

F.EFBK= 

000010 

F.URBD= 

000020 

L.8ITS= 

000003 

M.OUTR= 

000012 

NULL 

007364R 

025 

F.EFN  = 

000050 

F.VAL  = 

1 77776 

L.CNT  = 

000002 

M.PITM= 

000000 

NUMCHN= 

000020 

F.END  = 

002000 

F.vaN  = 

000064 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

F.Enm=-- 

000032 

F . VBSZ= 

000060 

L.PTR  = 

000000 

M.QQAD= 

000000 

NUMEFL 

003233R 

025 

F.ERR  = 

0OOC32 

GETSM2= 

•••**♦  GX 

L.PTR1= 

000004 

M.QUAD= 

000000 

NUMESN 

003236R 

025 

F.FACC= 

000043 

GNOME 

003I02R 

025  L.SU8S= 

000002 

M.RAND= 

000012 

NUMFLG 

003230R 

025 
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NUMLEN 

000062R 

025 

PRECSN 

000052R 

025 

R.LNUM= 

000010 

SY.8S  = 

000010 

T.MON  = 

000010 

I^UMNEG 

003232R 

025 

RANDAC 

003064R 

025 

R.NEXT= 

000006 

SY.CLR= 

000040 

T.NIL  = 

000004 

NUMQFL 

00323AR 

025 

RAND^ 

003062R 

025 

R.OFF  = 

000000 

SY.ERP= 

000020 

T.NUM  = 

002000 

NUMRIG 

003231 R 

025 

RANERR= 

104411 

R.PREV= 

000004 

SY.NOU= 

000100 

T.0PFN= 

000001 

NUMWID 

003226R 

025 

RARGBL 

003204R 

025 

R.PTR  = 

000000 

SY.OPN= 

000002 

T.OTHR= 

040000 

NUMZFL 

003235R 

025 

RAR^CV 

003220R 

025 

R.SEQ  = 

000003 

SY.PM^= 

001000 

T.SOP  = 

000002 

NYIERR= 

10A432 

RAfuFL 

003202R 

025 

R.VAR  = 

000002 

SY.SRT= 

000400 

T.SPOP= 

000040 

N.BLSZ= 

000036 

RAf'^GLE 

00321 6R 

025 

R6 

X000006 

SY.SVC= 

000004 

T.TMP  = 

000200 

N.DESC= 

000020 

RA^GLN 

00321  OR 

025 

R7 

Z000007 

SY.SVL= 

000200 

T.VAL  = 

100000 

N.DEV  = 

000032 

RAR6PT 

003206R 

025 

SI 

Z000005 

S.AB     = 

1 77776 

T.VAR  = 

001000 

N.DEVN= 

00003A 

R-\RGSF 

00321 4R 

025 

SIDAMN= 

104433 

S.AS8  = 

100000 

UPPER  = 

1 77400 

N.DID  = 

00002A 

FARGTY 

00321 2R 

025 

SIFRAM 

00331 4R 

025 

S.8FHD= 

000020 

UTNAME 

000344R 

023 

N.DVhft: 

00C032 

RARGVA 

003222R 

025 

SISTAK 

006350R 

025 

S.8ITS= 

000002 

VALERR= 

104413 

N.EXT  = 

OOOOU 

RBASE 

005074R 

025 

SI  TOP 

006346R 

025 

S.CHR1= 

000003 

VAR8LE 

007400R 

025 

N.FID  = 

000000 

RCOUNR 

0051 12R 

025 

SITP 

0071 44R 

025 

S.FATT= 

000016 

VARBLS 

OOOOOOR 

025 

N.FNAM=  000006 

RCOUNT 

00511  OR 

025 

SIWARN= 

000200 

S.FD8  = 

000140 

VERNUW 

OOOOOOR 

025 

N.FTYP=  00001A 

REDCNT 

005070R 

025 

SIZTAB 

000044R 

025 

S.FLB  = 

040000 

VRSION= 

000002 

N.FVER= 

000016 

REDIGN 

005066R 

025 

SI.8IT= 

1 7777^ 

S.FNAM= 

000006 

WIDTH 

000072R 

025 

N.NAME= 

000006 

REDOFF 

005072R 

025 

SI.LEN= 

1 77772 

S.FNB  = 

000036 

WROUND 

000020R 

025 

N.NEXT= 

000022 

REENTR 

003060R 

025 

SI.RET= 

1 77772 

S.FNBW= 

00001 7 

WSDATE 

0001 36R 

025 

N.PPN  = 

000024 

RESBIT 

0031 42R 

025 

SI.VAL= 

1 77776 

S.FNTY= 

000004 

WSFULL= 

104403 

N.STAT= 

000020 

RESCVT 

0031 52R 

025 

SKPSIZ 

0051 34R 

025 

S.FTYP= 

000002 

WSNAME 

000074R 

025 

N.UNIT= 

00003A 

RESERR= 

104440 

SPHOLD 

000004R 

024 

S.LEN  = 

000002 

WSTIME 

0001 32R 

025 

nBUFLN= 

001000 

RESLEN 

0031 50R 

025 

SPINIT 

000002R 

024 

S.LINK= 

1 7777^ 

$FIS     = 

*•*•••  Q 

OCHAN 

005052R 

025 

RESPTR 

0031 40R 

025 

STKINC= 

000774 

S.NFEN- 

000020 

$fPP     = 

••••••  G 

OMODE 

000A02R 

023 

RESSFT 

0031 46R 

025 

STOP     = 

104420 

S.TYPE= 

140000 

$FPPLN= 

<rt»r<r***  G 

CFTMPO 

005066R 

025 

RESTYP 

0031 44R 

025 

SUBCNT 

0031 04R 

025 

S.VAL  = 

000000 

$LDCIF= 

••••••  GX 

0PTMP1 

005070R 

025 

RESULT 

003136R 

025 

SUBDCT 

0031 06R 

025 

TKDIMS 

005072R 

025  $MACHN= 

••••••  G 

0PTI1P2 

005072R 

025 

RESVAL 

0031 54R 

025 

SIRPTR 

00311  OR 

025 

TKFRAM 

005066R 

025  $RSTS  = 

•••..*•  G 

0PTI1P3 

00507AR 

025 

RINC 

005104R 

025 

SY/1B1 

005344R 

025 

TKLEFT 

005070R 

025  $RSX     = 

*•**••  G 

0PTMP4 

005076R 

025 

RLTBAS 

005066R 

025 

SYMF 

005340R 

025 

TMODE 

000403R 

023  $RT11   = 

••*••*  G 

0PTMP5 

0051 OOR 

025 

ROTINC 

005070R 

025 

SYMPT1 

005346R 

025 

TMPTAG= 

000166 

$STF     = 

••••••  GX 

0PTMP6 

0051 02R 

025 

ROUND 

00001  OR 

025 

SYMTAB 

005352R 

025 

TTYBUF 

0041 40R 

025   .BOOLE= 

000002 

0PJfT7 

005104R 

025 

ROVER 

0033 12R 

025 

SYMTBF= 

1 04404 

TTYLEN= 

000622 

.CHARA= 

000000 

0PTMP8 

005106R 

025 

RSTS     = 

000000 

SYMTOP 

005350R 

025 

TURKEY= 

104436 

.DEF.    = 

000002 

0PTMP9 

00511  OR 

025 

RSX       = 

000115 

SYMTP 

006272R 

025 

TYPE     = 

000166 

.FLOAT= 

000006 

OPTM10 

0051 12R 

025 

RTOP 

005070R 

025 

SYMWRN= 

000054 

T.80L  = 

020000 

.FSRC8= 

Kifkitlfk     G 

0PTW1A 

005026R 

025 

RT11      = 

000000 

SYNERR= 

104407 

T.CON  = 

004000 

.INTEG= 

000004 

ORIGIN 

000030R 

025 

R.BITS= 

000003 

SYSERR= 

104402 

T.DIM  = 

000100 

.MOLUN 

000404R 

023 

OUTPTR 

000066R 

025 

R.FIX  = 

000001 

SYSTAT 

OOOOOOR 

024 

T.FUN  = 

010000 

...GBL= 

000000 

OVROPR= 

000000 

R.LCT  = 

000002 

SY.BAD= 

000001 

T.LIST= 

000400 

...TPC= 

000020 

PATCH 

00754AR 

025 

R.LN     = 

000002 

SY.BRK= 

1 00000 

T.LIT  = 

000020 

.   ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

OYDTB 

000000 

00^ 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYD6TB 

000000 

007 

COWTB 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVR TBL 

000000 

014 

TRNTBL 

000000 

015 

D> 
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SYMBOL   FABLE 

MNTBL       000000 

016 

MNTRTL     000000 

017 

CODE         000216 

020 

PATCH       000000 

021 

SSFSRI     000000 

022 

DEFSO       000A06 

023 

DEFSI       000006 

024 

DEF$2       007400 

025 

ERRORS  DETECTED 

:     0 

VIRTUAL  MEMORY 

USED:      12958  WORDS      (   51    PAGES) 

DYNAMIC  MEMORY: 

14478  WORDS      (   55  PAGES) 
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1 

000000 

2 

000000 

3 

0001 1 5 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

000004 

10 

11 

000000 

RT11 
RSTS 
RSX 

=     0 
=     0 
=   'M 

EIS 
FIS 
FPP 

ooo 

II  II  II 

F PPL EN 

=     4 

DEBUG 

=     0 
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;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

;SINGLE  PRECISION 

; DON'T  DISPLAY  REGISTERS  ON  ERRORS 
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2513 


.LIST     SEQ,SRC,LOC,BIN,BEX,MEB 
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PAGE  44 

DEFINITIONS 

ERRORS 

1 

.TITLE     DYDRT 

2 
3 

5 

.IDENT     \V02.03\ 

.SBTTL     CONVERSION             DYADIC   LEFT,    TO  FLOAT 

6 
7 
8 
9  000000 

;    <BOOLEAN>       =>  ACI 

[FLOATING  POINT) 

.PSECT     CODE 

10 

11   000000 

FDL.BF;: 

13  000000 

CLRF         ACI 

; CLEAR  ACI 

14  000006 

105712 

TSTB          (R2) 

; CHECK  SOURCE 

15  000010 

001 404 

BEQ           1$ 

;IT  IS  ZERO 

16  000012 

LDF           M^F^.OAa 

;LOAD  A  1. 

2A  000022 

063702 

003160* 

1$:            ADD           LARGFL,R2 

; INCREMENT  POINTER 

25  000026 

RETURN 

; FINISHED 

26 

27 

28 

;   <INTEGER>       =>  ACI 

[FLOATING  POINT) 

29 

30  000030 

FDL.JF:: 

32  000030 

LDCJF        (R2),AC1 

;GET  SOURCE 

A6  000036 

063702 

003 1 60' 

ADD            LARGFL,R2 

;  INCREMENT 

47  000042 

RETURN 

;  FINISHED 

48 

49 

50 

;    <FLOAT>            =>  ACI 

(FLOATING  POINT) 

51 

52  000044 

FDL.FF;: 

54  000044 

LDF            (R2),AC1 

;GET  SOURCE 

59  000052 

063702 

003160* 

ADD            LARGFL,R2 

;ADD   TO  POINTER 

60  000056 

RETURN 

;  FINISHED 

r\v/rsrkT 
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62 

63 

64 

65 

66 

67 

68  000060 

69 

70  000060 

71  000060 

72  000060 

73  000064 

74  000070 

75  000074 
76 

77 
78 
79 

80  000076 

81  000076 

82  000102 

83  000110 

84  000112 

85  000116 

86  000120 
87 

88 

89 

90 

91  000122 

93  000122 

98  000130 

99  00013A 

100  000136 

101  000144 

102  000146 

103  000154 

104  000160 
105 

106 
107 
108 
109 

110  000162 

111  000162 

112  000166 

113  000170 

114  000172 

115  000176 

116  000202 
117 

118 
119 
120 

121  000204 

122  000204 

123  000210 


.S8TTL  CONVERSION 


FTT 


DYADIC  LEFT,  TO  BOOLEAN 


<BOOLEAN>  =>  LARGVA         (BOOLEAN) 
(This  also  works  for  Character) 


.PSECT  CODE 


111237  003200' 
105037  003201' 
063702  003160' 


FDL.CC:: 
FDL.BB:: 


MOVB 
CLRB 
ADD 
RETURN 


(R2), LARGVA 

LARGVA^-1 

LARGFL,R2 


<INTE6ER>  =>  LARGVA 


011237  003200* 

032737  1 7777(,     003200 ' 

001003 

063702  003160' 

104417 


FDL.I8: 


1$; 


MOV 

BIT 

BNE 

ADD 

RETURN 

DOMERR 


(R2),LAR  M 
*^C1, LARGVA 
1$ 
LARGFL,R2 


;  <FLOAT> 
FDL.F8:: 


=>  LARGVA 


104417 
032737 
001373 
013737 
063702 


177776  003154' 

003154'  003200' 
003160' 


1$: 


LDF 

CALL 

DOMERR 

BIT 

BNE 

MOV 

ADD 

RETURN 


(R2),AC0 
F.TO.I 

#^C1,RESVAL 

1$ 

RES VAL, LARGVA 

LARGFL,R2 


.S8TTL  CONVERSION      DYADIC 
;  <BOOLEAN>  =>  LARGVA 


005037 
105712 
001402 
005237 
063702 


003200' 


003200 ' 
003160' 


FDL.BI 


1$ 


CLR 

TST8 

BEQ 

INC 

ADD 

RETURN 


LARGVA 

(R2) 

1$ 

LARGVA 

LARGFL,R2 


011237  003200' 
063702  003160' 


<INTEGER> 

FDL. II : : 

MOV 
ADD 


=>  LARGVA 


(R2), LARGVA 
LARGFL,R2 


TRANSFER 

Clear  upper  byte  so  compares  are  unsigned 

INCREMENT  POINTER 


(BOOLEAN) 


; TRANSFER 

;HOW  ARE  THE  BITS? 

; WON'T  WORK 

; INCREMENT  POINTER 

; DOMAIN  ERROR 


(BOOLEAN) 


GET  DATA 

CONVERT 

ERROR 

ANY  HIGH  BITS  SET? 

YES,  ERROR 

TRANFER  IT 

INCREMENT  POINTER 


LEFT,  TO  INTEGER 
(INTEGER) 


ASSUME  0 

IS  IT  ZERO? 

YES 

NO,  IT'S  A  1 

INCREMENT  POINTER 


(INTEGER) 


; TRANSFER 

; INCREMENT  POINTER 


TTT 
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riT 


12A  000214 

125 

126 

127 

128 

129  000216 

131  000216 

136  00022A 

137  000230 

138  000232 

139  000240 

140  000244 
141 

142 
143 
144 
145 

146  000246 

147  000246 

148  000246 

149  000246 

150  000252 

151  000254 

152  000260 

153  000262 

154  000264 

155  000270 

156  000276 

157  000302 


RETURN 


104417 

013737  003154*  003200* 

063702  003160* 


;  <FLOAT>   => 

LAR6VA 

FDL.FI:: 

LDF 

(R2),AC0 

CALL 

F.TO.I 

DOMERR 

MOV 

RESVAL,LARGVA 

ADD 

LARGFL,R2 

RETURN 

020427  OOOOOOG 

001404 

020427  OOOOOOG 

001401 

104417 

005037  003200' 

063702  003160* 


(INTEGER) 

GET  FP  NUMBER 
CONVERT 
DOMAIN  ERROR 
TRANSFER  IT 
INCREMENT  POINTER 
AND  RETURN 

SBTTL  CONVERSION      DYADIC  LEFT,  FROM  CHARACTER 

<CHARACTER>   =>  LARGVA       (BOOLEAN,  INTEGER,  FLOATING) 

FDL.CB 
FDL.CI 
FDL.CF.. 

;Is  the  function  tqual  ' 

;Yes 

;Is  the  function  'Mot  Equal" 

;Yes 

;No,  Then  Domain  error 
1$:     "CLR     LARGVA         ;Make  it  zero  just  in  case 

;FLoating  one  too 

; Increment  the  argtiment  pointer 
RETURN 


CMP 

R4,#0P.EQU 

BEQ 

1$ 

CMP 

R4,/!^0P.NEQ 

BEQ 

1$ 

DOMERR 

CLR 

LARGVA 

CLRF 

AC1 

ADD 

LARGFL,R2 

m"TT 
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CONVERSION 

DYADIC  RIGHT,  TO  FLOAT 

159 

.SBTTL  CONVERSION      DYADIC 

RIGHT,  TO  FLOAT 

160 

161 

162 

;   <B00LEAN>       =>  AC2 

(FLOATING  POINT) 

163 

16A  00030A 

.PSECT     CODE 

165 

166  00030A 

FDR.BF:: 

168  00030A 

CLRF    AC2 

; CLEAR  AC2 

169  000312 

105713                                                     TST8         (R3) 

; CHECK  SOURCE 

170  000314 

001404                                                     BEQ           1$ 

;IT  IS  ZERO 

171   000316 

LDF     *^F1.0,AC2 

;LOAD  A  1. 

179  000326 

063703  003202'        1$:     ADD     RARGFL,R3 

.•INCREMENT  POINTER 

180  000332 

RETURN 

.-FINISHED 

181 

182 

183 

;  <INTFGER>   =>  AC2 

(FLOATING  POINT) 

18A 

185  00033A 

FDR. IF:: 

186  000334 

LDCIF   (R3),AC2 

;6ET  SOURCE 

187  000342 

063703  003202'               ADD     RARGFL,R3 

.-INCREMENT  POINTER 

188  000346 

RETURN 

.-FINISHED 

189 

190 

191 

;  <FLOAT>     =>  AC2 

(FLOATING  POINT) 

192 

193  000350 

FDR.FF:: 

194  000350 

LDF     (R3),AC2 

;GET  SOURCE 

195  0OG356 

063703  003202'               ADD     RAR6FL,R3 

.•INCREMENT  POINTER 

196  0003b. 

RETURN 

.•FINISHED 

197 

¥1T 
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CONVERSION 

DYADIC 

RIGHT,  TO  INTEGER 

199 

.SBTTL  CONVERSION     DYADIC  RIGHT,  TO  INTEGER 

200 

ZC 

• 

202 

;  <BOOLEAN>  => 

RARGVA 

(INTEGER) 

203 

• 
0 

20A  00036^ 

.PSECT 

CODE 

205 

206  00036A 

FDR.BI:: 

207  00036A 

005037 

003222 ' 

CLR 

RARGVA 

;ASSUME  0 

208  000370 

105713 

TSTB 

(R3) 

;IS  IT  ZERO? 

209  000372 

001402 

BEQ 

1$ 

;YES 

210  000374 

005237 

003222* 

INC 

RARGVA 

;N0,  SET  IT  TO  1 

211  000400 

063703 

003202 • 

1$:     ADD 

RARGFL,R3 

; INCREMENT  POINTER 

212  000404 

RETURN 

213 

214 

• 
# 

215 

;  <INTEGER>  => 

RARGVA 

(INTEGER) 

216 

# 

217  000406 

FDR. II :: 

218  000406 

011337 

003222' 

MOV 

(R3), RARGVA 

:COPY  DATA 

219  000412 

063703 

003202 ' 

ADD 

RARGFL,R3 

; INCREMENT  POINTER 

220  000416 

RETURN 

221 

222 

• 

223 

;  <FLOAT>    => 

RARGVA 

(INTEGER) 

224 

• 

225  000420 

FDR. FI :: 

226  000420 

LDF 

(R3),AC0 

;FETCH  ARG 

227  000426 

CALL 

F.TO.I 

: CONVERT  TO  INTEGER 

228  000432 

104417 

DOMERR 

; DIDN'T  GO 

229  000434 

013737 

003154' 

003222' 

MOV 

RESVAL, RARGVA   \ 

;COPY  IT 

230  000442 

063703 

003202 ' 

ADD 

RARGFL,R3 

: INCREMENT  POINTER 

231  000446 

RETURN 

232 

233 

. SBTTL   CONVERSION      DYADIC  RIGHT,  TO  BOOLEAN 

234 

• 

235 

;  <BOOLEAN>  => 

RARGVA 

(BOOLEAN) 

236 

(This  a 

Iso  works  for  Character) 

237 

238  000450 

FDR.BC:: 

; Spec  i  a  I 

fudge  for  "-"  reduction 

239  000450 

FDR.CC;: 

240  000450 

FDR.BB:: 

241  000450 

111337 

003222 ' 

M0V8 

(R3), RARGVA 

; TRANSFER 

242  000454 

105037 

003223' 

CLR6 

RARGVA+1 

; Clear  upper  byte  so  compares 
; INCREMENT  POINTER 

are  unsigned 

243  000460 

063703 

003202 ' 

ADD 

RARGFL,R3 

244  000464 

RETURN 

245 

246 

• 

0 

247 

;  <INTEGER>  => 

RARGVA 

[BOOLEAN) 

248 

• 

249  000466 

FDR. IB:; 

250  000466 

011337 

0032<^2' 

MOV 

(R3), RARGVA 

;TRANSI-ER 

251  000^72 

032737 

1 77776 

003222' 

BIT 

#^ CI, RARGVA 

•CHECK  HIGH  BITS 

2^2   000500 

001003 

BNE 

1$ 

;NOPE,  DIDN'T  WORK 

253  000502 

063703 

003202 • 

ADD 

RARGFL,R3 

; INCREMENT  POINTER 

254  000506 

RETURN 

255  000510 

104417 

1$:     DOMERR 

t 

; WON'T  CONVERT 

DYDRT   MACRO 
CONVERSION 

256 
257 
258 
259 

260  000512 

261  000512 

262  000520 

263  00052A  104417 
26A  000526  032737 

265  00053A  001373 

266  000536  013737 

267  000544  063703 

268  000550 
269 
270 
271 
272 
273 

274  000552 

275  000552 

276  000552 

277  000552 

278  000556 

279  000560 

280  000564 

281  000566 

282  000570 

283  000574 

284  000602 

285  000606 
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TT^ 


EC 
ES 


;  <FLOAT> 
FDR.FB:: 


=>  RARGVA 


1 7771 t 

003154' 
003202' 


003154' 
003222' 


1$: 


LDF 

CALL 

DOMERR 

BIT 

BNE 

MOV 

ADD 

RETURN 


(R3),AC0 
F.TO.I 

#^C1,RESVAL 

1$ 

RESVAL, RARGVA 

RARGFL,R3 


.S8TTL   CONVERSION      DYADIC 
;  <CHARACTER>   =>  RARGVA 


(BOOLEAN) 


GET  THE  VALUE 

CONVERT  IT 

ROUND  PEG  \n   SQUARE  HOLE 

CHECK  THOSE  BITS 

CANNOT  FORCE  \^ 

COPY  TO  CORRECT  PLACE 

INCREMENT  POINTER 


RTGHT,  FROM  CHARACTER 
(BOOLEAN,  INTEGER,  FLOATING) 


020427 
001404 
020427 
001401 
104417 
005037 

063703 


OOOOOOG 
OOOOOOG 

003222' 
003202 ' 


FDR.CB:: 

FDR.CI:: 

FDR.CF:: 

CMP 

R4,4fOP.EQU 

BEU 

1$ 

CMP 

R4,#0P.NEQ 

BEQ 

1$ 

DOMERR 

1$:            CLR 

RARGVA 

CLRF 

AC2 

ADD 

RARGFL,R3 

RETURN 

Is  the  function  "Equal" 

Yes 

Is   the   function  '>Jot  Equal' 

Yes 

No,  Then  Domain  Error 

Make  it  zero  just  in  case 

F loating  one  too 

Increment  argument  pointer 


r>vr\DT 
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287  000000 

288 

289 

290  000000  LARGCT:: 

291  000000  CLARGC:: 

292  000000  000060'  OOOOOOG  OOOOOOG 
000006  OOOOOOG 

293  000010  BLARGC:: 

294  000010  000246'  000060'  000076' 
000016  000122' 

295  000C20  ILARGC:: 
2%  000020  000246'  000162'  000204' 

000026  000216' 

297  000030  FLARGC:: 

298  000030  000246'  000000'  000030' 
000036  000044' 

299 

300  000040  RARGCT:: 

301  000040  CRARGC:: 

302  000040  000450'  000450'  OOOOOOG 
000046  OOOOOOG 

303  000050  BRARGC:: 

304  000050  000552'  000450'  000466' 
000056  000512' 

305  000060  IRARGC:: 

306  000060  000552'  000364'  000406' 
000066  000420' 

307  000070  FRARGC:: 

308  000070  000552'  000304'  000334' 
000076  000350' 


C  14 


PSECT  TABLES 
EVEN 


WORD   FDL.CC,  DOMER,  DOMER,  DOMER 


WORD   FDL.CB,  FDL.BB,  FDL.IB,  FDL.FB 


WORD   FDL.CI,  FDL.BI,  FDL.JI,  FDL. FI 


WORD   FDL.CF,  FDL.BF,  FDL. IF,  FDL.FF 


WORD   FDR.CC,  FDR.BC,  DOMER,  DOMER 


WORD   FDR.CB,  FDR.BB,  FDR. IB,  FDR.FB 


WORD   FDR. CI,  FDR.BI,  FDR. II,  FDR.FI 


WORD   FDR.CF,  FDR.BF,  FDR. IF,  FDR.FF 


r>vr>DT   MAron  miii?  na~rpp»«n  ii  ar  PAr,F  c;n 
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D  U 


1 


000001 


.END 


E( 

A( 

A( 
Al 
Al 

Al 
Al 
Al 
Al 

a: 

A 
A 
A 

A 
A 
A 
A 

A 

a 

B 
B 
B 
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E  U 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRFIL= 

0001 11 

CTMAX 

00021 2R 

025 

D.C0MP= 

000001 

EDICHR 

005063R 

025 

AC1   = 

X000001 

CHRFRO= 

000135 

CTRMAX 

0001 72R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025 

AC2   = 

X000002 

CHRLBR= 

000073 

C.ALOC= 

000162 

D.CTLM= 

000000 

EDIFLG 

005062R 

025 

AC3   = 

X000003 

CHRLPR= 

000072 

C.BLOK= 

000064 

D.DEAL= 

000003 

EDIT  = 

000003 

AC4   = 

XOOOOGA 

CHRMNS= 

000137 

C.BLSZ= 

000140 

D.DECD= 

000002 

EIS   = 

000000 

ACS   = 

X000005 

CHRMUL= 

000075 

C.8UFF= 

1 77760 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

ALL I NT 

00327AR 

025 

CHRNEG= 

000100 

C.8UFL= 

1 llltl 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

ARYRET 

003276R 

025 

CHRPDL= 

000271 

C.CCNT= 

1 77766 

D.DQAD= 

1 11111 

EOF   = 

104475 

ASCQUO=  0000A2 

CHRPLU=  000055 

C.CPTR= 

1 77764 

D.DROP= 

000002 

ERRMAX= 

000166 

A.ALEN=  OOOOOA 

CHRPWR= 

0001 20 

C.CZ  = 

001000 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

A.ARG  = 

000040 

CHRQST= 

000121 

C.DIG  = 

000040 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

A.ASB  = 

000200 

CHRQUO=  000113 

C.FASW= 

020000 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.BITS= 

000003 

CHRR8R= 

000047 

C.FLEN= 

000010 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

A. CON  = 

000020 

CHRRPR= 

000042 

C.FLSH= 

004000 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.DIMS= 

000002 

CHRSEM=  000074 

C.FRC  = 

000001 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.DIM1  = 

000006 

CHRSMO= 

0U0112 

C.JDEN=  000010 

D.FPUT= 

000005 

FA.APD= 

000100 

A.NUM  = 

000006 

CHRSPA= 

000040 

C.NAME= 

000102 

D.GE  = 

000000 

FA.CRE= 

000010 

A.PTR  = 

000000 

CHRUPA= 

000131 

C.N0BF= 

000400 

D.GT  = 

000000 

FA.DLK= 

001000 

A.TIXP  = 

000010 

CHR.BS= 

000010 

C.NUM  = 

000020 

D.IBM  = 

000002 

FA.ENB= 

100000 

BADD1R= 

104A63 

CHR.CC= 

000003 

COP  = 

000004 

D.IND  = 

000002 

FA.EXC= 

002000 

BADERR= 

104437 

CHR.CR= 

000015 

C.OPN  = 

010000 

D.INNR= 

000013 

FA.EXT= 

000004 

BLARGC 

00001 ORG 

002 

CHR.CZ= 

000032 

C.RDLN= 

1 1111 t 

D.INTR= 

000006 

FA.NSP= 

000100 

BLZBUB 

0051 16R 

025 

CHR.GT= 

000046 

C.REWT= 

002000 

D.LE  = 

000000 

FA.NSR- 

000200 

BRARGC 

000050RG 

002 

CHR.LF= 

000012 

C.RND  = 

000010 

D.LOG  = 

000001 

FA.POS= 

010000 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.S8IT= 

177756 

D.LT  = 

000000 

FA.RD  = 

000001 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C.SPFX= 

000100 

D.MAX  = 

000000 

FA.RWD= 

004000 

CHA^€X 

003060R 

025 

CHR.SL= 

000057 

C.SPGL= 

000200 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C.SPLX= 

000001 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C.SPRS= 

000002 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.SRC  = 

1  mm 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN03 

000674R 

025 

CHn . . A— 

000141 

C.SRCP= 

000024 

D.NN  = 

000000 

FA.WRT= 

000002 

CHANOA 

001056R 

025 

CHR..E= 

000145 

C.TT  = 

000004 

D.NR  = 

000000 

FDL.BB 

000060R6 

020 

CHANGS 

001240R 

025 

LnK • ■ J— 

000163 

C.WIDC= 

177770 

D.OR  = 

000000 

FDL.BF 

0OOOOOR6 

020 

CHAN06 

001422R 

025 

CHR..T= 

000164 

C.WIDR= 

1 11112 

D.PLUS= 

000000 

FDL.BI 

0001 62RG 

020 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEBUG  = 

000000 

D.PSUB= 

000006 

FDL.CB 

000246RG 

020 

CHAN08 

001766R 

025 

LHn. . L~ 

000172 

DEFERR= 

104405 

D.PWR  = 

000001 

FDL.CC 

000060RG 

020 

CHAN09 

0021 50R 

025 

CHRe.0= 

000060 

DEVIL 

0051 14R 

025 

D.QQAD= 

000000 

FDL.CF 

000246RG 

020 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DEVNTF= 

104470 

D.QUAD= 

000000 

FDL.CI 

000246RG 

020 

CHAN11 

00251 4R 

025 

CH.ANO= 

000001 

DIGITS 

000006R 

025  D.RES  = 

000000 

FDL.F8 

0001 22RG 

020 

CHAN12 

002676R 

025 

CLARGC 

00OO00R6 

002 

DIMAX  = 

000020 

D.RHO  = 

000000 

FDL. FF 

000044RG 

020 

CHAN13 

000022R 

023 

CMD8UF 

003250R 

025 

DIMBLK 

0031 12R 

025  D.ROT  = 

000003 

FDL.FI 

00021 6RG 

020 

CHAN14 

000204R 

023 

CMDMAX= 

000010 

DIMPTR 

0031 14R 

025 

D.SCON= 

000006 

FDL. IB 

000076R6 

020 

CHNOPN= 

104471 

CNTSIZ 

0051 30R 

025 

DIMTYP 

0031 16R 

025  D.SDIF= 

000006 

FDL. IF 

000030RG 

020 

CHRAND= 

000051 

COMBIN 

005076R 

025 

DIRFUL= 

104466 

D.SUB  = 

000000 

FDL. II 

000204RG 

020 

CHRBEL= 

000007 

COMCNT 

005126R 

025  DOMER  = 

**••*•  GX 

D.SUBS= 

000006 

FDR.RR 

000450RG 

020 

CHR8KR= 

000133 

COMERR= 

104425 

DOMERR= 

104417 

D.TAKE= 

000002 

FDR.BC 

000450RG 

020 

CHRBOL= 

000200 

COMPTR 

005122R 

025 

DPTERR= 

104416 

D.TRAN=  000004 

FDR.BF 

000304RG 

020 

CHRBOX= 

000114 

COMRTN 

0031 56R 

025 

DYDCNT 

003224R 

025  D.UNON= 

000006 

FDR.BI 

000364RG 

020 

CHRCMA= 

000054 

COMSKP 

005124R 

025 

D.A^'>  = 

000000 

D.$MAX= 

000000 

FDR.CB 

000552RG 

020 

CHRCOL= 

000076 

CORPTR 

005120R 

025 

D.8XcT= 

000007 

D.$MIN= 

000000 

FDR.CC 

000450RG 

020 

CHRDEL= 

000107 

CRAR6C 

000040R6 

002  D.8XI0= 

000007 

D.$MUL= 

000000 

FDR.CF 

0OO552RG 

020 

CHRDIV= 

000053 

CS.ASS= 

000200 

D.8XNL= 

000007 

D.$PLU= 

000000 

FDR. CI 

0OOS52RG 

020 

CHRDLR= 

000176 

CS.BOO= 

000010 

D.BXPP= 

000007 

D.$RES= 

000000 

FDR.FB 

00051 2RG 

020 

CHRDLT= 

000110 

CS.FLO= 

000020 

D.BXPW= 

000007 

D.$SU8= 

000000 

FDR. FF 

0OO350RG 

020 

CHRDOT= 

000056 

CS.IDN^  000040 

D.8XRL= 

000007 

D.1C0M= 

000001 

FDR.FI 

0OO420RG 

020 

CHREP  = 

000105 

CS.ONE= 

000100 

D.CIRC= 

000001 

D.1EXP= 

000002 

FDR. IB 

000466RG 

020 

CHRERR= 

104431 

CTEPS 

0001 52R 

025 

D.C0I1B= 

000001 

D.1R0T= 

000003 

FDR. IF 

000334RG 

020 

r\\/r\riT 
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F  U 

SYMBOL  TABLE 

FDR. I I  000A06RG 

020 

F$EVAL= 

000100 

F.RACC= 

000016 

LAR6FL 

003160R 

025  M.CHR  = 

000202 

FD.BLK=  000010 

F$EVI  = 

000200 

F.RATT= 

000001 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

FD.CCL=  000002 

F$EXEC= 

000400 

F.RCNM= 

000034 

LARGLN 

0031 66R 

025  M.D0UT= 

000006 

FD.COM=  020000 

F$FUNC= 

001000 

F.RCTL= 

00001 7 

LAR6PT 

0031 64R 

025  M.DQAD= 

000006 

FD.CR  =  000002 

F.ACTL= 

000076 

F.READ= 

004000 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

FD.DIR=  000010 

F.ALOC= 

000040 

F.REDF= 

000040 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

FD.FTN=  000001 

F.BBFS= 

000062 

F.RES  = 

000040 

LARGVA 

003200R 

025  M.EXP  = 

000001 

FD.F11=  OAOOOO 

F.BDB  = 

000070 

F.RET  = 

1 77112 

LBINC 

0051 OOR 

025  M.FACT= 

000001 

FD.INS=  000010 

F.BGBC= 

000057 

F.RSJZ= 

000002 

LBUFF 

00331 6R 

025  M.FIL  = 

000177 

FD.ISP=  002000 

F.BITS= 

Mlim 

F.RTYP= 

000000 

LBUFLN= 

000621 

M.FLR  = 

1 11111 

FD.MNT=  100000 

F.BKDN=  000026 

F.R2  = 

000014 

L COUNT 

005106R 

025  M,FMT  = 

000004 

FD.OSP=  OOAOOO 

F.BKDS= 

000020 

F.R3  = 

000016 

LENERR= 

104412 

M.GDUP= 

000003 

FD.PLC=  OOOOOA 

F.BKEF= 

000050 

F.R4  = 

000020 

LENTAB 

000054R 

025  M.GDWN= 

000003 

FD.F>RN=  000004 

F.BICP1  = 

000051 

F.SEQN= 

000100 

LEXPTR 

0031  OOR 

025  M.GETI= 

000006 

FD.PSE=  010000 

F.8KST= 

000024 

F . SPDV= 

000072 

LFTOP 

005066R 

025  M.IBM  = 

000003 

FD.RAH=  000001 

F.BKVB=  000064 

F.SPUN= 

000074 

LINC 

005102R 

025  M.IDN  = 

000000 

FD.RAN=  000002 

F.BR  = 

000020 

F.ST8K= 

000036 

LINE 

00501 6R 

025  V^AH'^P^ 

000006 

FD.REC=  000001 

F.CHR  = 

000075 

F.STK  = 

000022 

LINJNC 

005026R 

025  M.I0TA= 

000000 

FD.RVI>1=  000001 

F.CNTG= 

000034 

F.STOP= 

000004 

LISJZE= 

000020 

M.LIT  = 

000205 

FD.SDI=  000020 

F.CODE= 

000010 

F.STP  = 

000001 

LI  TOP 

005072R 

025  M.LN  = 

000001 

FD.SQD=  OOOOAO 

F.DF^B= 

000046 

F . SUSP= 

000002 

LNLNG  = 

104541 

M.MMD  = 

000010 

FD.TTY=  000004 

F.DSPT= 

000044 

F.TO.I= 

*•••••  GX 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

FD.WBH=  000002 

F.DVNM=  000134 

F.TRC  = 

000002 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

FF.CHR=  000005 

F.EFBK= 

000010 

F.UNn= 

000136 

LSTERP 

004766R 

025  M.NUB  = 

000006 

FF.NV  =  000003 

F.EFN  = 

000050 

F.URBD= 

000020 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

FF.POE=  000002 

F.END  = 

002000 

F.VAL  = 

1 1111 t 

L.BITS= 

000003 

M.OUTR= 

000012 

FF.RWD=  000001 

F.EnRR= 

000032 

F.VBW  = 

000064 

L.CNT  = 

000002 

M.PITM=  000000 

FF.RWF=  000006 

F.ERR  = 

000052 

F . V8SZ= 

000060 

L.PRNT= 

000001 

M.PRDS= 

000006 

FF.SPC=  OOOOOA 

F.FACC= 

000043 

GNOME 

0031 02R 

025 

L.PTR  = 

000000 

M.QQAD= 

000000 

FHEADR  00501 2R 

025 

F.FFBY= 

000014 

HASHC 

005136R 

025 

L.PTR1= 

000004 

M.QUAD= 

000000 

FHRET   005040R 

025 

F.FLAG= 

000002 

HASHTB 

005140R 

025 

L  ~U8S= 

000002 

M.RAND= 

000012 

FILNTF=  104A67 

F.FLB  = 

000100 

HSHMSK= 

177601 

M/..HIN=  000106 

M.RAVL= 

000000 

FIS   =  000000 

F.FNAM=  000110 

WZHSIU 

000200 

MAXCHN=  000014 

M.RCIP= 

000000 

FISCON=  046000 

F.F^B  = 

000102 

I  CHAN 

005050R 

025 

MONBLK 

0031 20R 

025  M.RDCT= 

000011 

FIXPTR  003074R 

025 

F.FNDF= 

000010 

ILARGC 

000020RG 

002  MONCVT 

0031 32R 

025  M.REVS= 

000003 

FLAGS   004764R 

025 

F.FTYP= 

000116 

ILFNAM= 

104464 

MONLEN 

0031 30R 

025  M.ROLL= 

000000 

FLARGC  000030RG 

002 

F.FUN  = 

000010 

ILLCHN= 

104540 

MONPTR 

0031 22R 

025  M.SATA= 

000001 

FLCBUF  003250R 

025 

F.FVER= 

000120 

ILLSW  = 

104565 

MONSFT 

0031 26R 

025  M.SCAN=  000011 

FLINE   005014R 

025 

F.HEAD= 

000006 

INDERR= 

104410 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FLOEXP  003270R 

025 

F.HIBK= 

000004 

INNTMP 

003250R 

025  MONVAL 

0031 34R 

025  M.SIGN= 

000000 

FLONEG  003272R 

025 

F.L8L  = 

000020 

INNTM2 

00501 6R 

025  M.ABS  = 

000000 

M.SIBR= 

000001 

FLSWTB  000222R 

025 

F.LINE= 

000012 

INPTR 

000064R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLTLEN=  000010 

F.LOC  = 

000004 

INSNAM= 

104462 

M.BXAV= 

000007 

M.SYN  = 

000201 

FNINSI  005044R 

025 

F.LSTC= 

000004 

lOERR  = 

104477 

M.BXCR= 

000007 

M.TRAN= 

000012 

FORIGN  000032R 

025 

F.LUN  = 

000042 

IRAR6C 

000060RG 

002  M.BXCT= 

000007 

M.$ABS= 

000000 

FO.APO=  000106 

F.MBCT= 

000054 

I.CNT  = 

1 1111 t 

M.BXEX= 

000007 

M.$CEI= 

000000 

FO.MFY=  000002 

F.MBC1= 

000055 

I. DIM  = 

177772 

M.8XFX= 

000007 

M.$FLR= 

000000 

FO.RD  =  000001 

F.MBFG= 

000056 

I.LEN  = 

000012 

M.BX10= 

000007 

M.$IDN= 

000000 

FO.UPD=  000006 

F.MON  = 

000002 

I.OERR= 

000062 

M.8XLC= 

000003 

M.$NEG= 

000000 

FO.yRT=  000016 

F.NIL  = 

000001 

I. OLD  = 

177770 

M.BXNC= 

000007 

M.$SIG= 

000000 

FPWOOE  000042R 

025 

F.NR8D= 

000024 

I.PTR  = 

1 1111  i. 

M.BXNL= 

000007 

M.1RDT= 

000011 

fPP       =   000000 

F.NREC= 

000030 

I. SIR  = 

1 77766 

M.BXPP= 

000007 

M.1REV= 

000003 

fPPLEN=   000004 

F.OPN  = 

000010 

LA8ERR= 

104406 

M.BXPW= 

000007 

M.1SCN= 

000011 

FRARGC  000070RG 

002 

F.0VBS= 

000030 

LABLPT 

005042R 

025  M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FREBLK  007400R 

025 

F.PREV= 

000000 

LARGBL 

0031 62R 

025 

M.8XTS= 

000007 

NB.DEV= 

000200 

FUZZ    0001 42R 

025 

F.PRNT= 

100000 

LARGCT 

OOOOOORG 

002  M.BXWA= 

000007 

NB.DIR= 

000100 

FXPTRl  003076R 

025 

f.FROJ= 

010000 

LARGCV 

0031 76R 

025  M.CEl  = 

Mini 

NB.NAM= 

000004 
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SYMBOL  TABLE 

NB.SD1=  OOOAOO 

N.NAME= 

000006 

RESERR= 

104440 

SY/1B1   005344R 

025 

T.80L  = 

020000 

NB.SD2=  001000 

N.NEXT= 

000022 

RESLEN 

0031 50R 

025 

SYMF    005340R 

025 

T.CON  = 

004000 

^e.sNM=  000040 

N.PPN  = 

000024 

RESPTR 

0031 40R 

025 

SYMPT1  005346R 

025 

T.DIM  = 

000100 

NB.STP=  000020 

N.STAT= 

000020 

RESSFT 

0031 46R 

025 

SYMTAB  005352R 

025 

T.FUN  = 

010000 

NB.SVR=  000010 

N.UNIT= 

000034 

RESTYP 

0031 44R 

025 

SYMTBF=  104404 

T.LIST= 

000400 

^e.TYP=  000002 

aBUFLN= 

001000 

RESULT 

0031 36R 

025 

SYMTOP  0G5350R 

025 

T.LIT  = 

000020 

NB.VER=  000001 

OCHATJ 

005052R 

025 

RESVAL 

0031 54R 

025 

SYMTP   006272R 

025 

T.MON  = 

000010 

ND.DEV=  000200 

OMODE 

000402R 

023  RINC 

005104R 

025 

SYMWRN=  000054 

T.NIL  = 

000004 

ND.EXT=  000002 

OPTMPO 

005066R 

025 

RLT8AS 

005066R 

025 

SYNERR=  104407 

T.NUM  = 

002000 

ND.NAW=  000004 

0PTMP1 

005070R 

025  ROTINC 

005070R 

025 

SYSERR=  104402 

T.OPFN= 

000001 

ND.PPN=  000100 

0PTMP2 

005072R 

025 

ROUND 

00001  OR 

025 

SYSTAT  OOOOOOR 

024 

T.OTHR= 

040000 

ND.$EX=  000000 

0PTMP3 

005074R 

025 

ROVER 

00331 2R 

025 

SY.aAD=  000001 

T.SOP  = 

000002 

ND.$E$=  000020 

0PTMP4 

005076R 

025 

RSTS  = 

000000 

SY.BRK=  100000 

T.SPOP= 

000040 

ND.$M>1=  000000 

0PTMP5 

0051 OOR 

025 

RSX   = 

0001 1 5 

SY.8S  =  000010 

T.TMP  = 

000200 

ND.$N$=  000040 

0PTMP6 

005102R 

025 

RTOP 

005070R 

025 

SY.CLR=  000040 

T.VAL  = 

100000 

ND.$PN=  001400 

0PTMP7 

005104R 

025 

RT11   = 

000000 

SY.ERP=  000020 

T.VAR  = 

001000 

NEGSGN  005063R 

025 

0PTMP8 

005106R 

025 

R.BITS= 

000003 

SY.N0U=  000100 

UPPER  = 

177400 

NINPT1  003302R 

025 

0PTMP9 

005 11  OR 

025 

R.FIX  = 

000001 

SY.OPN=  000002 

UTNAME 

000344R 

023 

NINPT2  003300R 

025  OPTM10 

0051 12R 

025 

R.LCT  = 

000002 

SY.PMT=  001000 

VALERR= 

104413 

NINSTK  003304R 

025  0PTM14 

005026R 

025 

R.LN  = 

000002 

SY.SRT=  000400 

VARBLE 

007400R 

025 

NINTMP  00331 OR 

025  OP.EQU= 

•**f^«*  GX 

R.LNUM=  000010 

SY.SVC=  000004 

VARBLS 

OOOOOOR 

025 

NINTYP  003306R 

025 

OP.NEQ= 

If-klrltlr-k    6X 

R.NEXT= 

000006 

SY.SVL=  000200 

VERNUW 

OOOOOOR 

025 

NOTAVL=  104472 

ORIGIN 

000030R 

025 

R.OFF  = 

000000 

S.AB  =  177776 

VRSION= 

000002 

NOTOPN=  104473 

OUTPTR 

000066R 

025 

R.PREV= 

000004 

S.A,S8  =  100000 

WIDTH 

000072R 

025 

NPRT1   004762R 

025  0VR0PR= 

000000 

R.PTR  = 

000000 

S.8FHD=  000020 

WROUND 

000020R 

025 

NULL    007364R 

025 

PATCH 

007344R 

025 

R.SEQ  = 

000003 

S.8ITS=  000002 

WSDATE 

0001 36R 

025 

NLf1CHN=  000020 

PRECSN 

000052R 

025 

R.VAR  = 

000002 

S.CHR1=  000003 

WSFULL= 

104403 

NUMDFL  003230R 

025 

RANDAC 

003064R 

025 

R6 

X000006 

S.FATT=  000016 

WSNAME 

000074R 

025 

NUMEFL  003233R 

025 

RANDY 

003062R 

025 

R7 

X000007 

S.FDB  =  000140 

WSTIME 

0001 32R 

025 

NUMESN  003236R 

025 

RANERR= 

104411 

SI 

X000005 

S.FLB  =  040000 

SCLRF  = 

••**•*  GX 

WJMFL6  003230R 

025 

RARGBL 

003204R 

025 

SIDAMN= 

104433 

S.FNAM=  000006 

$FIS  = 

••••••  G 

NUMLEN  000062R 

025 

RARGCT 

000040RG 

002 

SIFRAM 

00331 4R 

025 

S.FNB  =  000036 

$FPP  = 

•♦•**•  G 

NUMNEG  003232R 

025 

RARGCV 

003220R 

025 

SISTAK 

006350R 

025 

S.FNBW=  000017 

%^?P\Ji= 

•♦•••*  G 

NUWQFL  003234R 

025 

RARGFL 

003202R 

025 

SI  TOP 

006346R 

025 

S.FNTY=  000004 

$LDCIF= 

••i^**i^  GX 

NUMRIG  003231 R 

025 

RARGLE 

00321 6R 

025 

SITP 

0071 44R 

025 

S.FTYP=  000002 

$LDF  = 

•*•••«  GX 

NUMUID  003226R 

025 

RARGLN 

00321  OR 

025 

SIWARN=  000200 

S.LEN  =  000002 

$MACHN= 

••••••  G 

NUM2FL  003235R 

025 

RARGPT 

003206R 

025 

SIZTAB 

000044R 

025 

S.LINK=  177774 

$RSTS  = 

**••••  G 

NYIERR=  104432 

RARGSF 

00321 4R 

025 

SI.BIT= 

1 7777^ 

S.NFEN=  000020 

$RSX  = 

*••••♦  G 

N.BLSZ=  000036 

RARGTY 

00321 2R 

025 

SI.LEN= 

1 77772 

S.TYPE=  140000 

$RT11  = 

••••••  G 

N.DESC=  000020 

RARGVA 

003222R 

025  SI. RET= 

\77772 

S.VAL  =  000000 

.BOOLE= 

000002 

N.DEV  =  000032 

RBASE 

005074R 

025 

SI. VAL= 

1 7777(i 

TKDIMS  005072R 

025 

.CHARA= 

000000 

N.DE\/N=  000034 

RCOUNR 

0051 12R 

025 

SKPSIZ 

0051 34R 

025 

TKFRAM  005066R 

025 

.DEF.  = 

000002 

N.DID  =  000024 

RCOUNT 

00511 OR 

025 

SPHOLD 

000004R 

024 

TKLEFT  005070R 

025 

.FLOAT= 

000006 

N.DVMi=  000032 

REDCNT 

005070R 

025 

SPINIT 

000002R 

024 

TMODE   000403R 

023 

.FSRCB= 

•  ••••*  r\ 

N.EXT  =  000014 

REDIGN 

005066R 

025 

STKINC= 

000774 

TMPTAG=  000166 

.INTEG= 

000004 

N.FID  =  000000 

REDOFF 

005072R 

025 

STOP  = 

104420 

TTYBUF  0041 40R 

025 

.MOLUN 

000404R 

023 

N.FNAM=  000006 

REENTR 

003060R 

025 

SUBCNT 

0031 04R 

025 

TTYLEN=  000622 

...GBL= 

000000 

N.FTyP=  000014 

RES8IT 

0031 42R 

025 

SUBDCT 

0031 06R 

025 

TURKEY=  104436 

...TPC= 

000020 

N.FVER=  000016 

RESCVT 

0031 52R 

025 

SUBPTR 

00311  OR 

025 

TYPE  =  000166 

.  ABS.  000000 

000 

000000 

001 

TABLES  000100 

002 

MONTB   000000 

003 

DYDTB   000000 

004 

BOPTB   000000 

005 

MONBTB  000000 

006 

\ 
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SYMBa 

TABLE 

DYDBTB 

000000 

007 

CC3MTB 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

PfJTRTL 

000000 

017 

CODE 

000610 

020 

PATCH 

000000 

021 

$$FSR1 

000000 

022 

DEFSO 

000406 

023 

DEF$1 

000006 

024 

DEF$2 

007400 

025 

ERRORS 

DETECTED 

:  0 

VIRTUAL 

MEMORY 

USED:  13160  WORDS  (  52  PAGES) 

DYNAMIC 

MEMORY: 

14478  WORDS   (  55  PAGES) 

ELAPSED 

TIME: 

00:02:00 

DYDRT, DM1: [305, 

301:DYDRT/-SP=APLRX1,APLDEF, DYDRT, END 

H  14 
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cc 

HHHHHHHHHH 
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APLDEF 
A  P  L 

A  PROGRAMMING  LANGUAGE 

STEVE  POULSEN  I   DAVE  VANN 

11-Jul-76 

ROBERT  GOTTLIEB  &  PETER  HAYNES 

2-Feb-79 


V2 


COPYRIGHT  (C)  1976,  1977,  1978,  1979,  1980 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS, 


THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A  SINGLE 
COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE  INCLUSION  OF  THE  ABOVE 
COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT 
BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR 
USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS. 
TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN 
DEC. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 
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DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
DEFINITIONS 
ESCHR 


ASSEMBLY  PARAMETERS 

OPERATOR  OVERLAYS 

REGISTERS 

MEMORY  ORGANIZATION 

ORDERING  PSECTS 

SI  PARSE  FRAMES 

TOKEN  DESCRIPTION  BITS 

SI  EXECUTION  FRAMES 

SPECIAL  PARSE  CHARACTERS 

CHRTAB  BITS 

SYSTEM  STATUS  BITS 

F-FRAMES 

FUNCTION  LINE  BLOCKS 

ARRAY  STORAGE  BLOCK 

LIST  STORAGE  BLOCK 

INDEXING  STACK  FRAME 

SYMBOL  TABLE  ENTRY 

CHANNEL  BLOCK 

RSX  DATA 
NAME  BLOCKS 
MACROS 

APL  CHARACTERS 
ERRORS 
OBTAIN  LINE  OF  INPUT  FROM  STRING 
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1 

000000 

2 

000000 

3 

0001 1 5 

A 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
FIS 
FPP 

ooo 

II  II  II 

FPPLEN 

=  A 

DEBUG 

=  0 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

;SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 
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EC 


HR 
APLDEF 


1 
2 
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.SBTTL 
.IDENT 


L  U 


APLDEF 
\V02.03\ 


1 


APL 
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DEFINITIONS  ERRORS 


MU" 


2513 


.LIST     SEQ,SRCAOC,BIN,BEX,MEB 


1 
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ECHR    MACRO 
DEFINITIONS 


Mil  13  08-FEB-80 
ERRORS 


1 

I 

5 
6 
7 
8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 

22  000000 
23 

24  000000 

25  000000 

26  000002 

27  000010 

28  000014 
29 

30  000020 

31  000022 

32  000024 

33  000032 

34  000036 

35  000040 
36 

37  000042 

38  000044 

39  000046 

40  000050 
000052 
000054 
000056 
000062 


41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 

53  00C102 

54  000106 

55  000110 

56  000116 

57  000122 


000064 
000070 
000072 
000074 
000076 
000100 


042737 
013703 
013704 

005704 
001007 
052737 
112721 
005302 
000420 

1 1 2300 
005304 
110021 
005302 
001001 
104541 
022700 
001356 

122713 
001004 
005704 
001402 
105723 
005304 

010437 
001 003 
052737 
010337 
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TITLE 
IDENT 


N  14 


ECHR 
\V02.03\ 


S8TTL  E$CHR 


OBTAIN  LINE  OF  INPUT  FROM  STRING 


FUNCTIONAL  DESCRIPTION: 

THE  INPUT  STREAM  IS  SWITCHED  TO  THE  E$CHR  ROUTINE  WHEN  AN  EXECUTE 
OPERATION  IS  PERFORMED.  E$CHR,  POINTED  TO  BY  'INPTR'  PUTS  THE  NEXT 
LINE  IN  THE  STRING  (DEFINED  BY  E$PT  AND  E$CT)  INTO  THE  INPUT  LINE 
BUFFER  DEFINED  BY  THE  CALLER.   'F.END'  IS  SET  IN  THE  FLAGS  WORD  IF 
THE  END  OF  THE  INPUT  STRING  IS   REACHED. 


INPUTS: 
R1 
R2 

OUTPUTS: 
RO 
R1 


ESCHR; 


002000  004764' 

005060* 

005056' 


002000  004764' 
00001 5 


1$: 


2$: 


000015 
000012 


5$: 

3$ 


005056 • 


4$: 


002000  004764' 
005060'        6$ 


-  POINTS  TO  FIRST  AVAILABLE  BYTE  OF  INPUT  LINE  BUFFER 

-  LENGTH  OF  LINE  BUFFER 


-  POINTS  TO  START  OF  LINE  BUFFER 

-  BYTE  COUNT  OF  CHARS  PLACED  INTO  LINE  BUFFER 


.PSECT  CODE 


PUSH  R1 

BIC  *F. END, FLAGS 

MOV  E$PT,R3 

MOV  E$CT,R4 

TST  R4 

BNE  2$ 

BIS  #F. END, FLAGS 

M0V8  *CHR.CR,(R1)'^ 

DEC  R2 

BR  4$ 

MOVB  (R3)+,R0 

DEC  R4 

MOVB  R0,(R1)^- 

DEC  R2 

BNE  5$ 

LNLNG 

CMP  #CHR.CR,RO 

BNE  1$ 

CMP6  #CHR.LF,5)R3 

BNE  4$ 

TST  R4 

BEQ  4$ 

TSTB  (R3)+ 

DEC  R4 

MOV  R4,E$CT 

BNE  6$ 

BIS  *F. END, FLAGS 

MOV  R3,ESPT 

POP  RO 


SAVE  POINTER  TO  BUFFER 
ASSUME  NOT  END  OF  STRING 
POINT  TO  NEXT  CHAR 
COUNT  OF  CHARS  REMAINING 

END  OF  STRING? 

NOPE 

YES,  MARK  AS  LAST  LINE  IN  STRING 

STORE  CR  AS  MARKER 

COUNT  IT 

AND  EXIT 

GET  NEXT  CHAR 

COUNT  IT 

STORE  IN  LINE  BUFFER 

COUNT  IT 

STILL  ROOM  LEFT 

LINE  TOO  LONG 

END  OF  line: 

NO,  KEEP  transferring  DATA  TO  LINE  BUFFER 

NEXT  CHAR  LF  AFTER  THE  CR? 

NOPE 

END  OF  STRING? 

YES 

NO  SO  SKIP  OVER  LF 

BUT  COUNT  IT 

RESET  NEW  VALUES 

NOT  END  OF  STRING 

MAKE  SURE  END  FLAG  IS  SET 

TO  PICK  UP  REST  OF  STRING 

RESTORE  POINTER  TO  LINE  START 


ECHR    MACRO  Mil  13  08-FE8-80 
E$CHR  OBTAIN  LINE  OF 

58  0001 2A  160001 

59  000126 
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INPUT  FROM  STRING 


B  15 


sue 

RETURN 


R0,R1 


; CALCULATE  LENGTH  Of   LINE 
;AND  RETURN 


FfMR 
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1        000001 
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FROM  STRING 


TTT 


.END 


EN 
SY 

FI 

FI 

FI 

FI 

FL 

PL 
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D  15 

SYMBa 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

C.BLSZ= 

0001 AO 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

AC1   = 

X000001 

CHRLPR= 

000072 

C.BUFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

OOOOOAR 

025 

AC2   = 

X000002 

CHRMNS= 

000137 

C.BUFL= 

1 77762 

D.DQAD= 

1 77777 

EOF   = 

10AA75 

AC3   = 

X000003 

CHRMUL= 

000075 

C.CCNT= 

1 77766 

D.DR0P= 

000002 

ERRMAX= 

000166 

ACA   = 

XOOOOOA 

CHRNEG= 

000100 

C.CPTR= 

1 7776A 

D.ENCD= 

000002 

ERRNUM 

00A772R 

025 

ACS   = 

X000005 

CHRPDL= 

000271 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

00A770R 

025 

ALL INT 

00327AR 

025 

CHRPLU= 

000055 

C.DIG  = 

OOOOAO 

D.EXPD= 

000002 

ERRO 

00A77AR 

025 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C . F ASW= 

020000 

D.FGET= 

000005 

EXEBUF 

00505AR 

025 

ASCQUO=  0000A2 

CHRQST= 

000121 

C.FLEN= 

000010 

D.FMT  = 

OOOOOA 

ESCHR 

OOOOOORG 

020 

A.ALEN=  OOOOOA 

CHRQUO=  000113 

C.FLSH= 

OOAOOO 

D.FPNT= 

000005 

E$CT 

005056R 

025 

A.ARG  = 

OOOOAO 

CHRRBR= 

0000^7 

C.FRC  = 

000001 

D.FPUT= 

000005 

E$PT 

005060R 

025 

A.ASB  = 

000200 

CHRRPR= 

0000A2 

C.IDEN=  000010 

D.GE  = 

000000 

FA.APD= 

000100 

A.BITS= 

000003 

CHRSEM=  00007A 

C.NAME= 

000102 

D.GT  = 

000000 

FA.CRE= 

000010 

A. CON  = 

000020 

CHRSM0= 

000112 

C.NOBF= 

OOOAOO 

D.I8M  = 

000002 

FA.DLK= 

001000 

A.DII>1S= 

000002 

CHRSPA= 

OOOOAO 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.ENB= 

100000 

A.DIM1  = 

000006 

CHRUPA= 

000131 

COP  = 

OOOOOA 

D.INNR= 

000013 

FA.EXC= 

002000 

A.NUM  = 

000006 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.EXT= 

OOOOOA 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.RDLN= 

177776 

D.LE  = 

000000 

FA.NSP= 

000100 

A.TIV  = 

000010 

CHR.CR= 

000015 

C.REWT= 

002000 

D.LOG  = 

000001 

fAMSR= 

000200 

BADDIR= 

10AA63 

CHR.CZ= 

000032 

C.RND  = 

000010 

D.LT  = 

000000 

FA.POS= 

010000 

BADERR= 

10AA37 

CHR.GT= 

0000A6 

C.S8IT= 

177756 

D.MAX  = 

000000 

FA.RD  = 

000001 

BLZBUB 

0051 16R 

025 

CHR.LF= 

000012 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.RWD= 

OOAOOO 

BRSELF 

0050A6R 

025 

CHR.LT= 

0000A3 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.SEQ= 

OAOOOO 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C . SPLX= 

000001 

D.MUL  = 

000000 

FA.SHR= 

OOOOAO 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C.SPRS= 

000002 

D.NE  = 

000000 

FA.TMP= 

000020 

CHANOO 

000256R 

025 

CHR.S0= 

000016 

C.SRC  = 

1 7777^ 

D.NN  = 

000000 

FA.WCK= 

020000 

CHAN01 

000330R 

025 

CHR.TB= 

000011 

C.SRCP= 

00002A 

D.NR  = 

000000 

FA.WRT= 

000002 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.TT  = 

OOOOOA 

D.OR  = 

000000 

FD.BLIC= 

000010 

CHAN03 

00067AR 

025 

CHR. .A— 

0001 A 1 

C.WIDC= 

1 77770 

D.PLUS= 

000000 

FD.CCL= 

000002 

CHANOA 

001056R 

025 

CHR..E= 

0001 A5 

C.WIDR= 

1 77772 

D.PSLR= 

000006 

FD.COM=  020000 

CHAN05 

0012A0R 

025 

CHR . ■ 5— • 

000163 

DEBUG  ^ 

000000 

D.PWR  = 

000001 

FD.CR  = 

000002 

CHAN06 

001A22R 

025 

CHR..T= 

0001 6A 

DEFERR= 

10AA05 

D.QQAD= 

000000 

FD.DIR= 

000010 

CHAN07 

00160AR 

025 

CHR..U= 

000165 

DEVIL 

0051 1AR 

025  D.QUAD= 

000000 

FD,FTN= 

000001 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEVNTF= 

10AA70 

D.RES  = 

000000 

FD.F11= 

OAOOOO 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.INS= 

000010 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.ISP= 

002000 

CHAN11 

00251 AR 

025 

CH.AND= 

000001 

DIMBLK 

0031 12R 

025  D.SCON= 

000006 

FD.MNT= 

100000 

CHAN12 

002676R 

025 

C^f)BUF 

003250R 

025 

DIMPTR 

0031 1AR 

025  D.SDIF= 

000006 

FD.OSP= 

OOAOOO 

CHAN13 

000022R 

023 

C)DMAX= 

000010 

DJMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PLC= 

OOOOOA 

CHAN1A 

00020AR 

023 

CNTSI2 

0051 30R 

025 

DIRFUL= 

10AA66 

D.SUBS= 

000006 

FD.PRN= 

OOOOOA 

CHNOPN= 

10AA71 

COMBIN 

005076R 

025 

DOriERR= 

10AA17 

D.TAKE= 

000002 

FD.PSE= 

010000 

CHRAND= 

000051 

COMCNT 

0051 26R 

025 

DPTERR= 

10AA16 

D.TRAN= 

OOOOOA 

FD.RAH=  000001 

CHRBEL= 

000007 

CaiERR= 

10AA25 

DYDCNT 

00322AR 

025  D.UN0N= 

000006 

FD.RAN=  000002 

CHRBKR= 

000133 

COMPTR 

0051 22R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.REC= 

000001 

CHRBOL= 

000200 

COMRTN 

0031 56R 

025 

D.BXCT= 

000007 

D.$MIN= 

000000 

FD.RWM=  000001 

CHReOX= 

00011A 

COMSKP 

0051 2AR 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SDI= 

000020 

CHRCMA= 

00005A 

CORPTR 

005120R 

025 

D.8XNL= 

000007 

D.$PLU=  000000 

FD.SQD= 

OOOOAO 

CHRCOL= 

000076 

CS.ASS= 

000200 

D.3XPP= 

000007 

D.$RES= 

000000 

FD.TTY= 

OOOOOA 

CHRDEL= 

000107 

CS.BOO=  000010 

D.BXPW=  000007 

D.$SUB=  000000 

FD.WBH= 

000002 

CHRDIV= 

000053 

CS.FLO=  000020 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.CHR= 

000005 

CHRDLR= 

000176 

CS.10N= 

OOOOAO 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.NV  = 

000003 

CHRDLT= 

000110 

CS.0NE= 

000100 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.P0E= 

000002 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D.coriP= 

000001 

EDI CHR 

005063R 

025  FF.RWD= 

000001 

CHREP  = 

000105 

CTMAX 

00021 2R 

025 

D.CONT= 

000006 

EDICNT 

00506AR 

025  FF.RWF= 

000006 

CHRERR= 

10AA31 

CTRMAX 

0001 72R 

025 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  FF.SPC= 

OOOOOA 

CHRFIL= 

000177 

C.AL0C= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

F HE ADR 

00501 2R 

025 

CHRFRO=  000135 

C.BLa<= 

00006A 

D.DECD= 

000002 

EIS   = 

000000 

FHRET 

0050A0R 

025 
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FABLE 

F1LNTF= 

104467 

F.FNB  = 

000102 

ILFNAM= 

1 04464 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

FIS   = 

000000 

F.FNDF= 

000010 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP= 

OOOOOO 

FISCON=  046000 

F.FTYP= 

000116 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SIGN= 

OOOOOO 

FIXPTR 

003074R 

025 

F.FUN  = 

000010 

INDERR= 

104410 

M.ABS  = 

OOOOOO 

M.SUBR= 

000001 

FLAGS 

004764R 

025 

F.FVER= 

000120 

INNTMP 

003250R 

025  M.80L  = 

000200 

M.SYM  = 

000203 

FLCBUF 

0O3250R 

025 

F.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.8XAV= 

000007 

M.SYN  = 

000201 

FLI^€ 

00501 4R 

025 

F.HIBK= 

000004 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN= 

000012 

FLOEXP 

003270R 

025 

F.LBL  = 

000020 

INSNAM= 

104462 

M.BXCT= 

000007 

M.$ABS= 

OOOOOO 

FLONEG 

003272R 

025 

F.LINE= 

000012 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI= 

OOOOOO 

FLSWTB 

000222R 

025 

F.LOC  = 

000004 

I.CNT  = 

1 7777h 

M.BXFX= 

000007 

M.$FLR= 

OOOOOO 

FLTLEN=  000010 

F.LSTC= 

000004 

I. DIM  = 

1 77772 

M.BXIO= 

000007 

M.$IDN= 

OOOOOO 

FNINSI 

005044R 

025 

F.LUN  = 

000042 

I.LEN  = 

00001 2 

M.BXLC= 

000003 

M.$NEG= 

OOOOOO 

FORIGN 

0OO032R 

025 

F.MBCT= 

000054 

1.0ERR= 

000062 

M.BXNC= 

000007 

M.$SIG= 

OOOOOO 

FO.AF>D= 

000106 

F.MBC1= 

000055 

I. OLD  = 

1 7777^ 

M.8XNL= 

000007 

M.1RDT= 

00001 1 

FO.MFY= 

000002 

F.MBFG= 

000056 

I.PTR  = 

\7777i. 

M.BXPP= 

000007 

M.1REV= 

000003 

FO.RD  = 

000001 

F.MON  = 

000002 

I.STR  = 

1 77766 

M.BXPW= 

000007 

M.I SCN= 

000011 

FO.UF>D= 

000006 

F.NIL  = 

000001 

LABERR= 

104406 

M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FO.WRT= 

000016 

F.NRBD= 

000024 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FPflOOE 

000042R 

025 

F.NREC= 

000030 

LARGBL 

0031 62R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

FPP   = 

000000 

F.OPN  = 

00001 J 

LARGCV 

0031 76R 

025  M.CEI  = 

1 77777 

^e.NAM=  000004 

FPPLEN=  OOOOOA 

F.O\/BS= 

000^30 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FREBLK 

007400R 

025 

F.PREV= 

OOOOOO 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

FUZZ 

0001 42R 

025 

F.PRNT= 

100000 

LARGLN 

0031 66R 

025  M.DOUT= 

000006 

NB.SW»1=  000040 

FXPTR1 

003076R 

025 

F.PROT= 

010000 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$EVAL= 

000100 

F.RACC= 

000016 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F$EVI  = 

000200 

F.RATT= 

000001 

LARGTY 

0031 70R 

025  M.EXE  = 

OOOOOO 

NB.TYP= 

000002 

F$EXEC= 

000400 

F.RCNM= 

000034 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F$FUNC= 

001000 

F.RCTL= 

00001 7 

LBINC 

0051 OOR 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.ACTL= 

000076 

F.READ= 

004000 

LBUFF 

00331 6R 

025  M.FIL  = 

000177 

ND.EXT= 

000002 

F.ALOC= 

000040 

F.REDF= 

000040 

LBUFLN= 

000621 

M.FLR  = 

1 77777 

ND.NAM=  000004 

F.RRFS= 

000062 

F.RES  = 

000040 

LC0UN7 

0051 06R 

025  M.FMT  = 

000004 

ND.PPN= 

000100 

F.BDB  = 

000070 

F.RET  = 

1 77772 

LENERR= 

104412 

M.GDUP= 

000003 

ND.$EX= 

OOOOOO 

F .BGBC= 

000057 

F.RSIZ= 

000002 

LENTAB 

000054R 

025  M.GDWN= 

000003 

ND.$ES=  000020 

F.BITS= 

1 777H, 

F.RTYP= 

OOOOOO 

LEXPTR 

0031 OOR 

025  M.GETI= 

000006 

ND.$NM=  OOOOOO 

F.BICDN= 

000026 

F.R2  = 

000014 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$= 

000040 

F.BKDS= 

000020 

F.R3  = 

000016 

LINC 

0051 02R 

025  M.IDN  = 

OOOOOO 

ND.$PN= 

001400 

F.B»CEF= 

000050 

F.R4  = 

000020 

LINE 

00501 6R 

025  }^AH%9^ 

000006 

NEGSGN 

005063R 

025 

F.BKP1  = 

000051 

F.SEQN= 

000100 

LINING 

005026R 

025  M.IOTA= 

OOOOOO 

NINPT1 

003302R 

025 

F.BKST= 

000024 

F.SPDV= 

000072 

LISIZE= 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.B*C\/B= 

000064 

F.SPJN=  000074 

LI  TOP 

005072R 

025  M.LN  = 

000001 

NINSTK 

003304R 

025 

F.BR  = 

000020 

F.STBK= 

000036 

LNLNG  = 

104541 

M.MMD  - 

000010 

NINTMP 

00331 OR 

025 

F.CHR  = 

000075 

F.STK  = 

000022 

LOCLCT 

005036R 

025  M.NEG  = 

OOOOOO 

NINTYP 

003306R 

025 

F.CNTG=  000034 

F.ST0P= 

000004 

LOWCOR 

000002R 

025  M.NOT  = 

OOOOOO 

NOTAVL= 

104472 

F . COOE= 

000010 

^,%^?  = 

000001 

LSTERP 

004766R 

025  M.NUB  = 

000006 

NOTOPN= 

104473 

F.DF^B=  000046 

F.SUSP= 

000002 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

NPRT1 

004762R 

025 

F.DSPT= 

000044 

F.TRC  = 

000002 

L.BITS= 

000003 

M.0UTR= 

000012 

NULL 

007364R 

025 

F.D\/NM=  000134 

F.UNIT= 

000136 

L.CNT  = 

000002 

M. PI TM=  OOOOOO 

NUMCHN= 

000020 

F.EFBK= 

000010 

F.URBD=^ 

000020 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

F.EFN  = 

000050 

F.VAL  = 

y7777t 

L.PTR  = 

OOOOOO 

M.QQAD= 

OOOOOO 

NUMEFL 

003233R 

025 

F.END  = 

002000 

F.VBN  = 

000064 

L.PTR1= 

000004 

M.QUAD= 

OOOOOO 

NUMESN 

003236R 

025 

F.EnRR= 

000032 

F.\/QSZ= 

000060 

L.SUBS= 

000002 

M.RAND= 

00001 2 

NUMFLG 

003230R 

025 

F.ERR  = 

000052 

GNOME 

0031 02R 

025  MACHIN= 

000106 

M.RAVL= 

OOOOOO 

NUMLEN 

000062R 

025 

F.FACC= 

000043 

HASHC 

005136R 

025  MAXCHN= 

000014 

M.RCIP= 

OOOOOO 

NUMNEG 

003232R 

025 

F.FFBY= 

000014 

HASHTB 

0051 40R 

025  MONBLK 

0031 20R 

025  M.RDCT= 

00001 1 

NUMQFL 

003234R 

025 

F.FLAG= 

000002 

HSHMSK= 

177601 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

NUMRIG 

003231 R 

025 

F.FLB  = 

000100 

HSHSIZ= 

000200 

MONLEN 

0031 30R 

025  M.ROLL= 

OOOOOO 

NUMWID 

003226R 

025 

F.FNAW= 

000110 

ICHAN 

005050R 

025  ImONPTR 

0031 22R 

025  M.SATA= 

000001 

NUMZFL 

003235R 

025 

FrwR 
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SYMBa 

TABLE 

NYIERR= 

10AA32 

RARGCV 

003220R 

025 

R.PREV= 

000004 

SY.CLR= 

000040 

T.LIT  = 

000020 

N,BLSZ= 

000036 

RARGFL 

003202R 

025 

R.PTR  = 

000000 

SY.ERP= 

000020 

T.MON  = 

000010 

N.DESC= 

000020 

RARGLE 

00321 6R 

025 

R.SEQ  = 

000003 

SY.NOU= 

000100 

T.NIL  = 

000004 

N.DEV  = 

000032 

RARGLN 

003? 1 0R 

025 

R.VAR  = 

000002 

SY.0PN= 

000002 

T.NUM  = 

002000 

N.DEVN= 

00003A 

RARGPT 

003206R 

025 

R6 

X000006 

SY.PMT= 

001000 

T.OPFN= 

000001 

N.DID  = 

000024 

RARGSF 

00321 4R 

025 

R7 

X000007 

SY.SRT= 

000400 

T.0THR= 

040000 

N.D\/NM= 

000032 

RARGTY 

00321 2R 

025 

SI 

X000005 

SY.SVC= 

000004 

T.SOP  = 

000002 

N.EXT  = 

OOOOH 

RARGVA 

003222R 

025 

SIDAMN= 

104433 

SY.SVL= 

000200 

T.SPOP= 

cr)0040 

N.FID  = 

000000 

RBASE 

005074R 

025 

SJFRAM 

00331 4R 

025 

S.AB  = 

1 77776 

T.TMP  = 

000200 

N.FNAM=  000006 

RCOUNR 

005112R 

025 

SISTAK 

006350R 

025 

S.AS8  = 

100000 

T.VAL  = 

100000 

N.FTYP= 

000014 

RCOUNT 

005 11  OR 

025 

SI  TOP 

006346R 

025 

S.8FHD= 

000020 

T.VAR  = 

001000 

N.FVER= 

000016 

REDCNT 

005070R 

025 

SITP 

0071 44R 

025 

S.8ITS= 

000002 

UPPER  = 

177400 

N.IW1E= 

000006 

REDIGN 

005066R 

025 

SIWARN= 

000200 

S.CHR1= 

000003 

UTNAME 

000344R 

023 

N.NEXT= 

000022 

REDOFF 

005072R 

025 

SIZTAB 

000044R 

025 

S.FATT= 

000016 

VALERR= 

104413 

N.PPN  = 

000024 

REENTR 

003060R 

025 

SI.8IT= 

1 7777^ 

S.FDB  = 

000140 

VARBLE 

007400R 

025 

N.STAT= 

000020 

RES8IT 

0031 42R 

025 

SI.LEN= 

1 77772 

S.FLB  = 

040000 

VARBLS 

OOOOOOR 

025 

N.UNIT= 

000034 

RESCVT 

0031 52R 

025 

SI.RET= 

1 77772 

S.FNAM= 

000006 

VERNUM 

OOOOOOR 

025 

nFMJFLN= 

001000 

RESERR= 

1 04440 

SI.VAL= 

1 77776 

S.FNB  = 

000036 

VRSION= 

000002 

OCHAN 

005052R 

025 

RESLEN 

0031 50R 

025 

SKPSIZ 

0051 34R 

025 

S.FNBW= 

00001 7 

WIDTH 

000072R 

025 

OMOOE 

000402R 

023 

RESPTR 

0031 40R 

025 

SPHOLD 

000004R 

024 

S.FNTY= 

000004 

WROUND 

000020R 

025 

0PTI1P0 

005066R 

025 

RESSFT 

0031 46R 

025 

SPINIT 

000002R 

024 

S.FTYP= 

000002 

WSDATE 

0001 36R 

025 

0PTMP1 

005070R 

025 

RESTYP 

0031 44R 

025 

STKINC= 

000774 

S.LEN  = 

000002 

WSFULL= 

104403 

0PTI1P2 

005072R 

025 

RESULT 

0031 36R 

025 

STOP  = 

104420 

S.LINK= 

1 7777^ 

WSNAME 

000074R 

025 

0PTMP3 

005074R 

025 

RESVAL 

0031 54R 

025 

SUBCNT 

0031 04R 

025 

S.NFEN= 

000020 

WSTIME 

0001 32R 

025 

0PTMP4 

005076R 

025 

RJNC 

005104R 

025 

SUBDCT 

0031 06R 

025 

S.TYPE= 

140000 

$FIS  = 

*♦••••  Q 

0PTI»f>5 

0051 OOR 

025 

RLTBAS 

005066R 

025 

SLBPTR 

00311  OR 

025 

S.VAL  = 

000000 

$FPP  = 

•***••  Q 

0PTI1P6 

0051 02R 

025 

ROTINC 

005070R 

025 

SYMB1 

005344R 

025 

TKDIMS 

005072R 

025  $FPPLN= 

♦**••*  G 

0PTMP7 

0051 04R 

025 

ROUND 

00001  OR 

025 

SYMF 

005340R 

025 

TKFRAM 

005066R 

025  $MACHN= 

^ittcHlfk    G 

0PTMP8 

005106R 

025 

ROVER 

00331 2R 

025 

SYMPT1 

005346R 

025 

TKLEFT 

005070R 

025  $RSTS  = 

••••••  G 

0PTMP9 

00511  OR 

025 

RSTS  = 

000000 

SYMTAB 

005352R 

025 

TMODE 

000403R 

023  $RSX     = 

•*••••  G 

OPTM10 

0051 12R 

025 

RSX   = 

000115 

SYMTBF= 

104404 

TMPTAG= 

000166 

$RT11  = 

••••••  G 

OPTMU 

005026R 

025 

RTOP 

005070R 

025 

SYMTOP 

005350R 

025 

TTYBUF 

0041 40R 

025  .BOOLE= 

000002 

ORIGIN 

000030R 

025 

RT11   = 

000000 

SYMTP 

006272R 

025 

TTYLEN= 

000622 

.CHARA= 

000000 

OUTPTR 

000066R 

025 

R.BITS= 

000003 

SYMWRN= 

000054 

TURKEY= 

104436 

.DEF.  = 

000002 

OVROPR= 

000000 

R.FIX  = 

000001 

SYNERR= 

1 04407 

TYPE  = 

000166 

.FLOAT= 

000006 

PATCH 

007344R 

025 

R.LCT  = 

000002 

SYSERR= 

104402 

T.80L  = 

020000 

.FSRCB= 

••••••  G 

PRECSN 

000052R 

025 

R.LN  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.CON  = 

004000 

.INTEG= 

000004 

RANDAC 

003064R 

025 

R.LNUM= 

000010 

SY.8AD= 

000001 

T.DIM  = 

000100 

.MOLUN 

000404R 

023 

RANDY 

003062R 

025 

R.NEXT= 

000006 

SY.8RK= 

100000 

T.FUN  = 

010000 

. . . GBL= 

000000 

RANERR= 

104411 

R.OFF  = 

000000 

SY.8S  = 

000010 

T.LIST= 

000400 

...TPC= 

000020 

RARGBL 

003204R 

025 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYDBTB 

000000 

007 

COMTB 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

E 

E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
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ECHR 
SYI>«OL 

MNTRTL 

CODE 

PATCH 

SSFSRI 

DEFSO 

DEFSI 

DEF$2 

ERRORS 


MACRO 
TABLE 
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000000 
000130 
000000 
000000 
000A06 
000006 
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0 


017 
020 
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023 
024 
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VIRTUAL  MEMORY  USED:   12918  WORDS 

DYNAMIC  MEMORY:   K478  WORDS   (  55 

ELAPSED  TIME:   00:01:47 
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000000 

2 

000000 
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0001 1 5 
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000000 

6 

000000 

7 

000000 
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9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
FIS 
?PP 

ooo 

II  II  II 

FPPLEN 

=  A 

DEBUG 

=  0 

TTT 


;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

;SINGLE  PRECISION 

; DON'T  DISPLAY  REGISTERS  ON  ERRORS 
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.S8TTL 
.IDENT 


■nT 


APLDEF 
\V02.03\ 


1 


APL 
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MT 
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DEFINITIONS     ERRORS 
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TIT 


.LIST     SEQ,SRC,LOC,BIN,BEX,MEB 
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EMPTY       MACRO  Ml  113     08-FEB-80  11 :51 
DEFINITIONS  ERRORS 

1 
2 
3 

5 

6 
7 
8 

9 
10 
11 
12 
13 
1A 

15  000000 
16 


PAGE  4A 


TITLE 
I  DENT 


WTT 


EMPTY 
\V02.03\ 


SBTTL  EMPTY 


CREATE  AN  EMPTY  ARRAY 


17  000000 

EMPTY:: 

18  000000 

1 1 6400 

000002 

M0V8 

A.DIMS(R4),R0   ; 

19  OOOOOA 

CONINC 

RO 

20  000010 

PUSH 

RO 

21  000012 

006300 

ASL 

RO 

22  OOOOK 

062700 

000006 

ADD 

#A.DIM1,R0 

23  000020 

PUSH 

RO 

24  000022 

CALL 

GET COR 

25  000026 

012725 

OOOOOOG 

MOV 

#SYSER,(SI)+ 

26  000032 

012725 

102000 

MOV 

#T.NUM+T.VAL,(SI) 

27  000036 

132764 

000006  000003 

BITS 

/!fA.NUM,A.BITS(R4) 

28  000044 

001003 

BNE 

24$ 

29  000046 

042765 

002000  1 77776 

BIC 

#T.NUM,-2(SI) 

30  000054 

010025 

24$: 

MOV 

RO,(SI)^- 

31  000056 

010010 

MOV 

RO,(RO) 

32  000060 

062620 

ADD 

(SP)+,(RO)+ 

33  000062 

01 2602 

MOV 

(SP)+, R2 

34  000064 

110220 

M0V8 

R2,(R0)+ 

35  000066 

CONINC 

R2 

36  000072 

116410 

000003 

M0V8 

A.BITS(R4),(R0)  ; 

37  000076 

142720 

177571 

BICB 

/)f^C<A.NUM^-A.ASB>, 

38  000102 

005020 

CLR 

(R0)  + 

39  000104 

005020 

23$: 

CLR 

(R0)  + 

40  000106 

SOB 

R2,23$ 

41  000112 

RETURN 

•f-f 
FUNCTIONAL  DESCRIPTION: 

•EMPTY'  CREATES  AN  EMPTY  ARRAY  OF  THE  SAME  DIMENSIONS  AS  THE 
ONE  POINTED  TO  BY  R4.  AN  ENTRY  IS   ALSO  MADE  ON  THE  SI  FOR  THE 
ARRAY. 

INPUTS: 

R4  -    POINTER  TO  SOURCE  ARRAY 

.PSECT  CODE 


GET  DIM  COUNT 

.•CHEAT  FOR  SCALAR 

SAVE  FOR  LATER 

MAKE  INTO  WORD  COUNT 

PLUS  HEADER  SIZE 

SAVE  OFFSET  SIZE 

GET  SOME  CORE  FOR  THE  RESULT 

NO  RETURN  FROM  THIS  FRAME 

+;SHOW  IT'S  A  VALUE 

;BUT  IS  IT  NUMARIC? 

YES,  SO  LEAVE  ALONE 

CLEAR  NUMARIC  FLAG  FOR  LITTERALS 

POINT  TO  RESULT 

POINT  TO  SELF 

ADD  OFFSET  WORD 

SAVE  /«^  OF  DIMS 

FILL  IN  DIMS 

CHEAT  FOR  SCALAR 

FILL  IN  BITS 

(R0)+  ;KILL  EXCESS  BITS 

NO  LENGTH 

CLEAR  SIZE  ALONG  THIS  DIM 

BE  SURE  TO  DO  ALL  DIMS 

DONE  I  I  1 


EMPTY   MACRO  Ml  11 3  08-FEB-80  11:51  PAGE  47 


N  15 


N  15 

EMPTY   MACRO  Ml  113  08-FEB-80  11 :51   PAGE  47 
EMPTY  CREATE  AN  EMPTY  ARRAY 

1        000001  .END 


EMPTY 

""ACRO  Ml  113 

08- 

-FER-80 

11:51   DACE 

47-1 

B  16 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR^ 

000073 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

AC1   = 

XOOOOOl 

CHRLPR= 

000072 

C.BUFF= 

1 77760 

D.DMD  ^ 

000010 

EMPTY 

OOOOOORG 

020 

AC2   = 

%000002 

CHRMNS= 

000137 

C.BUFL= 

177762 

D.DQAD= 

1 11111 

ENDCOR 

000004R 

025 

AC3   = 

%000003 

CHRMUL= 

000075 

C.CCNT= 

1 77766 

D .  DROP- 

000002 

EOF   = 

104475 

AC4   ^ 

XOOOOOA 

rHRNE6= 

000100 

C.CPTR= 

1 77^64 

D.ENCD= 

000002 

ERRMAX= 

000166 

ACS   = 

XOOOOOS 

hRPDL= 

000271 

C.CZ  = 

0^ 1 000 

D.EQ  = 

000000 

ERRNUM 

004772R 

0?*^ 

ALL I NT 

003274R 

025 

.HRPLU= 

000055 

C.DIG  = 

J00040 

D.EXPD= 

000002 

ERRPTR 

004770R 

02'':> 

ARYRET 

003276R 

025 

CK<PWR= 

0001 20 

C.FASW= 

020000 

D.FGET= 

000005 

ERRO 

004774R 

025 

ASCQUO= 

0OO0A2 

CHRQST= 

000121 

C.FLEN= 

00001 0 

D.FMT  = 

000004 

EXEBUF 

005054R 

025 

A.ALEN= 

OOOOOA 

CHRQU0= 

0001 1 3 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$CT 

005056R 

025 

A.ARG  = 

OOOOAO 

CHRRBR= 

000047 

C.FRC  = 

000001 

D.FPUT= 

000005 

E$PT 

005060R 

025 

A.ASB  = 

000200 

CHRRPR= 

000042 

C.IDEN= 

00001 0 

D.GE  = 

000000 

FA.APD= 

00010^ 

A.BITS= 

000003 

C'IRSEM= 

000074 

C.NAME= 

000102 

D.GT  = 

000000 

FA.CRE= 

0000' 0 

A. CON  = 

000020 

CHRSM0= 

0001 1 2 

C.NOBF= 

000400 

D.IBM  = 

000002 

FA.DLK= 

001000 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.ENB= 

100000 

A.DIM1= 

000006 

lHRUPA= 

000131 

COP  = 

000004 

D.INNR= 

000013 

FA.EXC= 

002000 

A. MUM  = 

000006 

CHR.BS= 

00001 0 

C.OPN  = 

010000 

D.INTR= 

000006 

FA. EXT= 

000004 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.RDLN= 

1 7711 t 

D.LE  = 

OuOOOO 

FA.NSP= 

000100 

A.TMP  = 

000010 

CHR.CR= 

000015 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.NSR= 

000200 

BADDIR= 

10AA63 

CHR.CZ= 

000032 

C.RND  = 

000010 

D.LT  = 

000000 

FA.POS= 

010000 

BADERR= 

10AA37 

CHR.GT= 

000046 

C.S8JT= 

177756 

D.MAX  = 

000000 

FA.RD  = 

000001 

BLZBUB 

0051 16R 

025 

CHR.LF= 

00001 2 

C.SPFX= 

000100 

D.ME**^  = 

000002 

FA.RWD= 

004000 

BRSELF 

0050A6R 

025 

CHR.LT= 

000043 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.SEQ= 

040000 

CCNT 

0OS072R 

025 

CHR.SI= 

00001 7 

C.SPLX= 

000001 

D..MUL  = 

000000 

FA.SHR= 

000040 

CHANEX 

003060R 

02 '^ 

CHR.SL= 

000057 

C . SPRS= 

000002 

D.NE  = 

000000 

FA.TMP= 

000020 

CHANOO 

000256R 

02  D 

CHR.SO= 

000016 

C.SRC  = 

1 1111 1, 

D.NN  = 

000000 

FA.WCK= 

020000 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C.SRCP= 

000024 

D.NR  = 

000000 

FA.WRT= 

000002 

CHAN02 

000S12R 

025 

CHR.UL= 

000106 

C.TT  = 

000004 

D.OR  = 

000000 

FD.BLK= 

000010 

CHAN03 

00067AR 

o:5 

CHR..A= 

000141 

C.WIDC= 

1 1111^ 

D.PLUS= 

000000 

FD.CCL= 

000002 

CHAN04 

001056R 

0"5 

CHR..E= 

000145 

C.WJDR= 

1 11112 

D.PSI.R= 

000006 

FD.CO«= 

020000 

CHANGS 

001 240R 

o:5 

CHR. . S— 

000163 

DEBUG  -- 

000000 

D.PWR  = 

000001 

FD.CR  = 

000002 

CHAN06 

00K22R 

025 

CHR..T= 

000164 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.DIR= 

000010 

CHAN07 

001604R 

C25 

CHR..U= 

000165 

DEVIL 

0051 14R 

025  D.QUAD= 

000000 

FD.FTN= 

000001 

CHAfJOS 

001766R 

025 

CHR.. 2= 

0001 72 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.F11= 

040000 

CHAN09 

0021 50R 

025 

CHR..0= 

000060 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.INS= 

000010 

CHAN10 

002332R 

025 

CHR..1= 

0<  0061 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.ISP= 

002000 

CHAN11 

0025  KR 

025 

CH.AND= 

0(  )001 

Dir«LK 

0031 12R 

025  D.SC0N= 

000006 

FD.MNT= 

100000 

CHA^J12 

002676R 

025 

CMOaJF 

0(  ^250R 

025 

DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.OSP= 

004000 

CHAN13 

000022R 

023 

ChDWAX= 

OC  '010 

DIMTYP 

0031 16R 

025  D.SLR  = 

000000 

FD.PLC= 

000004 

CHANU 

000204R 

023 

CNTSIZ 

005130R 

025 

DIRFUL^ 

104466 

D.SU8S= 

000006 

FD.PRN= 

000004 

CHNOPN= 

104A71 

COMBIN 

005076R 

025 

DOMERR= 

104417 

D.TAKE= 

000002 

FD.PSE= 

010000 

CHRAND= 

000051 

COMCNT 

0051 26R 

025 

DPTERR= 

104416 

D.TRAN= 

000004 

FD.RAH= 

000001 

CHRBEL= 

000007 

COMERR= 

1 04425 

DYDCNT 

003224R 

025  D.IJNON= 

000006 

FD.RAN= 

000002 

CHRBKR= 

000133 

COMPTR 

005122R 

025 

D.ANO  = 

000000 

D.$MAX= 

000000 

FD.REC= 

000001 

CHRBa= 

000200 

COMRTN 

0031 56R 

025 

D.BXCT= 

000007 

D.$MIN= 

000000 

FD.RWM= 

000001 

CHRBOX= 

0001K 

COMSKP 

0051 24R 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SDI= 

000020 

CHRCMA= 

000054 

CORPTR 

0051 20R 

025 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.SQD= 

000040 

CHRCa= 

000076 

CS.ASS= 

000200 

D.8XPP= 

000007 

D.$RES= 

000000 

FD.TTY= 

000004 

CHRDEL= 

000107 

CS.B00= 

000010 

D.BXPW= 

000007 

D.$SUB= 

000000 

FD.WBH= 

000002 

CHRDIV= 

000053 

CS.FLO= 

000020 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.CHR= 

000005 

CHRDLR= 

000176 

CS.IDN= 

000040 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.NV  = 

000003 

CHRDLT= 

000110 

CS.ONE= 

000100 

D.C0f1B= 

000001 

D.1R0T= 

000003 

FF.POE= 

000002 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D.corip= 

000001 

EDICHR 

005063R 

025  FF.RWD= 

000001 

CHREP  = 

000105 

CTMAX 

00021 2R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF.RWF= 

000006 

CHRERR= 

104A31 

CTRMAX 

0001 72R 

025 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  FF.SPC= 

000004 

CHRFIL= 

000177 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

FHEAi^R 

00501 2R 

025 

CHRFRO= 

000135 

C.BLOK:^ 

000064 

D.DECD= 

000002 

EIS   = 

000000 

FHRET 

005040R 

025 
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SYMBa  TABLE 

FILNTF=  10AA67 

F.F^e  = 

000102 

KHAN 

005050R 

025  MONPTR 

0031 22R 

025  M.SATA= 

000001 

FIS   =  000000 

F.FNDF= 

000010 

ILFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

F1SC0N=  046000 

F.FTYP= 

000116 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FIXPTR  00307AR 

025 

F.FUN  = 

000010 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SJGN= 

000000 

FLAGS   00476AR 

025 

F.FVER= 

000120 

INDERR= 

104410 

M.ABS  = 

000000 

M.SUBR= 

000001 

FLCBUF  003250R 

025 

F.HEAD= 

000006 

INNTMP 

003250R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLI^€   0050HR 

025 

F.HIBK= 

000004 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FLOEXP  003270R 

025 

F.LBL  = 

000020 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN= 

000012 

FLONEG  003272R 

025 

F.LINE= 

000012 

INSNAM= 

104462 

M.8XCT= 

000007 

M.$ABS= 

000000 

FLSWTB  000222R 

025 

F.LOC  = 

000004 

lOERR  = 

104477 

M.BX£X= 

000007 

M.$CEI= 

000000 

FLTLEN=  000010 

F.LSTC= 

000004 

I.CNT  = 

177776 

M.BXFX= 

000007 

M.$FLR= 

000000 

FNINSI  0050AAR 

025 

F.LUN  = 

000042 

I. DIM  = 

177772 

M.BXI0= 

000007 

M.$IDN= 

000000 

• 

FORIGN  000032R 

025 

f.mn= 

000054 

I.LEN  = 

000012 

M.BXLC= 

000003 

M.$NEG= 

000000 

FO.APO=  000106 

F.MBC1  = 

000055 

I.OERR= 

00D062 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.MFY=  000002 

F.MBFG= 

000056 

I. OLD  = 

17/770 

M.BXNL= 

000007 

M.1RDT= 

000011 

FO.RD  =  000001 

F.MON  = 

000002 

I.PTR  = 

177774 

M.BXPP= 

000007 

M.1REV= 

000003 

FO.UPD=  000006 

F.NIL  = 

000001 

I.STR  = 

1 77766 

M.BXPW= 

000007 

M.1SCN= 

00001 1 

FO.WRT=  000016 

F.NRBO= 

000024 

LABERR= 

104406 

M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FPMOOE  000042R 

025 

F.NREC= 

000030 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FPP   =  000000 

F.OPN  = 

000010 

LARQBL 

0031 62R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

FPPLEN=  000004 

F.OVBS= 

000030 

LARGCV 

0031 76R 

025  M.CEI  = 

1 77777 

NB.NAM=  000004 

FREBLK  007400R 

025 

F.PREV= 

000000 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FUZZ    0OOH2R 

025 

F.PRNT:= 

100000 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

FXPTR1  003076R 

025 

F.PR0T= 

010000 

LARGLN 

0031 66R 

025  M  DOUT= 

000006 

NB.SNM=  000040 

F$E VAL=  000100 

F.RACC= 

000016 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$EVI  =  000200 

F.RATT= 

000001 

LARGSF 

3031 72R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F$EXEC=  000400 

F.RCNM= 

000034 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F$FUNC=  001000 

F.RCTL= 

000017 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F.ACTL=  000076 

F.READ= 

004000 

LBINC 

0051 OOR 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.ALOC=  000040 

F.REDF= 

000040 

LBUFF 

00331 6R 

025  M.FIL  = 

000177 

ND.EXT= 

000002 

F.BBFS=  000062 

F.RES  = 

000040 

LBUFLN=  000621 

M.FLR  = 

1 77777 

nJD.NAM=  000004 

F.BOB  =  000070 

F.RET  = 

1 77772 

LCOUNT 

005106R 

025  M.FMT  = 

000004 

ND.PPN=  000100 

F.BGBC=  000057 

F.RSIZ= 

OOOCO? 

LENERR= 

104412 

M.GDUP= 

000003 

ND.$EX= 

000000 

F.BITS=  1////'4 

F.RTYP= 

000000 

LENTAB 

000054R 

025  M.GDWN= 

000003 

ND.$ES= 

000020 

F.BICON=  000026 

F.R2  = 

000014 

LEXPTR 

0031 OOR 

025  M.6ETI= 

000006 

NP.$NM=  000000 

F.BICDS=  000020 

F.R3  = 

000016 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$=  000040 

F.BICEF=  000050 

F.R4  = 

000020 

LINC 

005102R 

025  M.IDN  = 

000000 

ND. $PN=  001400 

F.BICP1=  000051 

F.SEQN= 

000100 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN 

005063R 

025 

F.B»CST=  000024 

F . SPDV= 

000072 

LININC 

005026R 

025  M.I0TA= 

000000 

NINPT1 

003302R 

025 

F.BICVB=  000064 

F.SPUN= 

000074 

LISIZE= 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.BR  =  000020 

F.STBK= 

000036 

LI  TOP 

005072R 

025  M.LN  = 

000001 

NINSTK 

003304R 

025 

F.CHR  =  000075 

F.STK  = 

000022 

LNLN6  = 

104541 

M.MMD  = 

000010 

NINTMP 

00331  OR 

025 

F.CNT6=  000034 

F.ST0P= 

000004 

LOCLCT 

005036R 

025  M.NE6  = 

000000 

NINTYP 

003306R 

025 

F.CODE=  000010 

F.STP  = 

000001 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

NOTAVL= 

104472 

F.DF^B=  000046 

F.SUSP= 

000002 

LSTERP 

004766R 

025  M.NUB  = 

000006 

NOTOPN= 

104473 

F.DSPT=  000044 

F.TRC  = 

000002 

LWIDTH 

000070R 

025  M.NIM  = 

000204 

NPRT1 

004762R 

025 

F.DVNM=  000134 

h.UNIT= 

000136 

L.BITS= 

000003 

M.OUTR= 

000012 

NULL 

007364R 

025 

F.EFac=  000010 

F.URBD= 

000020 

L.CNT  = 

000002 

M. PI TM=  000000 

NUMCHN=  000020 

f.EFN=   000050 

F.VAL  = 

1 77776 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

F.END  =  002000 

F.VBN  = 

000064 

L.PTR  = 

000000 

M.QQAD= 

000000 

NUMEFL 

003233r. 

025 

F.EnRR=  000032 

F.VBSZ= 

000060 

L.PTR1= 

000004 

M.QUAD= 

000000 

NUMESN 

003236R 

025 

f.ERR   =  000052 

6ETC0R= 

**••**  6X 

L.Sl.flS= 

000002 

M.RAND= 

000012 

NUMFLG 

003230R 

025 

F.FACC=  000043 

GNOME 

0031 02R 

025  MACHIN= 

000106 

M.RAVL= 

000000 

NUMLEN 

000062R 

025 

F.FFBY=  000014 

H/SHC 

0051 36R 

025  MAXCHN= 

000014 

M,RCIP= 

000000 

NUMNEG 

003232R 

025 

F.FLA6=  000002 

HASHTB 

0051 40R 

025  MONBLK 

0031 20R 

025  M.RDCT= 

00001 1 

NUMQFL 

005234R 

025 

F.FLB  =  000100 

HSHMSK= 

177601 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

NUMRIG 

003231 R 

025 

f.ff4AM=   000110 

HSHS1Z= 

000200 

MONLEN 

0031 30R 

025  M.ROLL= 

000000 

NUMWID 

003226R 

025 
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SYMBOL 

TABLE 

NUMZFL 

003235R 

025 

RARGBL 

00320AR 

025 

R.PREV= 

0000^ : 

SY.CLR= 

OOOOAO 

T.LIT  = 

000020 

NYIERR= 

10AA32 

RARGCV 

003220R 

025 

R.PTR  = 

OOOC 

SY.ERP= 

000020 

T.MON  = 

000010 

N.RI.SZ= 

000036 

RARGFL 

003202R 

025 

R.SEQ  = 

000003 

SY.NOU= 

000100 

T.NIL  = 

OOOOOA 

N.DESC= 

000020 

RARGLE 

00321 6R 

025 

R.VAR  = 

000002 

SY.0PN= 

000002 

T.NUM  = 

002000 

N.DEV  = 

000032 

RARGLN 

00321  OR 

025 

R6 

X000006 

SY.PMT= 

001000 

T.OPFN= 

000001 

N.DEVN=  00003A 

RARGPT 

003206R 

025 

R7 

X000007 

SY.SRT= 

OOOAOO 

T.OTHR= 

OAOOOO 

N.DID  = 

00002A 

RARGSF 

00321 AR 

025 

SI 

X000005 

SY.SVC= 

OOOOOA 

T.SOP  = 

000002 

N.D\/M1=  000032 

RARGTY 

00321 2R 

025 

SIDAMN= 

10AA33 

SY.SVL= 

000200 

T.SPOP= 

OOOOAO 

N.EXT  = 

00001 A 

RARGVA 

003222R 

025 

SIFRAM 

00331 AR 

025 

S.AB  = 

1 77776 

T.TMP  = 

000200 

N.FID  = 

000000 

RBASE 

00507AR 

025 

SISTAK 

006350R 

025 

S.ASB  = 

100000 

T.VAL  = 

100000 

N.FNAM=  000006 

RCOUNR 

0051 12R 

025 

SITOP 

0063A6R 

025 

S.BFHD= 

000020 

T.VAR  = 

001000 

N.FTYP=  000014 

RCOUNT 

00511  OR 

025 

SITP 

0071 AAR 

025 

S.BITS= 

000002 

UPPER  = 

1 77A00 

N.FVER= 

000016 

REDCNT 

005070R 

025 

SIWARN= 

000200 

S.CHR1= 

000003 

UTNAME 

0003AAR 

023 

N.NAME= 

000006 

REDIGN 

005066R 

025 

SIZTAB 

OOOOAAR 

025 

S.FATT= 

000016 

VALERR= 

10AA13 

N.NEXT= 

000022 

REDOFF 

005072R 

025 

SI.BIT= 

17777A 

S.FD3  = 

0001 AO 

VARBLE 

007A00R 

025 

N.PPN  = 

00002A 

REENTR 

003060R 

025 

SI.LEN= 

177772 

S.FLB  = 

OAOOOO 

VARBLS 

OOOOOOR 

025 

N.STAT= 

000020 

RESBIT 

0031 A2R 

025 

SI.RET= 

177772 

S.FNAM= 

000006 

VERNUM 

OOOOOOR 

025 

N.UNIT= 

00003A 

RESCVT 

0031 52R 

025 

SI.VAL= 

177776 

S.FNB  = 

000036 

VRSION= 

000002 

OBUFLN=  001000 

RESERR= 

10AAA0 

SKPS12 

00513AR 

025 

S.FNBW= 

000017 

WIDTH 

000072R 

025 

OCHAN 

005052R 

025 

RESLEN 

0031 50R 

025 

SPHOLD 

OOOOOAR 

02A 

S.FNTY= 

OOOOOA 

UROUND 

000020R 

025 

nwnDE 

000A02R 

023  RESPTR 

0031 AOR 

025 

SPINIT 

000002R 

02A 

S.FTYP= 

000002 

WSDATE 

0001 36R 

025 

OPIMPO 

005066R 

025 

RESSFT 

0031 A6R 

025 

STKINC= 

00077A 

S.LEN  = 

000002 

WSFULL= 

10AA03 

0PTMP1 

005070R 

025 

RESTYP 

0031 AAR 

025 

STOP  = 

10AA20 

S..LINK= 

1 77/7A 

WSNAME 

00007AR 

025 

0PTMP2 

005072R 

025 

RESULT 

0031 36R 

025 

SUBCNT 

0031 OAR 

025 

S.NFEN= 

000020 

UISTIME 

0001 32R 

025 

0PTMP3 

005074R 

025 

RESVAL 

0031 5AR 

025 

SUBDCT 

003106R 

025 

S.TYPE= 

1A0000 

$FIS  = 

••••••  G 

OPTMPA 

005076R 

025 

RINC 

^051  OAR 

025 

SIRPTR 

00311 OR 

025 

S.VAL  = 

000000 

$fPP     = 

•••♦••  Q 

0PTMP5 

0051 OOR 

025 

RLT8AS 

005066R 

025 

SYrei 

0053AAR 

025 

TKDIMS 

005072R 

025  $fPPLN= 

••••••  G 

0PTMP6 

0051 02R 

025 

ROTINC 

005070R 

025 

SYMF 

0053A0R 

025 

TKFRAM 

005066R 

025  $MACHN= 

♦•••♦*  G 

0PTI1P7 

0051  OAR 

025 

ROUND 

00001  OR 

025 

SYMPTI 

0053A6R 

025 

TKLEFT 

005070R 

025  t.^STS  = 

•*••*•  G 

0PTMP8 

0051 06R 

025 

ROVER 

00331 2R 

025 

SYMTAB 

005352R 

025 

TMODE 

000A03R 

023  $RSX  = 

*•••••  G 

0F^^f>9 

0051 10R 

025 

RSTS  = 

000000 

SYMTBF= 

10AA0A 

TMPTA6= 

000166 

$RT11  = 

*••*••  G 

0PTM10 

0051 12R 

025 

RSX   = 

000115 

SYMTOP 

005350R 

025 

'TYBUF 

OOA 1 AOR 

025  .BOOLE= 

000002 

0PTM1A 

005026R 

025 

RTOP 

005070R 

025 

SYMTP 

006272R 

025 

1 YLEN= 

000622 

.CHARA= 

000000 

ORIGIN 

000030R 

025 

RT11  = 

000000 

SYMWRN=  00005A 

TURKEY= 

1 0AA36 

.DEF.  = 

000002 

OUTPTR 

000066R 

025  R.BITS= 

000003 

SYNERR= 

10AA07 

TYPE  = 

000166 

.FLOAT= 

000006 

OVROPR= 

000000 

R.FIX  = 

000001 

SYSER  = 

««r*«««  GX 

T.BOL  = 

020000 

.FSRCB= 

•**•••  G 

PATCH 

0073AAR 

025 

R.LCT  = 

000002 

SYSERR= 

10AA02 

T.CON  = 

OOAOOn 

. INTEG= 

OOOOOA 

PRECSN 

0OOO52R 

025 

R.LN  = 

000002 

SYSTAT 

OOOOOOR 

02A 

T.DIM  = 

0001 OU 

.MOLUN 

OOOAOAR 

023 

RAM)AC 

00306AR 

025 

R.LNUri= 

000010 

SY.8AD= 

000001 

T.FUN  = 

010000 

...GBL= 

000000 

RANDY 

003062R 

025 

R.NEXT= 

000006 

SY.8RK= 

100000 

T.LIST= 

OOOAOO 

^-'   ...TPC= 

000020 

RANERR= 

10AA11 

R.OFF  = 

000000 

SY.8S  = 

000010 

V 

.  ABS. 

000000 
000000 

000 
001 

^ 

^ 

TABLES 

000000 

002 

MONTB 

000000 

0U3 

DVDTB 

000000 

OOA 

B  "PTB 

000000 

005 

MONBTB 

000000 

006 

OYDBTB 

000000 

007 

COMTB 

000000 

010 

CHRTBL 

000000 

or 

\/TBL 

000000 

01. 

ASCTBL 

000000 

013 

OVRTBL 

000000 

01A 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 
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SYMBOL 

TABLE 

MNTRTL 

000000 

017 

CODE 

00011 A 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEF$0 

000A06 

023 

DEFSI 

000006 

024 

DEF$2 

007400 

025 

ERRORS 

DETECTED: 

0 

11:51   PAGE  47-4 


E  16 


VIRTUAL  MEMORY  USED:   12921  WORDS  (  51  PAGES) 

DYNAMIC  MEMORY:   14478  WORDS   (  55  PAGES) 

ELAPSED  TIME:  00:02:04 

EMPTY, DM1 :C305,301DEMPTY/-SP=APLRX1,APLDEF, EMPTY, END 


♦*FILE**ID**ENDL 


F  16 


♦*FILE**ID**ENDL 


F  16 


EEEEEEEEEE 

NN 

NN 

DDDDDDDD 

LL 

EEEEEEEEEE 

m 

NN 

DDDDDDDD 

LL 

EE 

NN 

NN 

DD 

DD 

LL 

EE 

NN 

NN 

DD 

DD 

LL 

EE 

NNNN 

NN 

DD 

DD 

LL 

EE 

NNNN 

NN 

DD 

0? 

LL 

EEEEEEEE 

NN  NN  NN 

DD 

Dl 

LL 

EEEEEEEE 

NN  NN  NN 

DD 

DD 

LL 

EE 

NN 

NNNN 

DD 

DD 

LL 

EE 

NN 

NNNN 

DD 

DD 

LL 

EE 

NN 

NN 

DD 

DD 

LL 

EE 

NN 

NN 

DD 

DD 

LL 

EEEEEEEEEE 

NN 

NN 

DDDDDDDD 

LLLLLLLLLL 

EEEEEEEEEE 

NN 

NN 

DDDDDDDD 

LLLLLLLLLL 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

TT 

LL 

ss 

IT 

LL 

SS 

TT 

LL 

ss 

T 

LL 

ssssss 

Ti 

LL 

ssssss 

TT 

LL 

ss 

TT 

LL 

ss 

TT 

LL 

ss 

TT 

LL 

ss 

TT 

LLLLLLLLLL 

SSSSSSSS 

TT 

LLLLLLLLLL 

SSSSSSSS 

TT 

TVS' 


.MAIN.     MACRO  m 11 3     08-FEB-80  11 ;5A 


▼  »  rxi    r-      r^r-       /•  r>»  iTr"»  iT^ 


.MAIN.  MACRO  Ml  11 3  08-FEB-80  11 :5A 
TABLE  OF  CONTENTS 

2-    1  APLDEF 

2-    8  A  P  L 

2-    9 

2-10  A  PROGRAMMING  LANGUAGE 

2-   11 

2-   12  STEVE  POULSEN  I   DAVE  VANN 

2-   13  11-Jul-76 

2-   14  ROBERT  GOTTLIEB  &  PETER  HAYNES 

2-   15  2-Feb-79 

2-   16 

2-17  V2 


G  16 


COPYRIGHT  (C)  1976,  1977,  1978,  1979,  1980 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS, 


THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A  SINGLE 
COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE  INCLUSION  OF  THE  ABOVE 
COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT 
BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR 
USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS. 
TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN 
DEC. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DEC  ASSUMES  NO  RESPONSIBILITY  FOR 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT 


THE  USE  OR  RELIABILITY  OF  US 
SUPPLIED  BY  DEC. 


3- 

46 

DEFINITIONS 

ASSEMBLY  PARAMETERS 

4- 

139 

DEFINITIONS 

OPERATOR  OVERLAYS 

5- 

268 

DEFINITIONS 

REGISTERS 

6- 

331 

DEFINITIONS 

MEMORY  ORGANIZATION 

7- 

377 

DEFINITIONS 

ORDERING  PSECTS 
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426 

DEFINITIONS 

SI  PARSE  FRAMES 

9- 

474 

DEFINITIONS 
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10- 
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DEFINITIONS 

SI  EXECUTION  FRAMES 
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580 

DEFINITIONS 

SPECIAL  PARSE  CHARACTERS 

12- 

607 

DEFINITIONS 

CHRTAB  BITS 
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624 

DEFINITIONS 

SYSTEM  STATUS  BITS 
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640 

DEFINITIONS 

F-FRAMES 
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DEFINITIONS 

FUNCTION  LINE  BLOCKS 

16- 
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DEFINITIONS 

ARRAY  STORAGE  BLOCK 
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869 

DEFINITIONS 

LIST  STORAGE  BLOCK 
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911 

DEFINITIONS 

INDEXING  STACK  FRAME 

19- 

940 

DEFINITIONS 

SYMBOL  TABLE  ENTRY 

20- 

969 

DEFINITIONS 

CHANNEL  BLOCK 

22- 

1085 

DEFINITIONS 

RSX  DATA 

23- 
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DEFINITIONS 

NAME  BLOCKS 
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5 

8 

9 

10 
11 


000000 
000000 
0001 1 5 

000000 
000000 
000000 

OOOOOA 

000000 


RT11 
RSTS 
RSX 

II  II  II 

3COO 

EIS 
FIS 
FPP 

M    II    II 
OOO 

FPPLEN 

=  4 

DEBUG 

=  0 

H  16 

;NOT  RT-11 
;N0T  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

; SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 
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1  .S8TTL  APLDEF 

2  .IDENT  \V02.03\ 
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DEFINITIONS 

ERRORS 

1 
2 

3 

A 

5 

6 

7 

8 

9 

10  000000 

11 

12  000000 

122702 

00001 5 

13  OOOOOA 

001410 

14  000006 

122702 

000040 

15  000012 

001401 

16  OOOOU 

104425 

17 

18  000016 

000016 

005303 

000020 

002402 

000022 

1 1 2402 

19  000024 

000765 

20 

21  000026 

22 
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.TITLE 
.IDENT 
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ENDL 
\V02.03\ 


.S8TTL  ENDL 


CHECK  SYNTAX  AT  EOL 


FLiNCTIONAL  DESCRIPTION: 

CHECK  FOR  END  OF  LINE 


.PSECT  CODE 


ENDL : 
1$ 
2$ 
3$ 


CMPB 

BEQ 

CW»8 

BEQ 

COMERR 


/fCHR.CR,R2 
4$ 

4fCHRSPA,R2 
3$ 


4$ 


4$: 


GETC 

DEC  R3 

BLT  4$ 

MOVB  (R4)+,R2 

BR      ENDL 

RETURN 


:1S   CHAR  A  CR? 
;YES,  RETURN 
.•SPACE? 

;YES,  IGNORE  IT 
; COMMAND  ERROR 

;GET  A  CHAR 

;ANY  CHARACTERS  LEFT? 
;N0,  BRANCH  TO  4$ 

;YES,  GET  NEXT  CHAR 
;AND  CHECK  IT 
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.END 
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M  16 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

C.8LSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

AC1   = 

X000001 

CHRLPR= 

000072 

C.8UFF= 

1 77760 

D.DMD  = 

000010 

END COR 

000004R 

025 

AC2   = 

X000002 

CHRMNS= 

000137 

C.8UFL= 

1 77762 

D.DQAD= 

1 77777 

ENDL 

OOOOOORG 

020 

AC3   = 

X000003 

CHRMUL= 

000075 

C.CCNT= 

1 77766 

D.DROP= 

000002 

EOF   = 

104475 

ACA   = 

XOOOOOA 

CNRNEG= 

000100 

C.CPTR= 

1 77764 

D.ENCD= 

000002 

ERRMAX= 

000166 

ACS   = 

X000005 

CNRPDL= 

000271 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRNUM 

004772R 

025 

ALLINT 

003274R 

025 

CHRPLU= 

000055 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRPTR 

004770R 

025 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C.FASW= 

020000 

D.FGET= 

000005 

ERRO 

004774R 

025 

ASCQUO= 

0000A2 

CHRQST= 

000121 

C.FLEN= 

000010 

D.FMT  = 

000004 

EXEBUF 

005054R 

025 

A.ALEN= 

OOOOOA 

CHRQUO= 

000113 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$CT 

005056R 

025 

A.ARG  = 

000040 

CHRRBR= 

000047 

C.FRC  = 

000001 

D.FPUT= 

000005 

E$PT 

005060R 

025 

A.ASB  = 

000200 

CHRRPR= 

000042 

C.IDEN- 

000010 

D.6E  = 

000000 

FA.APD= 

000100 

A.BITS= 

000003 

CHRSEM=  000074 

C.NAME= 

000102 

D.6T  = 

000000 

FA.CRE= 

000010 

A.CC3N  = 

000020 

CHRSMO= 

000112 

C.N0BF= 

000400 

D.IBM  = 

000002 

FA.DLK^ 

001000 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.ENB= 

100000 

A.D1M1= 

000006 

CHRUPA= 

000131 

COP  = 

000004 

D.INNR= 

000013 

FA.EXC= 

002000 

A.NUM  = 

000006 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.EXT= 

000004 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.RDLN= 

1 77776 

D.LE  = 

000000 

FA. NSP= 

000100 

A.  IMP  = 

000010 

CHR.CR= 

00001 5 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.NSR= 

000200 

BADDIR= 

10A463 

CHR.CZ= 

000032 

C.RND  = 

000010 

D.LT  = 

000000 

FA.POS= 

010000 

BADERR= 

104A37 

CHR.GT= 

000046 

C . S8I T= 

1 77756 

D.MAX  = 

000000 

FA.RD  = 

000001 

BLZBUB 

0051 16R 

025 

CHR.LF= 

00001 2 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.RWD= 

004000 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.SEQ= 

040000 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C . SPLX= 

000001 

D.MUL  = 

000000 

FA.SHR= 

000040 

CHA^€X 

003060R 

025 

CHR.SL= 

000057 

C.SPRS= 

000002 

D.NE  = 

000000 

FA.TMP= 

000020 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C.SRC  = 

1 7777^ 

D.AJN  = 

000000 

FA.WCK= 

020000 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C.SRCP= 

000024 

D.NR  = 

000000 

FA.WRT= 

000002 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.TT  = 

000004 

D.OR  = 

000000 

FD.BLK= 

000010 

CHAN03 

00067AR 

025 

CHR..A= 

000141 

C.WIDC= 

1 77770 

D.PLUS= 

000000 

FD.CCL= 

000002 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.WIDR= 

1 77772 

D.PS(R= 

000006 

FD.COM=  020000 

CHAN05 

001240R 

025 

CHR . . 5— 

000163 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.CR  = 

000002 

CHAN06 

001A22R 

025 

CHR..T= 

000164 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.DIR= 

000010 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEVIL 

0051 14R 

025  D.QUAD= 

000000 

FD.FTN= 

000001 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.F11= 

040000 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.INS= 

000010 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.ISP= 

002000 

CHAN11 

0025UR 

025 

CH.AND= 

000001 

DIMBLK 

0031 12R 

025  D.SCON= 

000006 

FD.MNT= 

100000 

CHAN12 

002676R 

025 

CMD6UF 

003250R 

025 

DIMPTR 

0031 14R 

025  D.SDIF:= 

000006 

FD.OSP= 

004000 

CHAN13 

000022R 

023 

CMDMAX= 

000010 

DIMTVP 

0031 16R 

025  D.SUB  = 

000000 

FD.PLC= 

000004 

CHANU 

000204R 

023 

CNTSIZ 

005130R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PRN=  000004 

CHNOPN= 

104471 

COMBIN 

005076R 

025 

DOMERR= 

104417 

D.TAKE= 

000002 

FD.PSE= 

010000 

CHRAND= 

000051 

COMCNT 

0051 26R 

025 

DPTERR= 

104416 

D.TRAN= 

000004 

FD.RAH= 

000001 

CHRRFL= 

000007 

COMERR= 

104425 

DYDCNT 

003224R 

025  D.UN0N=  000006 

FD.RAN= 

000002 

CHRBKR= 

000133 

COMPTR 

005122R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.REC= 

000001 

CHRBa= 

000200 

COMRTN 

0031 56R 

025 

D.BXCT= 

000007 

D.$MIN= 

000000 

FD.RWM=  000001 

CHR80X= 

000114 

COMSKP 

005124R 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SDI= 

000020 

CHRCI1A= 

000054 

CORPTR 

005120R 

025 

D.8XNL= 

000007 

D.$PLU= 

000000 

FD.SQD= 

000040 

CHRCa= 

000076 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.TTY= 

000004 

CHRDEL= 

000107 

CS.BOO= 

000010 

D.8XPW= 

000007 

D.$SUB= 

000000 

FD.UBH= 

000002 

CHRDIV= 

000053 

CS.FLO= 

000020 

D.8XRL= 

000007 

D.1C0M= 

000001 

FF.CHR= 

000005 

CHRDLR= 

000176 

CS.IDN= 

000040 

D.CIRC= 

000001 

D.I EXP= 

000002 

FF.NV  = 

000003 

CHRDLT= 

000110 

CS.ONE= 

000100 

o,com= 

000001 

D.1R0T= 

000003 

FF.P0E= 

000002 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D.COMP= 

000001 

EDI CHR 

005063R 

025  FF.RWD= 

000001 

CHREP  = 

000105 

CTMAX 

00021 2R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF.RWF= 

000006 

CHRERR= 

104431 

CTRMAX 

0001 72R 

025 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  FF.SPC= 

000004 

CHRFIL= 

000177 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

F HE ADR 

00501 2R 

025 

CHRFRO= 

000135 

C.BLQK= 

000064 

D.DECD= 

000002 

EIS   = 

000000 

FHRET 

005040R 

025 
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J 

K 
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D 
E 
F 
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4 

4 
A 

4 
4 
4 
4 
4 
4 
4 
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B  5 
C  5 


5 
5 
5 
5 
5 
5 


COPYC 


CPIARG 


CPOARG 


CRTFIL 


J  5 

E 

10 

M  14 

<  5 

F 

10 

N  14 

L  5 

G 

10 

B  15 

M  5 

H 

10 

C  15 

N  5 

I 

10 

D  15 

B  6 

J 

10 

E  15 

C  6 

K 

10 

F  15 

D  6 

L 

10 

G  15 

E  6 

DATA 

M 

10 

H  15 

F  6 

N 

10  DYAD 

I  15 

G  6 

B 

11 

J  15 

H  6 

C 

11 

K  15 

I  6 

D 

11 

L  15 

J  6 

E 

11 

M  15 

K  6 

F 

11 

N  15 

L  6 

G 

11 

B  16 

M  6 

H 

11 

C  16 

N  6 

I 

11 

D  16 

B  7 

J 

11 

E  16 

C  7 

DATIME 

K 

11 

F  16 

D  7 

L 

11 

G  16 

E  7 

M 

^   I 

H  16 

F  7 

N 

i1 

I  16 

G  7 

B 

12 

J  16 

H  7 

C 

12 

K  16 

I  7 

D 

12 

L  16 

J  7 

E 

12  DYDEXP 

M  16 

K  7 

F 

12 

L  7 

G 

12 

M  7 

H 

12 

N  7 

I 

12 

B  8 

J 

12 

C  8 

K 

12 

D  8 

DECNAn 

L 

12 

E  8 

M 

12 

F  8 

N 

12 

G  8 

B 

13 

H  8 

C 

13 

I  8 

r 

13  DYDRT 

J  8 

E 

13 

K  8 

F 

13 

L  8 

G 

13 

M  8 

H 

13 

N  8 

I 

13 

B  9 

J 

13 

C  9 

K 

13 

D  9 

DOT 

L 

13 

E  9 

M 

13 

F  9 

N 

13 

G  9 

B 

14 

H  9 

C 

14 

I  9 

D 

14 

J  9 

E 

14 

K  9 

F 

14 

L  9 

G 

14 

M  9 

H 

14 

N  9 

I 

14  ECHR 

B  10 

J 

14 

C  10 

DROPC 

K 

14 

D  10 

L 

14 

EMPTY 
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B  1 

syj«ol  table 

FILNTF=  10<»467 

F.FNB  = 

000102 

ILFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

FIS   =  000000 

F.^^^F= 

000010 

ILLCHM= 

104540 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FISCON=  046000 

F.F TYP= 

000116 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SIGN= 

000000 

FIXPTR  00307AR 

025 

F.FUN  = 

000010 

INDERR= 

104410 

M.A3S  = 

000000 

M.S(«R= 

000001 

FLAGS   004764R 

025 

F.F\"=R= 

000120 

I^WTMP 

003250R 

025  M.BCL  = 

000200 

M.SV^  = 

000203 

FLCBUF  003250R 

025 

F.HEmD= 

000006 

1NNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.srN  = 

000201 

FLINE   00501AR 

025 

F.HIBK^ 

000004 

INPTR 

000064R 

025  M.BXCR= 

00^^07 

M.TRAN= 

000012 

FLC€XP  003270R 

025 

F.LBL  = 

000020 

INSNAM= 

104462 

M.BXCT= 

0OOC07 

M.$ABS= 

000000 

FL0NE6  003272R 

025 

F.LINE= 

000012 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI= 

000000 

FLSWTB  000222R 

025 

F.LOC  = 

000004 

I.CNT  = 

1 77776 

M.BXFX= 

000007 

M.$FLR= 

000000 

FLTLEN=  000010 

F.Lsrc= 

000004 

I. DIM  = 

^77772 

M.BXIO= 

000007 

M.$IDN= 

000000 

FNINSI  005044R 

025 

F.Lm  = 

000042 

I.LEN  = 

000012 

M.BXLC= 

000003 

M.$NE6= 

000000 

FORIGN  000O32R 

025 

F.MBCT= 

000054 

I.OERR= 

000062 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.APO=  000106 

F.MBC1  = 

000055 

I. OLD  = 

y77770 

M.BXNL= 

000007 

M.1RDT= 

000011 

FO.MFY=  000002 

F.MBF6= 

000056 

I.PTR  = 

\7777t. 

M.BXPP= 

000007 

M.1REV= 

000003 

FO.RD  =  000001 

F.MON  = 

000002 

I. SIR  = 

177766 

M.BXPW= 

000007 

M.1SCN= 

000011 

FO.UPD=^  000006 

F.NIL  = 

000001 

LABERR= 

104406 

M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FO.URT=  000016 

F.NP8D= 

000024 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FPMOOE  000042R 

025 

F.NREC= 

000030 

LARGBL 

0031 62H 

025  M.BXUA^ 

000007 

NB.DIR= 

000100 

fPP      =  000000 

F.OPN  = 

000010 

LARGCV 

0031 76R 

025  M.CEI  = 

^77777 

l«.NAM= 

000004 

FPPLEN=  000004 

F.OVBS= 

000030 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FREBLK  007400R 

025 

F.PREV= 

000000 

LAR6LE 

0031 74R 

025  M.CMT  = 

0OC206 

NB.SD2= 

001000 

FUZZ    0OOK2R 

025 

F.PRNT= 

100000 

LAR6LN 

0031 66R 

025  M.DOUT= 

000006 

^e.s^f1=  000040 

FXPTR1  003076R 

025 

F.PKOT= 

010000 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

^e.STP= 

000020 

F$EVAL=  0  jlOO 

F.RACC= 

000016 

LAR6SF 

0031 72R 

025  M.ENCD= 

000004 

hB.SVR= 

000010 

F$EVI  =  000200 

F.RATT= 

000001 

LARGTY 

0031 70R 

025  M.EXt  = 

000000 

NB.TYP= 

000002 

F$EXEC=  000400 

F.RCNM= 

000034 

LAR6VA 

0O320OR 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F$fUNC=  001000 

F.RCTL= 

000017 

LBINC 

0051 OOR 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.ACTL=  000076 

F.READ= 

004000 

LBUFF 

00331 6R 

025  M.FIL  = 

000177 

ND.EXT= 

000002 

F.ALOC=  000040 

F.REDF= 

000040 

LBUFLN=  000621 

M.FLR  = 

\77777 

ND.NAM=  000004 

F.BBFS=  000062 

F.RES  = 

000040 

LCOUKT 

0051 06R 

025  M.FMT  = 

000004 

ND. PPN=  000100 

F.BOR  =  000070 

F.RET  = 

1 77772 

LENERR= 

104412 

M.6DUP= 

000003 

ND.$EX= 

000000 

F.BGBC=  000057 

F.RSJZ= 

000002 

LENTAB 

000054R 

025  M.GDUN=  000003 

ND.$E$=  000020 

F.BITS=  177774 

F.RTyP= 

000000 

LEXPTR 

0031 OOR 

025  M.6ETI= 

000006 

ND.$^#1=  000000 

F.BW)N=  0^.0026 

F.R2  = 

000014 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$NS=  000040 

F.BW)S=  000020 

F.R3  = 

000016 

LINC 

005102R 

025  M.IDN  = 

000000 

ND. $PN=  001400 

F.BICEF=  000050 

F.R4  = 

000020 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN 

005063R 

025 

F.»CP1=  000051 

F.SECIN= 

000100 

LININC 

005026R 

025  M.I0TA= 

000000 

NINPT1 

003302R 

025 

F.BICST=  000024 

F . SPDV= 

00007? 

LISIIE^ 

000020 

M.LIT  = 

000205 

NIfJPT2 

003300R 

025 

F.BrVB:=  000064 

F.SPUN=  000074 

LITOP 

005072R 

025  M.LN  = 

000001 

NINSTK 

003304R 

025 

F.BF  =  000020 

F.STBK= 

000036 

LNLN6  = 

104541 

M.MMD  = 

000010 

NINTMP 

00331 OR 

025 

F.CHR  =  000075 

F.S^K  = 

000022 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINTYP 

0033CJ^ 

025 

F.CNT6=  000034 

F.S(OP= 

000004 

LOUCOR 

000002R 

025  M.NOT  = 

000000 

N0TAVL= 

104472 

F.CODE=  000010 

F.STP  = 

000001 

LSTERP 

004766R 

025  M.NUB  = 

000006 

N0T0PN= 

104473 

f.Ofm=  000046 

F . SUSP= 

000002 

LWIDTH 

000070R 

025  M.NUW  = 

000204 

NPRT1 

004762R 

025 

F.DSPT=  000044 

F.TRC  = 

000002 

L.BITS= 

000003 

M.ourR= 

000012 

NULL 

007364R 

025 

F.D\/MI=  000134 

F.UNIT= 

000136 

L.CNT  = 

000002 

M.PITM=  000000 

NUMCHN=  OOOOZC 

F.EFBKr  000010 

F.UR80= 

000020 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUWDFL 

003230R 

025 

f.EfH  =  000050 

F.VAL  = 

^ 77776 

L.PTR  = 

000000 

M.(;iQAD= 

000000 

NUMEFL 

003233R 

025 

F.END  =  002000 

F.VBN  =- 

000064 

L.PTR1= 

000004 

M.OUA'^^ 

000000 

NUMESN 

003236R 

025 

F.EORB=  000032 

F.VBSZ= 

000060 

L.SUBS= 

000002 

M.RAND= 

000012 

NUMFLG 

003230R 

025 

F.ERR  =  000052 

GNOME 

0031 02R 

025  MACHIN=  000106 

M.RAVL= 

000000 

NUMEN 

000062R 

025 

F.FACC=  000043 

HASHC 

005136R 

025  MAXCHN=  000014 

M.RCIP= 

000000 

NUMNEG 

003232R 

025 

F.FFBy=  000014 

HASHT6 

005140R 

025  MONBLK 

0031 20R 

025  M.RDCT= 

000011 

NUnQFL 

003234R 

025 

F.FLAG=  000002 

HS»-f1SK= 

: 77601 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

NUMRIG 

003231 R 

025 

F.FLB  =  000100 

HSHS]Z= 

000200 

MONLEN 

0031 30R 

025  M.R0LL= 

000000 

NUMUID 

003226R 

025 

F.FNAM=  000110 

iCHAN 

005050R 

025  MONPTR 

0051 22R 

025  M.SATA= 

000001 

NUMZFL 

003235R 

025 

7~T 
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TABLE 

NYIERR= 

10AA32 

RARGCV 

003220R 

025 

R-PREV= 

000004 

SY.CLR=  000040 

T.LIT  = 

000020 

N.BLSZ= 

000036 

RARGFL 

003202R 

025 

r(.PTR  = 

OOOOOO 

SY.ERP=  000020 

T.MON  = 

000010 

N.DESC= 

000020 

RARGLE 

00321 6R 

025 

R.SEQ  = 

000003 

SY.NOU=  000100 

T.NIL  = 

000004 

N.DEV  = 

000032 

RARGLN 

00321  OR 

025 

R.VAR  = 

000002 

SY.OPN=  000002 

T.NUM  = 

002000 

N.DE\/N= 

00003A 

RARGPT 

003206R 

025 

R6 

X000006 

SY.PMT=  001000 

T.OPFN= 

000001 

N.DID  = 

00002A 

RARGSF 

00321 4R 

025 

R7 

X000007 

SY.SRT=  000400 

T.OTHR= 

040000 

N.D\/NM=  000032 

RARGTY 

00321 2R 

025 

SI 

X000005 

SY. SVC=  000004 

T.SOP  = 

000002 

N.EXT  = 

OOOOK 

RARGVA 

003222R 

025 

SIDAMN= 

104433 

SY.SVL=  000200 

T.SPOP= 

000040 

N.FID  = 

000000 

RBASE 

005074R 

025 

SIFRAM 

00331 4R 

025 

S.AB  =  177776 

T.TMP  = 

000200 

N.FNAM=  000006 

RCOUNR 

0051 12R 

025 

SISTAK 

006350R 

025 

S.A,SR  =  100000 

T.VAL  = 

100000 

N.FTYP=  OOOOK 

RCOUNT 

00511  OR 

025 

SITOP 

006346R 

025 

S.BFHD=  000020 

T.VAR  = 

001000 

N.FVERs 

000016 

REDCNT 

005070R 

025 

SITP 

0071 44R 

025 

S.8ITS=  000002 

UPPER  = 

177400 

N.NAME= 

000006 

REDIGN 

005066R 

025 

SIUARN= 

000200 

S.CHR1=  000003 

UTNAME 

000344R 

023 

N.^€XT= 

000022 

REDOFF 

005072R 

025 

SIZTAB 

000044R 

025 

S.FATT=  000016 

VALERR= 

104413 

N.F>PN  = 

00002A 

REENTR 

003060R 

025 

SI.BIT= 

1 7777^ 

S.FDB  =  000140 

VARBLE 

007400R 

025 

N.STAT= 

000020 

RES8IT 

0031 42R 

025 

SI.LEN= 

^77772 

S.FIR  =  040C00 

VARBLS 

OOOOOOR 

025 

N.UNIT= 

00003A 

RESCVT 

0031 52R 

025 

SI.RET= 

\77772 

S.FNA«=  000006 

VERNUM 

OOOOOOR 

025 

GBUFLN= 

001000 

RESERR= 

104440 

SI.VAL= 

1 7777 t 

S.FNB  =  000036 

VRSION= 

000002 

OCHAN 

005052R 

025 

RESLEN 

0031 50R 

025 

SKPSIZ 

0051 34R 

025 

S.FNBW=  000017 

WIDTH 

000072R 

025 

QPtODE 

OOO402R 

023 

RESPTR 

0031 40R 

025 

SPHOLD 

000004R 

024 

S.FNTY=  000004 

WROUND 

000020R 

025 

OPIMPO 

005066R 

025 

RESSFT 

0031 46R 

025 

SPINIT 

000002R 

024 

S.FTYP=  000002 

WSDATE 

0001 36R 

025 

0PTMP1 

OO5070R 

025 

RESTYP 

0031 44R 

025 

STKINC= 

000774 

S.LEN  =  000002 

WSFULL= 

104403 

0PTMP2 

005072R 

025 

RESULT 

0031 36R 

025 

STOP  = 

104420 

S.LINK=  177774 

WSNAME 

000074R 

025 

0PTMP3 

00507AR 

025 

RESVAL 

0031 54R 

025 

SUBCNT 

0031 04R 

025 

S.NFEN=  000020 

WSTIME 

0001 32R 

025 

0PTMP4 

005076R 

025 

RINC 

0051 04R 

025 

SUBDCT 

0C3106R 

025 

S.TYPE=  140000 

$FIS  = 

*•••••  Q 

GPTMP5 

005100R 

025 

RLTBAS 

005066R 

025 

SURPTR 

00311 OR 

^  025 

S.VAL  =  OOOOOO 

%^9P     = 

♦•***•  Q 

0PTMP6 

0O5102R 

025 

ROT INC 

005070R 

025 

SY/«1 

005344R 

025 

TKDIMS  005072R 

025  %FPPLN= 

*•***•  Q 

0PJff>7 

0051  OAR 

025 

ROUND 

00001  OR 

025 

SYMF 

005340R 

025 

TKFRAM  005066R 

025  $MACHN= 

Hitltitftit    G 

0PTMP8 

0O5106R 

025 

ROVER 

00331 2R 

025 

SYliPTI 

005346R 

025 

TKLEFT  005070R 

025  $RSTS  = 

***•*•  G 

0PTMP9 

005110R 

025 

RSTS  = 

OOOOOO 

SYMTAB 

005352R 

025 

TliODE   000403R 

023  $RSX  = 

*•••*•  Q 

OPTM10 

0051 12R 

025 

RSX   = 

000115 

SYMT8F= 

104404 

TMPTAG=  000166 

$RT11  = 

♦*•••*  G 

0PTW1A 

005026R 

025 

RTOP 

005070R 

025 

SYMTOP 

005350R 

025 

TTYBUF  0041 40R 

025  .BOOLE= 

000002 

ORIGIN 

000030R 

025 

RT11  = 

OOOOOO 

SYMTP 

006272R 

025 

TTYLEN=  000622 

.CHARA= 

OOOOOO 

OUTPTR 

000066R 

025 

R.BITS= 

000003 

SYMURN= 

000054 

TURKEY=  104436 

.DEF.  = 

000002 

OVRGPR= 

000000 

R.FIX  = 

000001 

SYNERR= 

104407 

TYPE  =  000166 

.FLOAT= 

000006 

PATCH 

0073/.AR 

025 

R.LCT  = 

000002 

SySERR= 

104402 

T.BOL  =  020000 

.FSRCB= 

*•♦*••  G 

PRECSN 

000052R 

025 

R.LN  = 

000002 

SYS TAT 

OOOOOOR 

024 

T.CON  =  004000 

.INTEG= 

000004 

RANDAC 

00306AR 

025 

R.LNUW= 

000010 

SY.BAD= 

000001 

T.DIM  =  000100 

.MOLUN 

000404R 

023 

RANDY 

00^062R 

025 

R.NEXT= 

000006 

SY.8RK= 

100000 

T.FUN  =  010000 

...GBL= 

OOOOOO 

RANERR= 

104411 

R.OFF  = 

OOOOOO 

SY.BS  = 

000010 

T.LIST=  000400 

...TPC= 

000020 

RARGBL 

003204R 

025 

.  ABS. 

oooooo 

000000 

000 
001 

TABLES 

oooooo 

002 

IIONTB 

oooooo 

003 

DYDTB 

oooooo 

004 

BOPTB 

oooooo 

005 

MONBTB 

oooooo 

006 

DYDBTB 

oooooo 

007 

COWTB 

oooooo 

010 

CHRT6L 

oooooo 

on 

VTBL 

oooooo 

012 

ASCTBL 

oooooo 

013 

OVRTBL 

oooooo 

OU 

TRNTBL 

oooooo 

015 

MNTBL 

oooooo 

016 

ft~T 
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MNTRTL 

000000 

017 

CODE 

000030 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEFSO 

000406 

023 

DEF$1 

000006 

024 

DEF$2 

0O7A00 

025 

ERRORS 

DETECTED: 

0 

VIR.  M.  MEMORY  USED:     12909  WORDS     (   51    PAGES) 
DYNAMIC  MEMORY:      14478  WORDS     (   5S  PAGES) 
ELAPSED  TIME:     00:01:40 
ENDL, DM1 : C305, 301  DENDL/-SP=APLRX1,APLDEF, ENDL, END 


**FILE**ID**ERASE 


E     1 


EEEEEEEEEE 

RRRRRRRR 

AAAAAA 

SSSSSSSS 

EEEEEEEEEE 

EEEEEEEEEE 
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AA 

AA 

SS 

EE 
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AA 

AA 

SS 

EE 

EE 
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AA 

AA 

SS 

EE 

EE 
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AA 

AA 
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AA 

AA 

SS 

EE 

EEEEEEEEEE 
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AA 
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EEEEEEEEEE 
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AA 

AA 

SSSSSSSS 

EEEEEEEEEE 

LL 
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TTTTTTTTTT 

LL 
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TTTTTTTTTT 

LL 

SS 

TT 

LL 

SS 

IT 

LL 

SS 

TT 

LL 

SS 

TT 

LL 
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TT 

LL 
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TT 

LL 

SS 

TT 

LL 

SS 

TT 

LL 

SS 

Tf 

LL 

SS 

TT 

LLLLLLLLLL 

SSSSSSSS 

1 

LLLLLLLLLL 

SSSSSSSS 

TT 

.KAIN.  MACRO  Ml  113  08-FEB-80  11 :55 
TABLE  OF  CONTENTS 


F  1 


1 

8 

9 

10 

11 

13 
H 
15 

17 
18 
19 
20 
21 
22 


APLDEF 
A  P  L 

A  PROGRAMMING  LANGUAGE 

STEVE  POULSEN  &  DAVE  VANN 

ll-Jul-76 

ROBERT  GOTTLIEB  &  PETER  HAYNES 

2-Feb-79 


V2 


COPYRIGHT  (C)  1976,  1977,  1978,  1979,  1980 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 


THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A  SINGLE 
COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE  INCLUSION  OF  THE  ABOVE 
COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT 
BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR 
USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS. 
TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN 
DEC. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 


3- 

46 

DEFINITIONS 

ASSEMBLY  PARAMETERS 

A- 

139 

DEFINITIONS 

OPERATOR  OVERLAYS 

5- 

268 

DEFINITIONS 

REGISTERS 

6- 

331 

DEFINITIONS 

MEMORY  ORGANIZATION 

7- 

377 

DEFINITIONS 

ORDERING  PSECTS 

8- 

426 

DEFINITIONS 

SI  PARSE   FRAMES 

9- 

474 

DlFINITIONS 

TOKEN  DESCRIPTION  BITS 

10- 

515 

DEFINITIONS 

SI  EXECUTION  FRAMES 

11- 

580 

DEFINITIONS 

SPECIAL  PARSE  CHARACTERS 

12- 

607 

DEFINITIONS 

CHR7AR  BITS 

12- 

624 

DEFINITIONS 

SYSTEM  S7.^TUS  BITS 

13- 

640 

DEFINITIONS 

F-FRAMES 

U- 

724 

DEFINITIONS 

FUNCTION  LINE  BLOCKS 

16- 

807 

DEFINITIONS 

ARRAY  STORAGE  BLOCK 

17- 

869 

DEFINITIONS 

LIST  STORAGE  BLOCK 

18- 

911 

DEFINITIONS 

INDEXING   STACK  FRmE 

19- 

940 

DEFINITIONS 

SYMBOL  TABLE  ENTRY 

2(h 

969 

DEFINITIONS 

CHANNEL  BLOCK 

22- 

1085 

DEFINITIONS 

RSX  DATA 

23- 

1110 

DEFINITIONS 

NAME  BLOCKS 

33- 

u.    ' 

DEFINITIONS 

MACROS 

35- 

190- 

DEFINITIONS 

APL  CHARACTERS 

36- 

1967 

DEFINITIONS 

ERRORS 

4A- 

4 

ERASE 

ROUTINE  TO  ERASE  ITEMS 

G  1 


ERASE      MACRO  M1 113     08-FEB-80  11:55     PAGE   1 


4 
5 

8 

9 
10 
11 


000000 
000000 
0001 1 5 

000000 
000000 
000000 

000004 

000000 


RT11 
RSTS 
RSX 

=     0 
=     0 
=   'M 

EIS 
FIS 
FPP 

II  II  II 
ooo 

FPPLEN 

=     4 

DEBUG 

=     0 

G     1 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

; SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 


Ll  1 
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.S8TTL  APLDEF 
.IDENT  \V02.03\ 


H  1 


f  1 
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I  1 


.LIST  SEQ,SRC,LOC,BIN,BEX,MEB 
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1 

I 

5 
6 
7 
8 

9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 

31  000000 
32 

33  000000 

34  000006 

35  000010 

36  000012 

37  000016 

38  000020 

39  000026 

40  000030 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
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J  1 


TITLE  ERASE 
IDENT  \V02.03\ 

S8TTL  ERASE 


ROUTINE  TO  ERASE  ITEMS 


FUNCTIONAL  DESCRIPTION: 

•ERASE*  IS  USED  TO  WIPE  OUT  VARIABLES  AND  FUNCTIONS. 
VARIABLES  ARE  EASY:  SIMPLY  RELEASE  THEIR  VALUES  AND 
ZERO  THE  VALUE  POINTER  IN  THE  NAME  BLOCK.  FUNCTIONS 
ARE  HARDER.   FIRST  OF  ALL,  A  FUNCTION  CANNOT  BE  ERASED 
IF  IT  IS  IN  THE  SI  STACK.  VERY  EVIL  THINGS  HAPPEN 
WHEN  THE  FUNCTION  TRIES  TO  CONTINUE  EXECUTION  AND  FINDS 
ITSELF  GONE!   EACH  LINE  OF  A  FUNCTION  MUST  BE  DELETED 
INDIVIDUALLY,  ALONG  WITH  THE  LIST  BLOCK  CONTAINING  THE 
POINTERS  TO  LINES  WITH  LABELS.  NOTE:  A  SYMBOL  BLOCK 
IS  NEVER  DESTROYED,  ITS  VALUE  POINTER  IS  JUST  SET  TO 
ZERO.   THIS  IS  BECAUSE  THE  VARIABLE  MAY  BE  LOCAL  IN 
SOME  FUNCTION  IN  THE  SI  STACK  OR  IT  MAY  HAVE  A 
REFERENCE  IN  A  FUNCTION. 


INPUTS: 
RO 


OUTPUTS: 
RO 


-  A  pointer  to  where  the  pointer  to  the 
,  obal  v/aLue  was  Located. 


-  A  pointer  to  where  the  pointer  to  the 
global  value  was  located,  (i.e.,  the  location 
5rO  should  be  0  if  the  erase  was  successful) 


.PSECT  CODE 


011000 
001464 
005760 
002005 
132760 
001055 
000450 


ERASE: 


000002 

000020  000003 


PUSH 

MOV 

BEQ 

TST 

BGE 

BITS 

BNE 

BR 


<R2,R1,R0> 

(R0),R0 

7$ 

2.(R0) 

1$ 


;Sa\/e  some  registers 
;AND  POINT  TO  DATA 
.•Nothing  to  erase,  finished 
:ls   it  an  ^rrayl 
;No,  is  something  else 

/(^A.CON,A.BITS(R0);LABEL? 

7$  ;YES,  CAN'T  ERASE  LA8ELS1!! 

6S  .-Otherwise,  is  OK 


000032 
000040 
O000'»2 


032760  040000  0000C2 

001444 

013701  003314' 


ERASE  A  FUNCTION. 
SI  STACK. 


FIRST  CHECK  IF  IT  IS  IN  THE 


000046 
000054 

51  000056 

52  000064 
53 

54  000066 

55  000070 
56 

57 


032761 
001404 
027661 
001436 

011101 
001 366 


001000  000002 
000000  000010 


1$: 


2$: 


3$: 

•4- 


BIT 
&EQ 
MOV 

BIT 
BEQ 
CMP 
BEQ 

MOV 
BNE 


#S.FLB,2.(R0)   ;Is  it  a  function? 
6$  ;No,  must  be  list 

SIFRAM.RI       .-POINT  TO  CURRENT  FRAME 

#F$FUNC,F.FLAG(R1);F-FRAME? 
3$  ;N0 

a0(SP),F.FUN(R1);IS  FN  IN  SI? 
7$  ;Yes,  failure 


(R1),R1 
2$ 


.-POINT  TO  PREVIOUS  FRAME 
;iF  NOT  LAST  KEEP  LOOKING 


DELETE  THE  LIST  BLOCK  THEN  EACH  OF  THE  FUNCTION'S  LINES 
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K     1 


58 

59  000072 

60  000076 

61  000102 

62  000106 

63  000110 

64  000112 

65  000116 
66 

000120 
000124 


67 
68 
69 
70 
71 


000130 
0001 3A 

72  000136 

73  000142 
000144 
000150 


74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 


017601 
062701 
063701 
011100 
001403 

00501 1 

017601 
010161 

016101 
010100 
0201 76 
001403 

000767 


000000 
000010 
000062 ' 


000000 
000006 

000004 

000000 


4$: 


5$; 


MOV 

ADD 

ADD 

MOV 

8EQ 

CALL 

CLR 

MOV 
MOV 

MOV 

MOV 

CMP 

BEQ 

CALL 

BR 


E 

C 


5)(SP),R1 

*R.LNUM,R1 

NUMLEN.R1 

(R1),R0 

4$ 

RETCOR 

SIRI 


POINT  TO  FN  HEADER 

POINT  TO  LINE  M 

POINT  TO  LIST  PTR 

GET  LIST  BLOCK  POINTER 

NO  LABELS 

KILL  LIST 

NO  MORE  LABELS 


a(SP),R1        ;COPY  PTR  TO  FN  HEADER 
R1,R.NEXT(R1)   .-FUNCTION  HAS  NO  LINES  NOW 


R.PREV(R1),R1 

R1,R0 

R1,a)(SP) 

6$ 

RETCOR 

5$ 


LAST  LINE 
TO  LINE 


POINT  TO 

COPY  PTR 

DONE? 

Yes,  only  header  remains 

KILL  THE   LINE 

Loop  for  each  line 


Here,   we  clear  the  pointer  to  the  <Whatever>  and 
erase  the  final  segment.  We're  done! 


300152 
0001 56 

000162 
000170 
0001 72 


005076  000000 


005710 


6$: 


7$: 


CLR 
CALL 

POP 
TST 
RETURN 


acsp) 

RETCOR 

<R0,R1,R2> 
(RO) 


;Undefine  variable 
.•RELEASE  VALUE 

.•Restore  the  registers 
;Set  condition  codes 
.•Finished 
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M  1 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

AC1   = 

X000001 

CHPLPR= 

000072 

C.BUFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

AC2   = 

X000002 

CHRMNS= 

000137 

C.BUFL= 

1 77762 

D.DQAD= 

^77777 

EOF   = 

104475 

AC3   = 

X000003 

CHRMUL= 

000075 

C.CCNT= 

177766 

D.DR0P= 

000002 

ERASE 

OOOOOORG 

020 

ACA   = 

X000004 

CHRNEG= 

000100 

C . CPTR= 

177764 

D.ENCD= 

000002 

ERRMAX= 

000166 

ACS   = 

X000005 

CHRPDL= 

000271 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRNUM 

00^772R 

025 

ALL INT 

003274R 

025 

CHRPLU=  000055 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRPTP 

004770R 

025 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C . FASW= 

020000 

D.F6ET= 

000005 

ERRO 

004774R 

025 

ASCGIUO=  000042 

CHRQST= 

000121 

C.FLEN= 

000010 

D.FMT  = 

000004 

EXEBUF 

005054R 

025 

A.ALEN=  000004 

CHRQUO=  000113 

C.FLSH= 

C04000 

D.FPNT= 

000005 

E$CT 

00505OR 

025 

A.ARG  = 

000040 

CHRRBR= 

000047 

C.FRC  = 

000001 

D.FPUT= 

000005 

E$PT 

005060R 

025 

A.ASB  = 

000200 

CHRRPR= 

000042 

C.JDEN= 

000010 

D.6E  = 

000000 

FA.APD= 

000100 

A.BITS= 

000003 

CHRSEM=  000074 

C.NAME= 

000102 

D.6T  = 

000000 

FA.CRE= 

000010 

A. CON  = 

000020 

CHRSMO= 

000112 

C.N0BF= 

000400 

D.I8M  = 

00000? 

FA.DLK= 

001000 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.ENB= 

100000 

A.DIM1= 

000006 

CHRUPA= 

000131 

COP  = 

000004 

D.INNR= 

000013 

FA.EXC= 

002000 

A.NUM  = 

000006 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.EXT= 

000004 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.RDLN= 

177776 

D.LE  = 

000000 

FA. NSP= 

000100 

A. IMP  = 

000010 

CHR.CR= 

000015 

C.REWT= 

002000 

D.L06  = 

000001 

FA.NSR= 

000200 

BADDIR= 

104463 

CHR.CZ= 

000032 

C.RND  = 

000010 

D.LT  = 

000000 

FA.POS= 

010000 

BADERR= 

104437 

CHR.GT= 

000046 

C.SBIT= 

1 77756 

"^.MAX  = 

000000 

FA.RD  = 

000001 

BLZRfi 

005116R 

025 

CHR.LF= 

000012 

C.SPFX= 

000100 

.MEM  = 

000002 

FA.RWD= 

004000 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.SPGL= 

000200 

i^.MIN  = 

000000 

FA.SEQ= 

040000 

CCNT 

005072R 

025 

CHR.S1= 

000017 

C . SPLX= 

000001 

D.MUL  = 

000000 

FA.SHR= 

000040 

CHANFY 

003060R 

025 

CHR.SL= 

000057 

C . SPRS= 

000002 

D.NE  = 

000000 

FA.TMP= 

000020 

CHA^ 

000256R 

025 

CHR.S0=  000016 

C.SRC  = 

1 7777^ 

D.NN  = 

000000 

FA.WCK= 

020000 

CHANOi 

000330R 

025 

CHR.TB= 

00001 1 

C.SRCP= 

000024 

D.NR  = 

000000 

FA.WRT= 

000002 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.TT  = 

000004 

b.OR     = 

000000 

FD.BLK= 

000010 

CHAN03 

000674R 

025 

LHK  ■  ■  r\— 

000141 

C.WIDC= 

1 77770 

D.PLUS= 

000000 

FD.CCL= 

000002 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.WIDR= 

1 77772 

D.PSUB= 

000006 

FD.COM=  020000 

CHAN05 

001240R 

025 

LHK • ■ J— 

000163 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.CR  = 

000002 

CHAN06 

001422R 

025 

CHR..T= 

000164 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.DIR= 

000010 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEVIL 

005114R 

025  D.QUAD= 

000000 

FD.FTN= 

000001 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DE\/NTF= 

104470 

D.RES  = 

000000 

FD.F11= 

040000 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.INS= 

000010 

CHAN10 

002532R 

025 

CHR..1= 

000061 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.ISP= 

002000 

CHAN11 

0025 14R 

025 

CH.AND= 

000001 

DIMBLK 

0031 12R 

025  D.SCON=  000006 

FD.MNT= 

100000 

CHAN12 

0026 ^6R 

025 

CMD6UF 

003250R 

025 

DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.0SP= 

004000 

CHAN13 

000022R 

023 

CMDMAX= 

000010 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PLC= 

0OOOC4 

CHAN14 

0002C4R 

023 

CNTSIZ 

0051 30R 

025 

DIRFUL= 

10<';66 

D.SUBS= 

000006 

FD.PRN= 

000004 

CHN0PN= 

104471 

COMBIN 

005076R 

025 

DQMERR= 

104417 

D.TAKE= 

000002 

FD.PSE= 

010000 

CHRAND= 

000051 

COMCNT 

0051 26R 

025 

DPTERR= 

104416 

D.TRAN= 

000004 

FD.RAH= 

000001 

CHR8EL= 

000007 

COMERR= 

104425 

DYDCNT 

003224R 

025  D.UN0N= 

000006 

FD.RAN= 

000002 

CHRBICR= 

000133 

COMPTR 

005122R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.REC= 

000001 

CHRB0L= 

000200 

COMRTN 

0031 56R 

025 

D.BXCT= 

000007 

D.$MIN=  000000 

FD.RVJM=  000001 

CHRB0X= 

000114 

COMSKP 

005124R 

025 

D.8XI0= 

000007 

D.$MUL= 

000000 

FD.SDI= 

000020 

CHRCMA= 

000054 

CORPTR 

005120R 

025 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.SQD= 

000040 

CHRC0L= 

000076 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.TTY= 

000004 

CHRDEL= 

000107 

CS.BO0= 

000010 

D.BXPW= 

000007 

D.$SUB= 

000000 

FD.UBH= 

000002 

CHRDIV= 

000053 

CS.FLO= 

000020 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.CHR= 

000005 

CHRDLR= 

000176 

CS.IDN= 

000040 

D.CIRC= 

000001 

D.I EXP= 

000002 

FF.NV  = 

000003 

CHRDLT= 

000110 

CS.ONE= 

000100 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.POE= 

000002 

CHRD0T= 

000056 

CTEPS 

0001 52R 

025 

D.COMP= 

000001 

EDICHR 

005063R 

025  FF.RWO= 

00000^ 

CHREP  = 

000105 

CTMAX 

00021 2R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF.RWF= 

000006 

CHRERR= 

V}443T 

CTRMAX 

0001 72R 

025 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  FF. SPC= 

000004 

CHRFIL= 

000177 

C.ALOC= 

000162 

D.DEAL^ 

000003 

EDIT  = 

000003 

F HE ADR 

00501 2R 

025 

CHRFRO:r 

000135 

C.BLO»N= 

000064 

D.DECD= 

000002 

EIS   = 

000000 

FHRET 

005040R 

025 

E 
S 
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SYMBOL  " 

FABLE 

FILNTF= 

1 04467 

F.FNB  = 

000102 

ILFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SCA/>l=  000011 

FIS   = 

000000 

F.FNDF= 

000010 

ILLCHN= 

104540 

MONTYP 

0031 24R 

O'^S  ;1.SHAP=  000000 

FISC0N= 

046000 

F.FTYP= 

000116 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SIGN=  000000 

FIXPTR 

003074R 

025 

F.F'J  = 

000010 

iNDERR= 

104410 

M.A6S  = 

000000 

M.SI,RR=  000001 

FLAGS 

004764R 

025 

F.F.cR= 

000120 

INNTMP 

003250R 

025  M.BOL  = 

000200 

M.SYM  =  000203 

FLCBUF 

003250R 

025 

F.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.SYN  =  000201 

FLINE 

00501 4R 

^5 

F.HIBK= 

000004 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN=  000012 

^LOEXP 

003270R 

0^5 

F.LBL  = 

000020 

INSNAM= 

104462 

M.BXCT= 

OOC. 37 

M.$ABS=  000000 

LONEG 

003272R 

025 

F.LINE= 

000012 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI=  000000 

FLSWTB 

000222R 

025 

F.LOC  = 

000004 

I.CNT  = 

1 77776 

M.BXFX= 

000007 

M.$FLR=  000000 

FLTLEN= 

000010 

F.LSTC= 

000C04 

l.DIM  = 

^77772 

M.BXI0= 

000007 

M.$IDN=  000000 

FNINSI 

005044R 

025 

F.LUN  = 

000042 

I.LEN  = 

000012 

M.BXLC= 

000003 

M.$NEG=  000000 

FORIGN 

000032R 

025 

F.MBCT= 

000054 

I.0ERR= 

000062 

M.BXNC= 

000007 

M.$SIG=  000000 

FO.APD= 

000106 

F.MBC1= 

000055 

I. OLD  = 

1 77770 

M.BXNL= 

000007 

M.1RDT=  000011 

FO.MFY= 

000002 

F.MBF6= 

000056 

I.PTR  = 

1 7777k 

M.BXPP= 

000007 

M.1REV=  000003 

FO.RD  = 

000001 

F.MON  = 

000002 

I. SIR  = 

1 77766 

M.BXPW= 

000007 

M.1SCN=  000011 

FO.UPD= 

000006 

F.NIL  = 

000001 

1  ABERR= 

104406 

M.BXRL= 

000007 

NAMBUF  003240R 

025 

FO.WRT= 

000016 

F.NRBD= 

000024 

(AaLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV=  000200 

FPMODE 

00004PR 

025 

F.NREC= 

000030 

LA^GBL 

0031 62R 

025  M.BXWA= 

000007 

NB.DIR=  000100 

FPP   = 

OOOCOO 

^.OPN  = 

000010 

LARGCV 

0031 76R 

025  M.CEI  = 

1 77777 

NB.NAM=  000004 

FPPLEN= 

000004 

F.OVBS= 

000030 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1=  000400 

FREBLK 

007400R 

025 

F.PREV= 

000000 

LARGLE 

0'^3174R 

025  M.CMT  = 

000206 

NB.SD2=  001 000 

FUZZ 

0001 42R 

025 

F.PRNT= 

100000 

LARGLN 

0031 66R 

025  M.D0UT= 

000006 

NB.SNM=  000040 

FXPTR1 

003076R 

025 

F.PR0T= 

010000 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP=  000020 

F$E  VAL= 

000100 

F.RACC= 

000016 

LAR6SF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR=  000010 

F%E\J1   = 

000200 

F.RATT= 

000001 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP=  000002 

F$EXEC= 

000400 

F.RCNM= 

000034 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.VER=  000001 

F$F UNC= 

001000 

F.RCTL= 

00001 7 

LBINC 

005100R 

025  M.FACT= 

000001 

ND.DEV=  000200 

K.ACTL= 

000076 

F.REAC= 

004000 

L8UFF 

00331 6R 

025  M.FIL  = 

000177 

ND.EXT=  000002 

F  .AL0C= 

000040 

F.REDF= 

000040 

LBUFLN= 

000621 

M.FLR  = 

1 77777 

ND.NAM=  000004 

F .aeFs= 

000062 

F.RES  = 

000040 

LCOUNT 

0051 06R 

025  M.FMT  = 

000004 

ND.PPN=  000100 

r.BOB  -^ 

000070 

F.RET  = 

1 77772 

LENERR= 

104412 

M.GDUP= 

000003 

ND.$EX=  000000 

F.BGBC= 

000057 

F.RSIZ= 

000002 

LENTAB 

000054R 

025  M.GDWN= 

000003 

ND.SE^=  000020 

F.BITS= 

1 7777^ 

F.RTYP= 

000000 

LEXPTR 

003100R 

025  M.6ETI= 

000006 

J.SNM=  000000 

F.BKDN= 

000026 

F.R2  = 

000014 

LFTOP 

005066R 

025  M.IBM  = 

000003 

.>JD.$N$=  000040 

F.BKDS= 

000020 

F.R3  = 

000016 

LINC 

005102R 

025  M.IDN  = 

000000 

ND.$PN=  001400 

iF.BKEF= 

000050 

F.R4  = 

000020 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN  005063R 

025 

>^.BKP1 

000051 

F.SEQN= 

000100 

LINING 

005026R 

025  M.I0TA= 

000000 

NINPT1  003302R 

025 

•F.BKST: 

000024 

F . SPDV= 

^^00072 

US1ZE= 

000020 

M.LIT  = 

000205 

NINPT2  003300R 

025 

'.  .BKVB^ 

000064 

F .  SPUN-- 

J00074 

LITOP 

005072R 

025  M.LN  = 

000001 

NINSTK  003304R 

025 

r.eo  = 

000020 

F.S^"  .^■ 

000036 

LNLNG  = 

104541 

M.MMD  = 

000010 

NINTMP  00331  OR 

025 

F.L.-lR  = 

000075 

F .5 iN  = 

000022 

LOCLCT 

005036R 

025  M.NEG  ^ 

000000 

NINTYP  003306R 

025 

;  . CNT6= 

000034 

F.STOP= 

000004 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

NOTAVL=  104472 

F . CODE= 

000010 

F.STP  = 

000001 

LSJERP 

004766R 

025  M.NIB  = 

000006 

NOTOPN=  104473 

F.DFNB= 

000046 

F.SUSP= 

000002 

LWIDTH 

C00070R 

025  M.NUM  = 

000204 

NPRT1   004762R 

025 

F.DSPT=: 

000044 

F.TRC  = 

000002 

L.8ITS= 

00000^ 

M.OUTR= 

000012 

NULL    007364R 

025 

F.DVffl^ 

000134 

r-.UNjr= 

000136 

•  CNT  ^ 

000002 

M.PirM=  000000 

NUMCHN=  000020 

F.EFBtC= 

000010 

F.URBD= 

000020 

,  .PRNT= 

000001 

M.PRPS= 

000006 

NUMDFL  003230R 

025 

F.EFN  = 

000050 

F.VAL  = 

1 77776 

L.PTR  = 

OoOOO* 

M.QC  ')= 

000000 

NUMEFL  0O3233R 

025 

F.END  = 

002000 

F.VBN  = 

000064 

L.PTR1= 

Os.)T'^ 

M.QL  -- 

000000 

NUMESN  003236R 

025 

F.EORB= 

000032 

F.VBSZ= 

000060 

L.SiBS= 

OOOr 

M.RAND= 

000012 

NUMFLG  0032 30R 

025 

F.ERR  = 

000052 

GNOME 

0031 02R 

025  MACHINE 

00C10^ 

M.RAVL= 

000000 

NUHLEN  000062R 

025 

F.FACC= 

000043 

HASHC 

005136R 

025  MAXCHrj= 

0000"' H 

M.RCIP= 

000000 

NUMNEG  003232R 

025 

F.rFBY= 

CK)0014 

HASHTB 

005U0R 

025  MONBLK 

0031 20R 

025  M.RDCT= 

000011 

NUMQFL  003234R 

02^ 

F.F LAG= 

000002 

HSHMSK^ 

177601 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

NUMRIG  003231R 

025 

F.FLB  ^ 

ooo^oo 

HSHS]Z= 

000200 

MONLEN 

0C^.130R 

0;^5  M.ROLL  = 

000000 

NUMWID  003226R 

025 

F.FNAW^ 

000110 

KHAN 

005050R 

025  MONPTR 

00^^22R 

025  M.SATA= 

000001 

NUhZFL  003235R 

025 

I 
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SYMBOL 

TABLE 

NY1ERR= 

104A32 

RARGCV 

003220R 

025 

R.PREV= 

000004 

SY.CLR= 

000040 

T.LIT  = 

000020 

N.BLS2= 

000036 

RARGFL 

003202R 

025 

R.PTR  = 

000000 

SY.EnP= 

0000?0 

T.MON  = 

000010 

N.DESC= 

000020 

RARGLE 

00321 6R 

025 

R.SEQ  = 

000003 

SY.NOU-- 

000100 

T.NIL  = 

000004 

N.DEV  = 

000032 

RARGLN 

00321  OR 

025 

R.VAR  = 

000002 

SY.0PN= 

^0)02 

T.NUM  = 

002000 

N.DE\/N=  00003A 

RARGPT 

003206R 

025 

R6 

X000006 

SY.PMT- 

i'OO 

T.OPFN=  000001 

N.DID  = 

00002A 

RARGSF 

00321 4R 

025 

R7 

X000007 

S^.SRT= 

^  -.00 

T.OTHR= 

040000 

N.DV^«=  000032 

RARGTY 

00321 2R 

025 

SI 

X000005 

SY.SVC= 

0u0004 

7, SOP  ^ 

000002 

N.EXT  = 

OOOOH 

RARGVA 

003222R 

025 

SIDAMN= 

104433 

SY.SVL= 

000200 

T.SPOP= 

000040 

N.FID  = 

000000 

RRASE 

005074R 

025 

SIFRAM 

00331 4R 

025 

S.AB  = 

1 7777 t 

^.^}^  = 

000200 

N.FNAM=  000006 

RCOUNR 

0051 12R 

025 

SISTAK 

006350R 

025 

S.ASB  = 

100000 

T.VAL  = 

^OQOCp() 

N.FTYP=  OOOOU 

RCOUNT 

00511  OR 

025 

SI  TOP 

006346R 

025 

S.BFHD= 

000020 

T.VAR  = 

001000 

N.FVER= 

000016 

REDCNT 

005070R 

025 

SITP 

0071 44R 

025 

S.BITS= 

000002 

UPPER  = 

177400 

N.NAME= 

000006 

REDIGN 

005066R 

025 

SIUARN= 

0C0200 

S.CHR1= 

000003 

UTNAME 

000344R 

023 

N.NEXT= 

000022 

REDOFF 

005072R 

025 

SIZTAB 

000044R 

025 

S.FATT= 

000016 

VALERR= 

104413 

N.PPN  = 

000024 

REENTR 

003060R 

025 

SI.BIT= 

177774 

S.FDB  = 

000140 

VARBLE 

007400R 

025 

N.STAT= 

000020 

RESBIT 

0031 42R 

025 

SI.LEN= 

\77712 

S.FLB  = 

040000 

VARBLS 

OOOOOOR 

025 

N.UNIT= 

000034 

RESCVT 

0031 52R 

025 

SI.RET= 

M7771 

S.FNAM=  000006 

VERNUM 

OOOOOOR 

025 

r)RUFLN=  001000 

RESERR= 

104440 

SI.VAL= 

y7777t 

S.FNB  = 

000036 

VRSION= 

000002 

OCHAN 

005052R 

025  RESLEN 

0031 50R 

025 

SKPSIZ 

005134R 

025 

S.FNBW=  000017 

WIDTH 

000072R 

025 

QMODE 

000402R 

023  RESPTR 

0031 40R 

025 

SPHOLD 

000004R 

024 

S.FNTY= 

000004 

WROUND 

000020R 

025 

OPTMPO 

005066R 

025  RESSFT 

003K6R 

025 

SPINIT 

000002R 

024 

S.FTYP= 

000002 

WSDATE 

000136R 

025 

0PTMP1 

005070R 

025  RESTYP 

0031 44R 

025 

STKINC^^ 

000774 

S.LEN  = 

000002 

WSFULL= 

104403 

0PTMP2 

005072R 

025  RESULT 

0031 36R 

025 

STOP  = 

104420 

S.LINK= 

1 7777k 

WSNAME 

000074R 

025 

0PTMP3 

005074R 

025  RESVAL 

0031 54R 

025 

SUBCNT 

0031 u;r 

025 

S.NFEN= 

000020 

ySTIME 

0001 32R 

025 

OPTMPA 

005076R 

025  RETC0R= 

♦**♦♦♦  GX 

SIBDCT 

0031 06R 

025 

S.TYPE= 

140000 

$FIS  = 

******  (5 

0PTMP5 

005100R 

025  RING 

005104R 

025 

SUBPTR 

00311 OR 

025 

S.VAL  = 

000000 

%^PP     = 

******  Q 

0PTMP6 

0051 02R 

025  RLTBAS 

005066R 

025 

SYM31 

005344R 

025 

TKDIMS 

005072R 

025  %fPPLh^ 

******  Q 

0PTMP7 

0051 04R 

025  ROTINC 

005070R 

025 

SYMF 

005340R 

025 

TKFRAM 

005066R 

025  $«ACHN= 

******  (3 

0PTMP8 

005106R 

025  ROUND 

00001  OR 

025 

SYMPT1 

005346R 

025 

TKLEFT 

OO5070R 

025  SRSTS  = 

******  Q 

CIPTWP9 

00511 OR 

025  ROVER 

00331 2R 

025 

SYMTAB 

005352R 

025 

TMODE 

000403R 

023  $RSX  = 

******  Q 

0PTM10 

0051 12R 

025  RSTS  = 

000000 

SYMTBF  = 

104404 

TMPTAG= 

000166 

$RT11  = 

******  Q 

0PTM1A 

005026R 

025  RSX   = 

000115 

SYMTOP 

005350R 

025 

TTYBUF 

004140R 

025  .BOOLE= 

000002 

ORIGIN 

000030R 

025  RTOP 

005070R 

025 

SYMTP 

006272R 

025 

TTYLEN= 

000622 

.CHARA= 

000000 

OUTPTR 

000066R 

025  RT11  = 

000000 

SYMURN= 

000054 

TURKEYr 

104436 

.DEF.  = 

000002 

OVROPR= 

000000 

R.BITS= 

000003 

SYNERR= 

104407 

TYPE  = 

000166 

.FLOAT= 

000006 

PAT''H 

007344R 

025  R.FIX  = 

000001 

SYSERR= 

104402 

T.BOL  = 

020000 

.FSRCB= 

******  Q 

PRECSN 

000052R 

025  R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.CON  = 

004000 

.INTEG= 

000004 

RANDAC 

003064R 

025  R.LN  = 

000002 

SY.BAi)= 

000001 

T.DIM  ^ 

000100 

.MOLUN 

000404R 

023 

RANDY 

003062R 

025  R.LNU«= 

00C010 

sy.QRK= 

100000 

T.FUN  = 

010000 

...C3BL= 

000000 

RANERR= 

104411 

R.NEXT= 

000006 

SY.8S  = 

000010 

T.LIST= 

000400 

...TPC= 

000020 

RARGBL 

003204R 

025  R.OFF  = 

000000 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

002 

liONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYD6T8 

000000 

007 

COMTB 

000000 

010 

CHRTBi. 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

fRNTBL 

OOOOvO 

015 

MNTBL 

000000 

016 

7~T 
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C  2 


MNTRTL 

000000 

017 

CODE 

0001 7A 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEFSO 

000406 

023 

DEF$1 

000006 

02A 

DEFS2 

007400 

025 

ERRORS 

DETECTED: 

0 

VIRTUAL  MEMORY  USED:  12928  WORDS  (  51  PAGES) 

DYNAMIC  MEMORY:   (4478  WORDS  (  55  PAGES) 

ELAPSED  TIME:  00:01:40 

ERASE, DM1 :C305,301]ERASE/-SP=APLRX1 ,APLDEF , ERASE, END 


1 


ir^ 


D  2 
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1 

000000 

2 

000000 

3 

0001 1 5 

A 

5 

000000 

6 

000000 

7 

000000 

8 

9 

000004 

10 

11 

000000 

RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
FIS 
FPP 

II  II  II 
ooo 

FPPLEN 

=  4 

DEBUG 

=  0 

F  2 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

; SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 


TT 
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.SeiTL  APLDEF 
.IDENT  \V02.03\ 


u   5 
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I 

i 

DEFINITIONS 

ERRORS 

1 

.TITLE 

ERASEC 

2 

.IDENT 

\V02.03\ 

4 
5 

.S8TTL 

COMMANDS 

ERASEC 

6 
7 

;  FUNCTIONAL  DESCRIPTION: 

8 

•ERASEC 

•  is  the  command  used  to  wipe  out  variables,  functions. 

9 

and  groups.  This  is  simply  done  by  calling  ERASE  to  terminate                  | 

10 
11 

the  existance  of  the 

wretched  little  blocks. 

:  ROUTINES  CALLED: 

13 

BLDLST 

-  Builds  >  list  of  names  on  the  SI  for  ERASEC  to  use 

14 

ERASE 

-  Does  a'  the  work  to  erase 

15 

GLBSCH 

-  Global  learch 

1$ 

NAMOUT 

-  Prints  the 

name  that  wasn't  erased 

NEWLIN 

-  Prints  a  <CR><LF>                                             | 

11 

20  000000 

21 

22  000000 

PRINTM 

-  Prints  the 

•><0T  ERASED:"  message 

.PSECT 

CODE 

ERASEC: 

• 
• 

23  000000 

CALL 

BLDLST 

;Build  a  list  of  symbols  on  the  SI 

24  000004 

016502 

1 77776 

1$: 

MOV 

SI.VAL(SI),R2 

I       ;Get  a  pointer  to  the  list  block 

25  000010 

116203 

000002 

Move 

L.CNT(R2),R3 

;Get  the  count 

26  OOOOK 

001476 

BEQ 

7$ 

; Really  shouldn't  happen 

27  000016 

28 

29  000020 

011202 

MOV 

(R2),R2 

;Point  to  1st  element 

012204 

2$: 

MOV 

(R2)'^,R4 

;Get  pointer  to  symbol  table  entry 

30  000022 

CALL 

GLBSCH 

;Find  corresponding  global 

31  000026 

001454 

BEQ 

6$ 

;Is  none,  don't  try  to  erase 

32  000030 

011001 

MOV 

(RO),f<l 

; Point  to  the  item 

33  000032 

032761 

140000 

000002 

BIT 

#S. ASBIS. FLB, 

2.(R1) 

34 

;Is  it  a  list? 

35  000040 

001023 

BNE 

4$ 

;Nope 

36  000042 

005765 

1 7777^ 

TST 

SI.BIT(SI) 

;Did  we  recure  once  already? 

37  000046 

001415 

BEQ 

3$ 

;Yes,  don't  do  it  again 

38  000050 

012725 

0000006 

MOV 

#SySER,(SI)+ 

;Build  a  SI  frame 

39  000054 

005025 

CLR 

(SI)-»- 

;No  bits  (Don't  really  kill) 

40  000056 

010125 

MOV 

R1,(SI)* 

.-Point  to  the  list 

41  000060 

PUSH 

<R3,R2,R0> 

;Say/e  the  registers 

42  000066 

CALL 

1$ 

;Recure  (Only  once  I) 

43  000072 

POP 

<R0,R2,R3> 

.•Restore  the  Registers 

44  000100 

45 

46  000102 

000403 

BR 

4$ 

;   and  do  the  erase 

020176 

000002 

3$: 

CMP 

Rl,a2(SP) 

;Is  it  the  same  list  as  we  are? 

47  000106 

001024 

BNE 

6$ 

;Yes,  don't  erase  it 

48  000110 

4$: 

CALL 

ERASE 

; Erase  it,  wipe  it  out 

49  000114 

001421 

BEQ 

6$ 

.'Success,  no  problem 

50  000116 

013701 

005052* 

MOV 

0CHAN,R1 

.•Point  to  the  open  channel 

51  000122 

026161 

1 77772 

1 77770 

CMP 

C.WIDR(R1),C. 

WIDC(Rl) 

52 

.-Beginning  of  the  line? 
;No,  don't  print  prompt  msg 
;YES,  PRINT  'NOT  ERASED:  ' 

53  000130 

001004 

BNE 

5$ 

54  000132 

QPRINT 

NOTERS 

000132 

0'270^ 

000000* 

MOV  #N0TERS,R1 

.•POINT  TO  NOTERS 

55  000142 

112700 

000011 

5$: 

M0V8 

/lfCHR.TB,RO 

;Get  a  tab 

56  000146 

CALL 

OUTCHR 

;Print  it 

J  2 
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57  000152 

58  000154 

59  000160 

60  000164 

61  000170 

62  000172 

63  000176 
64 

65  000204 

66  000206 

67  000212 
68 

69  000000 

70 

71  000000 
000003 
000006 
00001 1 

010401 

005765 
001410 
013701 
026161 

1  mm 

005052' 
\77712 

6$: 
1 7777^ 

MOV 

CALL 

SOB 

TST 

BEQ 

MOV 

CMP 

R4,R1 

NAMOUT 

R3,2S 

SI.BIT(SI) 

7$ 

0CHAN,R1 

C.WIDR(R1),C. 

001402 

?$: 

BEQ 

CALL 

CALLR 

7$ 

NEWLIN 

KILL 

.PSECT 

TABLES 

156 
040 
141 
144 

157 
145 
163 
076 

1o4  NOTERS: 

'62 

145 

000 

.ASCIZ 

/not  erased>/ 

; POINT  TO  NAME 
; PRINT  fH'%   NAME 
;Loop  for  each  element 
;Recured  once? 
;Yes,  don't  print  <CR><LF> 
;Point  to  the  output  channel 
WIDC(R1) 

;Beginm'ng  of  line? 

;Yes 

;No,  print  a  <CR><LF> 

;All  finished 


.EVEN 


■Z 5" 
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L  2 

SYMBa 

TABLE 

ACO   =" 

XOOOOOO 

CHRFR0= 

000135 

C.BLOK= 

000064 

D.DECD= 

000002 

EIS   = 

000000 

AC1   = 

X000001 

CHRLBR= 

000073 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

AC2   = 

X000002 

CHRLPR= 

000072 

C.BUFF= 

1 /7760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

AC3   = 

X000003 

CHRMNS= 

000137 

C.BUFL= 

1 77762 

D.DQAD= 

1 77777 

EOF   = 

104475 

AC4   = 

X000004 

CHRMUL= 

000075 

C.CCNT= 

1 77766 

D.DROP= 

000002 

ERASE  = 

***•*♦  6X 

ACS   = 

X000005 

CHRNE6= 

000100 

C . CPTR= 

1 77764 

D.ENCD= 

000002 

ERASEC 

000000R6 

020 

ALL INT 

00327AR 

025  CHRPDL= 

000271 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRMAX= 

000166 

ARYRET 

003276R 

025  CHRPLU= 

000055 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRNUM 

004772R 

025 

ASCQUO=  000042 

CHRPWR= 

000120 

C.FASW= 

020000 

D.FGET=: 

000005 

ERRPTR 

004770R 

025 

A.ALEN= 

OOOOOA 

CHRQST= 

000121 

C.FLEN=  000010 

D.FMT  = 

000004 

ERRO 

004774R 

025 

A.ARG  = 

000040 

CHRQUO=  000113 

C.FLSH= 

004000 

D.FPNT= 

000005 

EXEBUF 

005054R 

025 

A.ASB  = 

000200 

CHRRBR= 

000047 

C.FRC  = 

000001 

D.FPUT= 

000005 

E$CT 

005056R 

025 

A.BITS= 

000003 

CHRRPR= 

000042 

C.IDEN= 

000010 

D.6E  = 

000000 

E$PT 

005060R 

025 

A. CON  = 

000020 

CHRSEM=  000074 

C.NAME= 

000102 

D.GT  = 

000000 

FA.APD= 

000100 

A.DIMS= 

000002 

CHRSM0= 

000112 

C.NaBF= 

000400 

D.IBM  = 

000002 

FA.CRE= 

000010 

A.DIM1= 

000006 

CHRSPA= 

000040 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.DLK= 

001000 

A.NUW  = 

000006 

CHRUPA= 

000131 

COP  = 

000004 

D.INNR= 

000013 

FA.ENB= 

100000 

A.PTR  = 

000000 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.EXC= 

002000 

A. IMP  = 

000010 

CHR.CC= 

000003 

C.RDLN= 

1 77776 

D.LE  = 

000000 

FA.EXT= 

000004 

BADDIR= 

104463 

CHR.CR= 

000015 

C.REWT= 

002000 

D.L06  = 

000001 

FA.NSP= 

000100 

BADERR= 

104437 

CHR.CZ= 

000032 

C.RND  = 

000010 

D.LT  = 

000000 

FA.NSR= 

000200 

BLDLST= 

*•«*«*  QX 

CHR.6T= 

000046 

C.S8IT= 

1 77756 

D.MAX  = 

000000 

FA.POS= 

010000 

BLZRiR 

0051 16R 

025  CHR.LF= 

000012 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.RD  = 

000001 

BRSELF 

005046R 

025  CHR.LT= 

000043 

C . SPGL= 

000200 

D.MIN  = 

000000 

FA.RWD= 

004000 

CCNT 

005072R 

025  CHR.SI= 

000017 

C . SPLX= 

000001 

D.MUL  = 

000000 

FA.SEQ= 

040000 

CHANEX 

003060R 

025  CHR.SL= 

000057 

C.SPRS= 

000002 

D.NE  = 

000000 

FA.SHR= 

000040 

CHANOO 

000256R 

025  CHR.S0= 

000016 

C.SRC  = 

1 7777^ 

D.NN  = 

000000 

FA.TMP= 

000020 

CHAN01 

000330R 

025  CHR.TB= 

000011 

C.SRCP= 

000024 

D.NR  = 

000000 

FA.WC»C= 

020000 

CHAN02 

00051 2R 

025  CHR.UL= 

000106 

C.TT  = 

000004 

D.OR  = 

000000 

FA.URT= 

000002 

CHAN03 

000674R 

025  CHR..A= 

000141 

C.UIIDC= 

177770 

D.PLUS= 

000000 

FD.BL»C= 

000010 

CHAN04 

001056R 

025  CHR..E= 

000145 

C.WIDR= 

1 77772 

D.PSUB= 

000006 

FD.CCL= 

000002 

CHAN05 

001240R 

025  CHR..S= 

000163 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.CaM=  020000 

CHAN06 

001422R 

025  CHR..T= 

000164 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.CR  = 

000002 

CHAN07 

001604R 

025  CHR..U= 

000165 

DEVIL 

005114R 

025  D.QUAD= 

000000 

FD.DIR= 

000010 

CHAN08 

001766R 

025  CHR..Z= 

000172 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.FTN=  000001 

CHAN09 

0021 50R 

025  CHR..0= 

000060 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.F11= 

040000 

CHAN10 

002332R 

025  CHR..1= 

000061 

DIWAX  = 

000020 

D.ROT  = 

000003 

FD.INS= 

000010 

CHANll 

00251 4R 

025  CH.AND= 

000001 

DIf«LK 

0031 12R 

025  D.SC0N= 

000006 

FD.ISP= 

002000 

CHAN12 

002676R 

025  CI1D6UF 

003250R 

025 

DI/1PTR 

0031 14R 

025  D.SDIF= 

000006 

FD.MNTr 

1X000 

CHAN13 

000022R 

023  CMD«AX= 

000010 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.0SP= 

004000 

CHANK 

000204R 

023  CNTSIZ 

005130R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PLC= 

000004 

CHN0PN= 

104471 

comiN 

005076R 

025  DGWERR= 

104417 

D.TAKE= 

000002 

FD.PRN=  000004 

CHRAND= 

000051 

COMCNT 

005126R 

025 

DPTERR= 

104416 

D.TRAN= 

000004 

FD.PSE= 

010000 

CHRBEL= 

000007 

C0MERR= 

104425 

DYDCNT 

003224R 

025  D.UNON=  000006 

FD.RAH= 

000001 

CHR8KR= 

000133 

COMPTR 

0O5122R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RAN=  000002 

CHR80L= 

000200 

COMRTN 

0031 56R 

025 

D.BXCT= 

000007 

D.$MIN= 

000000 

FD.REC= 

000001 

CHRBOX= 

000114 

COMSKP 

005124R 

025 

D.BXIO= 

000007 

D.$«UL= 

000000 

FD.RWM=  000001 

CHRC«A= 

000054 

CORPTR 

005120R 

025  D.BXNL= 

000007 

D.$PLU=  000000 

FD.SDI= 

000020 

CHRC0L= 

000076 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.SQD= 

000040 

CHRDEL= 

000107 

CS.800= 

000010 

D.8XPW= 

000007 

D.$SUB= 

000000 

FD.TTY= 

000004 

CHRDIV= 

000053 

CS.PLO= 

000020 

D.BXRL= 

000007 

D.1C0M= 

000001 

FD.UBH= 

000002 

CHRDLR= 

000176 

CS.]DN= 

000040 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF. CHR= 

000005 

CHRDLT= 

000110 

CS.ONE= 

000100 

D.CO«B= 

000001 

D.1R0T= 

000003 

FF.NV  = 

000003 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D.CQ«P= 

000001 

EDICHR 

005063R 

025  ?F,POE= 

000002 

CHREP  = 

000105 

CTMAX 

0002 12R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF. RWD= 

000001 

CHRERR= 

104451 

CTRMAX 

0001  ;'2R 

025 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  FF.RWF= 

000006 

CHRflL= 

000177 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

FF.SPC= 

000004 
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M  2 

SYMBOL 

FABLE 

F HE ADR 

00501 2R 

025 

F.FIR  = 

000100 

HSHMSK= 

177601 

MONBLK 

0031 20R 

025  M.RDCT= 

00001 1 

FHRET 

005040R 

025 

F.FNAM= 

000110 

HSHSIZ= 

000200 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

FILNTF= 

10AA67 

F.FNB  = 

000102 

I  CHAN 

O0505OR 

025  MONLEN 

0031 30R 

025  M.ROLL= 

000000 

FIS   = 

000000 

F.FNDF= 

000010 

1LFNAM= 

104464 

MONPTR 

0031 22R 

C?5  M.SATA= 

000001 

FISCON=  046000 

F.FTYP= 

000116 

ILLCHN= 

104540 

MONSFT 

0031 26R 

025  M.SCAN= 

000011 

FIXPTR 

003074R 

025 

F.FUN  = 

000010 

ILLSW  = 

104565 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FLAGS 

004764R 

025 

F.FVER= 

000120 

INDERR= 

104410 

MONVAL 

0031 34R 

025  M.SI6N= 

000000 

FLCBUF 

003250R 

025 

F.HEAD= 

000006 

INNTMP 

003250R 

025  M.ABS  = 

000000 

M.SIJRR= 

000001 

FLINE 

00501 AR 

025 

F.H1BK= 

000004 

INNTM2 

00501 6R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLOEXP 

003270R 

025 

F.LBL  = 

000020 

INPTR 

000064R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FLONEG 

003272R 

025 

F.LINE= 

000012 

INSNAM= 

1 04462 

M.BXCR= 

000007 

M.TRAN= 

000012 

FLSWTB 

000222R 

025 

F.LOC  = 

000004 

lOERR  = 

104477 

M.BXCT= 

000007 

M.$ABS= 

000000 

FLTLEN=  000010 

F.LSTC= 

000004 

I.CNT  = 

1 77776 

M.BXEX= 

000007 

M.$CEI= 

000000 

FNINSI 

0050AAR 

025 

F.LUN  = 

000042 

I. DIM  = 

1 77772 

M.BXFX= 

000007 

M.$FLR= 

000000 

FORIGN 

000032R 

025 

F.MBCT= 

000054 

I.LEN  = 

00001 2 

M.8XI0= 

000007 

M.$IDN= 

000000 

F0.AP0= 

000106 

F.MBC1  = 

000055 

I.OERR= 

000062 

M.8XLC= 

000003 

M.$NEG= 

000000 

F0.MFY= 

000002 

F.MBFG= 

000056 

I. OLD  = 

^77770 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.RD  = 

000001 

F.MON  = 

000002 

I.PTR  = 

1 7777  i^ 

M.BXNL= 

000007 

M.1RDT= 

000011 

F0.UP0= 

000006 

F.NIL  = 

000001 

I. SIR  = 

177766 

M.BXPP= 

000007 

M.1REV= 

000003 

F0.WRT= 

000016 

F.NRBD= 

000024 

KILL  = 

******  GX 

M.BXPW= 

000007 

M.1SCN= 

000011 

FPMOOE 

0000A2R 

025 

F.NREC= 

000030 

LABERR= 

104406 

M.BXRL= 

000007 

NA/iBUF 

003240R 

025 

FPP   = 

000000 

F.OPN  = 

000010 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NAMOUT= 

******  GX 

FPPLEN= 

OOOOOA 

F.0VBS= 

000030 

LARQBL 

0031 62R 

025  M.8XWA= 

000007 

NB.DEV= 

000200 

FREBLK 

007400R 

025 

F.PREV= 

000000 

LARGCV 

0031 76R 

025  M.CEI  = 

1 77777 

NB.DIR= 

000100 

FUZZ 

000U2R 

025 

F.PRNT= 

100000 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.NAM=  000004 

FXPTR1 

003076R 

025 

F.PR0T= 

010000 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD1= 

000400 

F$EVAL= 

000100 

F.RACC= 

000016 

LARGLN 

0031 66R 

025  M.DOUT= 

000006 

NB.SD2= 

001000 

F$EVI  = 

000200 

F.RATT= 

000001 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.SNM=  000040 

F$EXEC= 

000400 

F.RCM>1= 

000034 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.STP= 

000020 

F$FUNC= 

001000 

F.RCTL= 

000017 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.SVR= 

000010 

F.ACTL= 

000076 

F.READ= 

004000 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.TYP= 

000002 

F.AL0C= 

000040 

F.REDF= 

000040 

LBINC 

0051 OOR 

025  M.FACT= 

000001 

NB.VER= 

000001 

F.BBFS= 

000062 

F.RES  = 

000040 

L8UFF 

00331 6R 

025  M.FIL  = 

000177 

ND.DEV= 

000200 

F.RDB  = 

000070 

F.RET  = 

1 77772 

LBUFLN= 

000621 

M.FLR  = 

1 77777 

ND.EXU- 

000002 

F.BGBC= 

000057 

f.RSlZ= 

000002 

LCOUNT 

005106R 

025  M.FMT  = 

000004 

ND.NAM=  000004 

F.BITS= 

1  //'774 

F.RTYP= 

000000 

LENERR= 

104412 

M.6DUP= 

000003 

ND.PPN=  000100 

F.B»(DN= 

000026 

F.R2  = 

000014 

LENTAB 

000054R 

025  M.GDUN=  000003 

ND.SEX= 

000000 

F.BICDS= 

000020 

F.R3  = 

000016 

wEXPTR 

0031 OOR 

025  M.GETI= 

000006 

ND.$ES=  000020 

F.BICEF= 

000050 

F.R4  = 

000020 

LFTOP 

005066R 

025  M.I8M  = 

000003 

ND.$f#1=  000000 

F.BICP1  = 

000051 

F.SEQN= 

000100 

LINC 

0051 02R 

025  M.IDN  = 

000000 

ND.$N$=  000040 

F.B»(ST= 

000024 

F . SPDV= 

000072 

LINE 

00501 6R 

025  M.INSP= 

000006 

ND.$PN=  001400 

F.B*CVB= 

000064 

F.SPUN^ 

000074 

LININC 

005026R 

025  M.IOTA= 

000000 

NEGSGN 

005063R 

025 

F.BR  = 

000020 

F.STBK= 

000036 

ilSlZB= 

000020 

M.LIT  = 

000205 

NEWLIN= 

******  GX 

F.CHR  = 

000075 

F.STK  = 

000022 

LITOP 

005072R 

025  M.LN  = 

000001 

NINPT1 

003302R 

025 

F.CNTG= 

000034 

F.STOP= 

000004 

LNLNG  = 

104541 

M.MMD  = 

000010 

NINPT2 

00330OR 

025 

F.C00E= 

000010 

F.STP  -- 

000001 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINSTK 

003304R 

025 

F.DF^e= 

000046 

F . SUSP= 

000002 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

NINTMP 

00331  OR 

025 

F.DSPT= 

000044 

F.TRC  = 

000002 

LSTERP 

004766R 

025  M.NUB  = 

000006 

NINTYP 

003306R 

025 

F.D\/W1=  000134 

F.UNIT= 

000136 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

N0TAVL= 

104472 

F.EFBK= 

000010 

F.UR8D= 

U00020 

L.8ITS= 

000003 

M.OUTR= 

000012 

NOTERS 

OOOOOOR 

002 

F.EfN  = 

000050 

F.VAL  = 

1 77776 

L.CNT  = 

000002 

M.PITM= 

000000 

NOTOPN= 

104473 

F.END  = 

002000 

F.VBN  = 

000064 

L.PRNT= 

000001 

M.PRDS= 

000006 

NPRT1 

004762R 

025 

F.E()F#H= 

000032 

F . VBSZ^ 

000060 

L.PTR  = 

000000 

M.OQAD= 

000000 

NULL 

007364R 

025 

F.ERR  = 

000052 

GLBSCH= 

******  QX 

L.PTR1= 

000004 

M.OUAD= 

000000 

NUMCHN= 

00002r 

f,FfiiCC= 

000043 

GNOME 

0031 02R 

025  L.SUBS= 

000002 

M.RAND= 

000012 

NUMDFL 

00323OH 

025 

F.FFBV- 

000014 

HASHC 

005136R 

025  MACHIN= 

000106 

M.RAVL= 

000000 

NUMEFL 

003233R 

025 

F.F LAG= 

000002 

HASH  re 

005  UOR 

025  MAXCHN= 

000014 

M.RCIP= 

000000 

NUMESN 

003256R 

025 

"H — w 
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N  2 

SYI<«jL 

TABLE 

NUMFLG 

003230R 

025 

PATCH 

007344R 

025  R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

024  T.FUN  = 

01000C 

NUMLEN 

000062R 

025 

PRECSN 

000052R 

025  R.LN  = 

000002 

SY.8AD= 

000001 

T.LIST= 

000400 

NUMNEG 

003232R 

025 

PRINTM= 

•••**•  GX 

R.LNUM= 

000010 

SY.BRK= 

100000 

T.LIT  = 

000020 

NUMQFL 

003234R 

025 

RANDAC 

003064R 

025  R.NEXT= 

000006 

SY.BS  = 

000010 

T.MON  = 

000010 

NUMRIG 

003231 R 

025 

RANDY 

003062R 

025  R.OFF  = 

000000 

SY.CLR= 

000040 

T.NIL  = 

000004 

NUMUID 

003226R 

025 

RANERR= 

104411 

R.PREV= 

000004 

SY.ERP= 

000020 

T.NUM  = 

002000 

NUMZFL 

003235R 

025 

RARGBL 

003204R 

025  R.PTR  = 

000000 

SY.NOU=  000100 

T.CPFN= 

000001 

NYIERR= 

104432 

RARGCV 

003220R 

025  R.SEQ  = 

000003 

SY.OPN= 

000002 

T.0THR= 

040000 

N.BLSZ= 

000036 

RARGFL 

003202R 

025  R.VAR  = 

000002 

SY.PMT= 

001000 

T.SOP  = 

000002 

N.DESC= 

000020 

RARGLE 

00321 6R 

025  R6 

X000006 

SY.SRT= 

000400 

T.5rOP= 

000040 

N.DEV  == 

00032 

RARGLN 

00321  OR 

025  R7 

X000007 

SY.SVC= 

000004 

T.VMP  = 

000200 

N.DEVN=  CaaX)3A 

RARGPT 

003206R 

025 

SI 

X000005 

SY.SVL= 

000200 

T.7AL  = 

100000 

N.DID  = 

000024 

RARGSF 

00321 4R 

025 

sin-j^= 

104433 

S.AB  = 

1 7777 t 

T.VAR  = 

001000 

N.DVNM=  000032 

RARGTY 

00321 2R 

025 

ZxtRm 

00331 4R 

025 

S.ASB  = 

100000 

UPPER  = 

177400 

N.EXT  = 

000014 

RARGVA 

003222R 

025  SISTAK 

006350R 

025 

S.BFHD= 

000020 

UTNAWE 

000344R 

023 

N.FID  ^ 

000000 

RBASE 

005074R 

025 

SI'iOP 

006346R 

025 

S.BITS= 

000002 

VALERR= 

104413 

N.FNAM=  000006 

RCOUNR 

0051 12R 

025 

SITP 

0071 44R 

025 

S.CHR1= 

000003 

VARBLE 

007400R 

025 

N.FTYP= 

000014 

RCOUNT 

00511  OR 

025 

SIWARN= 

000200 

S.FATT= 

000016 

VAR8LS 

OOOOOOR 

025 

N.F\/ER= 

000016 

REDCNT 

005070R 

025 

SIZTAB 

000044R 

025 

S.FDB  = 

000140 

VERNUM 

OOOOOOR 

025 

N.NAI1E= 

000006 

REDIGN 

005066R 

025 

SI.8IT= 

1 7777^ 

S.FLB  = 

040000 

VRSI0N= 

000002 

N.NEXT= 

000022 

REDOFF 

005072R 

025 

SI.LEN= 

1 77772 

S.FNA«= 

000006 

WID^H 

000072R 

025 

N.PPN  = 

000024 

REENTR 

003060R 

025 

SI.RET= 

\77772 

S.FNB  = 

000036 

WROUND 

C00020R 

025 

N.STAT= 

000020 

RESRIT 

0031 42R 

025 

SI.VAL= 

1 7777 t 

S.FNBW= 

00001 7 

WSDATE 

0001 36R 

025 

N.UNIT= 

000034 

RESCVT 

0031 52R 

025 

SKPSIZ 

0051 34R 

025 

S.FNTY= 

000004 

WSFULL-^ 

104403 

UBUFLN= 

001000 

RESERR= 

104440 

SPHOLD 

000004R 

024 

S.rTYP= 

000002 

WSNAME 

000074R 

025 

OCHAN 

005052R 

025 

RESLEN 

0031 50R 

025 

SPINIT 

000002R 

024 

S.LEN  = 

000002 

WSTIWE 

0001 32R 

025 

OMa)E 

0004C2R 

023 

RESPTR 

'   \M40R 

025 

STKINC= 

000774 

S.LINK= 

1 7777 k 

$FIS  = 

•k-kifkick   G 

OPTMPO 

005066R 

025 

RESSFT 

0031 46R 

025 

STOP  = 

104420 

S.NFEN= 

000020 

VtPP     = 

******  G 

0PTMP1 

005070R 

025 

RESTYP 

0031 44R 

025 

SUBCNT 

0031 04R 

025 

S.TYPE= 

140000 

$FPPLN= 

******  G 

0PTMP2 

005072R 

025 

RESULT 

0031 36R 

025 

SUBDCT 

0031 06R 

025 

S.VAL  = 

000000 

$MACHN= 

******  G 

0PTIiP3 

005074R 

025 

RESVAL 

0031 54R 

025 

SUBPTR 

00311  OR 

025 

TKDIMS 

005072R 

025  srst::  = 

******  G 

0PTMP4 

005076R 

025 

RINC 

005104? 

025 

sym^ 

005344R 

025 

TKFRAM 

005066R 

025  $RSX  = 

******  G 

0PTMP5 

005IOOR 

025 

RLT8AS 

005066P 

025 

SYMf 

005340R 

025 

TKLEFT 

005070R 

025  $RT1 1  = 

******  G 

0PTMF>6 

005102R 

025 

ROTINC 

005070R 

025 

SYMPT1 

005346R 

025 

TMODE 

000403R 

023  .B00LE= 

000002 

0PTMP7 

005104R 

025 

ROUND 

00001  OR 

025 

SYMTAB 

005352R 

025 

TMPTAG= 

000166 

.CHARA= 

000000 

GPirFS 

005106R 

025 

ROVER 

00331 2R 

025 

SYMTBF= 

104404 

TTYBUF 

004140R 

025  .DbF.  = 

000002 

0PTMP9 

005110R 

025 

RSTS  = 

000000 

SYMTOP 

005350R 

025 

TTYLEN= 

000622 

.FL0AT= 

000006 

OPTW10 

0051 12R 

025 

RSX   = 

000115 

SYMTP 

006272R 

025 

TURKEY= 

104436 

.FSRCB= 

******  G 

OPTMU 

C05026R 

025 

RTOP 

005070R 

025 

SYMWRN= 

000054 

TYPE  = 

000166 

.INTEG^ 

000004 

ORIGIN 

000030R 

025 

r(Tl1   = 

000000 

SYNERR= 

104407 

T.BOL  = 

020000 

.MOLUN 

000404R 

023 

OUTCHR= 

***••«  GX 

R.8ITS= 

000003 

SYSER  = 

******  GX 

T.CON  = 

004000 

...G8L= 

000000 

OUTPTR 

000066R 

025 

R.FIX  = 

000001 

SYSERR= 

104402 

T.DJM  = 

000100 

...TPC= 

000020 

OVROPR= 

OOCOOO 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000014 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

MUNBTO 

OOCOOO 

006 

DYDBTB 

000000 

007 

COMTB 

000000 

010 

CHRTBL 

000000 

011 

VTBL 

000000 

012 

ASCTBL 

OOOGX 

013 

OVRTBL 

000000 

014 

ERASEC 

MACRO  Mir 

13  0 

SYI>fHDL 

r^BLE 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

000216 

020 

PATCH 

000000 

021 

SSFSR1 

000000 

022 

DEFSC 

000406 

023 

DEFS1 

000006 

024 

DEF$2 

007400 

025 

ERRORS 

DETECTED: 

0 
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.TITLE  QIOMAC  -  QIOSYM  MACRO  DEFINITION 
DATE  OF  LAST  MODIFICATION: 

C.A.  D'ELIA     19-N0V-77 


*****  ALWAYS  UPDATE  THE  FOLLOWING  TWO  LINES  TOGETHER 
.IDENT  /0331/ 
QI.VER=0331 


COPYRIGHT  (C)  1973J977 

DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THiS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A 
SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR 
ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR  OTHERWISE 
MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR  USE  ON  SUCH 
SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.  TITLE 
TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN 
IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE  WITHOUT 
NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL 
EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 

PETER  H.  LiPMAN  1-0CT-73 

MACRO  TO  DEFINE  STANDARD  QUEUE  I/O  DIRECTIVE  FUNCTION  VALUES 
AND  lOSB  RETURN  VALUES.   TO  INVOKE  AT  ASSEMBLY  TIME  (WITH  LOCAL 
DEFINITION)  USE: 

QIOSYS         ;DEFINE  SYMBOLS 

TO  OBTAIN  GLOBAL  DEFINITION  OF  THESE  SYMBOLS  USE: 

QIOSYS  DEFSG    ; SYMBOLS  DEFINED  GLOBALLY 

THE  MACRO  CAN  BE  CALLED  ONCE  ONLY  AND  THEN 
REDEFINES  ITSELF  AS  NULL. 


.MACRO  QIOSYS  SSSGBL,SSSMSG 

Alf  IDN,<SSSG8L>,<DEFSG>, 

.If  IDN,<SSSMSG>,<DEFSS> 

SSSMAX=0 

SSMSG=1 

,lff 

SSMSG=0 

.ENDC 


.GL06L  Ql.VER 


T-T 


E  3 
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58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 


;I/0  ERROR  CODES  FROM  HANDLERS,  FCP,  FCS 


.MCALL  lOERRS 

lOERRS  $$$G6L 

.MCALL  DRERRS 

DRERRS  $$$GBL         ; DIRECTIVE  STATUS  WORD  ERROR  CODES 

Af  DIF,<$$SMSG>,<DEF$S> 

.MCALL  FILIOS 

FILIOS  $$$GBL         .-DEFINE  GENERAL  I/O  FUNCTION  CODES 

.MCALL  SPCIOS 

SPCIOS  $$$GBL         .-DEVICE  DEPENDENT  I/O  FUNCTION  CODES 

.MACRO  QIOSYS  ARG.ARG1  .ARG2   .-RECLAIM  MACRO  STORAGE 

.ENDM  QIOSYS 

.ENDC 

.ENDM  QIOSYS 
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72 

73 

74 

75 

76 

17 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

9A 

95 

96 

97 

98 

99 
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119 

120 

121 

122 

123 

124 

125 

126 

127 

128 


DEFINE  .HE  ERROR  CODES  RETURNED  BY  DEVICE  HANDLER  AND  FILE  PRIMITIVES 
IN  THE  FIRST  WORD  OF  THE  I/O  STATUS  BLOCK 

THESE  CODES  ARE  ALSO  RETURNED  BY  FILE  CONTROL  SERVICES  (FCS)  \H   THE 
BYTE  F.ERR  IN  THE  FILE  DESCRIPTOR  BLOCK  (FDB) 

THE  BYTE  F.ERR+1  IS  0  IF  F.ERR  CONTAINS  A  HANDLER  OR  FCP  ERROR  CODE 

.MACRO  IOERR$  $$SGBL 

.MCALL  .IOER.,DEFIN$ 

A^  IDN,<S$$GBL>,<DEF$6> 

...GBL=1 

. . . GBL=0 

.ENDC 

AU         NDF,$$MSG,$$MSG=0 

SYSTEM  STANDARD  CODES,  USED  BY  EXECUTIVE  AND  DRIVERS 

.lOER.  IE.BAD,-01.,<BAD  PARAMETERS> 

.lOER.  IE.IFC,-02.,<INVALID  FUNCTION  CODE> 

.lOER.  IE.DNR,-03.,<DEVICE  NOT  READY> 

.lOER.  IE.VER,-04.,<PARITY  ERROR  ON  DEVICE> 

.lOER.  IE.0NP,-05.,<HARDWARE  OPTION  NOT  PRESENT> 

.lOER.  IE.SPC,-06.,<ILLEGAL  USER  BUKFER> 

.lOER.  IE.DNA,-07.,<DEVICE  NOT  ATTACHED> 

.lOER.  IE.DAA,-08.,<DEVICE  ALREADY  ATTACHED> 

.lOER.  IE.DUN,-09.,<DEVICE  NOT  ATTACHABLE> 

.lOER.  IE.E0F,-10.,<END  OF  FILE  DETECTED> 

.lOER.  IE.E0V,-11.,<END  OF  VOLUME  DETECTED> 

.lOER.  IE.WLK,-12.,<WRITE  ATTEMPTED  TO  LOCKED  UNIT> 

.lOER.  IE.DA0,-13.,<DATA  OVERRUN> 

.lOER.  IE.SRE,-14.,<SEND/RECEIVE  FAILURE> 

.lOER.  IE.AB0,-15.,<REQUEST  TERMINATED> 

.lOER.  IE.PRI,-16.,<PRIVILE6E  VI0LATI0N> 

.lOER.  IE.RSU,-17.,<SHARA8LE  RESOURCE  IN  USE> 

.lOER.  IE.0VR,-18.,<ILLEGAL  OVERLAY  REQUEST> 

.lOER.  IE.BYT,-19.,<0DD  BYTE  COUNT  (OR  VIRTUAL  ADDRESS)> 

.lOER.  IE.BLK,-20.,<LOGICAL  BLOCK  NUMBER  TOO  LARGE> 

.lOER.  IE.M0D,-21.,<INVALID  UDC  MODULE  *> 

.lOER.  IE. CON, -22., <UDC  CONNECT  ERROR> 

.lOER.  IE.BBE,-56.,<BAD  BLOCK  ON  DEVICE> 

.lOER.  IE.STK,-58.,<NOT  ENOUGH  STACK  SPACE  (FCS  OR  FCP)> 

.lOER.  IE.FHE,-59.,<FATAL  HARDWARE  ERROR  ON  DEVICE> 

.lOER.  IE.E0T,-62.,<END  OF  TAPE  DETECTED> 

.lOER.  IE. OFL, -65., <DEVICE  OFF  LINE> 

.lOER.  IE.BCC,-66.,<BL0CK  CHECK,  CRC,  OR  FRAMING  ERROR> 


FILE  PRIMITIVE  CODES 


lOER.  IE.NOD,-23.,<CALLER'S  NODES  EXHAUSTED> 

lOER.  IE.DFU,-24.,<DEVICE  FULL> 

lOER.  IE.IFU,-25.,<INDEX  FILE  FULL> 

lOER.  IE.NSF,-26.,<NO  SUCH  FILE> 


fi~T 


G"T 
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129 

130 
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13A 
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142 
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148 

149 
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151 

152 

153 

154 
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157 
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159 

160 

161 
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163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

1 85 


.lOER. 

IE.LCIC,-27. 

.lOER. 

IE.HFU,-28. 

.lOER. 

IE. WAG,  29. 

.lOER. 

IE.CKS,-30. 

.lOER. 

IE. WAT, -31. 

.lOER. 

IE.RER,-32. 

.lOER. 

IE.WER,-33. 

.lOER. 

IE.ALN,-34. 

.lOER. 

IE.SNC,-35. 

.lOER. 

IE.SQC,-36. 

.lOER. 

IE.NLN,-37. 

.lOER. 

IE.CL0,-38. 

.lOER. 

IE.DUP,-57. 

.lOER. 

IE.BVR,-63. 

.lOER. 

IE.BHD,-64. 

.lOER. 

IE. EXP, -75. 

.lOER. 

IE.BTF,-76. 

.lOER. 

IE.ALC,-84. 

.lOER. 

IE.UL<,-85. 

.lOER. 

IE.WCK,-86. 

FILE  CONTROL 

SERVICES  COD 

.lOER. 

IE.NBF,-39. 

.lOER. 

IE.RBG,-40. 

.lOER. 

ie.nbk:,-41. 

.lOER. 

IE. ILL, -42. 

.lOER. 

IE.BTP,-43. 

.lOER. 

IE.RAC,-44. 

.lOER. 

IE. RAT, -45. 

.lOER. 

IE.RCN,-46. 

.lOER, 

IE.2DV,-48. 

.lOER. 

IE.FEX,-49. 

.lOER. 

IE.BDR,-50. 

.lOER. 

IE.RN«,-51. 

.lOER. 

IE.BDI,-52. 

.lOER. 

IE. FOP, -53. 

.lOER. 

IE.BNM,-54. 

.lOER. 

IE.BDV,-55. 

.lOER. 

IE.NFI,-60. 

.lOER. 

IE. ISQ, -61. 

.lOER. 

IE. NNC, -77. 

NETWORK  ACP  CODES 

.lOER. 

IE. AST, -80. 

.lOER. 

IE.NNN,-68. 

.lOER. 

IE.NFW,-69. 

.lOER. 

IE.BLB,-70. 

.lOER. 

IE.TMM,-71. 

.lOER. 

IE. NDR, -72. 

.lOER. 

IE. CNR, -73. 

.lOER. 

IE.TMO,-74. 

.lOER. 

IE.NNL.-78. 

,<LOC)CED  FROM  READ/WRITE  ACCESS> 

,<FILE  HEADER  FULL> 

,<ACCESSED  FOR  WRITE> 

,<FILE  HEADER  CHECKSUM  FAILURE> 

,<ATTRIBUTE  CONTROL  LIST  FORMAT  ERROR> 

,<FILE  PROCESSOR  DEVICE  READ  ERROR> 

,<FILE  PROCESSOR  DEVICE  WRITE  ERROR> 

,<FILE  ALREADY  ACCESSED  ON  LUN> 

,<FILE  ID,  FILE  NUMBER  CHECK> 

,<FILE  ID,  SEQUENCE  NUMBER  CHECK> 

,<N0  FILE  ACCESSED  ON  LUN> 

,<FILE  WAS  NOT  PROPERLY  CLOSED> 

,<ENTER  -  DUPLICATE  ENTRY  IN   DIRECTORY> 

,<BAD  VERSION  NUMBER> 

,<BAD  FILE  HEADER> 

,<FILE  EXPIRATION  DATE  NOT  REACHED> 

,<BAD  TAPE  FORMAT> 

,<ALLOCATION  FAILURE> 

,<UNLOCK  ERROR> 

,<WRITE  CHECK  FAILURE> 


,<OPEN  -  NO  BUFFER  SPACE  AVAILABLE  FOR  FILE> 

,<ILLEGAL  RECORD  SIZE> 

,<FILE  EXCEEDS  SPACE  ALLOCATED,  NO  BLOCKS> 

,<ILLEGAL  OPERATION  ON  FILE  DESCRIPTOR  BLOCK> 

,<BAD  RECORD  TYPE> 

,<ILLE6AL  RECORD  ACCESS  BITS  SET> 

,<ILLEGAL  RECORD  ATTRIBUTES  BITS  SET> 

,<ILLEGAL  RECORD  NUMBER  -  TOO  LARGE> 

,<RENAME  -  2  DIFFERENT  DEVICES> 

,<RENAME  -  NEW  FILE  NAME  ALREADY  IN  USE> 

,<BAD  DIRECTORY  FILE> 

,<CAN'T  RENAME  OLD  FILE  SYSTEM> 

,<BAD  DIRECTORY  SYNTAX> 

,<FILE  ALREADY  OPEN> 

,<BAD  FILE  NAME> 

,<BAD  DEVICE  NAWE> 

,<FILE  ID  WAS  NOT  SPECIFIED> 

,<ILLEGAL  SEQUENTIAL  OPERATION> 

,<NOT  ANSI  'D*  FORMAT  BYTE  COUNT> 


,<N0  AST  SPECIFICD  IN  CONNECT> 

,<N0  SUCH  NODE> 

,<PATH  LOST  TO  PARTNER>  ;THIS  CODE  MUST  BE  ODD 

,<6AD  LOGICAL  BUFFER> 

,<T00  MANY  OUTSTANDING  MESSAGES> 

,<N0  DYNAMIC  SPACE  AVA1LABLE> 

,<CONNECTION  REJECiFD> 

,<TIMEOUT  ON  REQUESi> 

,<NOT  A  NETWORK  LUN> 
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192 
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19A 
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234 
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241 
242 


ICS/ICR  ERROR  CODES 

.lOER.   IE.NL)C,-79.,<TASK  NOT  LINKED  TO  SPECIFIED  ICS/ICR  INTERRUPTS> 

.lOER.  IE.NST,-80.,<SPECIFIED  TASK  NOT  INSTALLED> 

.lOER.   IE.FLN,-81.,<DEVICE  OFFLINE  WHEN  OFFLINE  REQUEST  WAS  ISSUED> 


TTY  ERROR  CODES 


.lOER.   IE.IES,-82.,<INVALID  ESCAPE  SEQUENCE> 
.lOER.   IE.PES,-83.,<PARTIAL  ESCAPE  SEQUENCE> 


SUCCESSFUL  RETURN  CODES 


DEF  INS  IS.PND,'»-00, 
DEF  INS  IS.SUC^OI. 
DEFINS  IS.RDD,+02. 


DEFINS  IS.BV,'^05. 


OPERATION  PENDING 
OPERATION  COMPLETE,  SUCCESS 
(RX11)  FLOPPY  DISK  SUCCESSFUL  COMPLETION 
OF  A  READ  PHYSICAL,  AND  DELETED 
DATA  MARK  WAS  SEEN  IN  SECTOR  HEADER 
LAST  SECTOR. 

(A/D  READ)  AT  LEAST  ONE  BAD  VALUE 
WAS  READ  (REMAINDER  MAY  BE  GOOD). 
BAD  CHANNEL  IS  INDICATED  BY  A 
NEGATIVE  VALUE  IN  THE  BUFFER. 


;  TTY  SUCCESS  CODES 

0EF1N$ 

IS.CR,<15*400*1> 

DEFINS 

IS. ESC, <33*400^-1> 

DEFINS 

IS.CC,<3*400^-1>  ; 

DEFINS 

IS.ESQ,<233*400^-1 

DEFINS 

IS.PES,<200*400^1 

DEFINS 

IS.E0T,<4*400^1> 

DEFINS 

IS.TAB,<11*400+1> 

OEflN% 

IS.TM0,-^2. 

.•CARRIAGE  RETURN  WAS  TERMINATOR 
;ESCAPE  (ALTMODE)  WAS  TERMINATOR 
CONTROL-C  WAS  TERMINATOR 

>  ; ESCAPE  SEQUENCE  WAS  TERMINATOR 

>  .-PARTIAL  ESCAPE  SEQUENCE  TERMINATOR 
;EOT  WAS  TERMINATOR  (BLOCK  MODE  INPUT) 
;TAB  W/*.S  TERMINATOR  (FORMS  MODE  INPUT) 

REQUEST  TIMED  OUT 


♦*♦•** 


THE  NEXT  AVAILABLE  ERROR  NUMBER  IS:  -87. 
ALL  (BUT  TWO)  LOWER  NUMBERS  ARE  IN  USE  I ! 
NOTE:  ERROR  CODES  -47.  AND  -67.  HAVE  BEEN  RETIRED  AND  CAN 
BE  ASSIGNED  AT  A  LATER  DATE. 


♦  ♦♦♦♦ 


.If 

.MACRO 

.ENDM 


EQ.SSMSG 
lOERRS  A 
lOERRS 


r^ 
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243 
244 


.ENDC 
.ENDM 


lOERRS 
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252 

283 

284 

285 
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DEFJNE  THE  DJRECTJVE  ERROR  CODES  RETURNED  JN  THE  DJRECTJVE  STATUS  WCRD 

FJLE  CONTROL  SERVJCES  (FCS)  RETURNS  THESE  CODES  JN  THE  BYTE  F.ERR 
OF  THE  FJLE  DESCRJPTOR  BLOCK  (FDB).   TO  DJSTJN6UJSH  THEM  FROM  THE 
OVERLAPPJNG  CODES  FROM  HANDLER  AND  FJLE  PRJMJTJVES,  THE  BYTE 
F.ERR+1  JN  THE  FDB  WILL  BE  NEGATIVE  FOR  A  DJRECTJVE  ERROR  CODE. 

.MACRO  DRERRS  SSSGBL 

.MCALL   .QJOE.,DEFJN$ 

.JF     JDN,<$$SGBL>,<DEF$G> 

...6BL=1 

.JFF 

...GBL=0 

.ENDC 

.JJF    NDF,$$MSG,$$MSG=0 


,<INSUFFJCJENT  DYNAMIC  ST0RA6E> 

,<SPECIFIED  TASK  NOT  INSTAL' ED> 

,<PARTJTJON  TOO  SMALL  FOR  TASK> 

,<INSUFFICIENT  DYNAMIC  STORAGE  FOR  SEND> 

,<UN-ASSIGNED  LUN> 

,<DEVICE  HANDLER  NOT  RESIDENT> 

,<TASK  NOT  ACTIVE> 

,<DIPECTIVE  INCONSISTENT  WITH  TASK  STATE> 

,<TASK  ALREADY  FIXED/UNFIXED> 

,<ISSUIN6  TASK  NOT  CHECKPOINTABLE> 

,<TASK  IS  CHECKPOINTABLE> 

,<RECEIVE  BUFFER  IS  TOO  SMALL> 

,<PRIVILEGE  VIOLATION> 

,<RESOURCE  IN  USE> 

,<N0  SWAP  SPACE  AVAILABLE> 

,<ILLEGAL  VECTOR  SPECIFIED> 


,<DIRECTIVE  ISSl  VNOT  ISSUED  FROM  AST> 
,<ILLE6AL  MAPPINtj  SPECIF1ED> 
,<WINDOW  HAS  I/O  IN  PROGRESS> 
,<ALIG^f1ENT  ERROR> 
,<ADDRESS  WINDOW  ALLOCATION  OVERFLOW> 

REGION  ID> 

ADDRESS  WINDOW  ID> 

TI  PARAMETER> 

SEND  BUFFER  SIZE  (  .GT.  255. )> 
USE> 


;  STANDARD  ERROR  CODES  RETU 

.QIOE. 

IE.UPN,-01. 

.QIOE. 

IE. INS, -02. 

.QIOE. 

IE.PTS,-03. 

.QIOE. 

IE.UNS,-04. 

.QJOE. 

IE.ULN,-05. 

.QIOE. 

IE.HWR,-06. 

.QIOE. 

IE. ACT, -07. 

.QIOE. 

IE. ITS, -08. 

.QIOE. 

IE. FIX, -09. 

.QIOE. 

IE.CKP,-10. 

.QIOE. 

IE.TCH,-11. 

.QIOE. 

IE.RBS,-15. 

.QIOE. 

IE.PRI,-16. 

.QIOE. 

IE.RSU,-17. 

.QIOE. 

IE. NSW, -18. 

.QIOE. 

IE.JLV,-19. 

.QIOE. 

IE. AST, -80. 

.QIOE. 

IE. MAP, -81. 

.QIOE. 

IE.I0P,-83. 

.QIOE. 

IE.ALG,-84. 

.QIOE. 

IE.W0V,-85. 

.QIOE. 

IE.NVR,-86. 

.QIOE. 

IE.NVW,-87. 

.QIOE. 

IE.ITP,-88. 

.QIOE. 

IE. IBS, -89. 

.QIOE. 

IE.LNL,-90. 

.QIOE. 

IE.IUI,-91. 

.QIOE. 

IE.IDU,-92. 

.QIOE. 

IE.ITI,-93. 

.QIOE. 

IE.PNS,-94. 

.QIOE. 

IE.IPR,-95. 

.QIOE. 

IE.ILU,-96. 

.QIOE. 

IE.IEF,-97. 

.QIOE. 

IE.ADP,-98. 

.QJOE. 

JE.SDP,-99. 

,<INVALID 

,<INVALID 

,<INVALID 

,<INVALID 

,<LUrJ  LOCKED  IN 

,<INVALID  UIO 

,<INVALID  DEVICE  OR  UNIT> 

,<INVALID  TIME  PARAM*-  RS> 

,<PARTITION/REGION  NO.  IN  SYSTEM> 

,<INVALID  PRIORITY  (  .GT.  250. )> 

,<INVALID  LUN> 

,<INVALID  EVENT  FLAG  (  .GT.  64. )> 

,<PART  OF  DPS  OUT  OF  USER'S  SPACE> 

,<DIC  OR  DPB  SIZE  INVALID> 


■= — 1- 


' tTT 
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30A 
305 
306 
307 
308 
309 
310 
311 
312 
313 
31A 
315 
316 
317 


SUCCESS  CODES  FROM  DIRECTIVES  -  PLACED  IN   THE  DIRECTIVE  STATUS  WORD 
DEFINS  IS. CLR,0 
DEFINS  IS. SET, 2 


DEFINS  IS. SPD, 2 


EVENT  FLAG  k'-*S  CLEAR 

FROM  CLEAR  EVENT  FLAG  DIRECTIVE 

EVENT  FLAG  WAS  SET 

FROM  SET  EVEN:  FLAG  DIRECTIVE 

TASK  WAS  '^LSP  >JDED 


,lf 

EQ,$SMSG 

.MACRO 

DRERRS  A 

.ENDM 

DRERRS 

.ENDC 

.ENDM 

DRERRt 
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336 
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338 

339 

340 

341 
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343 

344 

345 

346 

347 

3^8 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 


DEFINE  THE  GENERAL  I/O  FUNCTION  CODES  -  DEVICE  INDEPENDENT 

.MACRO  FILIOS  $$$6BL 

.MCALL     .WORD.,DEFIN$ 

Af  IDN,<S$SG8L>,<DEF$G> 

...GBL=1 

.Iff 

...GBL=0 

.ENDC 

GENERAL  I/O  QUALIFIER  BYTE  DEFINITIONS 


.WORD.  IQ.X,001,000 

.WORD.  IQ. 0,002,000 

.WORD.  10.3,004,000 

.WORD.  I0.UMD,004,000 

EXPRESS  OUEUE  COMMANDS 


.WORD.  IO.KIL,012,000 

.WORD.  IO.RDN,022,OO0 

.WORD.  IO.UNL,042,0O0 

.WORD.  IO.LTIC,050,000 

.WORD.  IO.RT)C,060,000 

.WORD.  10. SET, 030, 000 

GENERAL  DEVICE  HANDLER  CODES 

.WORD.  IO.WLB,000,001 

.WORD.  IO.RLB,000,002 

.WORD.  IO.LOV,010,002 

.WORD.  10. ATT, 000,003 

.WORD.  IO.DET,000,004 

DIRECTORY  PRIMITIVE  CODES 

.WORD.  I0.FNA,000,011 

.WORD.  IO.RNA,000,013 

.WORD.  IO.ENA,000,014 


NO  ERROR  RECOVERY 

QUEUE  REQUEST  IN  EXPRESS  QUEUE 

SYNONYM  FOR  IQ.UMD 

USER  MODE  DIAGNOSTIC  STATUS  REQUIRED 


FILE  PRIMITIVE  CODES 


WORD. 
WORD. 
WORD. 
WORD. 
WORD. 
WORD. 
WORD. 
WORD. 
WORD. 
WORD. 
WORD. 
WORD. 
,WORD. 


lO.CLN 
lO.ULK 
lO.ACR 
lO.ACW 
10. ACE 
lO.DAC 
lO.RVB 
lO.WVB 
10. EXT 
lO.CRE 
10. DEL 
10. RAT 
10. WAT 


,000,007 
,000,012 
,000,015 
,000,016 
,000,017 
,000,020 
,000,021 
,000,022 
,000,023 
,000,024 
,000,025 
,000,026 
,000,027 


;KILL  CURRENT  REQUEST 

;I/0  RUNDOWN 

; UNLOAD  I/O  HANDLER  TASK 

;LOAD  A  TASK  IMAGE  FILE 

.•RECORD  A  TASK  IMAGE  FILE 

;SET  CHARACTERISTICS  FUNCTION 


; WRITE  LOGICAL  BLOCK 
;READ  LOGICAL  BLOCK 
;LOAD  OVERLAY  (DISK  DRIVER) 
; ATTACH  A  DEVICE  TO  A  TASK 
;DETACH  A  DEVICE  FROM  A  TASK 


;FIND  FILE  NAME  IN  DIRECTORY 
;REMOVE  FILE  NAME  FROM  DIRECTORY 
;ENTER  FILE  NAME  IN  DIRECTORY 


CLOSE  OUT  LUN 
UNLOCK  BLOCK 
ACCESS  FOR  READ 
ACCESS  FOR  WRITE 
ACCESS  FOR  EXTEND 
DE-ACCESS  FILE 
READ  VIRITUAL  BLOCK 
WRITE  VIRITUAL  BLOCK 
EXTEND  FILE 
CREATE  FILE 
DELETE  FILE 
READ  FILE  ATTRIBUTES 
WRITE  FILE  ATTRIBUTES 


■= — 1" 
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376 
377 
378 
379 
380 
381 
382 


WORD.   10.APV,010,030  .-PRIVILEGED  ACP  CONTROL 
.WORD.   IO.APC,000,030  ;ACP  CONTROL 


.MACRO  FILIOS 
.ENDM  FILIOS 
.ENDM   FILIOS 
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38A 

385                           ;  DEFINE  THE  I/O  FUNCTION  CODES  1 

rHAT  ARE  SPECIFIC  TO  INDIVIDUAL  DEVICES 

38/ 

.MACRO 

SPCIOS  $$SGBL 

388 

.MCALL 

.WORD.,DEFIN$ 

389 

.If 

IDN,<$$SGBL>,<DEF$G>                                              I 

390 

..,GBL= 

:1 

391 

Aff 

392 

...GBL= 

^0 

393 
394 

.ENDC 

395                           ;  I/C 

396 

397 

1  FUNCTION 

CODES  FOR  SPECIFIC  DEVICE  DEPENDENT  FUNCTIONS                           | 

.WORD. 

10. WLV, 100,001   . 

■(DECTAPE)  WRITE  LOGICAL  REVERSE 

398 

.WORD. 

I0.WLS,010,001  . 

;(C0MM.)  WRITE  PRECEDED  BY  SYNC  TRAIN 

399 

.WORD. 

IO.WNS,020,001  . 

;(COMM.)  WRITE,  NO  SYNC  TRAIN 

400 

.WORD. 

I0.WAL,010,001  . 

;(TTY)  WRITE  PASSING  ALL  CHARACTERS 

401 

.WORD. 

I0.WMS,020,001  . 

;(TTY)  WRITE  SUPPRESSIBLE  MESSAGE 

402 

.WORD. 

10. ceo, 040, 001  . 

;(TTY)  WRITE  WITH  CANCEL  CONTROL -0 

403 

.WORD. 

I0.WBT,100,001  . 

;(TTY)  WRITE  WITH  BREAKTHROUGH 

404 

.WORD. 

IO.WLT,010,001  . 

;(DISK)  WRITE  LAST  TRACK  ON  RK06 

405 

.WORD. 

I0.WLC,020,001  . 

;(DISK)  WRITE  LOGICAL  W/  WRITECHECK 

406 

.WORD. 

I0.WPB,040,001  . 

;(RX11  DISK)  WRITE  PHYSICAL  BLOCK 

407 

.WORD. 

I0.WDD,044,001  . 

;(RX11  DISK)  WRITE  PHYSICAL  W/  DELETED  DATA 

408 

.WORD. 

10. RLV, 100,002  . 

;  (MAGTAPE, DECTAPE)  READ  REVERSE 

409 

.WORD. 

I0.RST,001,002  . 

;(TTY)  READ  WITH  SPECIAL  TERMINATOR 

410 

.WORD. 

IO.RAL,010,002  , 

;(TTY)  READ  PASSING  ALL  CHARACTERS 

411 

.WORD. 

I0.RNE,020,002  . 

•(TTY)  READ  WITHOUT  ECHO 

412 

.WORD. 

I0.RNC,040,002  . 

;(TTY)  READ  -  NO  L'\i€R  CASE  CONVERT 

413 

.WORD. 

I0.RTM,200,002  . 

;(TTY)  READ  WITH  TIME  OUT 

414 

.WORD. 

I0.RDB,200,002  . 

;(CARD  READER)  READ  BINARY  MODE 

415 

.WORD. 

I0.RHD,010,002  . 

;(C0MM.)  READ,  STRIP  SYNC 

416 

.WORD. 

IO.RNS,020,002  . 

;(C0MM.)  READ,  DON'T  STRIP  SYNC 

417 

.WORD. 

I0.CRC,040,002  . 

;(COMM.)  READ,  DON'T  CLEAR  CRC 

418 

.WORD. 

I0.RPB,040,002  , 

:(RX11  DISK)  READ  PHYSICAL  BLOCK 

419 

.WORD. 

10. ATA, 010, 003  . 

(TTY)  ATTACH  WITH  AST'S 

420 

.WORD. 

10. GTS, 000, 005  . 

;(TTY)  GET  TERMINAL  SUPPORT  CHARACTERISTICS 

421 

.WORD. 

I0.R1C,000,005  . 

;(AFC,AD01,UDC)  READ  SINGLE  CHANNEL 

422 

.WORD. 

I0.INL,000,005  . 

;(C0MM.)  INITIALIZATION  FUNCTION 

423 

.WORD. 

I0.TRM,010,005  . 

;(C0MM.)  TERMINATION  FUNCTION 

424 

.WORD. 

IO.RWD,000,005  . 

; (MAGTAPE, DEC TAPE)  REWIND 

425 

.WORD. 

IO.SPB,020,005  . 

:  (MAGTAPE)  SPACE  'V  BLOCKS 

426 

.WORD. 

I0.SPF,040,005  . 

;  (MAGTAPE)  SPACE  'V  EOF  MARKS 

427 

.WORD. 

I0.STC,100,005  , 

; (MAGTAPE)  SET  CHARACTERISTIC 

428 

.WORD. 

10. SEC, 120, 005  . 

;(inAGTAPE)  SENSE  CHARACTERISTIC 

429 

WORD. 

10. RWU, 140,005  . 

; (MAGTAPE, DECTAPE)  REWIND  AND  UNLOAD 
; (MAGTAPE)  MOUNT  i   SET  CHARACTERISTICS 

430 

JORD. 

10. SMO, 160,005  . 

431 

WORD. 

IO.HNG,000,006  . 

•(TTY)  HANGUP  DIAL-UP  LINE 

432 

.WORD. 

I0.RBC,000,006  . 

;READ  MULTICHANNELS  (BUFFER  DEFINES  CHANNELS) 

433 

.WORD. 

10.1100,000,006  . 

;(C0MM.)  SETMODE  FUNCTION  FAMILY 

434 

.WORD. 

I0.HDX,010,006  , 

;(COMM.)  SET  UNIT  HALF  DUPLEX 

435 

.WORD. 

I0.FDX,020,OO6  . 

;(COMM.)  SET  UNIT  FULL  DUPLEX 

436 

.WORD. 

IO.SYN,040,006  . 

;(COMM.)  SPECIFY  SYNC  CHARACTER 

437 

.WORD. 

10. EOF, 000, 006  . 

; (MAGTAPE)  WRITE  EOF 

438 

.WORD. 

I0.RTC,000,007  , 

;READ  CHANNEL  -  TIME  BASED 

439 

.WORD. 

10. SAO, 000, 010  . 

;(UDC)  SINGLE  CHANNEL  ANALOG  OUTPUT 

440 

.WORD. 

IO.SSO,000,011  , 

;(UDC)  SINGLE  SHOT,  SINGLE  POINT 
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441 

.WORD. 

IO.RPR,000,011  , 

;(TTy)  READ  WITH  PROMPT 

442 

.WORD. 

IO.MSO,000,012  < 

;(UDC)  SINGLE  SHOT,  MULTI-POINT 

443 

.WORD. 

IO.SLO,000,013  < 

;(UDC)  LATCHlNr,  SINGLE  POINT 

444 

.WORD. 

IO.MLO,000,014  , 

;(UDC)  LATCHING,  MULTI-POINT 

445 

.WORD. 

I0.LED,000,024  , 

;(LPS11)  WRITE  LED  DISPLAY  LIGHTS 

446 

.WORD. 

I0.SDO,0O0,025  , 

;(LPS11)  WRITE  DIGITAL  OUTPUT  REGISTER 

447 

.WORD. 

10.SDI,000,026  < 

;(LPS11)  READ  DIGITAL  INPUT  REGISTER 

448 

.WORD. 

IO.SCS.000,026  . 

;(UDC)  CONTACT  SENSE,   SINGLE  POINT 

449 

.WORD. 

IO.REL,000,027  , 

;(LPS11)  WRITE  REUY 

450 

.WORD. 

I0.MCS,000,027  . 

;(UDC)  CONTACT  SENSE,   MULTI-POINT 

451 

.WORD. 

10. ADS, 000, 030  . 

;(LPS11)  SYNCHRONOUS  A/D  SAMPLING 

452 

.WORD. 

IO.CCI,000,030  , 

; (UDC)  CONTACT  INT  -  CONNECT 

453 

.WORD. 

10. LOD, 000,030  , 

;(LPA11)  LOAD  MICROCODE 

454 

.WORD. 

10. MDI, 000,031  . 

;(LPS11)  SYNCHRONOUS  DIGITAL  INPUT 

455 

.WORD. 

I0.DCI,000,031  , 

;(UDC)  CONTACT  INT  -  DISCONNECT 

456 

.WORD. 

I0.X«T,000,031  . 

;(COMM.)  TRANSMIT  SPECIFIED  BLOCK  WITH  ACK 

457 

.WORD. 

I0.XNA,010,031  . 

;(COMM.)  TRANSMIT  WITHOUT  ACK 

458 

.WORD. 

IC.IN1,00C,031  , 

;(LPA11)  INITIALIZE 

459 

.WORD. 

IO.HIS,000,032  . 

r(LPSll)  SYNCHRONOUS  HISTOGRAM  SAMPLING 

460 

.WORD. 

10. RCI, 000,032  . 

;(UDC)  CONTACT  INT  -  READ 

461 

.WORD. 

I0.RCV,000,032  . 

;(COMM.)  RECEIVE  DATA  IN  BUFFER  SPECIFIED 

462 

.WORD. 

I0.CLIC,000-032  . 

;(LPA11)  START  CLOCK 

463 

.WORD. 

TO.MDO,000,033  , 

;(LPS11)  SYNCHRONOUS  DIGITAL  OUTPUT 

464 

.WORD. 

IO.CTI,000,033  . 

;(UDC)  TIMER  -  CONNECT 

465 

.WORD. 

I0.CON,0OO,033  , 

;(COMM.)  CONNECT  FUNCTION 

466 

;(VT11>  -  CONNECT  TASK  TO  DISPLAY  PROCESSOR 

467 

.WORD. 

I0.CPR,010,033  ; 

;(COMM.)  CONNECT  NO  TIMEOUTS 

468 

.WORD. 

10. CAS, 020,033  . 

;(COMM.)  CONNECT  WITH  AST 

469 

.WORD. 

I0.CRJ,040,033  , 

;(COMM.)  CONNECT  REJECT 

470 

.WORD. 

10  CBO, 110,033  . 

;(COMM.)  BOOT  CONNECT 

471 

.WORD. 

I0.CTR,210,033  . 

;(COMM.)  TRANSPARENT  CONNECT 

472 

.WORD. 

IO.GNI,010.035  . 

;(COMM.)  GET  NODE  INFORMATION 

473 

.WORD. 

10. GLI, 020,035  . 

;(COMM.)  GET  LINK  INFORMATION 

474 

.WORD. 

IO.GLC,030,035  . 

;(COMM.)  GET  LINK  INFO  CLEAR  COUNTERS 

475 

.WORD. 

I0.6RI,040,035  . 

;(COMM.)  GET  REMOTE  NODE  INFORMATION 

476 

.WORD. 

IO.GRC,050,035  . 

;(COMM.)  GET  REMOTE  NODE  ERROR  COUNTS 

477 

.WORD. 

I0.GRN,060,035  . 

;(COm.)   GET  REMOTE  NODE  NAME 

478 

.WORD. 

IO.CSM,070,035  . 

;(COMM.)  CHANGE  SOLO  MODE 

479 

.WORD. 

IO.CIN,100,035  . 

;(COMM.)  CHANGE  CONNECTION  INHIBIT 

480 

.WORD. 

10.SPW,110,035  , 

;(COMM.)  SPECIFY  NETWORK  PASSWORD 

481 

.WORD. 

10.CPW,120,035  , 

;(COMM.)  CHECK  NETWORK  PASSWORD. 

482 

.WORD. 

IO.NLBJ30,035  . 

;(COMM.)  NSP  LOOPBACK 

483 
484 
485 

.WORD. 

10. DLB, 140,035  . 

(COMM.)  DDCMP  LOOPBACK 

.WORD. 

IO.STA,0OO,033  . 

(LPAID  START  DATA  TRANSFER 

486 

.WORD. 

10. DTI, 000, 034  . 

(UDC)  TIMER  -  DISCONNECT 

487 

.WORD. 

10.D1S,000,034  , 

(COMM.)  DISCONNECT  FUNCTION 

488 

(VTID  -  DISCONNECT  TASK  FROM  DISPLAY  PROCESSOR 

489 

.WORD. 

10.MDA,000,034  ', 

•(LPS11)  SYNCHRONOUS  D/A  OUTPUT 

490 

.WORD. 

10.RT1,000,035  , 

(UDC)  TIMER  -  READ 

491 

.WORD. 

10.CTL,000,035  . 

(COMM.)  NETWORK  CONTROL  FUNCTION 

492 

.WORD. 

10.STP,000,035  . 

'(LPS11,LPA11)  STOP  IN  PROGRESS  FUNCTION 

493 

(VTID  -  STOP  DISPLAY  PROCESSOR 

494 

.WORD. 

10.CNT,000,036  '. 

'(VT11)  -  CONTINUE  DISPLAY  PROCESSOR 

495 

.WORD. 

10.111,000,036  . 

(UDC)  TIMER  -  INITIALIZE 
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A97 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 


C 

6 


;  ICS/ICR  I/O  FUNCTIONS 

.WORD. 

I0.CTY,000,007 

.WORD. 

I0.DTY,000,015 

.WORD. 

I0.LDI,000,016 

.WORD. 

I0.UDI,010,023 

.WORD. 

IO.LTI,000,017 

.WORD, 

IO.UT1,020,023 

.WORD. 

I0.LTY,000,020 

.WORD. 

I0.UTY,030,023 

.WORD. 

10. LICE, 000,024 

.WORD. 

I0.UER,040,023 

.WORD. 

IP  NL)(,000,023 

.WORD. 

IL.JNL,000,037 

.WORD. 

10. FLN, 000,025 

.WORD. 

10. RAD, 000, 021 

)  IP11  I/O  FUNCTIONS 

.WORD. 

10. MAO, 010, 007 

.WORD. 

10. LEI, 010, 017 

.WORD. 

I0.RDD,010,020 

.WORD. 

IO.RMT,020,020 

.WORD. 

10. LSI, 000, 022 

.WORD. 

IO.UEI,050,023 

.WORD. 

I0.USI,060,023 

.WORD. 

I0.CSI,000,026 

.WORD. 

• 
# 

IO.DSI,000,027 

• 

.MACRO 

SPCIOS  A 

.ENDM 

SPCI0$ 

.ENDM 

SPCIOS 

CONNECT  TO  TERMINAL  INTERRUPTS 

DISCONNECT  FROM  TERMINAL  INTERRUPTS 

LINK  TO  DIGITAL  INTERRUPTS 

UNLINK  FROM  DIGITAL  INTERRUPTS 

LINK  TO  COUNTER  MODULE  INTERRUPTS 

UNLINK  FROM  COUNTER  MODULE  INTERRUPTS 

LINK  TO  REMOTE  TERMINAL  INTERRUPTS 

UNLINK  FROM  REMOTE  TERMINAL  INTERRUPTS 

LINK  TO  ERROR  INTERRUPTS 

UNLINK  FROM  ERROR  INTERRUPTS 

UNLINK  FROM  ALL  INTERRUPTS 

UNIT  ONLINE 

UNIT  OffLlHE 

READ  ACTIVATING  DATA 


MULTIPLE  ANALOG  OUTPUTS 

LINK  EVENT  FLAGS  TO  INTERRUPT 

READ  DIGITAL  DATA 

READ  MAPPING  TABLE 

LINK  TO  DSI  INTERRUPTS 

UNLINK  EVENT  FLAGS 

UNLINK  FROM  DSI  INTERRUPTS 

CONNECT  TO  DSI  INTERRUPTS 

DISCONNECT  FROM  DSI  INTERRUPTS 
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533 
53A 
535 
536 
537 
538 
539 
5A0 
5A1 
5A2 
5A3 
5AA 
5A5 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 


DEFINE  THE  I/O  CODES  FOR  USER-MODE  DIA6N0SITCS.  ALL  DIAGNOSTIC 
FUNCTION  ARE  IMPLEMENTED  AS  A  SUBFUNCTION  OF  I/O  CODE  10  (OCTAL) 


.GBL=1 
.GBL=0 


.MACRO  LWDIOS  SSSGBL 

.MCALL  .WORD.,DEFIN$ 

Af   IDN  <$$$GBL>,<DEF$G> 

Aff 


.ENDC 


DEFINE  THE  GENERAL  USER-MODE  I/O  QUALIFIER  BIT. 


.WORD.   IQ.UMD,004,000  ;USER  MODE  DIAGNOSTIC  REQUEST 


;  DEFINE  USER-MODE  DIAGNOSTIC  FUNCTIONS. 

.WORD. 

IO.HMS,000,010  . 

;(DISK)  HOME  SEEK  OR  RECALIBRATE 

.WORD. 

I0.BLS,010,010  , 

;(DISK)  BLOCK  SEEK 

.WORD. 

10. OFF, 020, 010  . 

;(DISK)  OFFSET  POSITION 

.WORD. 

10. RDM, 030, 010  . 

;(DISK)  READ  DISK  HEADER 

.WORD. 

IO.WDH,040,010  , 

;(DISK)  WRITE  DISK  HEADER 

.WORD. 

IO.WCK,050,010  . 

;(DISK)  WRITECHECK  (NON-TRANSFER) 

.WORD. 

I0,RNF,060,010  . 

;(DECTAPE)  READ  BLOCK  NUMBER  FORWARD 

.WORD. 

IO.RNR,070,010  . 

;(DECTAPE)  RCAD  BLOCK  NUMBER  REVERSE 

.WORD. 

IO.LPC,100,010  . 

; (MAGTAPE)  READ  LONGITUDINAL  PARITY 

.WORD. 

I0.ERS,110,010  . 

; (MAGTAPE)  ERASE  TAPE 

;  MACRO  REDEFINITION  TO  NULL 

.MACRO 

UMDIOS  A 

.ENDM 

.ENDM 

UMDIOS 

CHAR 


E  A 
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577 
578 
579 
580 
581 
582 
583 
58A 
585 
586 
587 
588 
589 
590 
591 
592 
593 
59A 
595 
596 
597 
598 
599 
600 
601 
602 
603 
60A 
605 
606 
607 
608 
609 
610 
611 
612 
613 
61A 
615 


HANDLER  ERROR  CODES  RETURNED  IN  I/O  STATUS  BLOCK  ARE  DEFINED  THROUGH  THIS 
MACRO  WHICH  THEN  CONDITIONALLY  INVOKES  THE  MESSAGE  GENERATING  MACRO 
FOR  THE  QIOSYM.MSG  FILE 


.MACRO 

DEFINS 

Af 

.MCALL 

.lOMG. 

.ENDC 

.ENDM 


.lOER.  SYM,L0,MS6 

SYM.LO 

GT,$$MSG 

.lOMG. 

SVM,LO,<MSG> 

.lOER. 


I/O  ERROR  CODES  ARE  DEFINED  THOUGH  THIS  MACRO  WHICH  THEN  INVOKES  THE 
ERROR  MESSAGE  GENERATING  MACRO,  ERROR  CODES  -129  THROUGH  -256 
ARE  USED  IN  THE  QIOSYM.MSG  FILE 


.MACRO 

.QIOE.  SYM,LO,MSG 

DEFINS 

SYM,LO 

AF 

GT,$$MSG 

.MCALL 

.lOMG. 

.lOMG. 

SYM,<L0-128.>,<MS6> 

.ENDC 

.ENDM 

.QIOE. 

lONALLY 

GENERATE  DATA  FOR  WRITING  A  MESSA 

.MACRO 

.lOMG.  SYM,L0,MS6 

.WORD 

-^0<L0> 

.ASCIZ 

^MSG^ 

.EVEN 

AlF 

L  T ,  ^0<$$$MAX  ^-<L0» ,  $$$MAX=-*0<LO> 

.ENDM 

.lOMG. 

DEFINE  THE  SYMBOL  SYM  WHERE  LO  IS  IS  THE  LOW  ORDER  BYTE,  HI  IS  THE  HIGH  BYTE 

.MACRO  .WORD.  SYM,LO,HI 
DEFINS  SYM,<HI*AOO^LO> 
. ENDM   . WORD . 
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1 

.TITLE 

ERRMSG 

2 
3 

. I DENT 

\V02.03\ 

000000 

.PSECT  RSXTXO,  RO,  D, 

GBL 

5 
6 

7 

000000 

.PSECT  RSXTX1,  RO,  D, 

GBL 

000000 

.PSECT  RSXTBO,  RO,  D, 

GBL 

8 

000000 

RSXERO: 

• 

9 

000100 

*.RE.°T   64. 

10 

.WORD   BADRR 

11 

.ENDR 

12 

13 

000000 

.PSECT  RSXTB1,  RO,  D, 

GBL 

K 

000000 

RSXER1 : 

• 

15 

000100 

".REPT   64. 

16 

.WORD   BADRR 

17 

.ENDR 

18 

19 

000001 

$$MSG=  1 

20 

21 

.MACRO  .lOMG.  SYM, 

LO, 

MSG 

22 

.IF  GE  LO+64. 

23 

.PSECT  RSXTXO 

2A 

,lff 

25 

.PSECT  RSXTX1 

26 

.ENDC 

27 

.LIST 

28 

$$$$$$.^ 

■ 

29 

.NLIST 

30 

.IRPC   CHR,    <MSG> 

31 

CHR1=       "CHR 

32 

.llf   EQ  "CHR-'(, 

CHR1  = 

• 

33 

Alf   EQ  "CHR-'), 

CHR1  = 

i«  • 

3A 

AlF   EQ  "CHR-", 

CHR1  = 

•K 

35 

Alf   EQ  "CHR-'-, 

CHR1  = 

1 

36 

Af     LE  "CHR-'Z 

37 

Af   GE  "CHR-' 

A 

38 

CHR1  = 

"CHR-^ 

^0 

39 

.ENDC 

40 

.ENDC 

41 

.BYTE       CHR1 

42 

.ENDM 

43 

.BYTE   0 

;ASCIZ 

-TYPE  STRING 

44 

.IF  GE  L0'»-64. 

45 

.PSECT  RSXTBO 

46 

•  ■"■ 

RSXER0"K<LO^64.>*2> 

47 

Aff 

48 

.PSECT  RSXTB1 

49 

■  ^ 

RSXERU«LO>128.>*2> 

50 

.ENDC 

51 

.WORD   $$$$$$ 

52 

.ENDM   .lOMG. 

53 

54 

000200 

000000 ' 
000017' 
000045' 

$$$$$$= 
$$$$$$= 
$$$$$$= 

lOERRS 

• 
• 
• 

r. 


G  4 

ERRMSG  MACRO  Ml 113  08-FEB-80  11 :59 

PAGE  9-1 

000066' 

$$$$$$=  . 

0001 1 5 • 

$$$$$$=  . 

000151' 

$$$$$$=  . 

000175' 

$$$$$$=  . 

000221 ' 

$$$$$$=  . 

000251 ' 

$$$$$$=  . 

000277' 

$$$$$$=  . 

00032A' 

$$$$$$=  . 

000353' 

$$$$$$=  . 

000412' 

$$$$$$=  . 

000427* 

$$$$$$=  . 

0OOA5A' 

$$$$$$=  . 

000A77' 

$$$$$$=  . 

000523' 

$$$$$$=  . 

000554 ' 

$$$$$$=  . 

000604' 

$$$$$$=  . 

000650' 

$$$$$$-  . 

000707' 

$$$$$$=  . 

000734 ' 

$$$$$$=  . 

000756' 

$$$$$$=  . 

001002' 

$$$$$$=  . 

001046' 

$$$$$$=  . 

001105' 

$$$$$$=  . 

000000' 

$$$$$$=  . 

000020' 

$$$$$$=  . 

001132' 

$$$$$$=  . 

001163' 

$$$$$$=  . 

001177* 

$$$$$$=  . 

001217' 

$$$$$$=  . 

001234' 

$$$$$$=  . 

001272' 

$$$$$$=  . 

001313' 

$$$$$$=  . 

001336' 

$$$$$$=  . 

001373' 

$$$$$$=  . 

001437' 

$$$$$$=  . 

001500' 

$$$$$$=  . 

001542' 

$$$$$$=  . 

001577' 

$$$$$$=  . 

001632* 

$$$$$$=  . 

001671' 

$$$$$$=  . 

001 721 ' 

$$$$$$=  . 

001756' 

$$$$$$=  . 

002023' 

$$$$$$=  . 

002046' 

$$$$$$=  . 

000063 ' 

sss$$s=  . 

000124' 

$$$$$$=  . 

000144' 

$$s$$$^  . 

000167' 

$$$$$$=  . 

000204 ' 

$$$$$$=  . 

002066 ' 

$!$$$$=  . 

002140' 

$$$$$$=  . 

002164' 

$$$$$$=  . 

002234 ' 

%$%%%%=  . 

002307' 

%%%%%%=  . 

002327' 

%%%%%%=   . 

002366 ' 

$$$$$$=  . 

002431 ' 

$$$$$$=  . 
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002473' 
002530' 
002576* 
002621 • 
002656' 
002703' 
002725 ' 
002743' 
002763' 
00301 5 ' 
000230' 
000267' 
000323' 
000340' 
000365 ' 
000410' 
000446' 
000501 ' 
000525' 
000550' 
000572' 
000652 ' 
000707' 
000766' 
001016' 


$$$$$$= 
$$$$$$= 

$$$$$$= 

$$$$$$= 

$$$$$$= 
$$$$$$. 

$$$$$$= 

$$$$$$= 

$$$$$$= 
$$$$$$= 

$$$$$Sz 

$$$$$$= 

$$$$$$= 

$$$$$$= 

$$$$$$= 
$$$$$$. 

$$$$$$. 

$$$$$$= 
$$$$$$. 

$%%$%%'- 
$$$%%$. 
$$$$$$. 
$$$$$$. 

$$$$$$: 


I 

4 
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56  OOOOOO 

.PSECT  RSXTX2, 

RO,  D, 

GBL 

57  OOOOOO 

.PSECT  RSXTX3, 

RO,  i>. 

3BL 

58 

59  OOOOOO 

.PSECT  RSXTB2, 

RO,  D, 

GBL 

60  OOOOOO 

RSXER2:: 

61 

000100 

.REPT   64. 

62 

.WORD 

BADRR 

63 

.ENDR 

6A 

65  OOOOOO 

.PSECT  RSXTB3, 

RO,  D, 

GBL 

66  OOOOOO 

RSXER3:: 

67 

000100 

.REPT   64. 

68 

.WORD 

BADRR 

69 

.ENDR 

70 

71 

000001 

$$MSG=  1 

72 

73 

.MACRO  .lOMG. 

SYM, 

LO, 

MS6 

74 

AF   GE  L0-H92. 

75 

.PSECT  RSXTX2 

76 

AFF 

17 

.PSECT  RSXTX3 

78 

.ENDC 

79 

.LIST 

80 

$$$$$$=  . 

81 

MLIS^ 

82 

.IRPC   CHR, 

<MSG> 

83 

CHR1  = 

"CHR 

8A 

A\F   EQ  "CHR-'(, 

CHR1  = 

1 . 

• 

85 

A\F   EQ  "CHR-'), 

CHR1  = 

!•  • 

86 

A\F   EQ  "CHR-", 

CHR1  = 

'K 

87 

A\F   EQ  "CHR-'-, 

CHR1  = 

t 

88 

AF     LE  "CHR-'Z 

89 

AF   GE 

"CHR-' 

A 

90 

CHR1  = 

"CHR+ 

40 

91 

.ENDC 

92 

.ENDC 

93 

.BYTE 

CHR1 

94 

.ENDM 

95 

.BYTE   0 

;ASCIZ 

-TYPE  STRING 

96 

AF   GE  10-^192. 

97 

.PSECT  RSXTB2 

98 

.s     RSXER2-K<L0*192 

.>*2> 

99 

AFF 

100 

.PSECT  RSXTB3 

101 

.«     RSXER3-K<L0+256.>*2> 

102 

.ENDC 

103 

.WORD   $$$$$$ 

104 

.ENDM   .lOMG. 

105 

106  OmZOO 

OOOOOO* 
000035 • 
000072 • 
000^27' 
000175' 
000215' 

DRERRS 
$$$$$$=  . 
$$$$$$=  . 
$$$$$$=  . 
$$$$$$=  . 
$$$$$$=  . 
$$$$$$=  . 

J  A 

ERRMSG 
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000251' 

$$$$$$=  , 

000271 ' 

$$$$$$=  . 

0003A0' 

$$$$$$=  . 

000373' 

$$$$$$=  . 

OOOA33' 

$$$$$$=  . 

000A62' 

$$$$$$=  , 

000516' 

$$$$$$= 

0005A2' 

$$$$$$=  . 

000562' 

$$$$$$=  . 

000612' 

$$$$$$=  . 

000000' 

$$$$$$=  . 

0OO0A5' 

$$$$$$=  . 

000077' 

$$$$$$=  . 

000132' 

$$$$$$=  . 

000152' 

$$$$$$=  . 

000215' 

$$$$$$=  . 

000237' 

$$$$$$=  . 

000271 ' 

$$$$$$=  . 

000316' 

$$$$$$=  . 

00036A • 

$$$$$$=  . 

0OOA06' 

$$S$ll=  . 

0O0A22 • 

$$$$$$=  . 

000A51 • 

$$$$$$^  . 

000501 ' 

$$$$$$=  . 

0005A0' 

$$$$$$= 

000576' 

$$$$$$=  . 

000612' 

$$$$$$=  . 

000651 ' 

$$$$$$=  . 

00071 1 • 

$$$$$$= 

107 

108 

000001 

.END 

*i  A 
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K  4 

symx  ' 

rABLE 

BADRR  = 

♦••••• 

GX 

IE.DA0= 

1 77763 

IE.ISQ= 

177703 

IE.PES= 

1 77655 

IE.WCK= 

1 77652 

CHR1  = 

000144 

lE.DFb^ 

1 77750 

IE.ITI= 

177643 

IE. PNS= 

1 77642 

IE.WER= 

1 77717 

IE.ABO= 

1 77761 

IE.DNA= 

1 7777^ 

IE.ITP= 

1 77650 

IE.PRI= 

1 777 t^ 

IE.WLK= 

1 77764 

IE.ACT= 

1 7777^ 

IE.DNR= 

1 7777"^ 

\l.U%= 

1 7777^ 

IE.PTS= 

1 7777'^ 

IE.W0V= 

177653 

IE.ADP= 

1 77636 

IE.DUN= 

\777t7 

IE.IUI= 

y77bi^S 

IE.RAC= 

1 7772i^ 

IE.2DV= 

1 77720 

IE.ALC= 

1 77654 

IE.DUP= 

1 777^7 

IE.LCK= 

y777i,5 

IE.RAT= 

1 77721 

IS.BV  = 

000005 

IE.AL6= 

1 77654 

IE.EOF= 

1 77766 

IE.LNL= 

1 77646 

IE.RB6= 

1 77730 

IS.CC  = 

001401 

IE.ALN= 

177736 

IE.EOT= 

1 777^2 

IE.MAP= 

177657 

IE.RBS= 

1 77761 

IS.CLR= 

000000 

IE.AST= 

177660 

IE.EOV= 

1 77765 

IE.M0D= 

177755 

IE.RCN= 

^77722 

IS.CR  = 

006401 

IE.BAD= 

\77777 

IE.EXP= 

1 77665 

IE.NBF= 

177731 

IE.RER= 

1 77740 

IS.E0T= 

002001 

IE.RRE= 

177710 

IE.FEX= 

1 7771 7 

IE.NBK= 

\77727 

IE.RNM= 

177715 

IS.ESC= 

015401 

IE.BCC= 

177676 

^E.FHE= 

1 77705 

IE.NDR= 

\77t7^ 

IE.RSU= 

1 777'^7 

IS.ESQ= 

115401 

IE.BDI= 

177714 

IE.FIX= 

1 777 t7 

IE.NFI= 

^777^1, 

IE.SDP= 

1 77635 

IS.PES= 

100001 

IE.BDR= 

177716 

IE.FLN= 

y77t'^7 

IE.NFW= 

1 77673 

IE.SNC= 

1 77735 

IS.PND= 

000000 

IE.BDV= 

1 7771 1 

IE.FOP= 

177713 

IE.NLK= 

1 77661 

IE.SPC= 

1 77772 

IS.RDD= 

000002 

IE.BHD= 

1 77700 

IE.HFU= 

1 77744 

IE.NLN= 

1 77733 

IE.SQC= 

}7771i, 

IS.SET= 

000002 

IE.BLB= 

1 77672 

IE.HWR= 

1 77772 

IE.NNC= 

1 77663 

IE.SRE= 

1 77762 

IS.SPD= 

000002 

IE.BLK= 

1 77754 

IE.IBS= 

^77ti^7 

IE.NNL= 

1 77662 

IE.STK= 

1 77706 

IS.SUC= 

000001 

IE.BMn= 

177712 

IE.IDU= 

1 77644 

IE.NNN= 

1 77674 

IE.TCH= 

1 77765 

IS.TAB= 

004401 

IE.BTF= 

177664 

IE.IEF= 

1 77637 

IE.N0D= 

177751 

IE.TMM= 

1 77671 

IS.TMO= 

000002 

IE.BTP= 

1 77725 

IE.IES= 

1 77656 

IE. Nsr= 

1 77746 

IE.TM0= 

1 77666 

QI.VER= 

000331 

IE.BVR= 

177701 

IE.IFC= 

1 7777 t 

\l.H%J^ 

1 77660 

IE.ULK= 

177653 

RSXERO 

OOOOOORG 

004 

IE.BYT= 

177755 

IE.IFU= 

y777i.7 

IE.NSW= 

1 77756 

IE.ULN= 

1 77771 

RSXER1 

OOOOOORG 

005 

IE.CKP= 

1 77766 

IE.ILL= 

1 7772t 

IE.NVR= 

177652 

IE.UNS= 

1 7777^ 

RSXER2 

OOOOOORG 

010 

IE.CKS= 

177742 

IE.ILU= 

1 77640 

IE.NVW= 

177651 

IE.UPN= 

1 77777 

RSXER3 

OOOOOORG 

Oil 

IE.CLO= 

1 77712 

IE.ILV= 

177755 

IE.OFL= 

1 77t77 

IE.VER= 

1 7777^ 

$$MSG  = 

000001 

IE.CNR= 

^77(^7 

IE.INS= 

1 7777 t 

IE.ONP= 

1 77771 

IE.WAC= 

1 77743 

$$$$$$= 

00071 IR 

007 

IE.CON= 

1 777^2 

IE.IOP= 

1 77655 

IE.OVR= 

^777"^^ 

IE.WAT= 

177741 

...GBL= 

000000 

IE.DAA= 

1 7777^ 

IE.IPR= 

177641 

.  ABS. 

000000 
000000 

000 
001 

RSXTXO 

003052 

002 

RSXTX1 

001046 

003 

RSXTBO 

000200 

004 

RSXTB1 

000200 

005 

RSXTX2 

000643 

006 

RSXTX3 

000741 

007 

RSXTB2 

000200 

010 

RSXTB3 

000200 

Oil 

ERRORS  1 

DETECTED 

:  0 

VIRTUAL 

MEMORY 

USED:   11739  WORDS   (  46  PAGES) 

DYNAMIC 

MEMORY: 

12366  WORDS  ( 

47  PAGES) 

ELAPSED 

TIME: 

00:07:16 

ERRMSG, DW1:C305 

,3013ERRMSG/-SP=QIOMAC,IOERR 

♦♦FILE**ID**ERROR 


L     A 


EEEEEEEEEE 

RRRRRRRR 

RRRRRRRR 

000000 

RRRRRRRR 

EEEEEEEEEE 

RRRRRRRR 

RRRRRRRR 

000000 

RRRRRRRR 

EE 

RR      RR 

RR      RR 

00 

00 

RR      RR 

EE 

RR      RR 

RR      RR 

00 

00 

RR      RR 

EE 

RR      RR 

RR      RR 

00 

00 

RR      RR 

EE 

RR      RR 

RR      RR 

00 

00 

RR      RR 

EEEEEEEE 

RRRRRRRR 

RRRRRRRR 

00 

00 

RRRRRRRR 

EEEEEEEE 

RRRRRRRR 

RRRRRRRR 

00 

00 

RRRRRRRR 

EE 

RR  RR 

RR  RR 

00 

00 

RR  RR 

EE 

RR  RR 

RR  RR 

00 

00 

RR  RR 

EE 

RR    RR 

RR    RR 

00 

00 

RR    RR 

EE 

RR    RR 

RR    RR 

00 

00 

RR    RR 

EEEEEEEEEE 

RR      RR 

RR      RR 

000000 

RR      RR 

EEEEEEEEEE 

RR      RR 

RR      RR 

000000 

m        RR 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

S. T 


.MAIN. 

MACRO  Ml 11 3  08-FEB-80 

M  4 

12:06 

TABLE  OF 

CONTENTS 

2- 

1 

APLDEF 

|; 

8 
9 

A  P  L 

^ 

10 

A  PROGRAMMING 

LANGUAGE 

2- 

11 

2— 

12 

STEVE  POULSEN 

&  DAVE  VANN 

|: 

13 

ll-Jul-76 

K 

ROBERT  GOTTLIEB  I   PETER  HAYNES                                                                        1 

2— 

15 

2-Feb-79 

1 

16 
17 
18 
19 

V2 

& 

20 

COPYRIGHT  (C) 

1976,  1977,  1978,  1979,  1980 

1: 

21 
22 

DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

1: 

25 
24 

THIS  SOFTWARE 

IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A  SINGLE 

>• 

25 

COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE  INCLUSION  OF  THE  ABOVE 

k 

26 

COPYRIGHT  NOTICE.   THIS  SOFTWARE,  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT 

» 

27 

BE  PROVIDED  OR 

OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR 

>• 

28 

USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.                                       1 

* 

29 

TITLE   TO  AND 

OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN 

1: 

30 
31 

DEC. 

>» 

32 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 

» 

33 

AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 

c 

3A 
35 
36 

CORPORATION. 

1* 

DEC  ASSUMES  NO 

RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF   ITS 

c 

37 
38 

SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 

f: 

39 
A6 

DEFINITIONS 

ASSEMBLY  PARAMETERS 

A- 

139 

DEFINITIONS 

OPERATOR  OVERLAYS 

5- 

268 

DEFINITIONS 

REGISTERS 

6- 

331 

DEFINITIONS 

MEMORY  ORGANIZATION 

7- 

377 

DEFINITIONS 

ORDERING  PSECTS 

8- 

A26 

DEFINITIONS 

SI  PARSE  FRAMES 

9- 

A7A 

DEFINITIONS 

TOKEN  DESCRIPTION  BITS 

10- 

515 

DEFINITIONS 

SI  EXECUTION  FRAMES 

11- 

580 

DEFINITIONS 

SPECIAL  PARSE  CHARACTERS 

12- 

607 

DEFINITIONS 

CHRTAB  BITS 

12- 

624 

DEFINITIONS 

SYSTEM  STATUS  BITS 

13- 

640 

DEFINITIONS 

F-F RAMES 

K- 

724 

DEFINITIONS 

FUNCTION  LINE  BLOCKS 

16- 

807 

DEFINITIONS 

ARRAY  STORAGE  BLOCK 

17- 

869 

DEFINITIONS 

LIST  STORAGE  BLOCK 

18- 

911 

DEFINITIONS 

INDEXING  STACK  FRAME 

19- 

940 

^FINITIONS 

SYMBOL  TABLE  ENTRY 

20- 

969 

.FINITIONS 

CHANNEL  BLOCK 

22- 

1085 

i>EFINITIONS 

RSX  DATA 

23- 

1110 

OEFJNITIONS 

NAME  BLOCKS 

33- 

1612 

DEFINITIONS 

MACROS 

35- 

1905 

DEFINITIONS 

APL  CHARACTERS 

36- 

1967 

DEFINITIONS 

ERRORS 

AA- 

4 

ERROR 

HANDLE  ERRORS 

ERROR       MACRO  M1113     08-FEB-80  12:06     PAGE   1 


A 
5 
6 
7 
8 
9 
10 
11 


000000 
000000 
0001 1 5 

000000 
000000 
000000 

000004 

000000 


RT11 
RSTS 
RSX 

II  II  II 

3EOO 

EIS 
FIS 
FPP 

II    II    II 
OOO 

FPPLEN 

=  4 

DEBUG 

=  0 

N  A 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

;SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 


B    5 

ERROR       MACRO  M1113     08-FE8-80  12:06     PAGE  2 
APLDEF 

1  .S8TTL  APLDEF 

2  .IDENT  \V02.03\ 
3 


7 — r 


APL  MACRO  M1113     08-FEB-80  12:06     PAGE  42 

DEFINITIONS  ERRORS 

2513  .LIST     SEQ,SRC,L0C,BIN,BEX,I>1EB 
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DEFINITIONS     ERRORS 


D  5 


1 


4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 

28  000000 
29 
30 
31 
32 

34  000000 

35  000000 

37  000002 

38  000002 

39  000006 

40  000010 
41 

42  000014 

43  000024 
44 

45 
46 
58  000032 

62  000036 

63  000040 
68  000044 
70  000046 
80 

81 

%2 

83  000052 

84 

85 

86 

87 


006216 

005737 
001402 
000137 


016601 
005741 
010137 

010137 


004770' 
OOOOOOG 


042737  100000  000000' 


000002 

004770* 

004772* 


000137  OOOOOOG 


.TITLE  ERROR 
.IDENT  \V02.03\ 

.S8TTL  ERROR 


HANDLE  ERRORS 


FUNCTIOf^L  DESCRIPTION: 

Check  if  an  error  happened  while  processing  an  error.  If  so,  just 
die  (return  user  to  monitor).   If  not,  branch  to  error  processor 
in  overlay. 

CALLING  SEQUENCE: 
TRAP    nnn 

INPUTS: 

The  nLwber  of  the  issued  emt 

OUTPUTS : 

NONE 

ROUTINES  CALLED: 

EXITIT  -  An  ERROR  in  ERROR 

XERROR  -  The  error  routine  in  overlay 

SIDE  U^UlSi 

A  WHOLE  BUNCH  OF   THEM  I 

.PSECT     CODE 


FIRST  CHECK  IF  ERROR  ALREADY  IN  PROGRESS. 
TERROR:: 


IF  SO  THEN  DIE 


ERROR:: 


1$ 


ASR 

TST 
BEO 

LDFPS 
BIC 


ERRPTR 

1$ 

DIE 


;RSX  MULTIPLIES  TRAP  BY  2 

ERROR  ALREADY  IN  PROGRESS? 

NO,  GOOD 

YES,  WE  MUST  USE  THIS  LAST  RESORT 


FPMODE         ;RESET  PROPER  FLOATING  POINT  STATUS 
/lfSY.BR<,SYSTAT  ;RESET  FROM  *C 


\^    IH   DEBUG  MODE  SAVE  ALL  OF  THE  REGISTERS. 


MOV  2(SP),R1 

TST  -(R1) 

MOV  R1, ERRPTR 

POP  R1 

MOV  R1,ERRNUM 

CALL  ERROR  HANDIER  IN  OVERLAY 

JMP  XERROR 


POINTER  PAST  INSTRUCTION 
BACK  UP  1  INSTRUCTION 
AND  SAVE  POINTER  TO  TRAP 
Get  the  Error  Ntmber 
SAVE  ERROR  NUMBER 


.•BRANCH  TO  ERROR  PROCESSOR 


HERE  IS  WHERE  SOME  BAD  ERRORS  COME  TO  WHEN  THEY  HAPPEN  AS  A 
SUBROUTINE  CALL  OR  RETURN  VALUE  FOR  A  FRAME 


E  5 


ERROR   MACRO  Ml  113  08- 

-FEB-80 

12:06 

PAGE  AA-1 

ERROR 

HANDLE  1 

ERRORS 

88 

0 

89  000056 

052737 

000001 

000000 

'  SYSER:: 

BIS 

#SY.BAD,SYSTAT 

90  00006A 

10A402 

SYSERR 

91  000066 

10A432 

NYIER:: 

NYIE9R 

92  000070 

1 0AA07 

SYNER:: 

SYNERR 

93  000072 

9A 

96 

10A417 

DOMER:: 

DOMERR 

;  + 

97 

;  TABLE 

FOR  RSX 

ERRORS 

98 

99  000000 

.PSECT 

TABLES 

100 

.EVEN 

101 

102  000000 

SSTVT:: 

103  000000 

000056' 

.WORD 

SYSER 

10A  000002 

000000 

.WORD 

0 

105  OOOOOA 

000056' 

.WORD 

SYSER 

106  000006 

000056' 

.WORD 

SYSER 

107  000010 

000056' 

.WORD 

SYSER 

108  000012 

000000- 

.WORD 

TERROR 

109  000014 

000000' 

.WORD 

TERROR 

113  000016 

000056' 

.WORD 

SYSER 

;SET  POSSIBILITY  OF  A  LOUSY  ERROR 


SST  VECTOR  TABLE 

ODD  OR  NON-EXISTENT  MEMORY 

MEMORY  PROTECT  ERROR 

T-BIT  OR  BPT 

lOT   INSTRUCTION 

RESERVED   INSTRUCTION 

BAD  EMT 

TRAP  INSTRUCTION 

WE  DON'T  HAVE  FIS 


ERROR   MACRO  M1113  08-FEB-80  12:06 
ERROR  HANDLE  ERRORS 

1        000001 


PAGE  47 


F  5 


.END 


a — r 


ERROR 

MACRO  M1113 

08-FEB-80 

12:06  PAGE 

A7-1 
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ACO   = 

XOOOOOO 

CHRLBR= 

000073 

C.BLSZ= 

0001 AO 

D.DEAL= 

000003 

EDIT  = 

000003 

AC1   = 

X000001 

CHRLPR= 

000072 

C.BUFF= 

177760 

D.DECD= 

000002 

EIS   = 

000000 

AC2   = 

X000002 

CHRMNS= 

000137 

C.BUFL= 

177762 

D.DIV  = 

000000 

li.^%11 

005132R 

025 

AC3   = 

X000003 

CHRMUL= 

000075 

C.CCNT= 

177766 

D.DMD  = 

000010 

ENDCOR 

OOOOOAR 

025 

ACA   = 

XOOOOOA 

CHR^€6= 

000100 

C . CPTR= 

1 7776A 

D.DQAD= 

\77777 

EOF   = 

10AA75 

ACS   = 

X000005 

CHRPDL= 

000271 

C.CZ  = 

001000 

D.DROP= 

000002 

ERRMAX= 

000166 

ALLINT 

00327AR 

025 

CHRPLU=  000055 

C.DI6  = 

OOOOAO 

D.ENCD= 

000002 

ERRNUM 

00A772R 

025 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C.FASW=  020000 

D.EQ  = 

000000 

ERROR 

000002RG 

020 

ASCQUO=  0OOOA2 

CHRQST= 

000121 

C.FLEN= 

000010 

D.EXPD= 

000002 

ERRPTR 

OOA//OR 

025 

A.ALEN=  GOOOOA 

CHRQU0=  000113 

C.FLSH= 

OOAOOO 

D.FGET= 

000005 

ERRO 

00A77AR 

025 

A.AR6  = 

GOOOAG 

CHRRBR= 

0000A7 

C.FRC  = 

000001 

D.FMT  = 

OOOOOA 

EXEBUF 

00505AR 

025 

A.ASB  = 

000200 

CHRRPR= 

0000A2 

C.IDEN= 

000010 

D.FPNT= 

000005 

E$CT 

005056R 

025 

A.BITS= 

000003 

CHRSEM=  00007A 

C.NAME= 

000102 

D.FPUT= 

000005 

E$PT 

005060R 

025 

A. CON  = 

000020 

CHRSM0=  000112 

C.N0BF= 

OOOAOO 

D.GE  = 

000000 

FA.APD= 

000100 

A.DIMS= 

000002 

CHRSPA= 

OOOOAO 

C.NUM  = 

000020 

D.GT  = 

000000 

FA.CRE= 

000010 

A.DIM1= 

000006 

CHRUPA= 

000131 

COP  = 

OOOOOA 

D.IBM  = 

000002 

FA.DLIC= 

001000 

A.NUM  = 

000006 

CHR.BS= 

000010 

COPN  = 

010000 

D.IND  = 

000002 

FA.E^B= 

100000 

A.PTR  = 

000000 

CHR.CC= 

000003 

CRDLN= 

177776 

D.INNR= 

000013 

FA.EXC= 

002000 

A.TMP  = 

000010 

CHR.CR= 

000015 

CREWT= 

002000 

D.INTR= 

000006 

FA.EXT= 

OOOOOA 

BADD1R= 

10AA63 

CHR.CZ= 

000032 

CRND  = 

000010 

D.LE  = 

000000 

FA.NSP= 

000100 

BADERR= 

10AA37 

CHR.6T= 

0000A6 

CS8IT= 

',77756 

DJHG  = 

000001 

FA.NSR= 

000200 

BLZBUB 

0051 16R 

025 

CHR.LF= 

000012 

CSPFX= 

000100 

D .  L  1   = 

000000 

FA.POS= 

010000 

BRSELF 

0050A6R 

025 

CHR.LT= 

0000A3 

C . SP6L= 

000200 

D.MAX  = 

000000 

FA.RD  = 

000001 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C . SPLX= 

000001 

D.MEM  = 

000002 

FA.RWD= 

OOAOOO 

CHA^€X 

003060R 

025 

CHR.SL= 

000057 

C . SPRS= 

000002 

D.MIN  = 

000000 

FA.SEQ= 

OAOOOO 

CHANOO 

000256R 

025 

CHR.SO=  000016 

CSRC  = 

1 7777^ 

D.MUL  = 

000000 

FA.SHR= 

OOOOAO 

CHAN01 

000330R 

025 

CHR.TB=  000011 

C . SRCP= 

00002A 

D.NE  = 

000000 

FA.TMP= 

000020 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

CTT  = 

OOOOOA 

D.NN  = 

000000 

FA.WCK= 

020000 

CHAN03 

00067AR 

025 

CHR..A= 

0OOU1 

CWIDC= 

\7777^ 

D.NR  = 

000000 

FA.URT= 

000002 

CHANOA 

001056R 

025 

CHR..E= 

000145 

CWIDR= 

^77772 

D.OR  = 

000000 

FD.BLK= 

000010 

CHAN05 

0012A0R 

025 

CHR..S= 

000163 

DEBUG  = 

000000 

D.PLUS= 

000000 

FD.CCL= 

000002 

CHAN06 

001A22R 

025 

CHR..T= 

0001 6A 

DEFERR= 

10AA05 

D.PSUB= 

000006 

FD.COM=  020000 

CHAN07 

00160AR 

025 

CHR..U= 

000165 

DEVIL 

0051 1AR 

025  D.PWR  = 

000001 

FD.CR  = 

000002 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEVNTF= 

10AA70 

D.QQAD= 

000000 

FD.DIR= 

000010 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DIE   = 

******  GX 

D.QUAD= 

000000 

FD.FTN=  000001 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIGITS 

000006R 

025  D.RES  = 

000000 

FD.F11= 

OAOOOO 

CHAN11 

00251AR 

025 

CH.AND= 

000001 

DIWAX  = 

000020 

D.RHO  = 

000000 

FD.INS= 

000010 

CHAN12 

002676R 

025 

CMDBUF 

003250R 

025 

oimiK 

0031 1 2R 

025  D.ROT  = 

000003 

FD.ISP= 

002000 

CHAN13 

000022R 

023 

CMDMAX= 

000010 

DIMPTR 

0031 1AR 

025  D.SCON=  000006 

FD.MNT= 

100000 

CHAN1A 

00020AR 

023  CNTSIZ 

005130R 

025  DIMTYP 

0031 16R 

025  D.SDIF= 

000006 

FD.0SP= 

OOAOOO 

CHNOPN= 

10AA71 

COMBIN 

005076R 

025  DIRFUL= 

10AA66 

D.SUB  = 

000000 

FD.PLC= 

OOOOOA 

CHRAND= 

000051 

COMCNT 

005126R 

025  DOMER 

000072RG 

020  D.SUBS= 

000006 

FD.PRN=  OOOOOA 

CHRBEL= 

000007 

COMERR= 

10AA25 

DOMERR= 

10AA17 

D.TAKE= 

000002 

FD.PSE= 

010000 

CHRBKR= 

000133 

COMPTR 

005122R 

025 

DPTERR= 

10AA16 

D.TRAN= 

OOOOOA 

FD.RAH= 

000001 

CHRB(J1  = 

000200 

COMRTN 

0031 56R 

025  DYDCNT 

00322AR 

025  D.UNON=  000006 

FD.RAN=  000002 

CHHBOX= 

00011A 

COMSKP 

00512AR 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.REC= 

000001 

CHRCMA= 

00005A 

CORPTR 

0051 20R 

025 

D.BXCT= 

000007 

D.$MIN=  000000 

FD.RVf1=  000001 

CHRCa= 

000076 

CS.ASS= 

000200 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SDI= 

000020 

CHRDEL= 

000107 

CS.BOO= 

000010 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.SQD= 

OOOOAO 

CHRDIV= 

000053 

CS.FLO= 

000020 

D.8XPP= 

000007 

D.$RES= 

000000 

FD.TTY= 

OOOOOA 

CHRDLR= 

000176 

CS.IDN= 

OOOOAO 

D.8XPW= 

000007 

D.$SUB= 

000000 

FD.UBH^ 

000002 

CHRDLT= 

000110 

CS.ONE= 

000100 

D.8XRL= 

000007 

D.1C0M=  000001 

FF.CHR= 

000005 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D.CIRC= 

000001 

D.1EXP= 

000002 

\^.m  = 

000003 

CHREP  = 

000105 

CTMAX 

00021 2R 

025 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.P0E= 

000002 

CHRERR= 

10AA31 

CTRMAX 

0001 72R 

025 

D.COMP= 

000001 

EDICHR 

005063R 

025  FF.RVIO= 

000001 

CHRflL= 

000177 

C.ALOC= 

000162 

D.CONT= 

000006 

EDICNT 

00506AR 

025  FF.RWF= 

000006 

CHRFRO= 

000135 

C.eLOK= 

00006A 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  FF.SPC= 

OOOOOA 
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FHEADR  00501 2R 

025 

F.FLB  = 

000100 

HSHSIZ= 

000200 

MONLEN 

0031 30R 

025  M.ROLL= 

000000 

FHRET   005040R 

025 

F.FNAM=  000110 

I  CHAN 

005050R 

025  MONPTR 

0031 22R 

025  M.SATA= 

000001 

FILNTF=  104467 

F.F^e  = 

000102 

ILFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

FIS   =  000000 

F.FNDF= 

000010 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FISCON=  0A6000 

F.FTYP= 

000116 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SIGN=  000000 

FIXPTR  00307AR 

025 

F.FUN  = 

000010 

INDERR= 

104410 

M.ABS  = 

000000 

M.SUBR= 

000001 

FLAGS   004764R 

025 

F.FVER= 

000120 

INNTMP 

003250R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLCBUF  003250R 

025 

F.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FLINE   005014R 

025 

F.HIBK= 

000004 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN= 

000012 

FLOEXP  003270R 

025 

F.LBL  = 

000020 

INSNAM= 

104462 

M.BXCT= 

000007 

M.$ABS= 

000000 

FLONEG  003272R 

025 

F.LINE= 

000012 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI= 

000000 

FLSUTB  000222R 

025 

F.LOC  = 

000004 

I.CNT  = 

177776 

M.BXFX= 

000007 

M.$'''R= 

000000 

FLTLEN=  000010 

F.LSTC= 

000004 

I. DIM  = 

177772 

M.BXIO= 

000007 

M.$iJN= 

000000 

FNINSI  0O5O4AR 

025 

F.LUN  = 

000042 

I.LEN  = 

000012 

M.BXLC= 

000003 

M.$NEG= 

000000 

FORIGN  000032R 

025 

F.MBCT= 

000054 

I.OERR= 

000062 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.APO=  000106 

F.MBC1  = 

000055 

I. OLD  = 

177770 

M.BXNL= 

000007 

M.1RDT= 

000011 

FO.MFY=  000002 

F.MBFG= 

000056 

I.PTR  = 

177774 

M.8XPP= 

000007 

M.1REV= 

000003 

FO.RO  =  000001 

F.MON  = 

000002 

I. SIR  = 

177766 

M.BXPW=  000007 

M.1SCN= 

000011 

FG.UF>0=  000006 

F.NIL  = 

000001 

LABERR= 

104406 

M.8XRL= 

000007 

NAMBUF 

003240R 

025 

FG.gRT=  000016 

F.NRBD= 

000024 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FPMOOE  0000A2R 

025 

F.NREC= 

000030 

LARGBL 

0031 62R 

025  M.BXUA= 

000007 

NB.DIR= 

000100 

FPP   =  000000 

F.OPN  = 

000010 

LAR6CV 

0031 76R 

025  M.CEI  = 

M1177 

NB.NAM=  000004 

FPPLEN=  000004 

F.OVBS= 

000030 

LAR6FL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FREBLK  007A00R 

025 

F.PREV= 

000000 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

FUZZ    000U2R 

025 

F.PRNT= 

100000 

LAR6LN 

0031 66R 

025  M.DOUT= 

000006 

NB.SNM=  000040 

FXPTR1  003076R 

025 

F.PROT= 

010000 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$EVAL=  000100 

F.RACC= 

000016 

LAR6SF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F$EVI  =  000200 

F.RATT= 

000001 

LAR6TY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F$EXEC=  000400 

F.RCM1=  000034 

LAR6VA 

003200R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F$FUNC=  001000 

F.RCTL= 

00001 7 

L8INC 

005100R 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.ACTL=  000076 

F.READ= 

004000 

LBUFF 

00331 6R 

025  M.FIL  = 

0001 77 

ND.EXT= 

000002 

F.AL0C=  000040 

F.REDF= 

000040 

L8UFLf4=  000621 

M.FLR  = 

\77777 

ND.NAM=  000004 

F.BBFS=  000062 

F.RES  = 

000040 

LCOUNT 

005106R 

025  M.FMT  = 

000004 

ND.PPN=  000100 

F.BDB  =  000070 

F.RET  = 

M7772 

LENERR= 

104412 

M.GDUP= 

000003 

ND.$EX= 

000000 

F.BGBC=  000057 

F.RSIZ= 

000002 

LENTAB 

000054R 

025  M.GDWN= 

000003 

ND.$E$= 

000020 

F.BITS=  \fffft. 

F.RTYP= 

000000 

LEXPTR 

0031 OOR 

025  M.GETI= 

000006 

ND.$^f1=  000000 

F.BICDN=  000026 

F.R2  = 

000014 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$= 

000040 

F.BICDS=  000020 

F.R3  = 

000016 

LJNC 

005102R 

025  M.IDN  = 

000000 

ND.$PN=  001400 

F.BKEF=  000050 

F.R4  = 

000020 

LINE 

00501 6R 

025  n.lHSP^ 

000006 

NEGSGN 

005063R 

025 

F.BICP1=  000051 

F.SEQN= 

000100 

LININC 

C05026R 

025  M.IOTA= 

000000 

NINPT1 

003302R 

025 

F.BKST=  000024 

F.SPDV= 

000072 

LISIZE= 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.acVB=  000064 

F.SPUN= 

000074 

LITOP 

005072R 

025  M.LN  = 

000001 

NINSTK 

003304R 

025 

F.BR  =  000020 

F.STBK= 

000036 

LNLNG  = 

104541 

M.MMD  = 

000010 

NINTMP 

00331  OR 

025 

F.CHR  =  000075 

F.STK  = 

000022 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINTYP 

003306R 

025 

F.CNT6=  000034 

F.STOP= 

000004 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

N0TAVL= 

104472 

F.COOE=  000010 

F.STP  = 

000001 

LSTERP 

004766R 

025  M.NUB  = 

000006 

N0T0PN= 

104473 

F.DF^e=  000046 

F . SUSP= 

000002 

LWIDTH 

000070R 

025  M.NUW  = 

000204 

NPRT1 

004762R 

025 

F.DSPT=  000044 

F.TRC  = 

000002 

L.BITS= 

000003 

M.OUTR= 

000012 

NULL 

007364R 

025 

F.D\/^ff=  000134 

F.UN1T= 

000136 

L.CNT  = 

000002 

M.PITM= 

000000 

NUWCHN= 

000020 

F.EFBK=  000010 

F.UR8D= 

000020 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

f.l^H   =  000050 

F.VAL  = 

1 77776 

L.PTR  = 

000000 

M.QQAD= 

000000 

NUMEFL 

003233R 

025 

F.EM)  =  002000 

F.VBN  = 

000064 

L.PTR1= 

000004 

M.QUAD= 

000000 

NUMESN 

003236R 

025 

F.E(WB=  000032 

F.\/BSZ= 

000060 

L.SUBS= 

000002 

M.RAND= 

000012 

NUMFLG 

003230R 

025 

F.ERR  =  000052 

GNOME 

0031 02R 

025  MACHIN= 

000106 

M.RAVL= 

000000 

NUMLEN 

000062R 

025 

F.FACC=  000043 

HASHC 

005136R 

025  MAXCHN= 

000014 

M.RCIP= 

000000 

NUMNEG 

003232R 

025 

F.FFBY=  000014 

HASHT8 

0051 40R 

025  MONBLK 

0031 20R 

025  M.RDCT= 

00001 1 

NUMQFL 

003234R 

025 

F.F LAG=  000002 

HSHMSK= 

1 77601 

MQNCVT 

0031 32R 

025  M.REVS= 

000003 

NUMRIG 

003231 R 

025 
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NunuiD 

003226R 

025  RANERR= 

104411 

R.PREV= 

000004 

SY.BS  = 

000010 

T.LIT  = 

000020 

NUMZFL 

003235R 

025  RARGBL 

003204R 

025  R.PTR  = 

OOOOOO 

SY.CLR= 

000040 

T.MON  = 

000010 

NYIER 

000066RG 

020  RARGCV 

003220R 

025  R.SEQ  = 

000003 

SY.ERP= 

000020 

T.NIL  = 

000004 

NYIERR= 

104432 

RARGFL 

003202R 

025  R.VAR  = 

000002 

SY.NOU= 

000100 

T.NUM  = 

002000 

N.BLSZ= 

000036 

RARGLE 

00321 6R 

025  R6 

X000006 

SY.OPN= 

000002 

T.0PFN= 

000001 

N.DESC= 

000020 

RARGLN 

00321 OR 

025  R7 

X000007 

SY.PMT= 

001000 

T.0THR= 

040000 

N.DEV  = 

000032 

RARGPT 

003206R 

025 

SI 

X000005 

SY.SRT= 

000400 

T.SOP  = 

000002 

N.DEVN=  000034 

RAR6SF 

0032UR 

025 

SIDAMN= 

104433 

SY.SVC= 

000004 

T.SPOP= 

000040 

N.DID  = 

000024 

RARGTY 

00321 2R 

025 

SIFRAM 

00331 4R 

025 

SY.SVL= 

000200 

T.TMP  = 

000200 

N.DVM1=  000032 

RARGVA 

003222R 

025 

SISTAK 

006350R 

025 

S.AB  = 

177776 

T.VAL  = 

100000 

N.EXT  = 

000014 

RBASE 

005074R 

025 

SI  TOP 

006346R 

025 

S.ASB  = 

100000 

T.VAR  = 

001000 

N.FID  = 

000000 

RCOUNR 

0051 12R 

025  SITP 

0071 44R 

025 

S.BFHD= 

000020 

UPPER  = 

177400 

N.FNAM=  000006 

RCOUNT 

00511  OR 

025 

SIWARN= 

000200 

S.BITS= 

000002 

UTNAME 

000344R 

023 

N.FTYP=  000014 

REDCNT 

005070R 

025 

SIZTAB 

000044R 

025 

S.CHR1= 

000003 

VALERR= 

104413 

N.FVER= 

000016 

REDIGN 

005066R 

025 

SI.BIT= 

1 7777^ 

S.FATT= 

000016 

VARBLE 

007400R 

025 

N.NA^€= 

000006 

REDOFF 

005072R 

025 

SI.LEN= 

^77772 

S.FDB  = 

000140 

VARBLS 

OOOOOOR 

025 

N.^€XT= 

000022 

REENTR 

003060R 

025  SI.RET= 

1 77772 

S.FLB  = 

040000 

VERNUM 

OOOOOOR 

025 

N.PPN  = 

000024 

RESBIT 

0031 42R 

025 

SI.VAL= 

^7777t 

S.FNAM=  000006 

VRSI0N= 

000002 

N-STAT= 

000020 

RESCVT 

0031 52R 

025 

SKPSIZ 

0051 34R 

025 

S.FNB  = 

000036 

WIDTH 

000072R 

025 

N.UN1T= 

000034 

RESERR= 

104440 

SPHOLD 

000004R 

024 

S.F^BW= 

00001 7 

WROUND 

000020R 

025 

UBUFLN=  001000 

RESLEN 

0031 50R 

025 

SPINIT 

000002R 

024 

S.FNTY= 

000004 

WSDATE 

000136R 

025 

OCHAN 

005052R 

025  RESPTR 

0031 40R 

025 

SSTVT 

OOOOOORG 

002 

S.FTYP= 

000002 

WSFULL= 

104403 

QMODE 

000402R 

023  RESSFT 

0031 46R 

025 

STKINC= 

000774 

S.LEN  = 

000002 

WSNAME 

000074R 

025 

OPTMPO 

005066R 

025  RESTYP 

0031 44R 

025 

STOP  = 

104420 

S.LINK= 

1 7777 1, 

WSTIME 

0001 32R 

025 

0PTMP1 

005070R 

025  RESULT 

0031 36R 

025 

SUBCNT 

0031 04R 

025 

S.NFEN= 

000020 

XERROR= 

HHitltit*    GX 

aPTMP2 

005072R 

025  RESVAL 

0031 54R 

025 

SUBDCT 

0031 06R 

025 

S.TYPE= 

140000 

$FIS  = 

•••♦•*  Q 

aPTMP3 

005074R 

025  RINC 

005104R 

025 

SUBPTR 

00311  OR 

025 

S.VAL  = 

OOOOOO 

%^??     = 

•*••••  G 

0PTMP4 

005076R 

025  RLTBAS 

005066R 

025 

sym^ 

005344R 

025 

TERROR 

OOOOOORG 

020  $FPPLN= 

••••••  G 

0PTMP5 

005100R 

025  ROTINC 

005070R 

025 

SYMF 

005340R 

025 

TKDIMS 

005072R 

025  $LDFPS= 

KH'kicit*    GX 

0PTMP6 

0051 02R 

025  ROUND 

000010R 

025 

SYMPT1 

005346R 

025 

TKFRAM 

005066R 

025  $MACHN= 

*♦•*♦*  G 

CPTMPZ 

0051 04R 

025  ROVER 

00331 2R 

025 

SYMTAB 

005352R 

025 

TKLEFT 

005070R 

025  SRSTS  = 

******  G 

0PTMP8 

005106R 

025  RSTS  = 

000000 

SYMTBF= 

104404 

TMODE 

000403R 

023  $RSX  = 

******  G 

0PTMP9 

00511 OR 

025  RSX   = 

000115 

SYMTOP 

005350R 

025 

TMPTAG= 

000166 

$RT11  = 

******  G 

OPTMIO 

0051 12R 

025  RTOP 

005070R 

025 

SYMTP 

006272R 

025 

TTYBUF 

0041 40R 

025  .BOOLE= 

000002 

0PTM14 

005026R 

025  RT11  = 

OOOOOO 

SYMURN= 

000054 

TTYLEN= 

000622 

.CHARA= 

OOOOOO 

ORIGIN 

000030R 

025  R.BITS= 

000003 

SYNER 

000070RG 

020 

TURKEY= 

104436 

.DEF.  = 

000002 

fl  ITPTR 

000066R 

025  R.FIX  = 

000001 

SYNERR= 

104407 

TYPE  = 

000166 

.FLOAT= 

000006 

OVROPR= 

000000 

R.LCT  = 

000002 

SYSER 

000056RG 

020 

T.BOL  = 

020000 

.FSRCB= 

******  G 

PATCH 

007344R 

025  R.LN  = 

000002 

SYSERR^ 

104402 

T.CON  = 

004000 

.INTEG= 

000004 

PRECSN 

000052R 

025  R.LNUM=  000010 

SYSTAT 

OOOOOOR 

024 

T.DIM  = 

000100 

.MOLUN 

000404R 

023 

aVJDAC 

003064R 

025  R.NEXT= 

000006 

SY.8AD= 

000001 

T.FUN  = 

010000 

...GBL= 

OOOOOO 

RANDY 

003062R 

025  R.OFF  = 

OOOOOO 

SY.8RK= 

100000 

T.LIST= 

000400 

...TPC= 

000020 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000020 

002 

liONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYD6TB 

000000 

007 

CQMTB 

000000 

010 

CHRTBL 

000000 

011 

VTa 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

oocooo 

014 

TRNTBL 

000000 

015 

ERROR 

MACRO  Mill 

3  0 

SYMBOL 

TABLE 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

00007A 

020 

PATCH 

000000 

021 

SSFSR1 

000000 

022 

DEFSG 

00OA06 

023 

DEF$1 

000006 

024 

DEFS2 

007400 

025 

ERRORS 

DETECTED: 

0 
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DYNAMIC  MEMORY:  14478  WORDS  (  55 

ELAPSED  TIME:  00:02:15 

ERROR, DM1 :C305,301:ERROR/-SP=APLRX1 ,APLDEF, ERROR, END 


(  51  PAGES) 
PAGES) 
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LL 
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TTTTTTTTTT 

LL 
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TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 
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000000 
000000 
0001 1 5 


10 


000000 
000000 
000000 

OOOOOA 

000000 


RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
FIS 
FPP 

II  II  II 
ooo 

FPPLEN 

=  4 

DEBUG 

=  0 

M  5 


;NOT  RT-11 
;NaT  RSTS/E 
;RSX-''1/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

.•SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 


EXEC 
APLDEF 


1 
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.S8TTL 
^DENT 


TTT 


APLDEF 
\V02.03\ 


B    6 

APL  MACRO  Ml 11 3     08-FEB-80  12:08     PAGE  42 

DEFINITIONS  ERRORS 

2513  .LIST     SEQ,SRC,LOC,BIN,BEX,MEB 


-Z T" 


EXEC    MACRO 
DEFINITIONS 


Ml  113  08-FEB-80  12:08 
ERRORS 


PAGE  4A 


TITLE 
IDENT 


C  6 


EXEC 
\V02.03\ 


S8TTL  EXEC 


MAIN  APL  CONTROL  ROUTINE 


FUNCTIONAL  DESCRIPTION: 

'ESPAUN*  spawns  an  execution  frame  on  the 
SI  stack,  prompts  the  user,  reads  a  line 
of  input,  evaluates  the  expression,  prints 
the  result,  and  then  repeats  the  process. 
Any  function  references  cause  F-frames  to 
be  created,  and  if  the  function  suspends, 
an  E-frame  is  created  

CALLING  SEQUENCE: 
JMP     EXEC 

. .or. . 
JMP     E SPAWN 

INPUTS: 

NONE 

IMPLICIT  INPUTS: 
NONE 

OUTPUTS : 

NONE 

IMPLICIT  OUTPUTS: 
NONE 


53  000000 


ROUTINES  CALLED 

ACOPY  - 

AREAD  - 

CARVE  - 

COMAND  - 
EXPR 

FIXLIN  - 
FN 
FNBR 

6ETLIN  - 

6ETNXT  - 

GETSAM  - 
KILL 
LEX 

ORINT  - 

PRINTM  - 
SAME 

STKXTN  - 


.PSECr  CODE 


Used  to  copy  constants 

Read  in  array  (Rho  1st  token  on  line) 

Return  unused  portion  of  execute  buffer 

Used  to  process  system  commands 

Expression-evaluating  routifie 

Fixup  input,  if  necessary 

Process  function  edit  request 

A  branch 

Get  an  input  line 

Get  next  token  for  parsing. 

Get  copy  of  val  on  SI. 

Delete  result  on  top  of  the  SI. 

Interpret  input  line. 

Print  result  on  SI  (List/Value) 

Print  message 

Get  a  copy  of  a  ualue 

Extend  the  SI  stack 


■E T* 
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D  6 

EXEC 
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55  000000 

ESPA'JN: 

• 
• 

56  000000 

005046 

CLR 

-(SP) 

;'T^ETURN"  ADDR  FOR  STKXTN 

57  000002 

023705 

006346' 

CMP 

SIT0P,SI 

; ENOUGH  SPACE  LEFT? 

58  000006 

101002 

BHI 

1$ 

; NO,  NOT  ENOUGH 

59  000010 

CALL 

STKXTN 

; EXTEND  THE  STACK 

60  000014 

162705 

1 77711 

1$: 

SUB 

/(fF.RET,SI 

;MAKE  ROOM  FOR  RESULT 

61  000020 

013700 

003314* 

MOV 

SIFRAM,RO 

;POINT  TO  PREVIOUS  FRAME 

62  000024 

001403 

BEG 

2$ 

;lf   IT  EXISTS 

63  000026 

013760 

004764 • 

000002 

MOV 

FLAGS, F. FLAG (RO). 

;SAVE  ITS  FLAGS 

64  000034 

010015 

2$: 

MOV 

RO,asi 

;SAVE  PTR  TO  PREV  FRAME 

65  000036 

010537 

003314' 

MOV 

SI,SIFRAM 

; POINT  TO  THIS  FRAME 

66  000042 

012737 

000100 

004764' 

MOV 

*F$EVAL, FLAGS 

;MAKE  THIS  AN  E-FRAME 

67  000050 

POP 

F.RET(SI) 

; THERE  IS   NO  RETURN 

68  000054 

010500 

MOV 

SI,RO 

;COPY  STACK  POINTER 

69  000056 

010001 

MOV 

R0,R1 

;COPY  POINTER 

70  000060 

062701 

000020 

ADD 

4fF.  CODE  ^-lO^RI 

:POINT  TO  END  OF  FRAME 

71  000064 

72 

73 

74 

75  000070 

010160 

000006 

•  ^ 

MOV 

R1,F.HEAD(R0)   . 

;SAVE  POINTER  IN  FRAME 

':    INITIALIZE  FRAME 

013705 

003314' 

EXEC:: 

MOV 

SIFRAM,SI 

: POINT  TO  REF.  PT. 

76  000074 

005065 

1 77771, 

CLR 

F.BITS(SI) 

; CLEAR  BITS 

Tf  000100 

005065 

^7777t 

CLR 

F.VAL(SI) 

: CLEAR  VALUE 

78  000104 

052737 

100000 

004764' 

BIS 

/JTF.PRNT,  FLAGS   . 

;INITIALLY  PRINT  LINE'S  RESULTS 

79  000112 

013765 

004764' 

000002 

MOV 

FLAGS, F.FLAG(SI). 

;SAVE  OUR  FLAGS  (TO  KNOW  FRAME  TYPED 

80  000120 

005065 

000004 

CLR 

F.LSTC(SI) 

: CLEAR  CODESTRING  POINTER 

81  000124 

82 

83 

84 

85  000130 

016505 

000006 

•  ^ 

MOV 

F.HEAD(SI),SI   . 

;SKIP  TO  WHERE  CODESTRING  GOES 

;  OUTPUT  PROMPT 

CHARACTER  FOR  USER  AND  GET  A  LINE  OF  INPUT 

013702 

005052' 

MOV 

0CHAN,R2 

; Point  to  output  channel 

86  000134 

032737 

000200 

004764' 

BIT 

#F$EVI, FLAGS 

;IS  THIS  AN  EVALUATED  INPUT  FRAME? 

87  000142 

001413 

BEO 

4$ 

:NOPE 

91  000144 

026262 

^77772 

1 7777^ 

CMP 

C.WIDR(R2),C.WIDC(R2)  .'Correct  line  Dosition?                         1 

92  000152 

001402 

BEO 

3$ 

;Yes 

93  000154 

CALL 

NEWLIN 

•No,  print  <CR><LF> 

94  000160 

3$: 

QPRINT 

BOXCOL 

;YES,  PROMPT  USER  WITH  BOX 

000160 

012701 

000000' 

MOV  ^0XC0L,R1 

■POINT  TO  BOXCOL 

95  000170 

96 

97  000172 

000412 

BR 

5$ 

•AND  PRINT  SPACES 

032737 

000400 

00^7  ti,' 

4$: 

BIT 

/I^FSEXEC,  FLAGS  , 

•,1S   THIS  AN  EXECUTION  FRAME? 

98  000200 

001012 

BNE 

6$ 

•YES.  SO  NO  PROMPTING 

102  000202 

026262 

1 77772 

1 77770 

CMP 

C.WIDR(R2),C.WIDC(R2)  .-Correct  line  position? 

103  000210 

001402 

BEO 

5$ 

•Yes 

104  000212 

CALL 

NEWLIN 

■No,  print  <CR><LF> 
•PRINT  6  SPACES 

105  000216 

5$: 

QPRINT 

SPACE6 

000216 

012701 

OOOOOOG 

MOV  4fSPACE6,R1         \ 

■POINT  TO  SPACE6 

106  000226 

6$: 

CALL 

GETLIN 

■GET  A  LINE  OF  INPUT 

107  000232 

032737 

000400 

004764' 

BIT 

#F$EXEC, FLAGS   . 

■EXECUTION  FRAME? 

108  000240 

001002 

BNE 

7% 

■YES.  THEN  LINE  IS  ALREADY  FIXED 

109  000242 

CALL 

FIXLIN 

fix   IT  UP 

EXEC    MACRO  Ml  113  08-F.B-80  12:08  PAGE  46 
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111 
112 
113 
114 
115 

116  000246 

117  000252 

118  000254 

119  000256 

120  000262 

121  000264 

122  000270 

123  000272 

124  000276 

125  000300 

126  000304 
127 

128  000310 

129  000314 

130  000316 

131  000322 

132  000326 

133  000334 

134  000336 
135 

136 
137 

138  000340 

139  000344 

140  000350 

141  000352 

142  000356 

143  000362 

144  000366 


1 1 2002 
005301 
122702 
001 773 
1 22702 
001403 
1 22702 
001004 


000040 
000107 
000271 


000137  OOOOOOG 


1 22702 
001011 
062706 

032737 
001112 
000654 


000042 
000004 
000400  004764' 


010205 
013700 
010560 


003314' 
000004 


CHECl^  FOR  DEL  (FUNCTION  DEF)  OR  RIGHT  PAREN  (COMMAND) 
AT  S  RJ   OF  LINE.   TRANSFER  CONTROL  TO  FN  OR  COMAND  IF 
SPECIAL  LINE. 

SAVE  CHAR  POINTERS 

GET  FIRST  CHAR 

DECREASE  COUNT 

SPACE'' 

YES,  JUST  IGNORE  IT 

IS   CHAR  A  DEL? 

YES,  SO  OK 

WE  ALSO  ACCEPT  PROTECT  DELS 

NOT  EITHER,  YOU  BOZON... 

RESTORE  INPUT  POINTERS 

YES,  ENTER  FUNCTION  DEF  MODE 

RIGHT  PAREN? 

NOPE,  JUST  EXECUTE  LINE 

KILL  SAVED  INPUT  POINTERS 

EXECUTE  SYSTEM  COMMAND 

IS   THIS  AN  EXECUTE  OPERATOR? 

IF  SO,  IT  RETURNS  A  RESULT!! 

AND  GET  A  NEW  LINE  OF  INPUT 


RESTORE  INPUT  POINTERS 

ANALYZE  IT 

RESET  STACK  TO  TOP  OF  CODESTRING 

POINT  TO  THIS  FRAME 

POINT  TO  LAST  CODESTRING  BYT^ 

GET  FIRST  TOKEN 

EVALUATE  THE  EXPRESSION 


h: 

PUSH 

<R0,R1> 

8$: 

MOVB 

(R0)^',R2 

DEC 

R1 

CMPB 

#CHRSPA,R2 

BEQ 

8$ 

CMPB 

/(fCHRDEL,R2 

BEQ 

9$ 

CMPB 

#CHRPDL,R2 

BNE 

10$ 

9$: 

POP 

<R1,R0> 

JMP 

FN 

10$: 

CMPB 

*CHRRPR,R2 

BNE 

EXEC2 

ADD 

/)f4,SP 

CALL 

COMAND 

BIT 

*F$EXEC, FLAGS 

BNE 

EVAL1 

.  ^ 

BR 

EXEC 

;  LINE 

NOT  SPECIAL.  EVALUATE  IT 

EXEC2: 

POP 

<R1,R0> 

CALL 

LEX 

MOV 

R2,SI 

MOV 

SIFRAME,RO 

MOV 

SI,F.LSTC(RO) 

11$: 

CALL 

GETNXT 

CALL 

EXPR 

»    X 
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146 
147 

1 
I 

;  CHECK 

.  FOR  CLEAN  TERMINATION  (BOD  OR  SOMETHING  SPECIAL 

148 

1 

;  SUCH 

AS  A  SEMI-COLON  (SPECIAL  OUTPUT  FORMATTING)  OR  A 

149 
150 
151  000372 

< 

;  BRANCH  (CONTINUE  FROM  SUSPENDED  FUNCTION). 

032703 

020000 

f "" 

BIT 

#T.B0L,R3 

[BEGINNING  OF  LINE? 

152  000376 

001071 

BNE 

EVAL1 

;YES,  CLEAN  EXECUTION 

153  000400 

032703 

040000 

BIT 

/(fT.0THR,R3 

; RE TURN  ON  A  CHARACTER? 

154  000404 

001465 

BEQ 

16$ 

;N0,  SYNTAX  ERROR 

155  000406 

122704 

000135 

CMP8 

*CHRFR0,R4 

; WAS  IT  A  BRANCH? 

156  000412 

157 

158 

001034 

•  A. 

BNE 

14$ 

;NOPE 

< 
< 

;  IT  WAS  A  BRANCH... CHECK  SYNTAX 

,  KILL  THIS  FRAME,  AND 

159 
160 
161  000414 

1 

;  RESTART  THE 

FUNCTION  (FNBR). 

•  ~ 

CALL 

GETNXT 

;YES,  GET  NEXT  TOKEN 

162  000420 

032703 

020000 

BIT 

*T.B0L,R3 

;BOL? 

163  000424 

001455 

BEQ 

16$ 

:BRANCH  IN  EXPRESSION  ILLEGAL 

164  000426 

032765 

1 00000 

1 77771, 

BIT 

/(fT.VAL,SI.BITS(SI):EXPR  HAVE  A  VALUE?                                 1 

165  000434 

001417 

BEQ 

12$ 

:N0 

166  000436 

016502 

1 7777 t 

MOV 

SI.VAL(SI),R2   < 

;GET  POINTER  TO  DATA 

167  000442 

005762 

000004 

TST 

A.ALEN(R2) 

;AT  LEAST  1  ITEM? 

168  000446 

001414 

BEQ 

13$ 

;N0 

169  000450 

013702 

003314' 

MOV 

SIFRAM,R2 

; POINT  TO  CURRENT  FRAME 

170  000454 

011202 

MOV 

(R2), R2 

; POINT  TO  PREV  FRAME 

171  000456 

001406 

BEQ 

12$           , 

:N0  PREVIOUS  FLAME 

172  000460 

042762 

000002 

000002 

BIC 

#F.SUSP,F.FLAG(R^);NO  LONGER  SUSPENDED 

173  000466 

016237 

000012 

005046' 

MOV 

F.LINE(R2),BRSELF;FLA6  FOR  STOPPED  FN 

174  000474 

000137 

OOOOOOG 

12$: 

JMP 

FNBR 

;YES 

175  000500 

176 

1//  000504 

000137 

000070' 

13$: 

JMP 

EXEC 

[SPECIAL  BRANCH 

032737 

000100 

004764'  14$: 

BIT 

/)fF$EVAL,  FLAGS   . 

[EVALUATION  FRAME? 

178  000512 

001422 

BEQ 

16$ 

;N0,  THEN  SEMICOLONS  ARE  NOT  LEGAL 

179  000514 

122704 

000074 

CMP8 

*CHRSEM,R4 

;N0,  SEMICOLON?? 

180  000520 

001017 

BNE 

16$ 

;N0,  SYNTAX  ERROR 

181  000522 

032765 

1 00000 

1 77771, 

BIT 

#T.VAL,SI.BITS(SI)  ;CHECK  FOR  GARBAGE                                 1 

182  000530 

001407 

BEQ 

15$ 

•NO  VALUE  HERE 

183  000532 

PUSH 

R2 

;SAVE  POINTER 

184  000534 

014504 

MOV 

-(SI),R4 

;GET  THE  ADDRESS  OF  THE  DATA 

185  000536 

062705 

1 7777k 

ADD 

/)fSI.LEN*2,SI 

lADJUST  SI  TO  SKIP  THIS 

186  000542 

CALL 

SAME 

;GET  A  NEW  COPY 

187  000546 

POP 

R2 

•RESTORE  POINTER 

188  000550 

052737 

100000 

00^76^,'    15$: 

BIS 

#F.PRNT, FLAGS   . 

•PRINT  IT 

189  000556 

190 

191  000560 

000701 

BR 

11$ 

(SPECIAL  FORMATTING  OF  OUTPUT) 

104407 

16$: 

SYNERR 

< 

'SYNTAX  ERROR 

■? — r 
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193 

;  + 

194 

( 
1 

;  LINE 

TERMINATED  NORMALLY.  IF  " 

mis  IS  AN  EVALUATED  INPUT 

195 
196 

197  000562 

4 

;  THEN 

RETURN 

WITH  THE  VALUE  OF  ■ 

FHE  EXPRESSION. 

EVALl : : 

198  000562 

032737 

002200 

004764' 

BIT 

4fF$EVI+F.END,FLAGS;THIS  FRAME  RETURN  A  VALUE?                          1 

199  000570 

001571 

BEQ 

EXECl          , 

;N0,  JUST  PRINT  RESULTS 

200  000572 

032765 

100000 

1 7777 1^ 

BIT 

/lfT.VAL,SI.BIT(Sll 

>;VAL  ON  %\1 

201  000600 

001004 

BNE 

IS 

;YES,  SO  PROCESS  IT 

202  000602 

032737 

000200 

004764' 

BIT 

#F$EVI, FLAGS 

; EVALUATED  INPUT  REQUEST? 

203  000610 

001157 

BNE 

6$ 

;YES,  ASK  AGAIN.  \^   NOT, 

204 

;   DON'T  SCREW  UP  EXECUTE! 

205  000612 

013703 

004764 ' 

1$: 

MOV 

FLAGS,R3       ; 

;SAVE  CURRENT  FLAGS 

206  000616 

013700 

003314' 

MOV 

SIFRAM.RO 

; POINT  TO  THIS  FRAME 

207  000622 

010001 

MOV 

R0,R1 

;COPY  POINTER 

208  000624 

011002 

MOV 

aR0,R2 

; POINT  TO  PREVIOUS  FRAME 

209  000626 

016237 

000002 

004764' 

MOV 

F.FLAG(R2), FLAGS, 

;GET  ITS  FLAGS 

210  000634 

010237 

003314* 

MOV 

R2,SIFRAM 

;MAKE  IT  THE  CURRENT  FRAME 

211  000640 

032765 

100000 

1 77771, 

BIT 

/lfT.VAL,SI.BIT(Sll 

>;  VAL  ON  SI? 

212  000646 

001012 

BNE 

2$ 

:  YES,  RESULT  WAS  RETURNED 

213  000650 

PUSH 

<R0,R1> 

;  SAVE  REGS 

214  000654 

CALL 

KILL 

:  WIPE  OUT  EMPTY  RESULT  FRAME 

215  000660 

012704 

007364 • 

MOV 

#NULL,R4 

;  POINT  TO  NULL  ARRAY 

216  000664 

CALL 

SAME 

•  COPY  U   TO  MAKE  IT  THE  RESULT 

217  000670 

218 

219 

•  ±. 

POP 

<R1 ,R0> 

;  RESTORE  REGS  AND  RETURN  NULL  RESULT 

t 
I 

;  IF  RESULT  15 

5  NOT  A  TEMPORARY,  j 

[E.  IT  IS  A  VARIABLE, 

220 

1 

:  THE  RESULT  MUST  BE  COPIED  SO  THAT  WHOEVER  CALLED  US  DOESN'T                           I 

221 
222 
223  000674 

4 

;  CLORRER  THE 

VARIABLE. 

j$: 

PUSH 

<R0,R1,R3> 

;SAVE  POINTERS 

224  000702 

016504 

1 7777 t 

MOV 

SI. VAL(SI),R4   , 

; POINT  TO  VALUE 

225  000706 

CALL 

SAME 

:COPY  IT  U   NECESSARY 

226  000712 

014504 

MOV 

-(SI),R4 

;NEW  VALUE 

227  000714 

014503 

MOV 

-(SI),R3 

;NEW  BITS 

228  000716 

005745 

TST 

-(SI) 

;RETURN 

229  000720 

020465 

1 7777 t 

CMP 

R4,SI.VAL(SI)   , 

;BEING  DONE  IN  PLACE  (TEMPORARY  RESULT?) 

230  000724 

001406 

BEQ 

3$ 

;YES,  SO  NO  BOTHER 

231  000726 

CALL 

KILL 

;ELSE  KILL  OLD  FRAME 

232  000732 

012725 

0000006 

MOV 

/(fSYSER,(SI)^ 

;FAKE  RETURN 

233  000/36 

010325 

MOV 

R3,(SI)^- 

;NEW  BITS 

234  000740 

010425 

MOV 

R4.(SI)^ 

;N£W  VALUE 

235  000742 

3$: 

POP 

<R3,R1,R0> 

; RESTORE  REGS 

236  000750 

014540 

MOV 

-(SI),-(RO) 

:FILL  IN  RESULT 

237  000752 

014540 

MOV 

-(SI),-(RO) 

:FILL  IN  RESULT  BITS 

238  000754 

016100 

000006 

MOV 

F.HEAD(R1),R0   , 

; POINT  TO  END  OF  HEADER 

239  000760 

014037 

005056* 

MOV 

-(RO),E$CT 

[RESTORE  INPUT  POINTERS 

240  000764 

014037 

005060' 

MOV 

-(R0),E$PT 

;T0  ALLOW  NESTING 

241  OOO/ZO 

014037 

000064' 

MOV 

-(R0),INPTR 

;0F  EXECUTION  OPERATORS 

242  000774 

014046 

MOV 

-(RO),-(SP) 

•RESTORE  RETURN 

243  000//6 

014046 

MOV 

-(RO),-(SP) 

; RESTORE  R4 

244  001000 

014046 

MOV 

-(RO),-(SP) 

•RESTORE  R3 

245  001002 

014046 

MOV 

-(RO),-(SP) 

•RESTORE  R2 

246  001004 

247 

248 

010105 

•  X 

MOV 

R1,SI 

•KILL  THE  EVAL/EVI  FRAME 

i 
1 

•  CHEC>< 

:  FOR  EXECUTION  FRAME.   (YECHl)                                               1 

249 

< 
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250  001006 

251  001012 

252  001014 

253  001020 

254  001022 

255  001024 

256  001030 

257  001032 

258  001036 

259  001042 

260  001046 

261  001054 

262  001060 
263 

264 
265 
266 
267 

268  001064 

269  001072 

270  001074 

271  001100 

272  001106 

273  001110 

274  001112 

275  001116 

276  001122 
271  001126 

278  001 1 30 

279  001134 


032703 
001424 
013700 
001421 
010002 
013701 
161001 
010162 
010162 

012737 
005037 
005037 


000400 
003040' 

003044 • 

000004 
000006 

000256'  005052' 

003040' 

003060' 


032765 
001422 
016500 
1 32760 
001414 


062705 
010065 


WAS  THIS  AN  EXECUTION  FRAME? 

NOPE 

GET  RESULT  BUFFER 

DOES  NOT  EXIST 

COPY  ?^in'\l.^% 

LAST  ENTRY 

LENGTH  OF  DATA 

FIX  LENGTH 

OF  RESULT  CHARACTER  VECTOR 

RETURN  UNUSED  PORTION 

OUTPUT  TO  TTY  NOW 

PREVENT  PROBLEMS  OF  DEALLOCATION 

KILL  THE  CHANNEL 

CHECK  IF  VALUE  IS  A  CONSTANT.   IF  SO,  ^H^   VALUE  MUST  BE 
COPIED  BECAUSE  THE  CONSTANT  WILL  GO  AWAY 
(IN  FACT  IT  ALREADY  HAS!) 


BIT 

#F$EXEC,R3 

BEQ 

4$ 

MOV 

CHANEX^C.BUFF,RO 

BEQ 

4$ 

MOV 

R0,R2 

MOV 

CHANEX^-C.CPTR,R1 

SUB 

(R0),R1 

MOV 

R1,A.ALEN(R2) 

MOV 

R1,A.DIM1(R2) 

CALL 

CARVE 

MOV 

*CHANOO,OCHAN 

CLR 

CHANEXK.BUFF 

CLR 

CHANEX 

100000  177774  4$ 

1 1717 t 

000020  000003 


1 11112 
1 1777 t 


016200  000004 


280 
281 
282 
283 
284 


001140 
001144 


005037 
0001 75 


003112' 
1 77772 


001150  000137  000070' 


5$; 

6$; 


BIT 

BEQ 

MOV 

BITB 

BEQ 

PUSH 

CALL 

ADD 

MOV 

POP 

MOV 

CALL 

CLR 
JMP 

JMP 


/;fT.VAL,SI.BIT(SI);VAL  ON  SI? 


5$ 
SI.VAL(SI),RO 


/IfA.  CON, A. BITS(RO)  .-CONSTANT? 


5$ 

RO 

GETSAM 

*SI.LEN,SI 

RO,SI.VAL(SI) 

R2 

A.ALEN(R2),R0 

ACOPY 

DIMBLK 
aSI.RET(SI) 

EXEC 


NOPE,  NOTHING  TO  DO 
GET  VALUE 


NOPE,  GOOD! 

SAVE  PTR  TO  CONSTANT 

GET  IDENTICAL  ARRAY 

KILL  ?f^Zl   FRAME  CREATED  BY  'GETSAM'!! 

SET  NEW  VALUE 

GET  BACK  PTR  TO  CONSTANT 

GET  LENGTH  TO  COPY 

COPY  THE  ARRAY 

NEVER  DIM  ARG  FOR  EXECUTE  OR  QUAD! 
AND  RETURN  TO  CALLER 

INDIRECT  JUMP  CAUSE  TOO  FAR 


EXEC    MACRO  M1113  08-FEB-80  12:08  PAGE  49 
EXEC  MAIN  APL  CONTROL  ROUTINE 


I  6 


286 
287 
288 
289 
290 

291  001 15A 

292  001160 

293  001 16A 

294  001166 

295  001172 

296  001176 

297  001200 

298  001202 

299  001204 

300  001212 

301  001214 

302  001220 
303 

304  001224 
305 

306  001226 

307  001234 

308  001236 

309  001240 
001244 
001250 


013703 
016303 
001004 
013703 
016303 
020503 
003012 
001010 
032737 
001402 


003314' 
000004 

003314' 
000006 


100000  004764' 


THIS  IS  JUST  AN  EVALUATION  FRAME.  PRINT  ALL  OF  THE 
EXPRESSIONS  ON  THE  STACK  (IF  PRINT  FLAG  IS  SET),  KILL 
THE  PARSE  FRAMES,  AND  START  ALL  OVER. 


EXEC1 


1$; 


000137     000070* 


310 
311 
312 
313 
314 
315 
316 

317 
318 


104402 

032737 
001403 
010500 


000752 


2$ 
3$ 


100000     004764'   4$ 


5$ 


000000 

000000 
OUOOOO 
000003 


MOV 

SIFRAM,R3 

MOV 

F.LSTC(R3),R3 

BNE 

1$ 

MOV 

SIFRAM,R3 

MOV 

F.HEAD(R3),R3 

CMP 

SI,R3 

BGT 

4$ 

BNE 

3$ 

BIT 

/IfF.PRNT,  FLAGS 

BEQ 

2$ 

CALL 

NEULIN 

JMP 

EXEC 

SYSERR 

BIT 

^F.PRNT, FLAGS 

BEQ 

5$ 

MOV 

SI,RO 

CALL 

PRINT 

CALL 

KILL 

BR 

1$ 

.PSECT 

TABLES 

POINT  TO  THIS  FRAME 

POINT  TO  START  OF  PARSE   FRAMES 

THERE  IS  A  C0DESTRIN6 

ELSE  WE  MUST  USE  HEADER  POINTER 

TO  POINT  TO  END  OF  PARSE  FRAMES 

ANY  PARSE  FRAMES  ON  SI? 

YES,  SO  PRINT/KILL  IT 

OOPS! 

ALREADY  AT  HEAD  OF  LINE? 

YES,  DON'T  NEED  ANOTHER  LINE  FEED 

Print  a  <CR><LF>  pair 

ALL  DONE 

HORRIBLE  SI  STACK  SCREW  UP! 

PRINT  RESULT? 

NO,  JUST  KILL  IT 

POINT  TO  RESULT 

PRINT  RESULT  OF  EXPRESSION 

KILL  RESULT  OF  EXPRESSION 

AND  PRINT  EVERYTHING  LEFT 


114 
012 


BOX COL : : 
076     015         .ASCIZ  <CHRBOX><CHRCOL><CHR.CR><CHR.LF> 
000 

.EVEN 
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000001 


.END 


■=—3- 
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SYMBOL 

TABLE 

ACOPY  = 

•••«•*  GX 

CHRERR= 

10AA31 

CTMAX 

00021 2R 

025 

D.CONT= 

000006 

EOICNJ 

00506AR 

025 

ACO   = 

XOOOOOO 

CHRFIL= 

000177 

CTRMAX 

0001 72R 

025 

D.CTLM= 

000000 

EDIFLG 

005062R 

025 

AC1   = 

X000001 

CHRFRO= 

000135 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

AC2   = 

X000002 

CHRI  RR= 

000073 

C.BLOK= 

00006A 

D.DECD= 

000002 

EIS   = 

000000 

AC3   = 

X000003 

CHRLPR= 

000072 

C.BLSZ= 

0001 AO 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

ACA   = 

XOOOOOA 

CHRMNS= 

000137 

C.BUFF= 

177760 

D.DMD  = 

000010 

ENDCOR 

OOOOOAR 

025 

ACS   = 

XOOOOOS 

CHRMUL= 

000075 

C.BUFL= 

1 77762 

D.DQAD= 

1 77777 

EOF   = 

10AA75 

ALL INT 

00327AR 

025 

CHRNE6= 

000100 

C.CCNT= 

1 77766 

D.DROP= 

000002 

ERRMAX= 

000166 

ARYRET 

003276R 

025 

CHRPDL= 

000271 

C . CPTR= 

1 7776A 

D.ENCD= 

000002 

ERRNUM 

00A772R 

025 

ASCQUO=  0000A2 

CHRPLU= 

000055 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

00A770R 

025 

A.ALEN=  OOOOOA 

CHRPWR= 

000120 

C.DIG  = 

OOOOAO 

D.EXPD= 

000002 

ERRO 

00A77AR 

025 

A.ARG  = 

OOOOAO 

CHRQST= 

000121 

C.FASW= 

020000 

D.FGET= 

000005 

E SPAWN 

OOOOOORG 

020 

A.ASB  = 

000200 

CHRQUO=  000113 

C.FLEN= 

000010 

D.FMT  = 

OOOOOA 

EVAL1 

000562RG 

020 

A.BITS= 

000003 

CHRReR= 

0000A7 

C.FLSH= 

OOAOOO 

D.FPNT= 

000005 

EXEBUF 

00505AR 

025 

A. CON  = 

000020 

CHRRPR= 

0000A2 

C.FRC  = 

000001 

D.FPUT= 

000005 

EXEC 

000070RG 

020 

A.DIMS= 

000002 

CHRSEM= 

00007A 

C.JDEN= 

000010 

D.GE  = 

000000 

EXEC1 

00115AR 

020 

A.DIM1= 

000006 

CHRSM0= 

000112 

C.NAWE= 

000102 

D.GT  = 

000000 

EXEC2 

0003A0R 

020 

A.NUM  = 

000006 

CHRSPA= 

OOOOAO 

C.NOBF= 

OOOAOO 

D.I8M  = 

000002 

EXPR  = 

******  GX 

A.PTR  = 

000000 

CHRUPA= 

000131 

C.NUM  = 

000020 

D.IND  = 

000002 

E$CT 

005056R 

025 

A.TMP  = 

000010 

CHR.BS= 

000010 

COP  = 

OOOOOA 

D.INNR= 

000013 

E$PT 

005060R 

025 

BADDIR= 

10AA63 

CHR.CC= 

000003 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.APD= 

000100 

BADERR= 

10AA37 

CHR.CR= 

000015 

C.RDLN= 

1 77776 

D.LE  = 

000000 

FA.CRE= 

000010 

BLZRlfi 

0051 16R 

025 

CHR.CZ= 

000032 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.DL»C= 

001000 

BOXCOL 

OOOOOORG 

002 

CHR.GT= 

0000A6 

C.RND  = 

000010 

D.LT  = 

000000 

FA.ENB= 

100000 

BRSELF 

0050A6R 

025 

CHR.LF= 

000012 

C.S8IT= 

177756 

D.MAX  = 

000000 

FA.EXC= 

002000 

CARVE  = 

******  GX 

CHR.LT= 

0000A3 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.EXT= 

OOOOOA 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.NSP= 

000100 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C . SPLX= 

000001 

D.MUL  = 

000000 

FA.NSR= 

000200 

CHANOO 

000256R 

025 

CHR.SO^ 

000016 

C.SPRS= 

000002 

D.NE  = 

000000 

FA.POS= 

010000 

CHAN01 

000330R 

025 

CHR.TB= 

000011 

C.SRC  = 

1 7777£, 

D.NN  = 

000000 

FA.RD  = 

000001 

CHAN02 

000S12R 

025 

CHR.UL= 

000106 

C.SRCP= 

00002A 

D.NR  = 

000000 

FA.RWD= 

OOAOOO 

CHAN03 

00067AR 

025 

CHR , , A— 

0001A1 

C.TT  = 

OOOOOA 

D.OR  = 

000000 

FA.SEQ= 

OAOOOO 

CHANOA 

001056R 

025 

CHR..E= 

0001A5 

C.W1DC= 

1 77770 

D.PLUS= 

000000 

FA.SHR= 

OOOOAO 

CHANGS 

0012A0R 

025 

CHR..S= 

000163 

C.WIDR= 

1 77772 

D.PSUB= 

000006 

FA.TMP= 

000020 

CHAN06 

001A22R 

025 

CHR..T= 

0001 6A 

DEBUG  = 

000000 

D.PWR  = 

000001 

FA.WCK= 

020000 

CHAN07 

00160AR 

025 

CHR..U= 

000165 

DEFERR= 

10AA05 

D.QQAD= 

000000 

FA.WRT= 

000002 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEVIL 

0051 1AR 

025 

D.QUAD= 

000000 

FD.BLK= 

000010 

CHAN09 

0021 50R 

025 

CHR..0= 

000060 

DEVNTF= 

10AA70 

D.RES  = 

000000 

FD.CCL= 

000002 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIGITS 

000006R 

025 

D.RHO  = 

000000 

FD.COM=  020000 

CHAN11 

00251 AR 

025 

CH.AND= 

000001 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.CR  = 

000002 

CHAN12 

002676R 

025 

CMDBUF 

003250R 

025 

DIf®LK 

0031 12R 

025 

D.SCON= 

000006 

FD.DIR= 

000010 

CHAN13 

000022R 

023  C«D«AX= 

000010 

DIMPTR 

0031 1AR 

025 

D.SDIF= 

000006 

FD.FTN= 

000001 

CHAN1A 

00020AR 

023 

CNTSIZ 

005130R 

025 

DIMTYP 

0031 16R 

025 

D.SUB  = 

000000 

FD.F11= 

OAOOOO 

CHNOPN= 

10AA71 

COMAND= 

******  GX 

DIRFUL= 

10AA66 

D.SUBS= 

000006 

FD.INS= 

000010 

CHRAND=: 

000051 

COMBIN 

005076R 

025 

DOMERR= 

10AA17 

D.TAKE= 

000002 

FD.ISP= 

002000 

CHRBEL= 

000007 

CQMCNT 

005126R 

025 

DPTERR= 

10AA16 

D.TRAN=  OOOOOA 

FD.MNT= 

100000 

CHRacR= 

000133 

COMERR= 

10AA25 

DYDCNT 

00322AR 

025 

D.UNON=  000006 

FD.OSP= 

OOAOOO 

CHRBOL- 

000200 

COMPTR 

005122R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.PLC= 

OOOOOA 

CHRBOX= 

00011A 

CQ»1RTN 

0031 56R 

025 

D.BXCT= 

000007 

D.$MIN= 

000000 

FD.PRN= 

OOOOOA 

CHRC«A= 

00005A 

COMSKP 

00512AR 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.PSE= 

010000 

CHRCOL= 

000076 

CORPTR 

005120R 

025 

D.8XNL= 

000007 

D.$PLU= 

000000 

FD.RAH= 

000001 

CHRDEL= 

000107 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.SRES= 

000000 

FD.RAN= 

000002 

CHRDIV= 

000053 

CS.B00= 

000010 

D.BXPW= 

000007 

D.$SUB= 

000000 

FD.REC= 

000001 

CHRDLR= 

000176 

CS.FLO= 

000020 

D.8XRL= 

000007 

D.1C0M= 

000001 

FD.RWM= 

000001 

CHRDLT= 

000110 

CS.IDN= 

OOOOAO 

D.CIRC= 

000001 

D.1EXP= 

000002 

FD.SDI= 

000020 

CHRDOT= 

000056 

CS.QNE= 

000100 

o,(:om= 

000001 

D.1R0T= 

000003 

FD.SQD= 

OOOOAO 

CHREP  = 

000105 

CTEPS 

0001 52R 

025 

O.COMP= 

000001 

EDICHR 

005063R 

025  FD.TTY= 

OOOOOA 
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FD.UBH=  000002 

F.DSPT= 

000044 

F.TRC  = 

000002 

LNLNG  = 

104541 

M.MMD  =  000010 

FF.CHR=  000005 

F.DVNM=  000134 

F.UNJT= 

0001 36 

LOCLCT 

005036R 

025  M.NE6  =  000000 

FF.NV  =  000003 

F.EFBK= 

000010 

F.URBD= 

000020 

LOWCOR 

000002R 

025  M.NOT  =  000000 

FF.POE=  000002 

F.EFN  = 

000050 

F.VAL  = 

M777t 

LSTERP 

004766R 

025  M. NUB  =  000006 

FF.RWD=  000001 

F.END  = 

002000 

F.VBN  = 

000064 

LWIDTH 

000070R 

025  M.NUM  =  000204 

FF.RWF=  000006 

F.EnRR= 

000032 

F.VBSZ= 

000060 

L.BITS= 

000003 

M.0UTR=  000012 

FF.SPC=  000004 

F.ERR  = 

000052 

GETLIN= 

******  GX 

L.CNT  = 

000002 

M. PI TM=  000000 

FHEADR  00501 2R 

025 

F.FACC= 

000043 

GETNXT= 

**••«•  GX 

L.PRNT= 

000001 

M.PRDS=  000006 

FHRET   0050A0R 

025 

F.FFBY= 

000014 

GETSAW= 

***«••  GX 

L.PTR  = 

000000 

M.QQAD=  000000 

FILNTF=  10AA67 

F.FLA6= 

000002 

GNOME 

0031 02R 

025  L.PTR1= 

000004 

M.QUAD=  000000 

FIS   =  000000 

F.FLB  = 

000100 
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.  I  DENT  W02.03\ 

.SBTTL  EXISTS 
■♦•+ 


G  7 


VERIFY  If   A  FILE  EXISTS 


FUNCTIONAL  DESCRIPTION: 

THIS  ROUTINE  VERIFIES  THAT  A  FILE  WHOSE  NAME  BLOCK 
IS  POINTED  TO  BY  R4  DOES  IN  FACT  EXIST 

CALLING  SEQUENCE: 

CALL    EXISTS 


INPUTS: 
R4 


-  POINTS  TO  THE  NAME  BLOCK  OF  THE  FILE 


IMPLICIT  OUTPUTS: 

Condition  Codes  -  C-Bit  Cleared  if  File  Found,  Set  Otherwise 

SIDE  EfFECJS: 

For  RSTS,  the  File  is  Opened  on  Channel  14. 


000000 

000000 

000000 

000002  012702  000204' 

000006 


000012  010401 
000014  010200 
000016 
000020 


EXISTS 


.PSECT  CODE 


PUSH    R2 

MOV     *CHAN14,R2 

CALL    RESCHN 


RSX  Check,  see  if  File  exists 


MOV 
MOV 
POP 
CALLR 


R4,R1 
R2,R0 
R2 
.FIND 


Save  a  register 

USE  UTILITY  CHANNEL 

CLEAN  IT  OUT  (JUST  IN   CASE) 


.-Point  to  Name  Block 
;Point  to  FDB 
.•Restore  reqister 
.-Find  it.  Please 


EXISTS  MACRO  M1113  08-FEB-80  12:11  PAGE  46 
EXISTS  VERIFY  IF  A  FILE  EXISTS 


ITT 


1 


000001 


.END 


EXISTS 
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I  7 

SYMBa 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESll 

0051 32R 

025 

AC1   = 

X000001 

CHRLPR= 

000072 

C.BUFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

AC2   = 

X000002 

CHRMNS= 

000137 

C.BUFL= 

1 77762 

D.DQAD= 

\77777 

EOF   = 

104475 

AC3   = 

X000003 

CHRMUL= 

000075 

C.CCNT= 

1 77766 

D.DR0P= 

000002 

ERRMAX= 

000166 

ACA   = 

XOOOOOA 

CHRNEG= 

000100 

C.CPTR= 

1 77764 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

ACS   = 

X000005 

CHRPDL= 

000271 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

ALLINT 

00327AR 

025 

CHRPLU= 

000055 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRO 

004774R 

025 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

C.FASW= 

020000 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

ASCQUO= 

0000A2 

CHRQST= 

000121 

C.FLEN= 

000010 

D.FMT  = 

000004 

EXISTS 

OOOOOORG 

020 

A.ALEN= 

000004 

CHRQU0=  000113 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$CT 

005056R 

025 

A.ARG  = 

000040 

CHRRBR= 

000047 

C.FRC  = 

000001 

D.FPUT= 

000005 

E$PT 

005060R 

025 

A.AS8  = 

000200 

CHRRPR= 

000042 

c.mi*= 

000010 

D.GE  = 

000000 

FA.APD= 

000100 

A.BITS= 

000003 

CHRSEM= 

000074 

C.NAME= 

000102 

D.GT  = 

000000 

FA.CRE= 

000010 

A. CON  = 

000020 

CHRSMO= 

000112 

C.N0BF= 

000400 

D.I8M  = 

000002 

FA.DLK= 

001000 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.ENB= 

100000 

A.DIM1  = 

000006 

CHRUPA= 

000131 

COP  = 

000004 

D.INNR= 

000013 

FA.EXC= 

002000 

A.NUM  = 

000006 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.EXT= 

000004 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.RDLN= 

177776 

D.LE  = 

000000 

FA.NSP= 

000100 

A. IMP  = 

000010 

CHR.CR= 

00001 5 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.NSR= 

000200 

BADD1R= 

104463 

CHR.CZ= 

000032 

C.RNO  = 

000010 

D.LT  = 

000000 

FA.PCS= 

OIOOOC 

BADERR= 

104437 

CHR.GT= 

000046 

C.S8IT= 

177756 

D.MAX  = 

000000 

FA.RD  = 

000001 

BLZafi 

005116R 

025 

CHR.LF= 

000012 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.RU)= 

004000 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.SEQ= 

040000 

CCNT 

005072R 

025 

CHR.SI= 

00001 7 

C.SPLX= 

000001 

D.MUL  = 

000000 

FA.SHR= 

000040 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C.SPRS= 

000002 

D.NE  = 

000000 

FA.TMP= 

000020 

CHANOO 

000256R 

025 

CHR.SO= 

000016 

C.SRC  = 

1 7777^ 

D.NN  = 

000000 

FA.WCK= 

020000 

CHAN01 

000330R 

025 

CHR.TB= 

000011 

C.SRCP= 

000024 

D.NR  = 

000000 

FA.URT= 

000002 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.TT  = 

000004 

D.OR  = 

000000 

FD.BLK= 

000010 

CHAN03 

000674R 

025 

CHR..A= 

000141 

C.WIDC= 

^7777^ 

D.PLUS= 

000000 

FD.CCL= 

000002 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.WIDR= 

1 77772 

D.PSUB= 

000006 

FD.COM= 

020000 

CHAN05 

001240R 

025 

CHR..S= 

000163 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.CR  = 

000002 

CHAN06 

001422R 

025 

CHR..T= 

000164 

DEfERR= 

104405 

D.QQAD= 

000000 

FD.DIR= 

000010 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEVIL 

0051 14R 

025  D.QUAD= 

000000 

FD.FTN= 

000001 

CHANGS 

001766R 

025 

CHR..Z= 

000172 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.F11= 

040000 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.INS= 

000010 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.ISP= 

002000 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DIMBLK 

0031 12R 

025  D.SCON= 

000006 

FD.MNT= 

100000 

CHAN12 

002676R 

025 

CMD8UF 

003250R 

025 

DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.OSP= 

004000 

CHAN13 

000022R 

023 

CMDMAX= 

000010 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PLC= 

000004 

CHAN1A 

0002a4R 

023  CNTSIZ 

005130R 

025 

DIRFUL= 

104466 

D.SIRS= 

000006 

FD.PRN= 

000004 

CHNQPN= 

104471 

COMBIN 

005076R 

025 

DOMERR= 

104417 

D.TAKE= 

000002 

FD.PSE= 

010000 

CHRAND= 

000051 

COMCNT 

005126R 

025 

DPTERR= 

104416 

D.TRAN= 

000004 

FD.RAH= 

000001 

CHRBEL= 

000007 

COMERR= 

104425 

DYDCNT 

003224R 

025  D.UNON= 

000006 

FD.RAN= 

000002 

CHRB»CR= 

000133 

COMPTR 

0051 22R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.REC= 

000001 

CHRBa= 

000200 

COMRTN 

0031 56R 

025 

D.BXCT= 

000007 

D.$MIN=  000000 

FD.RV«=  000001 

CHRBOX= 

000114 

COMSKP 

005124R 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SDI= 

000020 

CHRCMA= 

000054 

CORPTR 

005120R 

025 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.SQD= 

000040 

CHRCOL= 

000076 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.SRES= 

000000 

FD.TTY= 

000004 

CHRDEL= 

000107 

CS.BOO= 

000010 

D.BXPW= 

000007 

D.$SUB= 

000000 

FD.WBH= 

000002 

CHRD1V= 

000053 

CS.FLO= 

000020 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.CHR= 

000005 

CHRDLR= 

000176 

CS.IDN= 

000040 

D.CIRC= 

000001 

D.I EXP= 

000002 

FF.NV  = 

000003 

CHRDLT= 

000110 

CS.ONE= 

000100 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.P0E= 

..0002 

CHRDOT^ 

000056 

CTEPS 

0001 52R 

025 

D.COMP= 

000001 

EDICHR 

005063R 

025  FF.RWD= 

000001 

CHREP  = 

000105 

CTMAX 

00021 2R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF.RWF= 

000006 

CHRERR= 

104431 

CTRMAX 

0001 72R 

025 

D.CTL«= 

000000 

EDIFL6 

005062R 

025  FF.SPC= 

000004 

CHRFIL= 

000177 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

F HE ADR 

00501 2R 

025 

CHRFRO= 

000135 

C.BLOK= 

000064 

D.DECD= 

000002 

EIS   = 

000000 

FHRET 

005040R 

025 

EXISTS 
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SYMBa  " 

FABLE 

FILNTF= 

10A467 

F.FNB  = 

000102 

1LFNAM= 

1 04464 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

FIS   = 

000000 

F.FNDF= 

000010 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FISCON= 

OA6000 

F.FTYP= 

000116 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SI6N= 

000000 

FIXPTR 

003074R 

02S 

F.FUN  = 

000010 

INDERR= 

104410 

M.ABS  = 

000000 

M.SUBR= 

000001 

FLAGS 

00A76AR 

02:; 

F.FVER= 

000120 

INNTMP 

003250R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLCBUF 

003250R 

025 

F.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FLINC 

0050HR 

025 

F.HIBK= 

000004 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN= 

000012 

FLOEXP 

003270R 

025 

F.LBL  = 

000020 

INSNAM= 

104462 

M.BXCT= 

000007 

M.$ABS= 

000000 

FLONEG 

003272R 

025 

F.LINE= 

000012 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI= 

000000 

FLSWTB 

000222R 

025 

F.LOC  = 

000004 

I.CNT  = 

1 7777 t 

M.BXFX= 

000007 

M.$FLR= 

000000 

FLTLEN=  000010 

F.LSTC= 

000004 

I. DIM  = 

1 77772 

M.BXI0= 

000007 

M.$IDN= 

000000 

FNINSI 

005044R 

025 

F.LUN  = 

000042 

I.LEN  = 

000012 

M.BXLC= 

000003 

M.$NEG= 

000000 

FORIGN 

000032R 

025 

F.MBCT= 

000054 

I.OERR= 

000062 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.AP0= 

000106 

F.MBC1  = 

000055 

I. OLD  = 

1 7777^ 

M.BXNL= 

000007 

M.1RDT= 

00001 1 

FO.MFY= 

000002 

F.MBFG= 

000056 

I.PTR  = 

1 7777  i. 

M.BXPP= 

000007 

M.1REV= 

000003 

FO.RD  = 

000001 

F.MON  = 

000002 

l.STR  = 

1 77766 

M.BXPW= 

000007 

M.1SCN= 

00001 1 

FO.UF>0= 

000006 

F.NIL  = 

000001 

LABERR= 

104406 

M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FO.WRT= 

000016 

F.NRBD= 

000024 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FPMODE 

0000A2R 

025 

F.NREC= 

000030 

LARGBL 

0031 62R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

FPP   = 

000000 

F.OPN  = 

000010 

LARGCV 

0031 76R 

025  M.CEI  = 

1 77777 

NB.NAM=  000004 

FPPLEN= 

000004 

F.0VBS= 

000030 

LAR6FL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FREBLK 

007A00R 

025 

F.PREV= 

000000 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

FUZZ 

000K2R 

025 

F.PRNT= 

100000 

LARGLN 

0031 66R 

025  M.D0UT= 

000006 

NB.Sff1=  000040 

FXPTR1 

003076R 

025 

F.PROT= 

010000 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

FSEVAL= 

000100 

F.RACC= 

000016 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F$EVI  = 

000200 

F.RATT= 

000001 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F$EXEC= 

000400 

F.RCNM= 

000034 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.VER= 

000'  1 

F$FUNC= 

001000 

F.RCTL= 

00001 7 

LBINC 

0051 OOR 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.ACTL= 

000076 

F.READ= 

004000 

LBUFF 

00331 6R 

025  M.FIL  = 

000177 

ND.EXT= 

000002 

F.ALOC= 

OOOOAO 

F.REDF= 

000040 

LBUFLN= 

000621 

M.FLR  = 

1 77777 

ND.NAM=  000004 

F.aBFS= 

000062 

F.RES  = 

000040 

LCOUNT 

0051 06R 

025  M.FMT  = 

000004 

ND.PPN= 

000100 

F.BOB  = 

000070 

F.RET  = 

1 77712 

LENERR= 

104412 

M.6DUP= 

000003 

ND.$EX= 

000000 

F.BGBC= 

000057 

F.RSIZ= 

000002 

LENTAB 

000054R 

025  M.GDUN=  000003 

ND.$E$=  000020 

F.BITS= 

^Tflli. 

F.RTYP= 

000000 

LEXPTR 

0031 OOR 

025  M.6ETI= 

000006 

ND.$NM=  000000 

F.a»CDN= 

000026 

F.R2  = 

000014 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$= 

000040 

F.BKDS= 

000020 

F.R3  = 

000016 

LINC 

0051 02R 

025  M.IDN  = 

000000 

ND. $PN=  001400 

F.B»CEF= 

000050 

F.R4  = 

000020 

LINE 

00501 6R 

025  M.IN3P= 

000006 

NEGSGN 

005063R 

025 

F.BICP1  = 

000051 

F.SEQN= 

000100 

LINING 

005026R 

025  M.I0TA= 

000000 

NINPT1 

003302R 

025 

F.BICST= 

000024 

F.SPDV= 

000072 

LISIZE= 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.BK\/B= 

000064 

F.SPUN= 

000074 

LITOP 

005072R 

025  M.LN  = 

000001 

NINSTK 

003304R 

025 

F.BR  = 

000020 

F.STBK= 

000036 

LNLN6  = 

104541 

M.MMD  ~ 

000010 

NINTMP 

00331  OR 

025 

F.CHR  = 

000075 

F.STK  = 

000022 

LOCLCT 

005036R 

025  M.NEG  = 

000000 

NINTYP 

003306R 

025 

F . CNTG= 

000034 

F.STOP= 

000004 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

N0TAVL= 

104472 

F . COOE= 

000010 

F.STP  = 

000001 

LSTERP 

004766R 

025  M.NUB  = 

000006 

N0T0PN= 

104473 

F.Ofm= 

000046 

F . SUSP= 

000002 

LWIDTH 

000070R 

025  M.NUW  = 

000204 

NPRT1 

004762R 

025 

F.DSPT= 

000044 

F.TRC  = 

000002 

L.BITS= 

000003 

M.0UTR= 

000012 

NULL 

007364R 

025 

F.D\/^f1= 

000134 

F.UNJT= 

000136 

L.CNT  = 

000002 

M.PITM= 

000000 

NUMCHN= 

000020 

F.EFBK= 

000010 

F.URBO= 

000020 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

F.EFN  = 

000050 

F.VAL  = 

1 7777 t 

L.PTR  = 

000000 

M.QQAD= 

000000 

NUMEFL 

003233R 

025 

F.END  = 

002000 

F.V8N  = 

000064 

L.PTP1= 

000004 

M.OUAD= 

000000 

NUMESN 

003236R 

025 

F.EnRR= 

000032 

F.\/BSZ= 

000060 

L.SUBS= 

000002 

M.RAND= 

000012 

NUMFLG 

003230R 

025 

F.ERR  = 

000052 

GNOME 

0031 02R 

025  MACHIN= 

OC0106 

M.RAVL= 

000000 

NUMLEN 

000062R 

025 

F.FACC= 

000043 

HASHC 

0051 36R 

025  MAXCHN= 

000014 

M.RCIP= 

000000 

NUMNEG 

0O3232R 

025 

F.FFBY= 

000014 

HASHTB 

005140R 

025  MONBLK 

0031 20R 

025  M.RDCT= 

00001 1 

NUMQFL 

003234R 

025 

F.F LAG= 

000002 

HSHMSK= 

177601 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

NUMRIG 

003231 R 

025 

F.FLB  = 

000100 

HSHS1Z= 

000200 

MONLEN 

0031 30R 

025  M.R0LL= 

000000 

NUMUID 

003226R 

025 

F.FNAW= 

000110 

KHAN 

005050R 

025  MONPTR 

003122R 

025  M.SATA= 

000001 

NUMZFL 

003235R 

025 

EXISTS 

MACRO  Ml 11 3  08- 
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SYMBOL 

TABLE 

NYIERR= 

10A432 

RARGCV 

003220R 

025 

R.PREV= 

000004 

SY.ERP=  000020 

T.MON  = 

000010 

N.BLSZ= 

000036 

RARGFL 

003202R 

025 

R.PTR  = 

OOOOOO 

SY.NOU=  000100 

T.NIL  = 

000004 

N.DESC= 

000020 

RARGLE 

00321 6R 

025 

R.SEQ  = 

000003 

SY.OPN=  000002 

T.NUM  = 

002000 

N.DEV  = 

000032 

RARGLN 

00321  OR 

025 

R.VAR  = 

000002 

SY.PMT=  001000 

T.OPFN= 

000001 

N.DE\/N=  00003A 

RARGPT 

003206R 

025 

R6 

Z000006 

SY.SRT=  000400 

T.OTHR- 

040000 

N.DID  = 

000024 

RARGSF 

00321 4R 

025 

R7 

X000007 

SY.SVC=  000004 

T.SOP  = 

000002 

N.D\/^f1=  000032 

RARGTY 

00321 2R 

025 

SI 

X000005 

SY.SVL=  000200 

l.SPOP^ 

000040 

N.EXT  = 

000014 

RARGVA 

003222R 

025 

SIDAMN= 

104433 

S.AB  =  177776 

T.TMP  = 

000200 

N.FID  = 

000000 

RBASE 

005074R 

025 

SIFRAM 

00331 4R 

025 

S.ASa  =  100000 

T.VAL  = 

100000 

N.FNAM=  000006 

RCOUNR 

0051 12R 

025 

SISTAK 

006350R 

025 

S.BFHD=  000020 

T.VAR  = 

001000 

N.FTYP=  OOOOH 

r:ount 

005 11  OR 

025 

SITOP 

006346R 

025 

S.BITS=  000002 

UPPER  = 

1 77400 

N.F\/ER= 

000016 

RtDCNT 

005070R 

025 

SITP 

0071 44R 

025 

S.CHR1=  000003 

UTNAME 

000344R 

023 

N.^4A^E= 

000006 

RtDIGN 

005066R 

025 

SIUARN= 

000200 

S.FATT=  000016 

VALERR= 

104413 

N.f€XT= 

000022 

>ED0FF 

005072R 

025 

SI2TAB 

000044R 

025 

S.FDB  =  000140 

VARBLE 

007400R 

025 

N.PPN  = 

000024 

F  iENTR 

003060R 

025 

SI.BIT= 

1 7777i, 

S.FLB  =  040000 

VARBLS 

OOOOOOR 

025 

N.STAT= 

000020 

RESRIT 

0031 42R 

025 

SI.LEN= 

\77772 

S.FNAM=  000006 

VERNUM 

OOOOOOR 

025 

N.UNIT= 

000034 

RESCHN= 

***••*  GX 

SI.RET= 

1 77772 

S.FNB  =  000036 

VRSION= 

000002 

nRUFLN=  001000 

RESCVT 

0031 52R 

025 

SI.VAL= 

\7777t 

S.FNBW=  000017 

WIDTH 

000072R 

025 

OCHAN 

0O5052R 

025 

RESERR= 

104440 

SKPSIZ 

0051 34R 

025 

S.FNTY=  000004 

WROUND 

000020R 

025 

OMOOE 

000402R 

023 

RESLEN 

0031 50R 

025 

SPHOLD 

000004R 

024 

S.FTYP=  000002 

WSDATE 

0001 36R 

025 

OPTMPO 

005066R 

025 

RESPTR 

0031 40R 

025 

SPINIT 

000002R 

024 

S.LEN  =  000002 

WSFULL- 

104403 

0PTMP1 

0O5070R 

025 

RESSFT 

0031 46R 

025 

STKINC= 

000774 

S.LINK=  177774 

WSNAME 

000074R 

025 

0PTMP2 

005072R 

025 

RESTYP 

0031 44R 

025 

STOP  = 

104420 

S.NFEN=  000020 

WSTIME 

0001 32R 

025 

0PTI>V>3 

005074R 

025 

RESULT 

0031 36R 

025 

SUBCNT 

0031 04R 

025 

S.TYPE=  140000 

$FIS  = 

i^*«**«  (3 

OPTMPA 

005076R 

025 

RESVAL 

0031 54R 

025 

SIRDCT 

0031 06R 

025 

S.VAL  =  OOOOOO 

%^?9     = 

**•*♦♦  (5 

0PTMP5 

005100R 

025 

RINC 

0051 04R 

025 

SUBPTR 

00311  OR 

025 

TKDIMS  005072R 

025  %??Pi.H= 

•••♦••  (5 

0PTMP6 

0051 02R 

025 

RLTBAS 

005066R 

025 

SYMB1 

005344R 

025 

TKFRAM  005066R 

025  $MACHN= 

l^**ilr**  Q 

0PTMP7 

0051 04R 

025 

ROTINC 

005070R 

025 

SYMF 

005340R 

025 

TKLEFT  005070R 

025  $RSTS  = 

*•**♦*  Q 

0PTWP8 

005106R 

025 

ROUND 

00001  OR 

025 

SYMPT1 

005346R 

025 

TMODE   000403R 

023  %«$;%.    = 

••»•♦•  (5 

0PTI1P9 

00511 OR 

025 

ROVER 

0033 ;2R 

025 

SYMTAB 

005352R 

025 

TMPTAG=  000166 

$RT11  = 

«***•*  (3 

OPTM10 

0051 12R 

025 

RSTS  = 

OOOOOO 

SYMTBF= 

104404 

TTYBUF  004140R 

025  .BOOLE= 

000002 

OPTMIA 

005026R 

025 

RSX   = 

000115 

SYMTOP 

005350R 

025 

TTYLEN=  000622 

.CHARA= 

OOOOOO 

ORIGIN 

000030R 

025 

RTOP 

005070R 

025 

SYMTP 

006272R 

025 

TURKEY=  104436 

.DEF.  = 

000002 

OUTPTR 

000066R 

025 

RT11   = 

OOOOOO 

SYMURN= 

000054 

TYPE  =  000166 

.FIND  = 

*«*«*i^  GX 

OVROPR= 

000000 

R.BITS= 

000003 

SYNERR= 

104407 

T.BOL  =  020000 

.FLOAT= 

000006 

PATCH 

007344R 

025 

R.FIX  = 

000001 

SYSERR= 

104402 

T.CON  =  004000 

.FSRCB= 

**••♦♦  G 

PRECSN 

000052R 

025 

R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.DIM  =  000100 

. INTE6= 

000004 

RANDAC 

003064R 

025 

R.LN  = 

000002 

SY.8AD= 

000001 

T.FUN  ^  010000 

.MOLUN 

000404R 

023 

RANDY 

003062R 

025 

R.LNUM= 

000010 

SY.8RK= 

100000 

T.LIST=  000400 

...GBL= 

OOOOOO 

RANERR= 

104411 

R.NEXT= 

000006 

SY.8S  = 

000010 

T.LIT  =  000020 

...TPC= 

000020 

RARGBL 

003204R 

025 

R.OFF  = 

OOOOOO 

SY.CLR= 

000040 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

NONBTB 

000000 

006 

DYD6TB 

000000 

007 

COWTB 

000000 
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012 
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013 
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014 
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015 
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016 
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024 
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007400 

025 
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2513  .LIST  SEQ,SRC,LOC,BIN,BEX,MEB 
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.TITLE  EXITIT 
. I DENT  \V02.03\ 

.S8TTL  EXITIT 
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TERMINATE  APL  SESSION 


FUNCTIONAL  DESCRIPTION: 

'EXITIT'  cleans  up  the  tty  for  exiting  then  exits 

INPUTS: 

NONE 

OUTPUTS : 

NONE 

ROUTINES  CALLED: 

FRESET  -  Close  all  files 

TTOUT   -  Tramsmit  character  to  terminal  (untranslated) 

WRITES  -  PRINT  OUT  ALL  THAT  GOOD  STUFF 

SIDE  EFFECTS: 

An  obvious  one:  APL  terminates. 


.PSECT  CODE 


EXITIT:: 


012737 
105737 
001004 
012700 


012746 

063 

1 04377 


000256'  005052' 
000403 • 

00001 7 


DIE:: 


001 


CALL  FRESET 

MOV  #CHAN00,0CHAN 

TST8  TMODE 

BNE  DIE 

MOV  *17,R0 

CALL  TTOUT 

EXITSS 

MOV  (PC)^,-(SP) 

.BYTE  51.,  1 

EMT  ^0<377> 


; CLOSE  ALL  FILES 

;SET  OUTPUT  CHANNEL 

;WHAT  MODE  ARE  WE  IN  ? 

; TTY  MODE,  NO  ESCAPE  SEQUENCE 

; PRINT  IT 

; GOODBYE,  DORATHY,  GOODBYE 
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D.DECD= 
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C.BUFF= 

1 77760 

D.DIV  = 
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E\Ji%ll 

0051 32R 
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AC2   = 

X000002 

CHRI1NS=  000137 

C.BUFL= 

1 77762 

D.DMD  = 
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ENDCOR 

OOOOOAR 

025 

AC3   = 

X000003 

CHRMUL=  000075 

C.CCNT= 

1 77766 

D.DQAD= 

\77777 

EOF   = 

10AA75 
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C . CPTR= 

1 7776A 

D.DROP= 

000002 

ERRMAX= 
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CHRPOL=  000271 
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001000 

D.ENCD= 

000002 

ERRNUM 

00A772R 

025 

ALLINT 

00327AR 

025 

CHRPLU=  000055 

C.DI6  = 

OOOOAO 

D.EQ  = 
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ERRPTR 
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ARYRET 

003276R 

025 

CHRPWR=  000120 

C.FASW= 

020000 

D.EXPD= 

000002 

ERRO 

00A77AR 

025 

ASCQUO=  0000A2 

CHRQST=  000121 

C.FLEN= 

000010 

D.FGET= 

000005 

EXEBUF 

00505AR 

025 

A.ALEN=  OOOOOA 

CHRQU0=  000113 

C.FLSH= 

OOAOOO 

D.FMT  = 

OOOOOA 

EXITIT 

OOOOOORG 

020 

A.ARG  = 

OOOOAO 

CHRRBR=  0OOOA7 

C.FRC  = 

000001 

D.FPNT= 

000005 

E$CT 
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025 

A.ASB  = 

000200 

CHRRPR=  0000A2 

C.IDEN= 

000010 

D.FPUT= 

000005 

E$PT 

005060R 

025 

A.Br.S= 
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CHRSEf1=  000074 

C.NAME= 

000102 

D.GE  = 

000000 

FA.APD= 

000100 

A. CON  = 

000020 

CHRSM0=  000112 

C.N08F= 

OOOAOO 

D.GT  = 

000000 

FA.CRE= 

000010 

A.DIMS= 

000002 

CHRSPA=  OOOOAO 

C.NUM  = 

000020 

D.I8M  = 

000002 

FA.DLK= 

001000 

A.DIM1  = 

000006 

CHRUPA=  000131 

COP  = 

OOOOOA 

D.IND  = 

000002 

FA.ENB= 

100000 

A.NLM  = 

000006 

CHR.BS=  000010 

C.OPN  = 

010000 

D.INNR= 

000013 

FA.EXC= 

002000 

A.PTR  = 

000000 

CHR.CC=  000003 

C.RDLN= 

177776 

D.INTR= 

000006 

FA.EXT= 

OOOOOA 

A.TMP  = 

000010 

CHR.CR=  000015 

C.REWT= 

002000 

D.LE  = 

000000 

FA. NSP= 

000100 

BADDIR= 

10AA63 

CHR.CZ=  000032 

C.RND  = 

000010 

D.L06  = 
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FA.NSR= 

000200 

BADERR= 

10AA37 

CHR.GT=  0000A6 

C.S81T= 

177756 

D.LT  = 

000000 

FA.POS= 

010000 

BLZBUB 

0051 16R 

025 

CHR.LF=  000012 

C.SPFX= 

000100 

D.MAX  = 

000000 

FA.RD  = 

000001 

BRSELF 

0050A6R 

025 

CHR.LT=  0000A3 

C.SP6L= 

000200 

D.MEM  = 

000002 

FA.RWD= 

OOAOOO 

CCNT 

005072R 

025 

CHR. SI =  000017 

C . SPLX= 

000001 

D.MIN  = 

000000 

FA.SEQ= 

OAOOOO 

CHANEX 

00306C? 

025 

CHR.SL=  000057 

C.SPRS= 

000002 

D.MUL  = 

000000 

FA.SHR= 

OOOOAO 

CHANOO 

000256P 

025 

CHR.S0=  000016 

C.SRC  = 

17777A 

D.NE  = 

000000 

FA.TMP= 

000020 

CHAN01 

000330R 

025 

CHR.TB=  000011 

C.SRCP= 

00002A 

D.NN  = 

000000 

FA.WCK= 

020000 

CHAN02 

00051 2R 

025 

CHR.UL=  000106 

C.TT  = 

OOOOOA 

D.NR  = 

000000 

FA.WRT= 

000002 

CHAN03 

00067AR 

025 

CHR..A=  0001A1 

C.WIDC= 

177770 

D.OR  = 

000000 

FD.BLK= 

000010 

CHANOA 

001056R 

025 

CHR..E=  0001 A5 

C.W1DR= 

1 77772 

D.PLUS= 

000000 

FD.CCL= 

000002 

CHAN05 

0012A0R 

025 

CHR..S=  000163 

DEBUG  = 

000000 

D.PSUB= 

000006 

FD.COM=  020000 

CHAN06 

001A22R 

025 

CHR..T=  00016A 

DEFERR= 

10AA05 

D.PWR  = 

000001 

FD.CR  = 

000002 

CHAN07 

00160AR 
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CHR..U=  000165 

DEVIL 

00511AR 

025  D.QQAD= 

000000 

FD.DIR= 
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CHAN08 
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CHR..Z=  000172 

DEVNTF= 

10AA70 

D.QUAD= 

000000 
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CHAN09 
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CHR..O=  000060 

DIE 
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000000 

FD.F11= 
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CHAN10 
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025 

CHR..1=  000061 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.INS= 

000010 

CHAN11 

00251AR 

025 

CH.AND=  000001 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.ISP= 

002000 

CHAN12 

002676R 

025 

CMD8UF  003250R 

025 

DIMBLK 

0031 12R 

025  D.SCON= 

000006 

FD.MNT= 

100000 

CHAN13 

000022R 

023 

CMDMAX=  000010 

DIMPTR 

0031 1AR 

025  D.SDIF= 

000006 

FD.OSP= 

OOAOOO 

CHAN1A 

00020AR 

023  CNTSIZ  005130R 

025 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PLC= 

OOOOOA 

CHNOPN= 

10AA71 

COMBIN  005076R 

025 

DIRFUL= 

10AA66 

D.SUBS= 

000006 

FD.PRN= 

OOOOOA 

CHRAND= 

000051 

COMCNT  0051 26R 

025 

DOMERR= 

10AA17 

D.TAKE= 

000002 

FD.PSE= 

010000 

CHRBEL= 

000007 

C0MERR=  10AA25 

DPTERR= 

10AA16 

D.TRAN= 

OOOOOA 

FD.RAH= 

000001 

CHRB»CR= 

000133 

COMPTR  0051 22R 

025 

DYDCNT 

00322AR 

025  D.UN0N= 

000006 

FD.RAN= 

000002 

CHRH(JI  = 

000200 

COMRTN  0031 56R 

025  D.AND  = 

000000 

D.$MAX= 

000000 

FD.REC= 

000001 

CH»«JX= 

00011A 

COMSKP  00512AR 

025 

D.8XCT= 

000007 

D.$MIN=  000000 

FD.RUM=  000001 

CHRCMA= 

00005A 

CORPTR  005120R 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SDI-= 

000020 

CHRCa= 

000076 

CS.ASS=  000200 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.SQD= 

OOOOAO 

CHROEL= 

000107 

CS.B00=  000010 

D.BXPP= 

000007 

D.SRES= 

000000 

FD.TTY= 

OOOOOA 

CHRDIV= 

000053 

CS.FL0=  000020 

D.BXPW= 

000007 

D.$SUB= 

000000 

FD.UBH= 

000002 

CHRDLR= 

000176 

CS.IDN=  OOOOAO 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.CHR= 

000005 

CHRDLT= 

000110 

CS.ONE=  000100 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.NV  = 

000003 

CHRDOT= 

000056 

CTEPS   0001 52R 

025 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.POE= 

000002 

CHREP  = 

000105 

CTMAX   00021 2R 

025 

D.COMP= 

000001 

EDI CHR 

005063R 

025  FF.RUD= 

000001 

CHRERR= 

10AA31 

CTRMAX  0001 72R 

025 

D.CONT= 

000006 

EDICNT 

00506AR 

025  FF.RWF= 

000006 

CHRFIL= 

000177 

C.AL0C=  000162 

D.CTLM= 

000000 

EDIFLG 

005062R 

025  FF.SPC= 

OOOOOA 

CHRFRO= 

000135 

C.BL0K=  00006A 

D.DEAL= 

000003 

EDIT  = 

000003 

F HE ADR 

00501 2R 

025 
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SYMBOL  TABLE 

FHRET   0050A0R 

025 

F.FLB  = 

000100 

HSHSJZ= 

000200 

MONLEN  0031 30R 

025  M.R0LL=  000000 

FILNTF=  104467 

F.FNAM=  000110 

I  CHAN 

005050R 

025  MONPTR  0031 22R 

025  M.SATA=  000001 

FIS   =  000000 

F.FhB  = 

000102 

ILFNAM= 

104464 

MONSFT  0031 26R 

025  M.SCAN=  000011 

FISCON=  046000 

F.FNDF= 

000010 

ILLCHN= 

104540 

MONTYP  0031 24R 

025  M.SHAP=  000000 

FIXPTR  003074R 

025 

F.FTYP= 

000116 

ILLSW  = 

104565 

MONVAL  0031 34R 

025  M.SI6N=  000000 

FLAGS   004764R 

025 

F.FUN  = 

000010 

INDERR= 

104410 

M.ABS  =  000000 

M.S(.BR=  000001 

FLCBUF  003250R 

025 

F.FVER= 

000120 

INNTHP 

003250R 

025  M.BOL  =  000200 

M.SYM  =  000203 

FLINE   005014R 

025 

F.HEAD= 

000006 

INNTM2 

00501 6R 

025  M.BXAV=  000007 

M.SYN  =  000201 

FLOEXP  003270R 

025 

F.H1BIC= 

000004 

INPTR 

000064R 

025  M.BXCR=  000007 

M.TRAN=  000012 

FLONEG  003272R 

025 

F.LBL  = 

000020 

INSNAW= 

104462 

M.BXCT=  000007 

M.$ABS=  000000 

FLSWTB  000222R 

025 

F.LINE= 

000012 

lOERR  = 

104477 

M.BXEX=  000007 

M.$CEI=  000000 

FLTLEN=  000010 

F.LOC  = 

000004 

I.CNT  = 

1 7777 t 

M.BXFX=  000007 

M.$FLR=  000000 

FNINSI  005044R 

025 

F.LSTC= 

000004 

I. DIM  = 

1 77772 

M.BXIO=  000007 

M.$IDN=  000000 

FORIGN  000032R 

025 

F.LUN  = 

000042 

I.LEN  = 

000012 

M.BXLC=  000003 

M.$NEG=  000000 

FO.APO=  000106 

F.I«CT= 

000054 

I . 0ERR= 

000062 

M.8XNC=  000007 

M.$SIG=  000000 

FO.MFY=  000002 

F./««C1  = 

000055 

I. OLD  = 

177770 

f1.BXNL=  000007 

M.1RDT=  000011 

FO.RD  =  000001 

F.MBFG= 

000056 

I.PTR  = 

1 7777 1, 

M.BXPP=  000007 

M.1REV=  000003 

FO.UPD=  000006 

F.MON  = 

000002 

I. SIR  = 

^777tt 

M.BXPW=  000007 

M.1SCN=  000011 

FO.WRT=  000016 

F.NIL  = 

000001 

LABERR= 

104406 

M.BXRL=  000007 

NA/>ejF  003240R 

025 

FPfflDE  000042R 

025 

F.NRBD= 

000024 

LABLPT 

005042R 

025  M.BXTS=  000007 

NB.DEV=  000200 

FPP   =  000000 

F.NREC= 

000030 

LARGBL 

0031 62R 

025  M.BXUA=  000007 

NB.DIR=  000100 

FF>PLEN=  000004 

F.OPN  = 

000010 

LARGCV 

0031 76R 

025  M.CEI  =  \77777 

NB.NAM=  000004 

FREBLK  007400R 

025 

F.OVBS= 

000030 

LARGFL 

0031 60R 

025  M.CHR  =  000202 

NB.SD1=  000400 

FRESET=  ♦♦**♦*  GX 

F.PREV= 

000000 

LAR6LE 

0031 74R 

025  M.CMT  =  000206 

NB.SD2=  001000 

FUZZ    0001 42R 

025 

F.PRNT= 

100000 

LARGLN 

0031 66R 

025  M.DOUT=  000006 

NB.SM1=  000040 

FXPTR1  003076R 

025 

F.PROT= 

010000 

LARGPT 

0031 64R 

025  M.DQAD=  000006 

NB. STP=  000020 

F$EVAL=  000100 

F.RACC= 

000016 

LAR6SF 

0031 72R 

025  M.ENCD=  000004 

NB.SVR=  000010 

F$EVI  =  000200 

F.RATT= 

000001 

LAR6TY 

0031 70R 

025  M.EXE  =  000000 

NB.TYP=  000002 

F$EXEC=  000400 

F.RCNM=  000034 

LARGVA 

003200R 

025  M.EXP  =  000001 

NB.VER=  000001 

F$FUNC=  001000 

F.RCTL= 

000017 

LBINC 

0051 OOR 

025  M.FACT=  000001 

ND.DEV=  000200 

F.ACTL=  000076 

F.READ= 

004000 

LBUFF 

00331 6R 

025  M.FIL  =  000177 

ND.EXT=  000002 

F.AL0C=  000040 

F.REDF= 

000040 

LBUFLN=  000621 

M.FLR  =  ^77777 

ND.NAM=  000004 

F.BBFS=  000062 

F.RES  = 

000040 

LCOUNT 

005106R 

025  M.FMT  =  000004 

ND.PPN=  000100 

F.BOB  =  000070 

F.RET  = 

M7172 

LENERR= 

104412 

M.GDUP=  000003 

ND.$EX=  000000 

F.BGBC=  000057 

F.RSIZ= 

000002 

LENTAB 

000054R 

025  M.GDUN=  000003 

ND.$E$=  000020 

F.BITS=  177774 

F.RTYP= 

000000 

LEXPTR 

0031 OOR 

025  M.6ETI=  000006 

ND.$M>1=  000000 

F.B»CDN=  000026 

F.R2  = 

000014 

LFTOP 

005066R 

025  M.IBM  =  000003 

ND.$N$=  000040 

F.BICDS=  000020 

F.R3  = 

000016 

LINC 

0051 02R 

025  M.IDN  =  000000 

ND.$PN=  001400 

F.BKEF=  000050 

F.R4  = 

000020 

LINE 

00501 6R 

025  M.INSP=  000006 

NEGSGN  005063R 

025 

F.BICP1=  000051 

F.SEQN= 

000100 

LININC 

005026R 

025  M.IOTA=  000000 

NINPT1  003302R 

025 

F.BKST=  000024 

F . SPDV= 

000072 

LISIZE= 

000020 

M.LIT  =  000205 

NINPT2  003300R 

025 

F.B»CVB=  000064 

F.SPUN= 

000074 

LI  TOP 

005072R 

025  M.LN  =  000001 

NINSTK  003304R 

025 

F.BR  =  000020 

F.ST»C= 

000036 

LNLN6  = 

104541 

M.MMD  =  000010 

NINTMP  00331 OR 

025 

F.CHR  =  000075 

F.STK  = 

000022 

LOCLCT 

005036R 

025  M.NE6  =  000000 

NINTYP  003306R 

025 

F.CNT6=  000034 

F.ST0P= 

000004 

LOWCOR 

000002R 

025  M.NOT  =  000000 

N0TAVL=  104472 

F.COOE=  000010 

F.STP  = 

000001 

LSTERP 

004766R 

025  M.NUB  =  000006 

N0T0PN=  104473 

F.DFNB=  000046 

F . SUSP= 

000002 

LWIDTH 

000070R 

025  M.NUM  =  000204 

NPRT1   004762R 

025 

F.DSPT=  000044 

F.TRC  = 

000002 

L.BITS= 

000003 

M.OUTR=  000012 

NULL    007364R 

025 

F.DVNM=  000134 

F.UNIT= 

000136 

L.CNT  = 

000002 

M.PITM=  000000 

NUMCHN=  000020 

F.EFBK=  000010 

F.URBD= 

000020 

L.PRNT= 

000001 

M.PRDS=  000006 

NUMDFL  003230R 

025 

F.EFN  =  000050 

F.VAL  = 

1 1717 t 

L.PTR  = 

000000 

M.QQAD=  000000 

NUMEFL  003233R 

025 

F.END  =  002000 

F.VBN  = 

000064 

L.PTR1= 

000004 

M.QUAD=  000000 

NUMESN  003236R 

025 

F.EnBB=  000032 

F.\/BSZ= 

000060 

L . SUBS= 

000002 

M.RAND=  000012 

NUWFLG  003230R 

025 

F.ERR  =  000052 

GNOIE 

0031 02R 

025  MACHINE 

000106 

M.RAVL=  000000 

NUMLEN  000062R 

025 

F.FACC=  000043 

HASHC 

005136R 

025  MAXCHN= 

000014 

M.RCIP=  000000 

NUMNEG  003232R 

025 

F.FFBY=  000014 

HASHTB 

005140R 

025  MONBLK 

0031 20R 

025  M.RDCT=  000011 

NUMQFL  003234R 

025 

F.F LAG=  000002 

HSHWS<= 

177601 

MONCVT 

0031 32R 

025  M.REVS=  C00003 

NUMRIG  003231R 
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SYMBa 

TABLE 

NunuiD 

003226R 

025 

RANERR= 

10AA11 

R.OFF  = 

000000 

SY.CLR= 

OOOOAO 

T.LIT  = 

000020 

NUMZFL 

003235R 

025 

RARGBL 

00320AR 

025 

R.PREV= 

OOOOOA 

SY. ERP= 

000020 

T.MON  = 

000010 

NYIERR= 

104A32 

RAR6CV 

003220R 

025 

R.PTR  = 

000000 

SY.N0U= 

000100 

T.NIL  = 

OOOOOA 

N.BLSZ= 

000036 

RARGFL 

003202R 

025 

R.SEQ  = 

000003 

SY.OPN= 

000002 

T.NUM  = 

002000 

N.DESC= 

000020 

RARGLE 

00321 6R 

025 

R.VAR  = 

000002 

SY.PMT= 

001000 

T.OPFN= 

000001 

N.DEV  = 

000032 

RARGLN 

00321  OR 

025 

R6 

X000006 

SY.SRT= 

OOOAOO 

T.OTHR= 

OAOOOO 

N.DE\/N=  00003A 

RARGPT 

003206R 

025 

R7 

X000007 

SY.SVC= 

OOOOOA 

T.SOP  = 

000002 

N.DID  = 

00002A 

RARGSF 

00321 AR 

025 

SI 

X000005 

SY.SVL= 

000200 

T.SPOP= 

OOOOAO 

N.D\/NM=  000032 

RARGTY 

00321 2R 

025 

SIDAMN= 

10AA35 

S.AB  = 

177776 

T.TMP  = 

000200 

N.EXT  = 

00001 A 

RARGVA 

003222R 

025 

SIFRAM 

00331 AR 

025 

S.ASB  = 

100000 

T.VAL  = 

100000 

N.FID  = 

000000 

RBASE 

00507AR 

025 

SISTAK 

006350R 

025 

S.BFHD= 

000020 

T.VAR  = 

001000 

N.FNAM=  000006 

RCOUNR 

0051 12R 

025 

SI  TOP 

0063A6R 

025 

S.BITS= 

000002 

UPPER  = 

1 77A00 

N.FTYP= 

000014 

RCOUNT 

00511  OR 

025 

SITP 

0071 AAR 

025  S.CHR1= 

000003 

UTNAME 

0003AAR 

023 

N.F\/ER= 

000016 

REDCNT 

005070R 

025 

SIUARN= 

000200 

S.FATT= 

000016 

VALERR= 

10AA13 

N.NAME= 

000006 

REDIGN 

005066R 

025 

SIZTAB 

OOOOAAR 

025 

S.FDB  = 

0001 AO 

VARBLE 

007A00R 

025 

N.NEXT= 

000022 

REDOFF 

005072R 

025 

SI.BIT= 

1 7777^ 

S.FLB  = 

OAOOOO 

VARBLS 

OOOOOOR 

025 

N.PPN  = 

00002A 

REENTR 

003060R 

025 

SI.LEN= 

^77772 

S.FNAM=  000006 

VERNUM 

OOOOOOR 

025 

N.STAT= 

000020 

RESBIT 

0031 A2R 

025 

SI.RET= 

^77772 

S.FNB  = 

000036 

VRSION=  000002 

N.UNIT= 

00003A 

RESCVT 

0031 52R 

025 

SI.VAL= 

^7777t 

S.FNBW= 

000017 

WIDTH 

000072R 

025 

r)RUFLN=  001000 

RESERR= 

10AAA0 

SKPSJZ 

0051 3AR 

025 

S.FNTY= 

OOOOOA 

WROUND 

000020R 

025 

OCHAN 

005052R 

025 

RESLEN 

0031 50R 

025 

SPHOLD 

OOOOOAR 

02A 

S.FTYP= 

000002 

WSDATE 

0001 36R 

025 

OMOOE 

000A02R 

023  RESPTR 

0031 AOR 

025 

SPINIT 

000002R 

02A 

S.LEN  = 

000002 

WSFULL= 

10AA03 

OPTI>f>0 

005066R 

025 

RESSFT 

0031 A6R 

025 

STKINC= 

00077A 

S.LINK= 

17777A 

WSNAME 

00007AR 

025 

0PTMP1 

005070R 

025 

RESTYP 

0031 AAR 

025 

STOP  = 

10AA20 

S.NFEN= 

000020 

WSTIME 

0001 32R 

025 

0PTMP2 

0050/'2R 

025 

RESULT 

0031 36R 

025 

SIRCNT 

0031 OAR 

025 

S.TYPE= 

1A0000 

%f\%     = 

******  Q 

0PTMP3 

00507AR 

025 

RESVAL 

0031 5AR 

025 

SUBDCT 

0031 06R 

025 

S.VAL  = 

000000 

%V9?     = 

******  G 

0PTMP4 

005076R 

025 

RINC 

0051  OAR 

025 

SI  RPTR 

00311  OR 

025 

TKDIMS 

005072R 

025  $FPPLN= 

******  Q 

0PTMP5 

005100R 

025 

RLTBAS 

005066R 

025 

SYMB1 

0053AAR 

025 

TKFRAM 

005066R 

025  $MACHN= 

******  G 

0PTWP6 

005102R 

025 

ROTINC 

005070R 

025 

SYMF 

0053A0R 

025 

TKLEFT 

005070R 

025  SRSTS  = 

******  G 

C3PTMP7 

0051 OAR 

025  ROUND 

00001 OR 

025 

SYMPT1 

0053A6R 

025 

TMODE 

000A03R 

023  %x<>^y^.    = 

******  G 

0PTMP8 

005106R 

025  ROVER 

00331 2R 

025 

SYMTAB 

005352R 

025 

TMPTAG= 

000166 

$RT11  = 

******  G 

0PTMP9 

00511  OR 

025 

RSTS  = 

000000 

SYMT8F= 

10AA0A 

TTOUT  = 

******  GX 

.B00LE= 

000002 

OPTM10 

0051 12R 

025 

RSX   = 

000115 

SYMTOP 

005350R 

025 

TTYBUF 

OOA 1 AOR 

025  .CHARA= 

000000 

OPTMU 

005026R 

025 

RTOP 

005070R 

025 

SYMTP 

006272R 

025 

TTYLEN= 

000622 

.DEF.  = 

000002 

ORIGIN 

000030R 

025 

RT11  = 

000000 

SYMURN=  00005A 

TURKEY= 

10AA36 

.FLOAT= 

000006 

OUTPTR 

000066R 

025 

R.BITS= 

000003 

SYNERR= 

10AA07 

TYPE  = 

000166 

.FSRCB= 

******  G 

OVROPR= 

000000 

R.FIX  = 

000001 

SYSERR= 

10AA02 

T.BOL  = 

020000 

.INTEG= 

OOOOOA 

PATCH 

0073AAR 

025 

R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

02A 

T.CON  = 

OOAOOO 

.MOLUN 

OOOAOAR 

023 

PRECSN 

000052R 

025 

R.LN  = 

000002 

SY.BAD= 

000001 

T.DIM  = 

000100 

...GBL= 

000000 

RANDAC 

00306AR 

025 

R.LNUM= 

000010 

SY.8RK= 

100000 

T.FUN  = 

010000 

...TPC= 

000020 

RANDY 

003062R 

025 

R.NEXT= 

000006 

SY.8S  = 

0C0010 

T.LIST= 

OOOAOO 

«  nO^  m 

000000 
000000 

000 
001 

TABLES 

000000 

002 

nONTB 

000000 

003 

OYDTB 

000000 

OOA 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYDBTB 

000000 

007 

COMTB 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

01A 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

EXITIT 

MACRO  M^ 

1113  0 

SYMBa 

TABLE 

MNTRTL 

000000 

017 

CODE 

000036 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEFSO 

000406 

023 

DEFSI 

000006 

02A 

DEF$2 

007A00 

025 

ERRORS 

DETECTED: 
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TABLE  OF 

CONTENTS 

2- 

1 

APLDEF 

2- 

8 

A  P  L 

2- 

9 

2- 

10 

A  PROGRAMMING  LANGUAGE 

2- 

11 

2- 

12 

STEVE  POULSEN  I   DAVE  VANN 

2- 

13 

11-Jul-76 

2- 

14 

RORERT  GOTTLIEB  &  PETER  HAYNES 

2- 

15 

2-Feb-79 

2- 

16 

2- 

17 

V2 

2- 

18 

2- 

19 

2- 

20 

COPYRIGHT  (C)  1976,  1977,  1978,  1979,  1980 

2- 

21 

DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

2- 

22 

2- 

23 

2- 

24 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A  SINGLE 

2- 

25 

COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE  INCLUSION  OF  THE  ABOVE 

2- 

26 

COPYRIGHT  NOTICE.   THIS  SOFTWARE,  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT 

2- 

27 

BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR 

2- 

28 

USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS. 

2- 

29 

TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN 

2- 

30 

DEC. 

2- 

31 

2- 

32 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 

2- 

33 

AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 

2- 

34 
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35 

2- 

36 
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2- 

37 
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911 
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940 
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ITT 
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TITLE  EXPR 
IDENT  \V02.03\ 

SBTTL  EXPR 


EVALUTE  APL  EXPRESSION 


FUNCTIONAL  DESCRIPTION: 

this  IS  pass  3  of  line  interpretation.  Tokens  in  the 
code  string  produced  by  pass  2  are  processsed  by  calling 
operators  and  functions  according  to  apl  syntax  rules. 
Evaluation  is  easy  except  for  a  special  case  described  below. 
A  line  is  evaluated  until  some  non-statement  token  is  encountered, 
This  token  is  passed  back  to  the  caller,  and  it  is  his  res- 
ponsibility to  determine  if  it  is  a  bo I  or  keyword  or  the  like. 
This  routine  must  be  passed  the  last  token  in  the  line 
for  initialization. 

CALLING  SEQUENCE: 
CALL    EXPR 


INPUTS: 
R2 


-  Pointer  to  the  codestring 


IMPLICIT  INPUTS: 

SI     -  The  SI  contains  the  "stack"  for  expressions,  ... 


OUTPUTS: 
R2 


-  Pointer  to  end  of  evaluated  codestring 


IMPLICIT  OUTPUTS: 

SI     -  The  SI  contains  the  result  of  EXPR  as  the  top  frame. 

ROUTINES  CALLED: 

VAL    -  Used  to  get  the  next  value  in  the  codestring 

WORKER  -  (A  secondary  call  of  EXPR) 

BRKCHK  -  Checks  for  CNTL-C  interrupts 

GETNXT  -  gets  the  next  token  in  the  codestring, 

C  laces  the  info  in  registers 
sed  for  'special'  (i.e.,  non-variable)  assignments 
ASSIGN  -  Used  for  more  orthodox  assignments 
EXPR    -  (A  little  recursion  here) 
DOT    -  Checks  syntax  for  inner,  outer  products 
MONAD   -  Called  for  all  monadic  operations 
DYAD    -  Called  for  all  dyadic  operations 

SIDE  EFFECTS: 

This  routine  evaluates  a  codestring  and  returns 
the  result  on  the  SI 

.PSECT  CODE 


53  000000  012625 

54  000002  005025 

55  00(Xm  005025 

56  000006 

57  000012  000407 


EXPR::   MOV  (SP)+,(SI)+ 

CLR  (SI)+ 

CLR  fSI)+ 

CALL  VAL 

BR  1$ 


PUSH  RETURN  ON  SI 
CLEAR  BITS 
CLEAR  VALUF 
GET  INITIAL  VALUE 
WHAT?  NO  VAL? 
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FT 


58  GOOOK 

59  000016 

60  000022 

61  000024 

62  000026 

63  000030 
64 

65 
66 

67  000032 

68  OOOOAO 

69  000042 

70  0000A6 


010500 

062700  1 77112 

014540 

014540 

005045 

000410 


032765  000400 
001 1 54 

062705  1 11112 

0001 75  1 11112 


MOV  SI,R0 

ADD  <rSI.LEN,RO 

MOV  -(SI),-(RO) 

MOV  -(SI),-(RO) 

CLR  -(SI) 

BR  WORKER 


COPY  POINTER 

BACK  UP  A  FRAME 

MOVE  VALUE 

AND  COPY  BITS 

CLEAR  RETURN 

AND  START  THE  PRESSES! 


.-CHECK  FOR  BLANK  LINE  OR  OTHER  NONSENSE 


177774  1$: 


BIT 
BNE 
ADD 
JMP 


#T.LIST,SI.BIT(SI);LIST  ON  SI? 


EXPSYN 
#SI.LEN,SI 
aSI. RET(SI) 


YES  SYNTAX  ERROR 
POP  THE  VAL  FRAME 
ELSE  JUST  RETURN 
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APL  EXPRESSION 

72 
73 

;  START 

OF  MAIN  LOOP.   THIS  ROUTINE  CALLS  ALL  MONADIC  AND 

74 
75 
76  000052 

;  DYADIC  OPS 

AND  FUNCTIONS 

WORKER: 

■ 
• 

77  000052 

CALL 

BRKCHK 

: CHECK  TO  SEE  IF  HE  WANTS  TO  STOP 

78  000056 

032703 

000001 

BIT 

/rT.0PFN,R3 

; OPERATOR? 

/9  000062 

001076 

BNE 

EXPROP 

;YES,  FINE 

80  000064 

032703 

040000 

BIT 

*T.0THR,R3 

; CHARACTER? 

81  000070 

001002 

BNE 

1$ 

;YES,  WHAT  \%   IT? 

82  000072 

83 

84 

000175 

1 17772 

K  ^ 

JMP 

aSI.RET(SI) 

;N0,  RETURN 

•  CHECK 

FOR  SPECIAL  CASES  OF  ASSIGNMENT  AND  RIGHT  BRACKET                              1 

85 
86 
87  000076 

;  (DIMENSION  ARG  FOR  OP) 

122704 

000133 

!$: 

CMPB 

#CHRBKR,R4 

;BACK  ARROW? 

88  000102 

001015 

BNE 

3$ 

',IS   NOT  THEN  SKIP 

89  000104 

CALL 

GETNXT 

;GET  NEXT  TOKEN 

90  000110 

032703 

001000 

BIT 

<fT.VAR,R3 

: VARIABLE? 

91  000114 

001002 

BNE 

2$ 

;YES,  FINE 

92  000116 

000137 

OOOOOOG 

JMP 

SPASSN 

^HANDLE  SPECIAL  ASSIGNMENTS 

93  000122 

010501 

t 

?$: 

MOV 

SI,R1 

; POINT  TO  VAL 

94  000124 

CALL 

ASSIGN 

^ASSIGN  VAL  TO  VAR 

95  000130 

CALL 

GETNXT 

;GET  NEXT  TOKEN 

%  000134 

97 

98  000136 

000746 

BR 

UORKER 

;AND  CYCLE 

122704 

000047 

$$: 

CMPB 

#CHRRBR,R4 

;N0,  RIGHT  BRACKET? 

99  000142 

00K02 

BEQ 

4$ 

;YES,  GET  DIM  ARG 

100  000144 

101 

102  000150 

000175 

1 77772 

JMP 

aSI.RET(SI) 

:N0,  JUST  RETURN 

4$: 

CALL 

GETNXT 

;GET  NEXT  TOKEN 

103  000154 

CALL 

EXPR           , 

;RECURSES!  FOILED  AGAIN! 

104  000160 

032765 

100000 

1 7777  i. 

BIT 

#T.VAL,SI.BIT(Si; 

);VAL  ON  SI? 

105  000166 

001501 

BEQ 

EXPSYN 

;N0,  SYNTAX  ERROR 

106  000170 

016500 

1 7777 t 

MOV 

SI.VAL(SI),RO   < 

;POINT  TO  EXPRESSION 

107  000174 

132760 

000006 

000003 

BITS 

*A.NUM,A.BITS(RO: 

>;  NUMERIC  DIMENSION  ARG/FILE  TYPE? 

108  000202 

001473 

BEQ 

EXPSYN 

;  NOPE!  SYNTAX  ERROR 

109  000204 

022760 

000001 

000004 

CMP 

#1,A.ALEN(R0) 

;  SCALAR?  (PERMIT  FILE  TYPE  EXPRESSION!!) 

110  000212 

001067 

BNE 

EXPSYN 

;N0,  DIM  ARGS  MUST  BE  SCALARS 

111  000214 

032703 

040000 

BIT 

/>T.0THR,R3 

; RE TURN  A  CHAR? 

112  000220 

001464 

BEQ 

EXPSYN 

;N0,  SYNTAX  ERROR 

113  000222 

122704 

000073 

CMPB 

/I^CHRLBR,R4 

;YES,  LEFT  BRACKET? 

114  000226 

001061 

BNE 

EXPSYN 

;N0,  SYNTAX  ERROR 

115  000230 

012725 

000372' 

MOV 

*EXPSYN,(SI)^-   . 

;PUSH  ERROR  RETURN 

116  000234 

010325 

MOV 

R3,(SI)+ 

;PUSH  BITS 

117  000236 

010425 

MOV 

R4,(SI)^- 

;PUSH  C  TO  MARK  DIM  ARG 

118  000240 

CALL 

GETNXT 

;GET  NEXT  TOKEN 

119  000244 

032703 

000001 

EXPR1 : 

BIT 

*T.0PFN,R3 

;0P  OR  FUNCTION? 

120  000250 

00U50 

BEQ 

EXPSYN 

;N0,  SYNTAX  ERROR 

121  000252 

032703 

000100 

BIT 

/(fT.DIM,R3 

;0P  TAKE  DIMENSION  ARG? 

122  000256 

001445 

BEQ 

EXPSYN 

;N0,  SYNTAX  ERROR 

1 

F 

9 
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124 

1 

;  + 

125 

1 

;  AN  OP  HAS  BEEN  FOUND.  NOW 

CHECK  IF  IT  SHOULD  BE  MONADIC 

126 

i 

;  OR  DYADIC. 

127 

i 

•- 

128  000260 

013700 

003314*        EXPROP:  MOV 

SIFRAM.RO 

.-POINT  TO  THIS  FRAME 

129  00026A 

052760 

100000  000002 

BIS 

#F.PRNT,F.FLA6(R0);PRINT  RESULT 

130  000272 

012725 

000372' 

MOV 

#EXPSYN,(SI)+ 

;PUSH  ERROR  RETURN 

131  000276 

010325 

MOV 

R3,(SI)+ 

;PUSH  BITS 

132  000300 

010425 

MOV 

R4,(S1)+ 

;PUSH  OP  NUMBER  ON  STACK 

133  000302 

CALL 

GETNXT 

;6ET  NEXT  TOKEN 

13A  000306 

032703 

1 05004 

BIT 

#T.NIL+T.VAR+ 

T.C0N+T.VAL,R3;P0SSIBLY  A  VAL? 

135  000312 

001021 

BNE 

EXPDYD 

;YES,  TRY  FOR  DYADIC  OP 

136 

i 

:■♦• 

137 

1 

;  OP  MUST  BE  MONADIC.  CHECK 

FOR  SPECIAL  CASES  OF  A  DOT 

138 

1 

;  (INNER/OUTER 

PRODUCT),  A  SLASH  (REDUCTION),  OR  A  BACK  SLASH  (SCAN) 

139 

1 

•  - 

140  000314 

032703 

040000 

BIT 

#T.0THR,R3 

; IS  IT  A  CHARACTER? 

141  000320 

001413 

BEQ 

1$ 

;NOPE 

142  000322 

122704 

000047 

CMP8 

/lfCHRRBR,R4 

;3? 

143  000326 

001413 

BEQ 

EXPDYD 

;YES,  DYADIC  OP!  (WITH  SIBSCRIPT  ON  LEFT. 

) 

144  000330 

022704 

000042 

CMP 

#CHRRPR,R4 

;)? 

145  000334 

001410 

BEQ 

EXPDYD 

;YES,  TRY  FOR  DYADIC  OP????? 

146  000336 

022704 

000056 

CMP 

#CHRD0T,R4 

;YES,  IS   IT  A  DOT? 

147  000342 

001002 

BNE 

1$ 

;N0,  Must  be  a  Monadic  Op 

148  000344 

000137 

OOOOOOG 

JMP 

DOT 

:YES,  PROCESS  INNER/OUTER  PRODUCTS 

149 

1 

;■♦■ 

150 

1 

;  PROCESS  MONADIC  OPERATOR 

151 

( 

•  - 

152  000350 

* 

i$;     CALL 

MONAD 

; PROCESS  OP 

153  000354 

000636 

BR 

WORKER 

;AND  CONTINUE 

154 

i 

;  + 

155 

i 

;  PROCESS  DYADIC  OP  BUT  WATCH 

FOR  SPECIAL  CASE  MENTIONED 

156 

t 

:  BELOW 

157 

t 

158  000356 

I 

iXPDYD;  CALL 

VAL 

;GET  LEFT  PART  OF  OP 

159  000362 

000404 

BR 

EXPSPL 

•RATS!  PROCESS  SPECIAL  CASE 

160  000364 

CALL 

DYAD 

; PROCESS  DYADIC  OP 

161  000370 

000630 

BR 

WORKER 

;AND  CYCLE 
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G  9 


163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

17A 

175 

176 

177 

178 

179  000372 

180 

181  000374 

182  000400 

183  000402 

184  000404 

185  000406 

186  000412 

187  000416 

188  000422 

189  000426 

190  000430 

191  000432 

192  000434 

193  000436 

194  000442 

195  000446 

196  000452 


104407 

013700 
014540 
014540 
005045 

013700 
062700 
012725 
011025 
005020 
011025 
005010 
012725 
012725 
012725 
000674 


003314' 


003314* 
1 77711, 
000372' 


000372' 

040000 

000073 


THIS  CODE  PROCESSES  THE  UGLY  CASE  ENCOUNTERED  WHEN  ?lK^%\m 
APL.  AN  EXAMPLE  IS  '-/C23+A".  AT  THIS  POINT  WE  HAVE  SEEN  THE 
"A",  THE  'V',  AND  THE  EXPRESSION  IN  BRACKETS.  UP  TO  NOW  IT 
LOOKS  LIKE  THE  CASE  ••ARRAYC23M"  WHICH  WOULD  REQUIRE  THE  PLUS 
OPERATOR  TO  BE  DYADIC.  INSTEAD,  WHEN  WE  FIND  TH  SLASH  WHILE 
PROCESSING  THE  LEFT  OPERATOR,  WE  DISCOVER  THAT  THE  PLUS  SHOULD 
BE  MONADIC.  THE  PROBLEM  IS  THAT  WE  HAVE  ALREADY  EVALUATED  THE 
EXPRESSION  IN  BRACKETS  AND  IT  IS  ON  THE  STACK  WHERE  THE  RESULT 
OF  THE  MONADIC  RESULT  OF  'VA"  SHOULD  GO.  THE  SOLUTION  IS   TO 
POP  THE  DIMENSION  ARG  (EXPRESSION  IN  BRACKETS)  FROM  THE  STACK 
AND  HIDE  IT,  DO  THE  MONADIC  OPERATION,  THEN  PUT  THE  DIM  ARG 
BACK  ON  THE  STACK.  WE  CAN  HIDE  THE  DIM  ARG  IN  THE  RESULT 
FRAME  FOR  THIS  EVALUATION  FRAME. 

BLECH! 

SYNTAX  ERROR  CALLER 

POINT  TO  RESULT  OF  THIS  FRAME 

MOVE  VALUE 

MOVE  BITS 

CLEAR  RETURN 

DO  MONADIC  OP 

POINT  TO  HIDDEN  ARG 

POINT  TO  BITS 

PUSH  ERROR  RETURN 

MOVE  BITS 

CLEAR  HIDING  PUCE 

MOVE  VALUE  BITS 

AND  CLEAR  HIDING  PLACE 

PUSH  ERROR  RETURN 

PUSH  CHARACTER  INDICATOR 

PUSH  C  TO  MARK  DIMENSION  ARG 

AND  PROCESS  DIM  ARG  FOR  OP 


EXPSYN: 

SYNERR 

EXPSPL : 

MOV 

SIFRAM,RO 

MOV 

-(SI), -(RO) 

MOV 

-(SI),-(RO) 

CLR 

-(SI) 

CALL 

MONAD 

MOV 

SIFRAM,RO 

ADD 

4fSI.BIT,R0 

MOV 

/ifEXPSYN,(SI)  + 

MOV 

aR0,(SI)+ 

CLR 

(RO)* 

MOV 

aRO,(SI)+ 

CLR 

aRO 

MOV 

4fEXPSYN,(SI)^- 

MOV 

#T.0THR,(SI)+ 

MOV 

#CHRLBR,(SI)^- 

BR 

EXPR1 
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H  9 


000001 


.END 
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SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRFIL= 

0001 77 

C.AL0C= 

000162 

D.C0NT= 

000006 

EDICNT 

005064R 

025 

AC1   = 

X000001 

CHRFR0= 

000135 

C.8L0K= 

000064 

D.CTLM= 

000000 

EDIFL6 

005062R 

025 

AC2   = 

X000002 

CHRLBR= 

000073 

C.BLSZ= 

000140 

D.DEAL= 

000003 

EDIT  = 

000003 

AC3   = 

X000003 

CHRLPR= 

000072 

C.BUFF= 

177760 

D.DECD= 

000002 

EIS       = 

000000 

ACA   = 

XOOOOOA 

CHRMNS= 

000137 

C.BUFL= 

1 77762 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

ACS   = 

XOOOOOS 

CHRMUL= 

000075 

C.CCNT= 

177766 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

ALLINT 

003274R 

025 

CHRNEG= 

000100 

C.CPTR= 

177764 

D.DQAD= 

1 77777 

EOF   = 

104475 

ARYRET 

003276R 

025 

CHRPDL= 

000271 

C.CZ  = 

001000 

D.DR0P= 

000002 

ERRMAX= 

000166 

ASCQUO=  000042 

CHRPLU=  000055 

C.DIG  = 

000040 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

ASSIGN= 

*«**«*  Gx 

CHRPWR= 

000120 

C.FASW= 

020000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

A.ALEN=  000004 

CHRQST= 

000121 

C.FLEN=  000010 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.ARG  = 

000040 

CHRQU0= 

000113 

C.FLSH= 

004000 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

A.ASB  = 

000200 

CHRRBR= 

000047 

C.FRC  = 

000001 

D.FWT  = 

000004 

EXPDYD 

000356R 

020 

A.BITS= 

000003 

CHRRPR= 

000042 

C.IDEN= 

000010 

D.FPNT= 

000005 

EXPR 

OOOOOORG 

020 

A.CON  = 

000020 

CHRSEM= 

000074 

C.NAME= 

000102 

D.FPUT= 

000005 

EXPROP 

000260R 

020 

A.DIMS= 

000002 

CHRSM0= 

000112 

C.NQBF= 

000400 

D.GE  = 

000000 

EXPR1 

000244R 

020 

A.DIM1  = 

000006 

CHRSPA= 

000040 

C.NUM  = 

000020 

D.GT  = 

000000 

EXPSPL 

000374R 

020 

A.NUM  = 

000006 

CHRUPA= 

000131 

COP  = 

000004 

D.IBM  = 

000002 

EXPSYN 

000372R 

020 

A.PTR  = 

000000 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.IND  = 

000002 

E$CT 

005056R 

025 

A.TMP  = 

000010 

CHR.CC= 

000003 

C.RDLN= 

1 77776 

D.INNR= 

000013 

E$PT 

005060R 

025 

BADDIR= 

104463 

CHR.CR= 

000015 

C.REWT= 

002000 

D.INTR= 

000006 

FA.APD= 

000100 

BADERR= 

104437 

CHR.CZ= 

000032 

C.RND  = 

000010 

D.LE  = 

000000 

FA.CRE= 

000010 

BL7WB 

005116R 

025 

CHR.GT= 

000046 

C.,SF^IT= 

1 77756 

D.LOG  = 

000001 

FA.DLK= 

001000 

BRICCHIC= 

*♦*♦♦♦  GX 

CHR.LF= 

000012 

C.SPFX= 

000100 

D.LT  = 

000000 

FA.ENB= 

100000 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.SPGL= 

000200 

D.MAX  = 

000000 

FA.EXC= 

002000 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C.SPLX= 

000001 

D.MEM  = 

000002 

FA.EXT= 

000004 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C.SPRS= 

000002 

D.MIN  = 

000000 

FA.NSP= 

000100 

CHANOO 

000256R 

025 

CHR.S0= 

000016 

C.SRC  = 

1 7777^ 

D.MUL  = 

000000 

FA.NSR= 

000200 

CHAN01 

000330R 

025 

CHR.TB= 

000011 

C.SRCP= 

000024 

D.NE  = 

000000 

FA.POS= 

010000 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.TT  = 

000004 

D.NN  = 

000000 

FA.RD  = 

000001 

CHAN03 

000674R 

025 

LHH • .A" 

000141 

C.WIDC= 

1 77770 

D.NR  = 

000000 

FA.RWD= 

004000 

CHANOA 

001056R 

025 

CHR..E= 

000145 

C.W1DR= 

1 77772 

D.OR  = 

000000 

FA.SEQ= 

040000 

CHANGS 

001240R 

025 

CHR..S= 

000163 

DEBUG  = 

000000 

D.PLUS= 

000000 

FA.SHR= 

000040 

CHAN06 

001422R 

025 

CHR..T= 

000164 

DEFERR= 

104405 

D.PSUB= 

000006 

FA.TMP= 

000020 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEVIL 

0051 14R 

025  D.PWR  = 

000001 

FA.WCK= 

020000 

CHANGS 

001766R 

025 

CHR..Z= 

000172 

DEVNTF= 

104470 

D.QQAD= 

000000 

FA.WRT= 

000002 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DIGITS 

000006R 

025  D.QUAD= 

000000 

FD.BLK= 

000010 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIWAX  = 

000020 

D.RES  = 

000000 

FD.CCL= 

000002 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DireLK 

0031 12R 

025  D.RHO  = 

000000 

FD.CO«=  020000 

CHAN12 

002676R 

025 

CMDBUF 

003250R 

025 

DIMPTR 

0031 14R 

025  D.ROT  = 

000003 

FD.CR  = 

000002 

CHAN13 

000022R 

023 

C/t)«AX= 

000010 

DIMTYP 

0031 16R 

025  D.SC0N=  000006 

FD.DIR= 

000010 

CHAN1A 

000204R 

023 

CNTSIZ 

005130R 

025 

DIRFUL= 

104466 

D.SDIF= 

000006 

FD.FTN=  000001 

CHN0PN= 

104471 

COMBIN 

005076R 

025 

DOMERR= 

104417 

D.SUB  = 

000000 

FD.F11= 

040000 

CHRAND= 

000051 

COMCNT 

005126R 

025 

DOT   = 

•****•  GX 

D.SUBS= 

000006 

FD.INS= 

000010 

CHRRFL= 

000007 

CQMERR= 

104425 

DPTERR= 

104416 

D.TAKE= 

000002 

FD.ISP= 

002000 

CHH8>CR= 

000133 

COMPTR 

005122R 

025 

DYAD  = 

•***••  GX 

D.TRAN= 

000004 

FD.MNT= 

100000 

CHRBOL= 

000200 

COMRTN 

0031 56R 

025 

DYDCNT 

003224R 

025  D.UN0N=  000006 

FD.0SP= 

004000 

CHRBOX= 

000114 

COMSKP 

0051 24R 

025 

D.AND  = 

000000 

D.$«AX= 

000000 

FD.PLC= 

000004 

CHRC«A= 

000054 

CORPTR 

0051 20R 

025 

D.BXCT= 

000007 

D.$MIN=  000000 

FD.PRN=  000004 

CHRCa= 

000076 

CS.ASS= 

000200 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.PSE= 

010000 

CHRDEL= 

000107 

CS.BOO= 

000010 

D.BXNL= 

000007 

D.$PLU=  000000 

FD.RAH= 

000001 

CHRD1V= 

000053 

CS.FLO= 

000020 

D.BX  '= 

000007 

D.$RES= 

000000 

FD.RAN=  000002 

CHRDL  R= 

000176 

CS.IDN- 

000040 

D.BXPW= 

000007 

D.$SUB= 

000000 

FD.REC= 

000001 

CHRDLT= 

000110 

CS.ONE= 

000100 

D.BXRL= 

000007 

D.1C0M= 

000001 

FD.RUM=  000001 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D.CIRC= 

000001 

D.1EXP= 

000002 

FD.SDI= 

000020 

CHREP  = 

000105 

CTMAX 

00021 2R 

025 

D.CaMB= 

OOCCOl 

D.1R0T= 

000003 

FD.SQD= 

000040 

CHRERR= 

104431 

CTRMAX 

0001 72R 

025 

D.COMP= 

00U001 

EDiCHR 

005063R 

025  FD.TTY= 

000004 
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SYMBOL  TABLE 

FD.UBH=  000002 

•.EFN  = 

000050 

F.VAL  = 

1 77776 

L.PRNT= 

000001 

M.PITM=  000000 

FF.CHR=  000005 

-.END  = 

002000 

F.VBN  = 

000064 

L.PTR  = 

000000 

M.PRDS= 

000006 

FF.NV  =  000003 

•.EnRR= 

000032 

F.VBSZ= 

000060 

L.PTR1= 

000004 

M.QQAD= 

000000 

FF.POE=  000002 

'.ERR  = 

000052 

GETNXT= 

******  GX 

L.SUBS= 

000002 

M.QUAD= 

000000 

FF.RWO=  000001 

•.FACC= 

000043 

GNOnE 

0031 02R 

025  MACHIN= 

000106 

M.RAND= 

000012 

FF.RWF=  000006 

•.FFBY= 

000014 

HASHC 

0051 36R 

025  MAXCHN=  000014 

M.RAVL= 

000000 

FF.SPC=  OOOOOA 

■.FLAG= 

000002 

HASHTB 

005140R 

025  MONAD  = 

******  QX 

M.RCIP= 

000000 

FHEADR  00501 2R 

025  1 

-.FLB  = 

000100 

HSHMSK= 

177601 

MONBLK 

0031 20R 

025  M.RDCT= 

000011 

FHRET   0050AOR 

025  1 

•.FNA«=  000110 

HSHS1Z= 

000200 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

FILNTF=  104467 

'.FNB  = 

000102 

I  CHAN 

005050R 

025  MONLEN 

0031 30R 

025  M.R0LL= 

000000 

FIS   =  000000 

■.FNDF= 

000010 

ILFNAM= 

104464 

MONPTR 

0031 22R 

025  M.SATA= 

000001 

FISCON=  046000 

■.FTYP= 

000116 

ILLCHN= 

104540 

MONSFT 

0031 26R 

025  M.SCAN= 

000011 

FIXPTR  003074R 

025  1 

".FUN  = 

000010 

ILLSW  = 

104565 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FLAGS   004764R 

025  \ 

■.FVER= 

000120 

1NDERR= 

104410 

MDNVAL 

0031 34R 

025  M.SI6N= 

000000 

FLCBUF  003250R 

025  f 

■.HEAD= 

000006 

INNT/1P 

003250R 

025  M.ABS  = 

000000 

M.SUBR= 

000001 

FLINE   00501 4R 

025  f 

-.HIBK= 

000004 

INNTW2 

00501 6R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLOEXP  003270R 

025  f 

".LBL  = 

000020 

INPTR 

000064R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FLONEG  003272R 

025  } 

■.Li;jE= 

000012 

INSNAM= 

104462 

M.BXCR= 

000007 

M.TRAN= 

000012 

FLSWTB  000222R 

025  1 

".LOC  = 

000004 

lOERR  = 

104477 

M.BXCT= 

000007 

M.$ABS= 

000000 

FLTLEN=  000010 

■.LSTC= 

000004 

I.CNT  = 

1 77776 

M.BXEX= 

000007 

M.$CEI= 

000000 

FNINSI  005044R 

025  1 

-.LUN  = 

000042 

I. DIM  = 

1 77772 

M.BXFX= 

000007 

M.$FLR= 

000000 

FGRIGN  000032R 

025  1 

M«CT= 

000054 

I.LEN  = 

000012 

M.BXIO= 

000007 

M.$IDN= 

000000 

FO.APO=  000106 

■.MBC1= 

000055 

I.OERR= 

000062 

M.BXLC= 

000003 

M.$NEG= 

000000 

F0.MFY=  000002 

■.MBFG= 

000056 

I. OLD  = 

1 77770 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.RD  =  000001 

-.MON  = 

000002 

I.PTR  = 

1 7777^ 

M.BXNL= 

000007 

M.1RDT= 

000011 

F0.UPD=  000006 

".NIL  = 

000001 

I.STR  = 

1 77766 

M.BXPP= 

000007 

M.1REV= 

000003 

F0.URT=  000016 

■.NRBD= 

000024 

LABERR= 

104406 

M.BXPW=  000007 

M.1SCN= 

000011 

FPMGDE  000042R 

025  1 

".NREC= 

000030 

LABLPT 

005042R 

025  M.BXRL= 

000007 

NAMBUF 

003240R 

025 

fPP       =  000000 

-.OPN  = 

000010 

LARGBL 

0031 62R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FPPLEN=  000004 

-.OVBS= 

000030 

LARGCV 

0031 76R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

FREBLK  007400R 

025  1 

'.PREV= 

000000 

LARGFL 

0031 60R 

025  M.CEI  = 

1 77777 

NB.NAM=  000004 

FUZZ    0001 42R 

025  1 

'.PRNT= 

100000 

LARGLE 

0031 74R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

FXPTR1  003076R 

025  1 

■.PROT= 

010000 

LARGLN 

0031 66R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

F$EVAL=  000100 

■.RACC= 

000016 

LARGPT 

0031 64R 

025  M.DOUT= 

000006 

NB»SAf1=  000040 

F$EVI  =  000200 

'.RATT^ 

000001 

LARGSF 

0031 72R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$EXEC=  000400 

■.RCM>1=  000034 

LARGTY 

0031 70R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F$FUNC=  001000 

'.RCTL= 

00001 7 

LARGVA 

003200R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F.ACTL=  000076 

•.READ= 

004000 

LBINC 

0051 OOR 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F.ALOC=  000040 

'.REDF= 

000040 

LBUFF 

00331 6R 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.aBFS=  000062 

'.RES  = 

000040 

LBUFLN=  000621 

M.FIL  = 

000177 

ND.EXT= 

000002 

F.BOB  =  000070 

".RET  = 

1 77772 

LCOUNT 

005106R 

025  M.FLR  = 

y77777 

ND.NAM=  000004 

F.BGBC=  000057 

•.RSIZ= 

000002 

LENERR= 

104412 

M.FMT  = 

000004 

ND. PPN=  000100 

F.BITS=  177774 

■.RTYP= 

000000 

LENTAB 

000054R 

025  M.GDUP= 

000003 

ND.$EX= 

000000 

F.BICDN=  000026 

^R2  = 

000014 

LEXPTR 

0031 OOR 

025  M.6DyN=  000003 

ND.$E$= 

000020 

F.BICDS=  000020 

^R3  = 

000016 

LFTOP 

005066R 

025  M.6ETI= 

000006 

ND.$f#1=  000000 

F.BKEF=  000050 

-.R4  = 

000020 

LINC 

005102R 

025  M.IBM  = 

000003 

ND.SN$=  000040 

F.BKP1=  000051 

'.SEQN=  000100 

LINE 

00501 6R 

025  M.IDN  = 

000000 

ND.$PN= 

001 AOO 

F.BKST=  000024 

- .  SPDV= 

000072 

LJNINt 

005026R 

025  M.1NSP= 

000006 

NEGSGN 

005063R 

025 

F.BK\/8=  000064 

".SPUN= 

000074 

L1S12E= 

000020 

M.]OTA= 

000000 

NINPT1 

003302R 

025 

F.BR  =  000020 

■.STBK= 

000036 

LITOP 

005072R 

025  M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.CHR  =  000075 

'.STK  = 

000022 

LNLNG  = 

1045A1 

M.LN  = 

000001 

NINSTK 

003304R 

025 

F.CNTG=  000034 

■.STOP= 

000004 

LOCLCT 

005036R 

025  M.MMD  = 

000010 

NINTMP 

00331 OR 

025 

F.CODE=  000010 

-.STP  = 

000001 

LOWCOR 

000002R 

025  M.NEG  = 

000000 

NINTYP 

003306R 

025 

F.Ofm=   000046 

' . SUSP= 

000002 

LSTERP 

004766R 

025  M.NOT  = 

000000 

N0TAVL= 

104472 

F.DSPT=  000044 

-.TRC  = 

000002 

LWIDTH 

000070R 

025  M.NUB  = 

000006 

N0T0PN= 

104A73 

F.D\/^f1=  000134 

■.UNIT= 

000136 

L.SITS= 

000003 

M.NUW  = 

000204 

NPRT1 

004762R 

025 

F.EFBK=  000010 

-.URBD= 

000020 

L.CNT  = 

000002 

M.OUTR= 

000012 

NULL 

007364R 

025 
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SYMBOL 

TABLE 

NUMCHN=  000020 

ORIGIN 

000030R 

025 

R.FIX  = 

000001 

SYSTAT 

OOOOOOR 

024  T.LIST= 

000400 

NUMDFL 

003230R 

025 

OUTPTR 

000066R 

025 

R.LCT  = 

000002 

SY.BAD= 

000001 

T.LIT  = 

000020 

NUMEFL 

003233R 

025 

0VR0PR= 

OOOOOO 

R.LN  = 

000002 

SY.BRK= 

100000 

T.MON  = 

000010 

NUMESN 

003236R 

025 

PATCH 

007344R 

025 

R.LNUM=  000010 

SY.BS  = 

000010 

T.NIL  = 

000004 

NUMFLG 

003230R 

025 

PRECSN 

000052R 

025 

R.NEXT= 

000006 

SY.CLR= 

000040 

T.NUW  = 

002000 

NJILEN 

000062R 

025 

RANDAC 

003064R 

025 

R.OFF  = 

OOOOOO 

SY.ERP= 

000020 

T.OPFN= 

000001 

NUMNEG 

003232R 

025 

RANDY 

003062R 

025 

R.PREV= 

000004 

SY.NOU=  000100 

T.OTHR= 

040000 

NUMQFL 

003234R 

025 

RANERR= 

104411 

R.PTR  = 

OOOOOO 

SY.OPN= 

000002 

T.SOP  = 

000002 

NUMRIG 

003231 R 

025 

RARGBL 

003204R 

025 

R.SEQ  = 

000005 

SY.PWT= 

001000 

T.SPOP= 

000040 

NUMUID 

003226R 

025 

RAR6CV 

003220R 

025 

R.VAR  = 

000002 

SY.SRT= 

000400 

T.TMP  = 

000200 

NUMZFL 

003235R 

025 

RARGFL 

003202R 

025 

R6 

X000006 

SY.SVC= 

000004 

T.VAL  = 

100000 

NYIERR= 

104432 

RARGLE 

00321 6R 

025 

R7 

X000007 

SY.SVL= 

000200 

T.VAR  = 

001000 

N.BLSZ= 

000036 

RARGLN 

00321  OR 

025 

SI 

X000005 

S.AB  = 

1 7777 t 

UPPER  = 

177400 

N.DESC= 

000020 

RARGPT 

003206R 

025 

SIDAMN= 

104433 

S.ASB  = 

100000 

UTNAME 

000344R 

023 

N.DEV  = 

000032 

RARGSF 

00321 4R 

025 

SIFRAM 

00331 4R 

025 

S.BFHD= 

000020 

VAL   = 

****••  GX 

N.DE\/N= 

000034 

RAR3TY 

00321 2R 

025 

SISTAK 

006350R 

025 

S.8ITS= 

000002 

VALERR= 

104413 

N.DID  = 

000024 

RARGVA 

003222R 

025 

SITOP 

006346R 

025 

S.CHR1= 

000003 

VARBLE 

007400R 

025 

N.DVhf1=  000032 

RBASE 

005074R 

025 

SITP 

0071 44R 

025 

S.FATT= 

000016 

VARBLS 

OOOOOOR 

025 

N.EXT  = 

000014 

RCOUNR 

0051 12R 

025 

SIU!ARN= 

000200 

S.FDB  = 

000140 

VERNUM 

OOOOOOR 

025 

N.FID  = 

000000 

RCOUNT 

005 11  OR 

025 

SIZTAB 

000044R 

025 

S.FLB  = 

040000 

VRSION= 

000002 

N.FNAM=  000006 

REDCNT 

005070R 

025 

SI.8IT= 

1 7777^ 

S.FNAW= 

000006 

WIDTH 

000072R 

025 

N.FTYP= 

000014 

REDIGN 

005066R 

025 

SI.LEN= 

177772 

S.F^B  = 

000036 

WORKER 

000052RG 

020 

N.FVER= 

000016 

REDOFF 

005072R 

025 

SI.RET= 

177772 

S.FNBW= 

00001 7 

WROUND 

000020R 

025 

N.NA«E= 

000006 

REENTR 

003060R 

025 

SI.VAL= 

17777 t 

S.FNTY= 

000004 

WSDATE 

0001 36R 

025 

N.r€XT= 

000022 

RESBIT 

0031 42R 

025 

SKPSIZ 

0051 34R 

025 

S.FTYP= 

000002 

WSFULL= 

104403 

N.PPN  = 

000024 

RESCVT 

0031 52R 

025 

SPASSN= 

***♦••  GX 

S.LEN  = 

000002 

WSNAME 

000074R 

025 

N.STAT= 

000020 

RESERR= 

104440 

SPHOLD 

000004R 

024 

S.LINK= 

17777*, 

WSTIME 

0001 32R 

025 

N.UNIT= 

000034 

RESLEN 

0031 50R 

025 

SPINIT 

000002R 

024 

S.NFEN=  000020 

%^\%     = 

***•••  G 

OBUFLN=  001000 

RESPTR 

0031 40R 

025 

STKINC= 

000774 

S.TYPE= 

140000 

%^9?     - 

*••**•  G 

GCHAN 

005052R 

025 

RESSFT 

0031 46R 

025 

STOP  = 

104420 

S.VAL  = 

OOOOOO 

%f??\J\^ 

*•**•*  G 

DMODE 

000402R 

023  RESTYP 

0031 44R 

025 

SUBCNT 

0031 04R 

025 

TKDIMS 

005072R 

025  $MACHN= 

*••••*  G 

oprnpo 

005066R 

025 

RESULT 

0031 36R 

025 

SUBDCT 

0031 06R 

025 

TKFRAM 

005066R 

025  $RSTS  = 

•«*«**  G 

0PTMP1 

005070R 

025 

RESVAL 

0031 54R 

025 

SIRPTR 

00311 OR 

025 

TKLEFT 

005070R 

025  $RSX  = 

it-k-k-kick   G 

0PTI1P2 

005072R 

025 

RINC 

0051 04R 

025 

SYMB1 

005344R 

025 

TMODE 

000403R 

023  $RT11  = 

•••••*  G 

GPTMP3 

005074R 

025 

RLT8AS 

005066R 

025 

SYMF 

005340R 

025 

T/nPTAG= 

000166 

.BOOLE= 

000002 

QPTMPA 

005076R 

025 

ROTINC 

005070R 

025 

SYMPT1 

005346R 

025 

TTYBUF 

004140R 

025  .CHARA= 

OOOOOO 

0PTMP5 

0051 OOR 

025 

ROUND 

00001  OR 

025 

SYMTAB 

005352R 

025 

TTYLEN= 

000622 

.DEF.  = 

000002 

0PTMP6 

0051 02R 

025 

ROVER 

00331 2R 

025 

SYMTBF= 

104404 

TURKEY= 

104436 

.FLOAT= 

000006 

0PTMP7 

005104R 

025 

RSTS  = 

OOOOOO 

SYMTOP 

005350R 

025 

TYPE  = 

000166 

.FSRCB= 

***•*•  G 

0PTMP8 

005106R 

025 

RSX   = 

0001 1 5 

smjp 

006272R 

025 

T.BOL  = 

020000 

.INTEG= 

000004 

0PTMP9 

0051 10R 

025 

RTOP 

005070R 

025 

SYMWRN= 

000054 

T.CON  = 

004000 

.WOLUN 

000404R 

023 

OPTWIO 

0051 12R 

025 

RT11  = 

OOOOOO 

SYNERR= 

104407 

T.DIM  = 

000100 

...GBL= 

OOOOOO 

OPTMU 

005026R 

025 

R.8ITS= 

000003 

SYSERR= 

104402 

T.FUN  = 

010000 

...TPC= 

000020 

■  Aoo  • 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

liONBTB 

000000 

006 

DYDBTB 

000000 

007 

CQMTB 

oooooo 

010 

CHRTBL 

000000 

011 

VTBL 

oooooo 

012 

ASCTBL 

oooooo 

013 

OVRTBL 

oooooo 

OK 
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SYMBOL 

TABLE 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

000454 

020 

PATCH 

000000 

021 

$$FSR1 

000000 

022 

DEF$0 

000406 

023 

DEFSI 

000006 

024 

DEF$2 

007400 

025 

ERRORS 
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9- 

474 

DEFINITIONS 

TOKEN  DESCRIPTION  BITS 

10- 

515 

DEFINITIONS 

SI  EXECUTION  FRAMES 

11- 

580 

DEFINITIONS 

SPECIAL  PARSE  CHARACTERS 

12- 

607 

DEFINITIONS 

CHRTAB  BITS 

12- 

624 

DEFINITIONS 

SYSTEM  STATUS  BITS 

13- 

640 

DEFINITIONS 

f'^RmES 

K- 

724 

DEFINITIONS 

FUNCTION  LINE  BLOCKS 

16- 

807 

DEFINITIONS 

ARRAY  STORAGE  BLOCK 

17- 

869 

DEFINITIONS 

LIST  STORAGE  BLOCK 

18- 

911 

DEFINITIONS 

INDEXING  STACK  FRAME 

19- 

940 

DEFINITIONS 

SYMBOL  TABLE  ENTRY 

20- 

969 

DEFINITIONS 

CHANNEL  BLOCK 

22' 

1085 

DEFINITIONS 

RSX  DATA 

23- 

1110 

DEFINITIONS 

NAME  BLOCKS 

33- 

1612 

DEFINITIONS 

MACROS 

35- 

1905 

DEFINITIONS 

APL  CHARACTERS 

36- 

1967 

DEFINITIONS 

ERRORS 

AA- 

4 

FIXLIN 

FIXUP  INPUT  LINE. 
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1 

000000 

2 

000000 

3 

0001 1 5 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

000004 

10 

11 

000000 

RT11 
RSTS 
RSX 

- 

0 

0 

•M 

EIS 
FIS 
FPP 

— 

0 
0 
0 

FPPLEN 

= 

4 

DEBUG 

= 

0 

117 


;N0T  RT-11 
;N0T  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

; SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 


FIXLIN  MACRO  M1113  08-FEB-80  12:18  PAGE  2 
APLDEF 

1  .S8TTL  APLDEF 

2  .IDENT  \V02.03\ 
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DEFINITIONS     ERRORS 

2513  .LIST  SEQ,SRC,LOC,BIN,BEX,MEB 


E  10 
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DEFINITIONS     ERRORS 

1 

.TITLE  FIXLIN 

5 
6 

.IDENT  \V02.03\ 

.S8TTL  FIXLIN         FIXUP  INPUT  LINE. 

;++ 

7 

;  FUNCTIONAL  DESCRIPTION: 

8 

;      First  pass  of  Line  interpretation.  This  routine  figures  out 
;      what  the  line  the  guy  typed  looks  like  on  his  terminal. 

9 

10 

;      Spacing  and  backspacing  is  resolved,  mnemonics  are  translated 
;      overstrikes  are  reduced  to  one  byte.  Backspaces  make  the  final 

11 

12 

;      line  shorter,  and  it  can  never  get  longer,  so  the  "fixing"  can 
;      be  done  in  place  in  the  line  buffer.  First  backspaces  are 

13 

14 

;      rsolved,  and  then  if  the  current  terminal  is  in  TTY  mode,  the 

15 

;              mnemonics  are  translated. 

16 

17 

;  CALLING  SEQUENCE: 

18 

;      MOV    #<Line  buffer>,RO 

19 

;       CALL    FIXLIN 

20 

21 

;  INPUTS: 

22 
23 
24 

;      RO     -  Contains  a  pointer  to  the  line  buffer^ 

•  IMPLICIT  INPUTS: 

25 

;      TMODE   -  Indicates  the  current  terminal  mode 

26 

27 

;  OUTPUTS: 

28 

;      RO     -  Contains  a  pointer  to  the  line  buffer 

29 

;      R1     -  Contains  the  byte  count 

30 

;      R4     -  Contains  a  pointer  past  the  last  character 

31 

;              in  the  buffer. 

32 

33 

;  IMPLICIT  OUTPUTS: 

34 

;      NONE 

35 

36 

•  ROUTINES  CALLED: 

37 

;      BINSCH  -  used  to  search  overstrike/mneLinonic  tables 

38 
39 

40 

;      CLRSI   -  used  in  case  an  0<backspace>U<backspace>T  is  found 

•  SIDE  EFFECTS: 

41 

;               NONE 

42 

43 

•  REWRITTEN  BY:  Peter  Haynes          DATE:  May  23,  1979 

44 

F  10 
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FIXLIN 

FIXUP  INPUT  LINE. 

46  000000 

47 

48  000000 

.PSECT 

CODE 

FIXLIN: 

• 
• 

49  000000 

11^746 

000403' 

MOVB 

TMODE,-(SP) 

50  000004 

01t037 

003074 • 

MOV 

RO,FIXPTR 

51  000010 

010003 

MOV 

R0,R3 

52  000012 

010004 

MOV 

R0,R4 

53  000014 

54 

55  000020 

005037 

003076' 

CLR 

FXPTR1 

111302 

FIX1: 

MOVB 

(R3),R2 

56  000022 

112723 

000040 

Move 

*CHRSPA,(R3)+ 

57  000026 

042702 

1 77400 

BIC 

SUPPER, R2 

58  000032 

120227 

00001 5 

CMP6 

R2,^CHR.CR 

59  000036 

001472 

BEQ 

8$ 

60  000040 

120227 

000010 

CMP8 

R2,#CHR.BS 

61  000044 

001012 

BNE 

2$ 

62  000046 

020437 

003074 ' 

CMP 

R4,FIXPTR 

63  000052 

001762 

BEQ 

FIX1 

64  000054 

020437 

003076' 

CMP 

R4,FXPTR1 

65  000060 

101402 

BLOS 

1$ 

66  000062 

010437 

003076 ' 

MOV 

R4,FXPTR1 

67  000066 

005304 

1$: 

DEC 

R4 

68  000070 

69 

70 

71 

72  000072 

000753 

BR 

FJX1 

;  Proc 

ess  a 

backspace 

122702 

000040 

^$: 

CMP8 

4fCHRSPA,R2 

rS   000076 

001402 

BEQ 

3$ 

74  000100 

121402 

CMPB 

(R4),R2 

75  000102 

001002 

BNE 

4$ 

76  000104 

005204 

3$: 

INC 

R4 

77   000106 

78 

79  000110 

000744 

BR 

FIX1 

121427 

000040 

4$: 

CMPB 

(R4),#CHRSPA 

80  000114 

81 

82 

83 

84  000116 

001441 

BEQ 

7$ 

;  Check  for 

a  legal  overstn'ke 

105737 

000403 ' 

^$: 

TSTB 

TMODE 

85  000122 

001147 

BNE 

FIXERR 

86  000124 

010200 

MOV 

R2,R0 

87  000126 

ASH 

#8.,R0 

88  000142 

151400 

BISS 

(R4),R0 

89  000144 

120214 

CMPB 

R2,(R4) 

90  000146 

103401 

BLO 

6$ 

91  000150 

000300 

SWAB 

RO 

92  000152 

6$: 

PUSH 

R3 

93  000154 

012701 

OOOOOOG 

MOV 

WVRTAB,R1 

94  000160 

012703 

OOOOOOG 

MOV 

WVRTND,R3 

95  000164 

CALL 

BINSCH 

96  000170 

001124 

BNE 

FIXERR 

97  000172 

POP 

R3 

98  000174 

062702 

0000006 

ADD 

/W)VSTRK,R2 

99  000200 

^20227 

0000006 

CMPB 

R2,*CHREND 

100  000204 

103116 

BHIS 

FIXERR 

101  000206 

y20227 

0000006 

CMPB 

R2,#CHR.0U 

102  000212 

001002 

BNE 

7$ 

Save  the  current  terminal  nx)de 
Save  the  pointer  to  the  left  margin 
Initialize  the  Input  pointer 

Output  pointer 
Right  margin  pointer 

Get  a  character  and 

Replace  it  with  a  space 

Clear  out  an)f  high  bits 

Is  it  a  carriage  return? 

Yes 

Is  it  a  backspace? 

No 

Yes,  Are  we  at  the  left  margin? 

Yes,  Then  ignore  it 

Are  we  at  the  right  margin? 

No 

Yes,  Save  pointer  to  right  margin 

Backup  output  pointer 

Loop  for  next  character 


;Is  the  character  a  space? 

;Yes 

;Does  the  character  =  the  output  characcter? 

;No 

; Increment  output  pointer 

;And  loop 

;Is  the  output  character  a  space? 
;Yes 


Are  we  in  APL  mode? 

No,  Can't  have  overstrikes  in  TTY  mode 

Copy  the  input  character 

Move  . .  to  the  upper  byte 

Combine  it  with  the  output  character 

Which  is  bigger? 

The  output  character 

The  input  character,  switch  them  around 

Save  the  input  pointer 

Setup  the  search 

parameters 

Search  for  the  overstrike.  Is  it  legal? 

No,  Character  error 

Restore  the  input  pointer 

Convert  the  character  to  an  overstrike 

Is  it  out  of  range? 

Yes,  Character  error 

Is  it  the  escape  character? 

No 
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103  000214  000137  OOOOOOG  JMP  CLRSI  ;Yes,  So  Escape 

104 

105  000220  110224  7$:     M0V8  R2,(R4)+  .-Store  it  away 

106  000222  000676  BR  FIXl  ;And  loop 
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H  16 

FIXLIN 

FIXUP  INPUT  LINE. 

108 
109 
110 
111  000224 

• 
# 
• 
# 

• 

Proc 

ess  a 

carriage  return 

020437 

003076' 

8$: 

CMP 

R4,FXPTR1 

;Are  we  inside  the  line? 

112  000230 

103002 

BHIS 

FIXEND 

;No,  Ok 

113  000232 

013704 

003076' 

MOV 

FXPTR1,R4 

;Yes,  Must  have  backspace  into  it 

114  000236 

110224 

FIXEND: 

M0V8 

R2,(R4)+ 

; Store  the  carriage  return 

115  000240 

013700 

003074 • 

MOV 

FIXPTR,RO 

;Point  to  the  left  margin 

116  000244 

010401 

MOV 

R4,R1 

;Copy  the  output  pointer 

117  000246 

160001 

SUB 

R0,R1 

;Get  t'   number  of  characters 

118  000250 

105726 

TSTB 

(SP)^ 

;Are  we  in  TTY  terminal  mode? 

119  000252 

001001 

BNE 

1$ 

;Yes,  Then  do  pass  two 

120  000254 

121 

122 

123 

124  000256 

RETURN 

;No,  we're  done 

Pass 

two. 

Translate  TTY 

mnemonics 

013703 

003074 ' 

1$: 

MOV 

FIXPTR,R3 

;Point  to  left  margin 

125  000262 

010304 

MOV 

R3,R4 

; Output  pointer 

126  000264 

127 

128  000266 

005046 

CLR 

-(SP) 

;Fake  terminal  mode  to  APL 

112300 

FJX2: 

M0V8 

(R3)+,R0 

;6et  a  character 

129  000270 

CALL 

FIXSHF 

; Convert  lower  case  to  upper  case  letters 

130  000274 

010002 

MOV 

R0,R2 

;Copy  the  character 

131  000276 

120227 

000056 

CMP8 

R2,#CHRD0T 

;Is  it  a  dot? 

132  000302 

001044 

BNE 

2$ 

;No 

133  000304 

PUSH 

R3 

;Yes,  A  mnemonic  maybe?.  Save  the  input  pointer 

134  000306 

1 1 2300 

MOVB 

(R3)^-,R0 

;6et  the  first  character 

135  000310 

120027 

00001 5 

CMP8 

RO,#CHR.CR 

;Is  it  a  carriage  return? 

136  000314 

001434 

BEQ 

1$ 

;Yes 

137  000316 

CALL 

FIXSHF 

;No,  Convert  lower  to  upper  case 

138  000322 

ASH 

#8.,R0 

;Move  it  to  the  upper  byte 

139  000336 

121327 

00001 5 

CMP6 

(R3),#CHR.( 

:r   ! 

•,1s   the  second  character  a  carriage  return? 

140  000342 

001421 

BEQ 

1$ 

;Yes 

141  000344 

1 52300 

BISB 

(R3)+,R0 

;No,  Combine  it  with  the  first  character 

142  000346 

CALL 

FIXSHF 

; Convert  it  to  upper  case 

143  000352 

000300 

SWAB 

RO 

; Reverse  their  order 

144  000354 

012701 

OOOOOOG 

MOV 

#MNTAB,R1 

;Setup  the  search 

145  000360 

012703 

OOOOOOG 

MOV 

*MNTBND,R3 

;Parameters 

146  000364 

CALL 

BINSCH 

'Search  for  mnemonic.  Is  it  leqal? 
■No,  Then  dot  must  be  a  dot  only 

147  000370 

001006 

BNE 

1$ 

148  000372 

116202 

OOOOOOG 

MOVB 

MNTRTB(R2). 

.R2    ; 

[Translate  mnemonic  to  APL  character 

149  000376 

POP 

R3 

•Restore  input  pointer 

150  000400 

062703 

000002 

ADD 

#2,R3 

•Increment  input  pointer 

151  000404 

152 

153  000406 

000407 

BR 

U 

Go  to  finish  up 

1$: 

POP 

RS 

Get  back  old  input  pointer 

154  000410 

012702 

000056 

MOV 

*CHRD0T,R2 

Get  dot  back  too 

155  000414 

042702 

1 77400 

2$: 

BIC 

SUPPER, R2 

Clean  out  garbage  bits 
•Translate  ASCII  to  APL 

156  000420 

116202 

OOOOOOG 

MOVB 

TRNTAB(R2)< 

,R2    ; 

157  000424 

042702 

1 77400 

3$: 

BIC 

SUPPER, R2 

•Clean  out  garbage  again 

158  000430 

020227 

000015 

CMP 

R2,*CHR.CR 

•Is  the  character  a  carriage  return? 

159  000434 

001700 

BEQ 

FIXEND 

•Yes,  Then  go  to  return 

•No,  Store  the  character  in  the  output  line 

160  000436 

110224 

MOVB 

R2,(R4)^- 

161  000440 

000712 

BR 

FIX2 

•Loop  for  more  characters 
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163  000AA2  10AA31 

16A 

165 

166 

167 

168  000A4A  120027  000K1 

169  000A50  002A05 

170  000452  120027  000172 

171  000A56  003002 

172  000A60  142700  000040 

173  000464 
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FIXERR:  CHRERR 


I  10 


; Character  Error 


This  routine  converts  the  character  in  RO  to  upper  case  if  it  is  a  letter 

or  bigger? 


FIX5HF:  CMP8 
BLT 
CMP8 
BGT 
BICB 

1$:     RETURN 


R0,*CHR..A 

1$ 

R0,#CHR..Z 

1$ 

*CHRSPA,R0 


III! 

Q 


;Is  it  an 

;No 

;Is  it  a  "z"  or  smaller? 

;No 

;It's  a  letter.  Convert  it  to  upper  case 


J  10 
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1        000001  .END 


FIXLIN 
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K  10 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRFIL= 

000177 

CTMAX 

00021 2R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025 

AC1   = 

X000001 

CHRFR0= 

000135 

CTRMAX 

0001 72R 

025  D.CTLM= 

000000 

EDIFLG 

005062R 

025 

AC2   = 

X000002 

CHRLBR= 

000073 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

AC3   = 

X000003 

CHRLPR= 

000072 

C.BLOK= 

000064 

D.DECD= 

000002 

EIS   = 

000000 

ACA   = 

X000004 

CHRMNS= 

000137 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

ACS   = 

X000005 

CHRMUL= 

000075 

C.BUFF= 

177760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

ALLINT 

00327AR 

025 

CHRNE6= 

000100 

C.BUFL= 

177762 

D.DQAD= 

\77777 

EOF   = 

104475 

ARYRET 

003276R 

025 

CHRPDL= 

000271 

C.CCNT= 

177766 

D.DROP= 

000002 

ERRMAX= 

000166 

ASCQUO=  000042 

CHRPLU=  000055 

C . CPTR= 

1 77764 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

A.ALEN=  000004 

CHRPWR= 

000120 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

A.ARG  = 

000040 

CHRQST= 

000121 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRO 

004774R 

025 

A.ASB  = 

000200 

CHRQU0= 

000113 

C.FASW= 

020000 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

A.BITS= 

000003 

CHRRBR= 

000047 

C.FLEN= 

000010 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A. CON  = 

000020 

CHRRPR= 

000042 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.DIMS= 

000002 

CHRSEM= 

000074 

C.FRC  = 

000001 

D.FPUT= 

000005 

FA.APD= 

000100 

A.D1M1  = 

000006 

CHRSM0= 

0001 1 2 

C.IDEN=  000010 

D.GE  = 

000000 

FA.CRE= 

000010 

A.NUM  = 

000006 

CHRSPA= 

000040 

C.NAME= 

000102 

D.GT  = 

000000 

FA.DLK= 

001000 

A.PTR  = 

000000 

CHRUPA= 

000131 

C.N0BF= 

000400 

D.IBM  = 

000002 

FA.ENB= 

100000 

A. IMP  = 

000010 

CHR.BS= 

000010 

C.NLM  = 

000020 

D.IND  = 

000002 

FA.EXC= 

002000 

BADDIR= 

104463 

CHR.CC= 

000003 

COP  = 

000004 

D.I^JNR= 

000013 

FA.EXT= 

000004 

BADERR= 

104437 

CHR.CR= 

000015 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.NSP= 

000100 

BINSCH= 

*♦••••  QX 

CHR.C2= 

000032 

C.RDLN= 

1 77776 

D.LE  = 

000000 

FA.NSR= 

000200 

BLZRIB 

0051 16R 

025 

CHR.6T= 

000046 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.POS= 

010000 

BRSELF 

005046R 

025 

CHR.LF= 

00001 2 

C.RND  = 

000010 

D.LT  = 

000000 

FA.RD  = 

000001 

CCNT 

005072R 

025 

CHR.LT= 

000043 

C.S8IT= 

177756 

D.MAX  = 

000000 

FA.RWD= 

004000 

CHANEX 

003060R 

025 

CHR.0U= 

******  QX 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.SEQ= 

040000 

CHANOO 

000256R 

025 

CHR. Sl= 

00001 7 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.SHR= 

000040 

CHAN01 

000330R 

025 

CHR.SL= 

000057 

C.SPLX= 

000001 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHAN02 

00051 2R 

025 

CHR.S0= 

000016 

C . SPRS= 

000002 

D.NE  = 

000000 

FA.WCK= 

020000 

CHAN03 

000674R 

025 

CHR.TB= 

00001 1 

C.SRC  = 

1 7777^ 

D.NN  = 

000000 

FA.WRT= 

000002 

CHAN04 

001056R 

025 

CHR.UL= 

000106 

C.SRCP= 

000024 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN05 

001240R 

025 

CHR..A= 

000141 

err  = 

000004 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN06 

001422R 

025 

CHR..E= 

000145 

C.WIDC= 

177770 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN07 

001604R 

025 

CHR..S= 

000163 

C.WIDR= 

^7777^ 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN08 

001766R 

025 

CHR..T= 

000164 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN09 

0021 50R 

025 

CHR..U= 

000165 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.FTN= 

000001 

CHAN10 

002332R 

025 

CHR..Z= 

000172 

DEVIL 

0051 14R 

025 

D.QUAD= 

000000 

FD.F11= 

040000 

CHAN11 

00251 4R 

025 

CHR..0= 

000060 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN12 

002676R 

025 

CHR..1= 

000061 

DIGITS 

000006R 

025 

D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN13 

000022R 

023 

CH.AND= 

000001 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHANK 

000204R 

023  CLRSI  = 

******  GX 

DIMBLK 

0031 12R 

025 

D.SCON= 

000006 

FD.0SP= 

004000 

CHNOF»N= 

104471 

CMDBUF 

003250R 

025 

DIMPTR 

0031 14R 

025 

D.SDIF= 

000006 

FD.PLC= 

000004 

CHRAND= 

000051 

CMDMAX= 

000010 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN=  000004 

CHRBEL= 

000007 

CNTSIZ 

005130R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHRB»CR= 

000133 

COMBIN 

005076R 

025 

DQMERR= 

104417 

D.TAiCE= 

000002 

FD.RAH= 

000001 

CHRBa= 

000200 

COMCNT 

005126R 

025 

DPTERR= 

104416 

D.TRAN= 

000004 

FD.RAN=  000002 

CHR80X= 

000114 

COMERR= 

104425 

DYDCNT 

003224R 

025  D.UNON=  000006 

FD.PEC= 

000001 

CHRCMA= 

000054 

COMPTR 

0051 22R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RVf1=  000001 

CHRCOL= 

000076 

COMRTN 

0031 56R 

025 

D.BXCT= 

000007 

D.$MIN= 

000000 

FD.SDI= 

000020 

CHRDEL= 

000107 

COMSKP 

005124R 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRDIV= 

000053 

CORPTR 

005120R 

025 

D.BXNL= 

000007 

D.$PLU=  000000 

FD.TTY= 

000004 

CHRDLR= 

000176 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHRDLT= 

000110 

CS.800= 

000010 

D.BXPW= 

000007 

D.$SUB= 

000000 

FF.CHR= 

000005 

CHRDOT= 

000056 

CS.FLO= 

000020 

D.BXRL= 

000007 

D.1C0M= 

000001 

FF.NV  = 

000003 

CHREND= 

******  QX 

CS.IDN= 

000040 

D.CIRC= 

000001 

D.I EXP= 

000002 

FF.P0E= 

000002 

CHREP  = 

000105 

CS.ONE= 

000100 

o,com= 

000001 

D.1R0T= 

000003 

FF. RWD= 

000001 

CHRERR= 

104431 

CTEPS 

0001 5 2R 

025 

D.COMP= 

000001 

EDI CHR 

005063R 

025  FF.RWF= 

000006 
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SYMBOL  TABLE 

FF.SPC=  OOOOOA 

F.EFN  = 

000050 

F.VAL  = 

177776 

L.PRNT= 

000001 

M.NUM  = 

000204 

F HE ADR  00501 2R 

025 

F.END  = 

002000 

F.VBN  = 

000064 

L.PTR  = 

000000 

M.0UTR= 

000012 

FHRET   0050AOR 

025 

F.EnRR= 

000032 

F.VBSZ= 

000060 

L.PTR1= 

000004 

M.PITM= 

000000 

FILNTF=  10A467 

F.ERR  = 

000052 

GNOME 

0031 02R 

025  L.SlfiS= 

000002 

M.PRDS= 

000006 

FIS   =  000000 

F.FACC= 

000043 

HASHC 

0051 36R 

025  MACHIN= 

000106 

M.QQAD= 

000000 

FISCON=  0A6000 

F.FFBY= 

000014 

HASHTB 

0051 40R 

025  MAXCHN= 

000014 

M.QUAD= 

000000 

FIXEND  000256R 

020 

F.FLA6= 

000002 

HSHMSK= 

177601 

MNTAB  = 

*♦••••  GX 

M.RAND= 

000012 

FIXERR  000AA2R 

020 

F.FLB  = 

000100 

HSHSIZ= 

000200 

MNT8ND= 

**••*•  GX 

M.RAVL= 

000000 

FIXLIN  OOOOOORG 

020 

F.FNAM= 

000110 

lASH  = 

**••••  GX 

MNTRTB= 

***«r*«r  GX 

M.RCIP= 

000000 

FIXPTR  003074R 

025 

F.F^B  = 

000102 

I  CHAN 

00505OR 

025  MONRIK 

0031 20R 

025  M.RDCT= 

000011 

FIXSHF  OOOAAAR 

020 

F.FNDF= 

000010 

ILFNAM= 

104464 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

FIX1    000020R 

020 

F.FTYP= 

000116 

ILLCHN= 

104540 

MONLEN 

0031 30R 

025  M.R0LL= 

000000 

FIX2    000266R 

020 

F.FLW  = 

000010 

ILLSW  = 

104565 

MONPTR 

0031 22R 

025  M.SATA= 

000001 

FLAGS   00A76AR 

025 

F.FVER= 

000120 

INDERR= 

104410 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

FLCBUF  003250R 

025 

F.HEAD= 

000006 

INNTMP 

003250R 

025  MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FLINE   005014R 

025 

F.HIBK= 

000004 

INNTM2 

00501 6R 

025  MONVAL 

0031 34R 

025  M.SIGN= 

000000 

FLOEXP  003270R 

025 

F.LBL  = 

000020 

INPTR 

000064R 

025  M.ABS  = 

000000 

M.SIBR= 

000001 

FLONEG  003272R 

025 

F.LINE= 

000012 

INSNAM= 

104462 

M.80L  = 

000200 

M.SYM  = 

000203 

FLSWTB  000222R 

025 

F.LOC  = 

000004 

lOERR  = 

104477 

M.8XAV= 

000007 

M.SYN  = 

000201 

FLTLEN=  000010 

F.LSTC= 

000004 

I.CNT  = 

1 7117 t 

M.BXCR= 

000007 

M.TRAN= 

000012 

FNINSI  0050AAR 

025 

F.LUN  = 

000042 

I. DIM  = 

M1112 

M.BXCT= 

000007 

M.$ABS= 

000000 

FORIGN  000032R 

025 

F.MBCT= 

000054 

I.LEN  = 

000012 

M.BXEX= 

000007 

M.$CEI= 

000000 

FO.APD=  000106 

F.MBC1  = 

000055 

I.OERR= 

000062 

M.BXFX= 

000007 

M.$FLR= 

000000 

FG.MFY=  000002 

F.MBFG= 

000056 

I. OLD  = 

177770 

M.8XI0= 

000007 

M.$IDN= 

000000 

FO.RD  =  000001 

F.MON  = 

000002 

I.PTR  = 

1  lllli, 

M.8XLC= 

000003 

M.$NEG= 

000000 

FO.UPD=  000006 

F.NIL  = 

000001 

I. SIR  = 

177766 

M.BXNC= 

000007 

M.$SIG= 

000000             ; 

FO.WRT=  000016 

F.NRBD= 

000024 

LABERR= 

104406 

M.8XNL= 

000007 

M.1RDT= 

00001 1 

FPMODE  0000A2R 

025 

F.NREC= 

000030 

LABLPT 

005042R 

025  M.8XPP= 

000007 

M.1REV= 

000003 

FPP   =  000000 

F.OPN  = 

000010 

LARGBL 

0031 62R 

025  M.BXPW= 

000007 

M.1SCN= 

000011 

FPPLEN=  000004 

F.OVBS= 

000030 

LAR6CV 

0031 76R 

025  M.BXRL= 

000007 

NAMBUF 

003240R    025 

FREBLK  007400R 

025 

F.PREV= 

OOOOCO 

LARGFL 

0031 60R 

025  M.BXTS= 

000007 

NB.DEV= 

000200 

FUZZ    0001 42R 

025 

F.PRNT= 

100000 

LARGLE 

0031 74R 

025  M.BXUA= 

000007 

NB.DIR= 

000100 

FXPTR1  003076R 

025 

F.PROT= 

010000 

LARGLN 

0031 66R 

025  M.CEI  = 

1 11111 

NB.NAM= 

000004 

F$EVAL=  000100 

F.RACC= 

000016 

LARGPT 

0031 64R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

F$EVI  =  000200 

F.RATT= 

000001 

LAR6SF 

0031 72R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

F$EXEC=  000400 

F.RCfl>1= 

000034 

LARGTY 

0031 70R 

025  M.D0UT= 

000006 

NB.SNM=  000040                  1 

F$FUNC=  001000 

F.RCTL= 

000017 

LARGVA 

003200R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F.ACTL=  000076 

F.READ= 

004000 

LBINC 

005100R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F.ALOC=  000040 

F.REDF= 

000040 

LBUFF 

00331 6R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F.BBFS=  000062 

F.RES  = 

000040 

LBUFLN= 

000621 

M.EXP  = 

000001 

NB.VER= 

000001 

F.BOB  =  000070 

F.RET  = 

\71772 

LCOUNT 

0051 06R 

025  M.FACT= 

000001 

ND.DEV= 

000200 

F.BGBC=  000057 

?.RS1Z= 

000002 

LENERR= 

104412 

M.FIL  = 

000177 

ND.EXT= 

000002 

F.BITS=  177774 

F.RTYP= 

000000 

LENTAB 

000054R 

025  M.FLR  = 

Mini 

ND.NAM=  000004                   1 

F.BKDN=  000026 

F.R2  = 

000014 

LEXPTR 

0031 OOR 

025  M.FMT  = 

000004 

ND.PPN= 

000100 

F.BKDS=  000020 

F.R3  = 

000016 

LFTOP 

005066R 

025  M.GDUP= 

000003 

ND.$EX= 

000000 

F.BKEF=  000050 

F.R4  = 

000020 

LINC 

005102R 

025  M.GDUN= 

000003 

ND.$ES=  000020                  1 

F.BICP1=  000051 

F.SEQN= 

000100 

LINE 

00501 6R 

025  M.6ETI= 

000006 

ND.$M1= 

000000 

F.B*CST=  000024 

F . SPDV= 

000072 

LININC 

005026R 

025  M.IBM  = 

000003 

ND.$N$= 

000040 

F.BK\/B=  000064 

F.SPUN= 

000074 

LISIZE= 

000020 

M.IDN  = 

000000 

ND.$PN=  001400                  1 

F.BR  =  000020 

F.STBK= 

000036 

LITOP 

005072R 

025  M.INSP= 

000006 

NEGSGN 

005063R    025 

F.CHR  =  000075 

F.STK  = 

000022 

LNLNG  = 

104541 

M.IOTA= 

000000 

NINPT1 

003302R    025 

F.CNT6=  000034 

F.STOP= 

000004 

LOCLCT 

005036R 

025  M.LIT  = 

000205 

NINPT2 

003300R    025 

F.CODE=  000010 

F.STP  = 

000001 

LOWCOR 

000002R 

025  M.LN  = 

000001 

NINSTK 

003304R    025 

F.DF^e=  000046 

F . SUSP= 

000002 

LSTERP 

004766R 

025  M.MMD  = 

000010 

NINTMP 

00331  OR    025 

F.DSPT=  000044 

F.TRC  = 

000002 

LWIDTH 

000070R 

025  M.NEG  = 

000000 

NINTYP 

003306R    025 

F.DVr#1=  000134 

F.UN1T= 

000136 

L.8ITS= 

000003 

M.NOT  = 

000000 

N0TAVL= 

104472 

F.EFBK=  000010 

F.URBD= 

000020 

L.CNT  = 

000002 

M.NUB  = 

000006 

N0T0PN= 

104473 

FIXLIN 

MACRO  Ml 113  08-FEB-80 

12:18  PAGE 

48-3 

M  10 
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TABLE 

NPRT1 

004762R 

025  0PTM14 

005026R 

025 

RSX   = 

0001 1 5 

SYNERR= 

104407 

T.DIM  = 

000100 

NULL 

00736AR 

025  ORIGIN 

000030R 

025 

RTOP 

005070R 

025 

SYSERR= 

104402 

T.FUN  = 

010000 

NUMCHN= 

000020 

OUTPTR 

000066R 

025 

RT11  = 

000000 

SYSTAT 

OOOOOOR 

024  T.LIST= 

000400 

NUMDFL 

003230R 

025  0VR0PR= 

000000 

R.BITS= 

000003 

SY.8AD= 

000001 

T.LIT  = 

000020 

NUMEFL 

003233R 

025  OVRTAB= 

*•*♦**  QX 

R.FIX  = 

000001 

SY.BRK= 

100000 

T.MON  = 

000010 

NUMESN 

003236R 

025  OVRTND= 

**«r**«  GX 

R.LCT  = 

000002 

SY.8S  = 

OCOOIO 

T.NIL  = 

000004 

NUMFLG 

003230R 

025  OVSTRK= 

**i^***  GX 

R.LN  = 

000002 

SY.CLR= 

000040 

T.NUM  = 

002000 

NUMLEN 

000062R 

025  PATCH 

007344R 

025 

R.LNUM= 

000010 

SY. ERP= 

000020 

T.0PFN= 

000001 

NUMNEG 

003232R 

025  PRECSN 

000052R 

025 

R.NEXT= 

000006 

SY.NOU= 

000100 

T.OTHR= 

040000 

NUMQFL 

00323AR 

025  RANDAC 

003064R 

025 

R.OFF  = 

000000 

SY.0PN= 

000002 

T.SOP  = 

000002 

NUMRI6 

003231 R 

025  RANDY 

003062R 

025 

R.PREV= 

000004 

SY.PMT= 

001000 

T.SPOP= 

000040 

NunuiD 

003226R 

025 

RANERR= 

104411 

R.PTR  = 

000000 

SY.SRT= 

000400 

T.TMP  = 

000200 

NUMZFL 

003235R 

025  RARGBL 

003204R 

025 

R.SEQ  = 

000003 

SY.SVC= 

000004 

T.VAL  = 

100000 

NYIERR= 

104A32 

RARGCV 

003220R 

025 

R.VAR  = 

000002 

SY.SVL= 

000200 

T.VAR  = 

001000 

N.RISZ= 

000036 

RARGFL 

003202R 

025 

R6 

X000006 

S.AB  = 

1 7777 t 

UPPER  = 

1 77400 

N.DESC= 

000020 

RARGLE 

00321 6R 

025 

R7 

X000007 

S.ASB  = 

100000 

UTNAME 

000344R 

023 

N.DEV  = 

000032 

RARGLN 

00321  OR 

025 

SI 

X000005 

S.8FHD= 

000020 

VALERR= 

104413 

N.DEVN=  00003A 

RARGPT 

003206R 

025 

SI  DAMN= 

104433 

S.BITS= 

000002 

VARBLE 

007400R 

025 

N.DID  = 

00002A 

RARGSF 

00321 4R 

025 

SIFRAM 

00331 4R 

025 

S.CHR1= 

000003 

VARBLS 

OOOOOOR 

025 

N.D\/M1=  000032 

RARGTY 

00321 2R 

025 

SISTAK 

006350R 

025 

S.FATT= 

U00016 

VERNUM 

OOOOOOR 

025 

N.EXT  = 

OOOOU 

RARGVA 

003222R 

025 

SI  TOP 

006346R 

025 

S.FDB  = 

000140 

VRSION= 

000002 

N.FID  = 

000000 

R8ASE 

005074R 

025 

SITP 

0071 44R 

025 

S.FLB  = 

040000 

WIDTH 

000072R 

025 

N.FNAM=  000006 

RCOUNR 

0051 12R 

025 

SIWARN= 

000200 

S.FNAM= 

000006 

WROUND 

000020R 

025 

N.FTYP=  OOOOU 

RCOUNT 

00511  OR 

025 

SIZTAB 

000044R 

025 

S.FNB  = 

000036 

WSDATE 

0001 36R 

025 

N.FVER= 

000016 

REDCNT 

005070R 

025 

SI.8IT= 

177774 

S.FNBW= 

00001 7 

WSFULL= 

104403 

N.NAWE= 

000006 

REDIGN 

005066R 

025 

SI.LEN= 

1 77772 

S.FNTY= 

000004 

USNAME 

000074R 

025 

N.^€XT= 

000022 

REDOFF 

005072R 

025 

SI.RET= 

-{77772 

S.FTYP= 

000002 

WSTIME 

0001 32R 

025 

N.PPN  = 

000024 

REENTR 

003060R 

025 

SI.VAL= 

1 7777^ 

S.LEN  = 

000002 

%^\%     = 

♦*•♦*•  G 

N.STAT= 

000020 

REGTYP= 

000000 

SKPSII 

0051 34R 

025 

S.LINK= 

1 7777  (. 

%^??     = 

••*•••  G 

N.UNIT= 

000034 

RESBIT 

0031 42R 

025 

SPHOLD 

000004R 

024 

S.NFEN=  000020 

$FPPLN= 

*«**i^i^  G 

nRi)FLN=  001000 

RESCVT 

0031 52R 

025 

SPINIT 

000002R 

024 

S.TYPE= 

140000 

$MACHN= 

*••***  G 

OCHAN 

005052R 

025 

RESERR= 

104440 

STKINC= 

000774 

S.VAL  = 

000000 

$RSTS  = 

•♦*•*•  G 

OMOOE 

000402R 

023  RESLEN 

0031 50R 

025 

STOP  = 

104420 

TKDIMS 

005072R 

025  $RSX  = 

*♦••*•  G 

GPTWPO 

005066R 

025  RESPTR 

0031 40R 

025 

SUBCNT 

0031 04R 

025 

TKFRAW 

005066R 

025  SRTIl  = 

*••••*  G 

0PTMP1 

005070R 

025  RESSFT 

0031 46R 

025 

SIRDCT 

0031 06R 

025 

TKLEFT 

005070R 

025  .B00LE= 

000002 

0PTI1P2 

005072R 

025  RESTYP 

0031 44R 

025 

SUBPTR 

00311  OR 

025 

TMODE 

000403R 

023  .CHARA= 

000000 

aPT«P3 

005074R 

025  RESULT 

0031 36R 

025 

SYMB1 

005344R 

025 

TMPTA6= 

000166 

.DEF.  = 

000002 

CPTMPA 

005076R 

025  RESVAL 

0031 54R 

025 

SYMF 

005340R 

025 

TRNTAB= 

♦•*•*•  GX 

.FLQAT= 

000006 

0PTMP5 

005100R 

025  RINC 

0051 04R 

025 

SYMPT1 

005346R 

025 

TTYBUF 

004140R 

025  .FSRCB= 

***l^«r1^  G 

0PTMP6 

0051 02R 

025  RLTBAS 

005066R 

025 

SYMTAB 

005352R 

025 

TTYLEN= 

000622 

.INTEG= 

000004 

0PTMP7 

0051 04R 

025  ROT INC 

005070R 

025 

SYMTBF= 

1 04404 

TURKEY= 

104436 

.MOLUN 

000404R 

023 

0PTMP8 

0051 06R 

025  ROUND 

00001  OR 

025 

SYMTOP 

005350R 

025 

TYPE  = 

000166 

...G8L= 

000000 

0PTMP9 

00511 OR 

025 

ROVER 

00331 2R 

025 

SYMTP 

006272R 

025 

T.BOL  = 

020000 

...TPC= 

000020 

OPTWIO 

0051 12R 

025 

RSTS  = 

000000 

SYMJRN^ 

000054 

T.CON  = 

004000 

■  Aob« 

000000 
000000 

000 
001 

TABLES 

000000 

002 

(10NTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYDBTB 

000000 

007 

COMIC 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 
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TABLE 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

000A66 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEF$0 

000A06 

023 

DEF$1 

000006 

02A 

DEF$2 

007A00 

025 

ERRORS 

DETECTED: 

0 
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DEFINITIONS 

OPERATOR  OVERLAYS 

5- 

268 

DEFINITIONS 

REGISTERS 

6- 

331 

DEFINITIONS 

MEMORY  ORGANIZATION 

7- 

377 

DEFINITIONS 

ORDERING  PSECTS 

8- 

A26 

DEFINITIONS 

SI  PARSE  FRAMES 

9- 

A7A 

DEFINITIONS 

TOKEN  DESCRIPTION  BITS 

10- 

515 

DEFINITIONS 

SI  EXECUTION  FRAMES 

11- 

580 

DEFINITIONS 

SPECIAL  PARSE  CHARACTERS 

12- 

607 

DEFINITIONS 

CHRTAB  BITS 

12- 

62A 

DEFINITIONS 

SYSTEM  STATUS  BITS 

13- 

6A0 

DEFINITION*; 

F-FRAMES 

1A- 

72A 

DEFINITIONS 

FUNCTION  LINE  BLOCKS 

16- 

807 

DEFINITIONS 

ARRAY  STORAGE  BLOCK 

17- 

869 

DEFINITIONS 

LIST  STORAGE  BLOCK 

18- 

911 

DEFINITIONS 

INDEXING  STACK  FRAME 

19- 

9A0 

DEFINITIONS 

SYMBOL  TABLE  ENTRY 

20- 

969 

DEFINITIONS 

CHANNEL  BLOCK 

22- 

1085 

DEFINITIONS 

RSX  DATA 

23- 

1110 

DEFINITIONS 

NAME  BLOCKS 

33- 

1612 

OEflNlJiONS 

MACROS 

35- 

1905 

DEFINITIONS 

APL  CHARACTERS 

36- 

1967 

DEFINITIONS 

ERRORS 

AA- 

A 

FN 

ENTER  FUNCTION  DEF.  MODE  COVERLAY] 

D  11 

FN     MACRO  Ml 11 3  08-FEB-80  12:20 
TABLE  OF  CON"rENTb 

47-  118  NEXTLN  DEFINE  NEXT  FUNCTION  LINE 

49-  225  FNEDIT  HANDLE  FUNCTION  EDITING 

56-  659  FNCPEN  OPEN  FUNCTION  FOR  EDITING 

57-  716  EOLCHK  CHECK  FOR  DEL  AT  LINE  END 


FN 
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1 

000000 

2 

000000 

3 

0001 1 5 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
FIS 
FPP 

II  II  II 
ooo 

FPPLEN 

=  A 

DEBUG 

=  0 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

•NO  EIS 
;N0  FIS 
;N0  FPP 

; SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 


F   11 
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APLDEF 

1  .S8TTL  APLDEF 

2  .IDENT  \V02.03\ 


TTT 
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DEFINITIONS     ERRORS 

2513  .LIST  SEQ,SRC,LOC,BIN,BEX,MEB 


FN     MACRO 
DEFINITIONS 


Ml  113  08-FEB-80  12:20 
ERRORS 


PAGE  4A 


.TITLE  FN 

.  I DENT  \V02.03\ 

.S8TTL  FN 


H  11 


ENTER  FUNCTION  DEF.  MODE  [OVERLAY: 


FUNCTIONAL  DESCRIPTION: 

This  routine  is  branched  to  when  'EXEC*  discovers  a  del 
at  the  beginning  of  a  line.  *fN*   must  then  decide  if 
the  user  wants  to  open  a  previously  defined  function,  or 
if  he  wants  to  define  a  new  function.  In  the  latter  case, 
a  function  header  must  be  created,  the  syntax  of  the 
function  header  must  be  checked,  and  local  variables  must 
be  identified  and  placed  in  the  function  header.   'FNHEAD' 
performs  most  of  these  operations.  During  this  process, 
a  temporary  val  frame  is  placed  on  the  SI   stack  and  later 
removed  so  that  an  error  during  function  definition  will 
deallocate  the  function  header  block. 

Once  the  function  header  has  been  found  or  created  for  the 
function,  a  pointer  to  the  header  is  placed  in  'FHEADR*  and 
a  pointer  to  the  current  line  is  placed  in  'FLINE*.  'LININC 
is  the  current  line  increment  (initially  1)  for  new  function 
lines. 

When  all  of  this  is  completed,  control  is  passed  to  the  line 
editing  routines  CNEXTLN'  and  'FNEDIT')  which  then  define 
and  edit  function  lines  until  a  closing  del  is  found. 


INPUTS: 

RO  - 
R1  - 


POINTS  TO  FIRST  CHAR  PRODUCED  BY  'FIXLIN' 
COUNT  OF  CHARS  PRODUCED  BY  'FIXLIN' 


.PSECT  CODE 
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I  11 

FN 

ENTER  FUNCTION 

DEF.  MODE  [overlay: 

3A  000000 

042737 

010000 

004764'  FN:: 

BIC 

#F.PROT, FLAGS  , 

; CLEAR  THE  '1.0CKED"  INDICATOR 

35  000006 

PUSH 

<R0,R1> 

;SAVE  LINE  POINTER  AND  COUNT 

36  000012 

010004 

MOV 

R0,R4 

;COPy   POINTER 

37  000014 

010103 

MOV 

R1,R3 

;COPY  COUNT 

38  000016 

1$: 

CALL 

GETNB 

;6ET  NON-BLANK  CHAR 

39  000022 

002421 

BLT 

4$ 

;NONE  LEFT 

40  000024 

122702 

000107 

CMP8 

*CHRDEL,R2 

;N0,  IS  IT  A  DEL? 

41  000030 

001407 

BEQ 

3$ 

;IT  SHOULD  BE 

42  000032 

122702 

000271 

CMP8 

#CHRPDL,R2 

;HOW  ABOUT  PROTECT  DELS? 

43  000036 

001401 

BEQ 

2$ 

; THEY 'RE  ALSO  OK 

44  000040 

104402 

SYSERR 

;N0  OPENING  DEL?  HOW  DID  WE  GET  HERE? 

45  000042 

052737 

010000 

004764'  2$: 

BIS 

*F.PROT, FLAGS   ! 

; DON'T  FORGET  WHEN  YOU  CLOSE  DEF 

46  000050 

3$: 

CALL 

GETNB 

;GET  NON-BLANK  CHAR 

47  000054 

002404 

BLT 

^^            u 

:NONE  LEFT 

48  000056 

132762 

000010 

OOOOOOG 

BITS 

/irC.IDEN,CHRTAB(R^);IS  IT  AN  IDENTIFIER? 

49  000064 

001001 

BNE 

5$ 

;YES,  PERHAPS   FUNCTION'S  NAME?? 

50  000066 

104405 

4$: 

DEFERR 

;ELSE  DEFN  ERROR 

51  000070 

5$: 

CALL 

SYMBOL 

;GET  FUNCTION'S  NAME 

52  000074 

6$: 

CALL 

GETNB2 

;GET  NON-BLANK  CHAR 

53  000100 

54 

55 

002772 

.  X. 

BLT 

4$ 

;NONE  LEFT,  ERROR 

t 
i 

;  NOW 

WE  HAVE 

(POSSIBLY)  THE  NAME  OF  THE  FUNCTION  TO  EDIT. 

56 

t 

;  IT 

IS  STILL 

^JECESSARY  TO  CHECK 

IF  THIS  IS  A  FUNCTION  EDIT 

57 
58 
59  000102 

;  OR 

A  FUNCTION  DEFINITION. 

005037 

005044 • 

7$: 

CLR 

FNINSI 

;ASSUME  WE  CAN  EDIT  FUNCTION 

60  000106 

011000 

MOV 

aRO,RO 

;THIS  IS  FUNCTION  EDIT,  GET  POINTER 

61  000110 

001404 

BEQ 

8$ 

^NOTHING,  IS  NEW 

62  000112 

032760 

040000 

000002 

BIT 

/(fS.FLB,R.LN(RO)  . 

:DOES  NAME  POINT  TO  FUNCTION  HEADER?? 

63  000120 

64 

65  000122 

001460 

BEQ 

FND 

;N0,  CAN'T  EDIT  A  VARIABLE!!!! 

013701 

003314* 

8$: 

MOV 

SIFRAM,R1 

;POINT  TO  TOP  FRAME 

66  000126 

67 

68  000130 

000411 

BR 

10$ 

;AND  START  SEARCH 

032761 

001000 

000002  9$: 

BIT 

/)fF$FUNC,F.FLAG(Rl)      :F-FRAME?                                     1 

69  000136 

001405 

BEQ 

10$ 

;NOPE 

70  000140 

020061 

000010 

CMP 

R0,F.FUN(R1) 

as   IT  THE  FUNCTION  WE  WANT  TO  EDIT? 

71  000144 

001002 

BNE 

10$ 

:N0 

72   000146 

005237 

005044 • 

INC 

FNINSI 

; INCREMENT  COUNT  OF  OCCURANCES 

73  000152 

011101 

10$: 

MOV 

aRKRI 

;POINT  TO  NEXT  FRAME 

74  000154 

75 

76  000156 

001365 

BNE 

9$ 

;AND  KEEP  LOOKING  If   MORE  FRAMES 

122702 

000073 

CMP8 

*CHRLBR,R2 

;'C'? 

77   000162 

001010 

BNE 

11$ 

;N0,  THEN  THIS  IS  A  FUNCTION  DEF! 

78  000164 

005700 

TST 

n 

;ANYTHING  THERE? 

n   000166 

001 737 

BEQ 

;N0,  YOU  CAN'T  DO  THIS 

80  000170 

CALL 

FNOPEN 

;OPEN  THE  FUNCTION 

81  000174 

062706 

000004 

ADD 

4f4,SP 

; CLEAN  UP  POINTERS  ON  STACK 

^2   000200 

0001 37 

000642' 

JMP 

FNEDIT 

;AND  CALL  FUNCTION  EDITOR 

FN 
FN 
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J  11 


8A 
85 
86 
87 
88 

89  000204 

90  000212 

91  000216 

92  000220 

93  000224 

94  000226 

95  000234 

96  000242 

97  000246 

98  000250 

99  000254 

100  000256 

101  000260 

102  000262 
103 

104 
105 
106 

107  000266 

108  000272 

109  000276 
110 

111 
112 

113  000300 

114  000304 

115  000310 

116  000314 


THE  USER  HAS  NOT  SPECIFIED  A  LINE  TO  EDIT,  SO  WE  HAVE 
TO  DETERMINE  If   HE  IS  DEFINING  A  FUNCTION  OR  JUST  WANTS 
TO  OPEN  A  FUNCTION  AT  ITS  LAST  LINE. 


042737 
122702 
001406 
122702 
001011 
052737 
052737 

002403 
122702 
001002 
005700 
001 007 


000004  004764' 
000107 

000271 

010000  004764' 
000004  004764' 


000015 


11$; 


12$; 
13$; 

14$; 

15$; 

FND; 


BIC 

CMPB 

BEQ 

CMPB 

BNE 

BIS 

BIS 

CALL 

BLT 

CMPB 

BNE 

TST 

BNE 

POP 


/ifF.  STOP,  FLAGS 

#CHRDEL,R2 

12$ 

*CHRPDL,R2 

14$ 

*F.PROT, FLAGS 

/)fF.  STOP,  FLAGS 

GETNB 

15$ 

/(fCHR.CR,R2 

FND 

RO 

FNG 

<R1 ,R0> 


CLEAR  STOP  FLAG  (DEL  NOT  FOUND  YET) 

DEL? 

YES,  OK 

PERHAPS  A  PRO.  DEL? 

NOPE 

PROTECT  ME,  PLEASE! 

YES,  SET  DEFINITION  MODE  EXIT  FLAG 

GET  NON-BLANK  CHAR 

NONE  LEFT 

END  OF  LINE? 

NO,  SO  HE  IS  DEFINING  NEW  FUNCTION 

Defim'nq  new  nUadic  function? 

He  really  is  opening  old  function 

GET  BACK  INPUT  POINTERS 


USER  IS  DEF 
IN  THE  NEW 


INING  A  NEW  FUNCTION.  ANALYZE  HEADER,  FILL 
HEADER  BLOCK,  AND  START  TO  DEFINE  THE  FUNCTION. 


FNRDF : 


104405 


CALL 
CALL 
DEF ERR 


CKFNSI 
FNHEAD 


013705 
005065 
016505 


003314' 

000004 

000006 


;  USER  IS  OPENING  OLD  FUNCTION 

FNG:    CALL  FNOPEN 

MOV  SIFRAM,SI 

CLR  F.LSTC(SI) 

MOV  F.HEAD(SI),SI 


:1s   it  on  the  SI? 
;ANALYZE  FUNCTION  HEADER 
; Definition  error 


Open  the  Function  for  Editing 
POINT  TO  E-FRAME 

THERE  IS  NO  LONGER  A  C0DESTRIN6 
POINT  TO  WHERE  CODESTRING  GOES 
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NEXTLN 

DEFINE 

NEXT  FUNCTION  LINE 

118 

1 

.S8TTL 

NEXTLN 

DEFINE  NEXT  FUNCTION  LINE                                     1 

119 

120 

;+  + 

121 

;  FUNCTIONAL  DESCRIPTION: 

122 

•NEXTLN 

'  prompts  the  user,  then  accepts  a  line  of  input. 

123 

The  line  is  checked  for  < 

s  label  and  then  LEX  is  called 

124 

to  convert  the  line  into 

a  codestring.  The  codestring. 

125 

line  number,  and  other  junk  is  then  copied  into  a                           1 

126 

function  line  block  whici 

1  is  then  linked  into  the  circular 

127 

list  of 

finction  lines. 

A  duplicate  line  is  deleted  if 

128 

necessary. 

129 

'LINE'  should  contain  the  last  line  it  defined,  and                       1 

130 

'LININC 

'  is  the  increment  to  be  added  to  'LINE'  to  get  the 

131 

number 

of  the  new  line  to  be  defined. 

132 

If 

a  closing  del  ""'s  ' 

found,  'FNEND'  is  called  so  that 

133 

the  function  can  be  cleaned  up  and  closed.                                 1 

13A 

■  ~ 

135  000320 

.PSECT 

CODE 

136 

.ENABL 

LS8 

137 

138  000320 

NEXTLN: 

• 
• 

UO  000320 

LDF 

LINE,ACO 

;GET  CURRENT  LINE  ft 

K1  000330 

ADDF 

LININCACO 

;ADD  LINE  INCREMENT 

1A2  000340 

STF 

ACO,LINE 

;  STORE  NEW  LINE  NUMBER 

147  000350 

< 

V 

5AMELN: 

• 
• 

148  000350 

032737 

000400 

004764' 

BIT 

/fFSEXEC,  FLAGS   . 

;DEFININ6  FUNCTION  BY  EXECUTE  OP? 

149  000356 

001024 

BNE 

SAMLN1 

;YES,  SO  NO  PROMPT! 

150  000360 

022737 

000256' 

005050' 

CMP 

/(fCHANOO,ICHAN   . 

; INPUT  FROM  TTY? 

151  000366 

001020 

BNE 

SAMLN1 

;N0,  SO  NO  PROMPT 

152  000370 

012700 

000073 

MOV 

#CHRLBR,RO 

;6ET  A  LEFT  BRACKET 

153  000374 

CALL 

OUTCHR 

; PRINT  IT 

154  000400 

010537 

003274 • 

MOV 

SI,ALLINT 

; PRINT  NUMBER  WITH  CLOSE  PACKING 

156  000404 

LDF 

LINE,AC1 

;PREVENT  'TWJDOM"  LINE  NOS  FOR  BLANK  LINES 

161  000414 

CALL 

FLOUT 

;PRINT  CURRENT  LINE  NUMBER 

162  000420 

QPRINT 

R8RTXT 

: PRINT  'J 

000420 

012701 

OOOOOOG 

MOV  *R8RTXT,R1 

;POINT  TO  RBRTXT 

163  000430 

< 

5AMLN1 : 

• 
• 

164  000430 

CALL 

GETLIN 

;GET  A  LINE  OF  INPUT 

165  000434 

032737 

000400 

004764' 

BIT 

/(fFSEXEC, FLAGS   . 

; EXECUTE  OP  CALL  US? 

166  000442 

001002 

BNE 

1$ 

;YES,  SO  LINE  IS  ALREADY  FIXED 

167  000444 

CALL 

FIXLIN 

\flX   IT  UP 

168  000450 

010004 

4 

1$: 

MOV 

R0,R4 

;COPY  CHARACTER  POINTER 

169  000452 

010103 

MOV 

R1,R3 

;COPY  CHARACTER  COUNT 

170  000454 

2$: 

CALL 

GETNB 

;GET  NON-BLANK  CHAR 

171  000460 

002467 

BLT 

NEXTER 

•NONE  LEFT,  ERROR 

172  000462 

< 

5AMLN2: 

• 
• 

173  000462 

022702 

000073 

CMP 

#CHRLBR,R2 

■LEFT  BRACKET? 

174  000466 

001465 

BEQ 

FNEDIT 

•YES,  CALL  THE  LINE  EDITOR 

L  11 
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NEXTLN 

DEFINE 

NEXT  FUNCTION  LINE 

176 

;  + 

177 

;  WE  NOW  KNOW 

THAT  THE  USER  DOESN'T  WANT  TO  EDIT  THE  LINE. 

178 

;  (CHANGE  THE 

LINE  NUMBER,  LIST  A  LINE,  ETC.)  NOW  CHECK  IF 

179 

;  HE  WANTS  TO 

DELETE  THE  LINE  OR  If   HE  JUST  TYPED  A  STANDARD 

180 

;  FUNCTION  LINE.                                                              1 

181 

J 

•  - 

1 

182  000470 

022702 

000107         i$: 

CMP 

/fCHRDEL,R2 

;IS  CHAR  A  DEL? 

183  000474 

001406 

BEQ 

4$ 

;YES,  IS  GOOD 

184  000476 

122702 

000271 

CMPB 

4fCHRPDL,R2 

;A  PROTECT  DEL? 

185  000502 

001015 

BNE 

6$ 

;NOPE 

186  000504 

052737 

010000  004764' 

BIS 

#F.PROT, FLAGS   , 

;SET  FOR  LOCK 

187  000512 

4$: 

CALL 

GETNB 

;GET  NON-BLANK  CHAR 

188  000516 

002403 

BLT 

5$ 

:NONE  LEFT 

189  000520 

122702 

00001 5 

CMPB 

*CHR.CR,R2 

;CR  AFTER  DEL? 

190  000524 

001045 

BNE 

NEXTER 

;N0,  ERROR 

191  000526 

5$: 

CALL 

FNEND 

; Finish  up  the  the  function 

192  000532 

000137 

OOOOOOG 

JMP 

EXEC 

:HE  WANTS  TO  EXIT  FROM  FN  DEFINITION 

193 

1 

194  000536 

122702 

000015         6$: 

CMPB 

#CHR.CR,R2 

;NULL  LINE? 

195  000542 

001702 

BEQ 

SAMELN 

;  YES,  TRY  AGAIN 

1%  000544 

005037 

005042' 

CLR 

LABLPT 

;WE  HAVE  NO  LABEL  YET 

198  000550 

TSTF 

LINE 

;1S   THIS  THE  FN  HEADER? 

199  000560 

CFCC 

;6ET  CONDITIONS 

205  000564 

001012 

BNE 

7$          ! 

;GOOD!  NOT  THE  HEADER 

206  000566 

052737 

000040  004764' 

BIS 

#F.REDF, FLAGS 

;BLECH... TRYING  TO  REDEFINE  THE  FN  HEADER 

207  000574 

PUSH 

FHEADR 

;PUSH  PTR  TO  FN  HEADER 

;^08  000600 

010400 

MOV 

R4,R0 

;COPY  POINTERS 

209  000602 

010301 

MOV 

R3,R1 

;FOR  LEX 

210  000604 

005300 

DEC 

RO 

;BUT  BACK  UP 

211  000606 

005201 

INC 

R1 

;ONE  CHAR  ('CAUSE  WE  ALREAD  READ  IT!) 

212  000610 

000626 

BR 

FNRDF 

:Redefininq  the  Header! 

213 

214  000612 

7$: 

CALL 

FNLINE         ;6et  a  function  line 

215  000616 

104405 

DEFERR 

.-Definition  Error 

216  000620 

032737 

002004  004764' 

BIT 

/ifF.STOP+F. END, FLAGS     ;HIT  A  DEL  OR  END  OF  EXECUTION  STRING? 

217  000626 

001634 

BEQ 

NEXTLN 

;No,  go  get  another  Line 

218  000630 

8$: 

CALL 

FNEND 

;Finish  up  the  function 
:ELSE  EXIT  FROM  FN  DEF  MODE 

219  000634 

000137 

OOOOOOG 

JMP 

EXEC 

220 

221 

.DSABL 

LS8 

222 

223   000640 

1 04407 

NEXTER: 

SYNERR 

;ERR0R  IN  FUNCTION  LINE  DEFINITION 

M  11 
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FNEDIT 

HANDLE 

FUNCTION 

EDITING 

225 

.S8TTL 

FNEDIT 

HANDLE  FUNCTION  EDITING 

226 

227 

;+-f 

228 

;  FUNCTIONAL  DESCRIPTION: 

229 

•FNEDIT 

•  IS  CALLED  WHEN  A  LEFT  BRACKET  IS  FOUND  AT  THE 

230 

FRONT  OF  A  LINE  OF  A  FUNCTION  DEFINITION.   THIS  COULD 

231 

MEAN  SEVERAL  THINGS:   LIST  THE  FUNCTION,  EDIT  A  LINE, 

232 

OR  JUST 

CHANGE  THE  LINE  f 

yHJMBER  SEQUENCE  AND  INCREMENT. 

233 

THIS  ROUTINE  ALSO  DETECTS  A  DEL  AT  THE  END  OF  A  LINE 

234 
235 
236 

AND  CALLS  'FNEND'  IF  NECESSARY. 

:  INPUTS: 

237 

R2  - 

CURRENT  CHAR  (LEFT  BRACKET) 

238 

R3  - 

COUNT  OF  CHARS  LEFT  IN  LINE 

239 

R4  - 

POINTER  TO  NEXT  . 

INPUT  CHAR 

240 

( 

.— 

241  000642 

.PSECT 

CODE 

242 

243 
244 
245  000642 

.ENABL 

LSB 

;3  CHEERS  FOR  LOCAL  SYMBOLS!?! 

FNEDIT: 

CALL 

CETNB 

;GET  NON-BLANK  CHAR 

246  000646 

002415 

BLT 

15 

;NONE  LEFT 

247  00065C 

132762 

000020 

0000006 

BIT8 

#C.NUM,CHRTAB(R2l 

)  .-NUMERIC? 

248  000656 

001012 

BNE 

12$ 

;YES,  GO  GET  LINE  NUMBER 

249  000660 

122702 

000056 

CMPB 

/JfCHRD0T,R2 

:DOT 

250  000664 

001407 

BEQ 

12$ 

:YES,  IT  IS  NUMERIC! 

251  000666 

122702 

000114 

CMP8 

*CHRB0X,R2 

;QUAD? 

252  000672 

001406 

BEQ 

2$ 

;YES,  HE  WANTS  TO  LIST  SOMETHING 

253  000674 

122702 

000110 

CMPB 

#CHRDLT,R2 

; DELTA? 

254  000700 

255 

256  000702 

001517 

BEQ 

FNEDDL 

;Yes,  Line  delete 

104407 

1$: 

SYNERR 

;ELSE  BAD  EDIT  SYNTAX 

257  000704 

258 

259 

000137 

001306' 

12$: 

JMP 

FNEDT1         ; 

:So  go  get  the  line  number 

;-► 

260 
261 

4 
1 

:  USER 

f 

WANTS  TO 

LIST  ALL  OR  PART 

OF  THE  FUNCTION. 

262 

263  000710 

2$: 

CALL 

GETNB 

;GET  NON-BLANK  CHAR 

264  000714 

002772 

BLT 

1$ 

;NONE  LEFT 

265  000716 

132762 

000020 

OOOOOOG 

BITS 

#C.NUM,CHRTAB(R2; 

>;IS  CHAR  NUMERIC? 

266  000724 

001003 

BNE 

8$ 

;YES,  GET  NUMBER 

267  000726 

122702 

000056 

CMPB 

*CHRD0T,R2 

;IS  IT  A  DOT? 

268  000732 

001072 

BNE 

10$ 

;N0,  SO  CAN'T  BE  NUMERIC 

269  000734 

8$: 

CALL 

NUMBER 

;GET  LINE  AT  WHICH  TO  START 

270  000740 

3$: 

CALL 

GETNB2 

;GET  NON-BLANK  CHAR 

271  000744 

002756 

BLT 

1$ 

;fJONE  LEFT,  ERROR 

272  OOOTi^t 

^22702 

000047 

4$: 

CMPB 

#CHRRBR,R2 

; NUMBER  END  WITH  ']'? 

271   000752 

001353 

BNE 

1$ 

;N0,  BAD  EDIT  SYNTAX 

274  000754 

CALL 

EOLCHK 

;YES,  CLEAN  UP  END  OF  LINE 

275  000760 

013700 

005012' 

MOV 

FHEADR,RO 

;POINT  TO  FN  HEADER 

276  000764 

010001 

MOV 

R0,R1 

;COPY  POINTER 

277   000766 

016101 

000006 

5$: 

MOV 

R.NEXT(R1),R1 

;POINT  TO  NEXT  LINE  BLOCK 

278  000772 

020001 

CMP 

R0,R1 

;DID  WE  GO  ALL  THE  WAY  AROUND? 

279  00077 i, 

001411 

BEQ 

7$ 

;YES,  LINE  NOT  FOUND  (TOO  BIG!) 

2S0  000776 

CMPF 

R.LNU«(R1),AC0  . 

; CHECK  LINE  NUMBERS 

281  001006 

CFCC 

;CHECK  FEDERAL  COMMUNICATIONS  COMMISSION 
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N  11 


282  001012 

283 

28A  001 01 A 

285  001020 

286  001024 

287  001030 

289  001034 

290  001044 

291  001054 

292  001064 

299  001074 

300  001102 

301  001104 

302  001110 

303  001114 
304 

305 
306 
307 
308 

309  001120 

310  001124 

311  001126 

312  001132 

313  001136 
314 

315 


002765 


01 3700 
016001 
010137 


BLT 


005012' 

000004 

005014' 


032737 
001002 
000137 


000004  004764' 
000320 ' 


0001 37  OOOOOOG 


5$ 


6$: 

CALL 

FNLIST 

7$; 

MOV 

FHEADR,RO 

MOV 

R.PREV(R0),R1 

MOV 

R1,FLINE 

LDF 

R.LNUM(R1),AC0 

STF 

AC0,LINE 

LDF 

Xf^F1.0,AC0 

STF 

AC0,LININC 

FNEDTX: 

BIT 

#F. STOP, FLAGS 

BNE 

9$ 

JMP 

NEXTLN 

9$: 

CALL 

FNEN"^ 

JMP 

EXEC 

;OON'T  START  LISTING  YET 


LIST  THE  REST  OF  THE  FUNCTION 

POINT  TO  FN  HEADER 

POINT  TO  LAST  LINE 

SAVE  POINTER  TO  LINE 

GET  LAST  LINE  » 

MAKE  IT  CURENT  LINE  * 

GET  A  1.0 

MAKE  IT  LINE  INCREMENT 

FIND  CLOSING  DEL  ANYWHERE? 

YES,  STOP 

ELSE  GO  GET  NEXT  LINE  NUMBER 

Finish  up  the  function 

EXIT  FN  DEF  MODE 


122702 
001 266 

013701 
000726 


000047 
005012' 


LIST  ALL  OF  '•HE  FUNCTION. 


10$: 


CMF>8 

#CHRRBR,R2 

BNE 

1$ 

CALL 

EOLCHK 

MOV 

FHEADR,R1 

BR 

6$ 

.DSA8L 

LS6 

MAKE  SURE  THERE  IS  A  CLOSING  RiGHT  BRACKET 

THERE  ISN'T,  SYNTAX  ERROR 

CLEAN  UP  END  OF  LINE 

POINT  TO  FN  HEADER 

LIST  THE  FUNCTION  AND  EXIT 

DISABLE  THE  VETERANS 


FN 
FNEDIT 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

334 

335 

340 

341 

343 

344 

345 

346 

347 

357 

358 

359 
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TIT 


001140 

001144  002457 

001146  132762 

001154  001003 

001156  122702 

001162  001344 

001164 

001170 

001 1 74  002773 

001176  122702 

001202  001040 

001204 

001210 

001220 

001224  001723 

001226 

001232 

001242 

001252 

001262 

001272 

001 302  000674 

001304  104407 


A  DELTA  HAS  BEEN  FOUND  ...  (DELETE  THIS  I  iNE) 


000020  OOOOOOG 
000056 


000047 


FNEDDL: 

CALL 

GETNB 

;6ET  NDN-BLAiJK  CiiAR 

BLT 

^5 

;N0NE  LEFT 

BITS 

*C.NUM,CHRTAB(R2l 

);IS   CHAR  NUMERIC? 

BNE 

IS 

;YES,  GET  NUMBER 

CMPB 

#CHRD0T,R2 

; PERIOD? 

BNE 

FNEDTX 

;N0,  SO  EOL 

1$: 

CALL 

NUMBER 

; DIGITS,  ANYONE? 

2$: 

CALL 

6ETNB2 

;GET  NDN-€LANK  CHAR 

BLT 

1$ 

;NONE  LEFT,  ERROR 

3$: 

CMFB 

*CHRRBR,R2 

; ENDING  '3*  ? 

BNE 

4$ 

lURONGO  ! 

CALL 

EOLCHK 

; CLEAR  UP  EOL 

STF 

ACO,LINE 

',IS   IT  ZERO? 

CFCC 

jLOAD  FPP  COND  CODE 

BEQ 

FNEDTX         \ 

;YOU  CANNA  DELETE  LINE  0 

CALL 

LINKIL 

;DIE,  LINE  1 

LDF 

LINE,ACO 

;Get  the  current  line  * 

SUBF 

#^F1.0,AC0 

;POINT  TO  THE  DELETED  LINE 

STF 

ACCLINE 

;AND  THE  NEXT  LINE  IS  ... 

LDF 

/(f^F1.0,AC1 

;GET  A  ONE 

STF 

ACI^LININC 

;   FOR  THE  INCREMENT 

BR 

FNEDTX 

;AND  TRY  AGAIN 

4$: 

SYNERR 

< 

;  SYNTAX  ERROR 

-  1 


C 

12 
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361 

;-f 

362 

;  A  NUMBER  HAS 

BEEN  FOUND... 

(IT': 

5  A  LINE  NUMBER)..  DOES  USER 

363 

;  WANT 

TO  DEFINE  A  DIFFERENT 

LINE  OR  DOES  HE  WANT  SOMETHING                            1 

36A 

;  SPECIAL?? 

365 

366  001306 

F 

■NEDTl . 

CALL 

NUMBER 

;GET  THE  LINE  NUMBER 

368  001312 

STF 

ACO^LINE 

; CHECK  LINE  NUMBER 

369  001322 

CFCC 

; CHECK  NUMBER 

37A  001326 

100447 

BMI 

6$ 

;NEGATIVE  LINE  NUMBERS  NOT  ALLOWED 

376  001330 

LDF 

#^F1.0,AC1 

;GET  NEW  LINE  INCREMENT 

381  001 3A0 

105737 

003230' 

TSTB 

NUMDFL 

;DID  HE  USE  A  DECIMAL  POINT? 

382  001 3AA 

001411 

BEQ 

2$ 

;NOPE 

383  001 3A6 

1 1 3700 

003231 ' 

MOVB 

NUMRIG,RO 

;6ET  COUNT  OF  DECIMAL  DIGITS 

38A  001352 

001406 

BEQ 

2$ 

;NONE,  ALL  DONE 

386  001 35A 

* 

1$: 

DIVF 

*^F10.0,AC1 

:yES,   FIND  NEW  LINE  INCREMENT 

387  001 36A 

SDR 

R0J$ 

;FIND  POWER  OF  10  HE  Sh^^CIFIED 

388  001370 

2$: 

STF 

ACULININC 

;AND  SAVE  NEW  LINE  INCRE;  TNT 

395  001400 

CALL 

GETNB2 

;GET  N0N-8LANK  CHAR 

396  001 40A 

002420 

BLT 

6$ 

;N0NE  LEFT,  ERROR 

397  001406 

122702 

000047 

CMP8 

*CHRRBR,R2 

;RI6HT  BRACKET? 

398  001412 

001012 

BNE 

4$ 

;N0(?) 

399  001414 

CALL 

GETNB 

;GET  NON-BLANK  CHAR 

400  001420 

002412 

BLT 

6$ 

;NONE  LEFT,  ERROR 

401  001422 

122702 

000015 

CMP8 

*CHR.CR,R2 

JUST  A  NEW  LINE  NUMBER? 

402  001426 

001002 

BNE 

3$ 

;N0 

403  001430 

404 

405  001434 

000137 

000350' 

JMP 

SAMELN 

;YES,  LET  USER  CHANGE  THAT  LINE 

000137 

000462'       : 

5$: 

JMP 

SAMLN2 

;AND  DEFINE  THE  NEW  LINE 

406 

■  + 

407 

•  USER 

WANTS  TC 

I  SOME  SPECIAL 

EDITING... (LINE  EDITING  OR                                1 

408 

;  LIST 

AND  CHANGE  LINE) 

409 

•  - 

410  001440 

122702 

000114        / 

i$: 

CMP8 

#CHRB0X,R2 

;QUAD? 

411  001444 

001401 

BEQ 

7$ 

;YES,  GOOD 

412  001446 

104407 

i 

>$: 

SYNERR 

;N0,  THEN  BAD  LINE  SYNTAX 

413  001450 

1 

''S: 

CALL 

GETNB 

;GET  NON-BLANK  CHAR 

414  001454 

002774 

BLT 

6$ 

;N0NE  LEFT,  ERROR 

415  001456 

013700 

005012' 

MOV 

FHEADR.RO 

;POINT  TO  FN  HEADER 

416  001462 

LDF 

AC0,AC2 

;Copy  the  line  value 
;COPY  POINTER 

417  001470 

010001 

MOV 

R0,R1 

418  001472 

i 

3$: 

LDF 

R.LNUM(R1),AC1  ] 

;Get  the  line  M 

419  001502 

CALL 

CMP.F 

; COMPARE  LINE  »   W/  ACO 

420  001506 

001406 

BEQ 

9$ 

;THIS  IS  THE  LINE  TO  LIST! 

421  001  "^lO 

016101 

000006 

MOV 

R.NEXT(R1),R1 

; 

;ELSE  GET  NEXT  LINif 

422  001514 

020100 

CMP 

R1,R0 

•ALL  THE  WAY  AROUND? 

423  001516 

001365 

BNE 

8$ 

•NO,  KEEP  LOOKING  FOR  LINE 

424  001520 

000137 

001074' 

JMP 

FNEDTX 

■ELSE  SKIP  THE  WHOLE  THING 
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426 

;  + 

427 
428 
429  001524 

;  LIST 

THE  LINE 

THEN  ALLOW  USER  ' 

ro  CHANGE  IT 

122702 

000047 

^$: 

CMP8 

#CHRRBR,R2 

;END  WITH  RBR? 

430  001530 

001024 

BNE 

10$ 

;N0?  MUST  BE  LINE  EDIT 

431  001532 

CALL 

FLNLST 

;LIST  THE  LINE  HE  WANTS  TO  SEE 

432  001536 

CALL 

NEULIN 

;Print  <CR><LF>,  too... 

434  001542 

LDF 

LINE,ACO 

;GET  THE  LINE  NUMBER 

435  001552 

SUBF 

LININCACO 

;FUD6E  IT  SO  HE  CAN  CHANGE  SAME  LINE 

436  001562 

STF 

ACO,LINE 

iBACK  UP  THE  LINE  NUMBER 

441  001572 

CALL 

EOLCHK 

;END  OF  THE  LINE? 

442  001576 

443 

444 

0001 37 

001074' 

.  ^ 

JMP 

FNEDTX 

;AND  GO  LET  HIM  REDEFINE  LINE 

':    SPECIAL  LINE 

EDITING.  GET  f 

DUMBER  OF  INITIAL  SPACES  THEN 

445 
446 
447  001602 

;  ALLOU 

1  USER  TO 

CHANGE  LINE 

10$: 

PUSH 

R1 

1 

;SAVE  POINTER  TO  LINE 

448  001604 

132762 

000020 

OOOOOOG 

BITB 

*C.NUM,CHRTAB 

(R2! 

):1S   CHARACTER  NUMERIC? 

449  001612 

001 71 5 

BEQ 

6$ 

;N0,  THEN  WHAT  DOES  HE  WANT??? 

450  001614 

CALL 

NUMBER 

;GET  NUMBER  OF  SPACES  TO  PRINT 

451  001620 

11$: 

CALL 

GETNB2 

;GET  NON-BLANK  CHAR 

452  001624 

002710 

BLT 

6$ 

;NONE  LEFT,  ERROR 

453  001626 

122702 

000047 

12$: 

CMP8 

^CHRRBR,R2 

;RIGHT  BRACKET? 

454  001632 

001305 

BNE 

6$ 

;N0,  SCREW  HIM?!? 

455  001634 

CALL 

EOLCHK 

; CHECK  FOR  GARBAGE  AT  LINE  END 

456  001640 

022737 

000256' 

005050' 

CMP 

#CHANOO,ICHAN 

; INPUT  FROM  TTY? 

457  001646 

001401 

BEQ 

15$ 

;YES 

458  001650 

104407 

SYNERR 

:lf   NOT,  EDIT  IS  NOT  LEGAL 

459  001652 

15$: 

STCFI 

ACO.EDICNT 

;GET  INITIAL  SPACES 

460  001662 

003003 

B6T 

16$ 

:Value  is  acceotable 

461  001664 

013737 

000250' 

005064 ' 

MOV 

C.WIDR^-CHANOO 

,EDICNT    ;MaximLfn  value  acceotabLe                     1 

462  001672 

011601 

16$: 

MOV 

(SP)  ,R1 

;GET  LINE  POINTER  AGAIN 

463  001674 

012702 

000256' 

MOV 

#CHAN00,R2 

; Point  to  channel 

465  001700 

012762 

010401 

1 77756 

MOV 

#<C.0PN+C.N0BFK. 

.FRC>,C.SBIT(R2)  :Set  the  bits 

469  001706 

016262 

177764 

177760 

MOV 

C.CPTR(R2),C.BUFF(R2)   ;Get  pointer  to  the  buffer 

470  001714 

016262 

177766 

1 77762 

MOV 

C.CCNT(R2),C.BUFL(R2)   :Get  the  buffer  size 

471  001722 

005062 

1 77770 

CLR 

C.WIDC(R2) 

;No  width  checking 

472  001726 

005062 

1 77772 

CLR 

C.WIDR(R2) 

;  done  this  time 

473  001732 

013703 

005052' 

MOV 

0CHAN,R3 

;Save  the  current  channel 

474  001/36 

010237 

005052' 

MOV 

R2,0CHAN 

;Make  the  channel  the  execute  one 

475  001742 

CALL 

FLNLST 

;Fake  printing  the  line 

;Get  the  space  remaining 

;Clear  the  multi-line  literal  flag 

476  001746 

PUSH 

C.CCNTKHANOO 

477  001752 

005004 

CLR 

R4 

478  001754 

013702 

000236' 

MOV 

C.BUFF+CHANOO 

,R2 

;Point  to  beginning  of  the  line 

479 

J 

Check  for  multi-line  literal 

480  001760 

020237 

000242' 

41$: 

CMP 

R2,C.CPTR+CHAN00 

;End  of  the  line? 

481  001764 

103004 

BHIS 

42$ 

;Yes 

482  001766 

^ 22227 

000015 

CMP8 

(R2)+,#CHR.CR 

;Is  the  character  a  carriage  return? 

483  001772 

001372 

BNE 

41$ 

;No,  Just  keep  looping 

;Yes,  Set  the  multi-line  literal  flag 

484  001774 

485 

486  001776 

005204 

INC 

R4 

005037 

000234 ' 

42$: 

CLR 

C.SBIT^-CHANOO 

; Close  the  channel 

487  002002 

010337 

005052' 

MOV 

R3,0CHAN 

;Restore  the  current  channel 

488  002006 

CALL 

TTINIT 

;Set  terminal  all  pretty 

489  002012 

CALL 

FLNLST 

; CREATE  INPUT  LINE 

490  002016 

013703 

000250' 

MOV 

C.WIDR+CHANOO 

,R3 

; Current  line  size 

491  002022 

163703 

000246 • 

SUB 

C.WIDC^-CHANOO 

,R3 

minus  space  remaining 
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492  002026 

493  002032 

494  002036 

495  002040 
4%  002042 

497  002046 

498  002050 

499  002052 

500  002054 

501  002060 

502  002062 
503 

504 
505 

506  002066 

507  002072 

508  002074 

509  002076 

510  002102 

511  002106 

512  002112 

513  002116 

514  002120 

515  002122 

516  002124 


163716  000244' 

005704 

001402 

000137  000350' 

005726 

001401 

104541 

023703  005064' 

003002 

01 3703  005064 ' 


012700  000040 

005303 

003404 


43$: 
17$: 

;HERE, 
18$: 

19$: 
20$: 


E  12 


SUB  C.CCNT+CHAN00,(SP) 

CALL  NEWLIN 

TST  R4 

BEQ  43$ 

JMP  SAMELN 

TST  (SP)+ 

BEQ  17$ 

LNLNG 

CMP  EDICN1,R3 

BGT  18$ 

MOV  EDICNT,R3 


; Compute  difference  in  Line  sizes 

.-Output  <CR><Lr> 

;Was  there  a  muLti-line  Literal? 

;No,  Great! 

;Yes,  Can't  edit  it.  Re-prompt 

;Same  size  as  oriqinal? 

;No,  Line  is  too  long 

;Line  Tooooooo  Loooonnnnngggg 

;IS  DESIRED  COUNT  BIGGER  ? 

;N0.  LEAVE  AS  IS 

;YES.  SUBSTITUTE  SIZE  OF  LINE 


WE  LOAD  THE  SPACES  AND  CALL  GETLIN 


010004 
010103 


MOV  #CHRSPA.R0 

DEC  R3 

BLE  20$ 

CALL  OUTCHR 

SOB  R3J9$ 

CALL  GETLIN 

CALL  FIXLIN 

MOV  R0.R4 

MOV  R1,R3 

POP  R1 

CALL  FLNLST 


The  character  is  a  Space 

ADJUST  FOR  LINE 

DON'T  NEED  ANY  SPACES 

Output  a  space 

LOOP  FOR  LEADING  SPACES 

GET  THE  LINE  FROM  THE  TERMINAL 

REDUCE  BACKSPACES.  ETC.,  ETC. 

R4  ->  LINE 

R3  =  /(f  OF  CHARS  IN  THE  LINE 

Pop  the  Line  pointer 

List  the  function  Line  again 


F  \i 
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518 

;++ 

519 
520 
521 

NOW, 

WE  FIX  UP  FOR  INSERTION/DELETION 

(R4 

,R3)  -  REFERS  TO  THE 

EDIT  BUFFER 

522 

(R0,R1)  -  REFERS  TO  THE 

FUNCTION  BUFFER 

523 

524 

STACK  CONFIGURATION: 

525 

+0:  ( 

REMAINING  SPACE  IN  THE  BUFFER 

526 

+2:  ( 

:URRENT  CHARACTER  POSITIONS  \H   LINE 

527 

-••4:  ( 

POINTER  TO  THE  START 

OF  THE  BUFFER 

528 

+6:  1 

.ENGTH  OF  THE  BUFFER 

529 

. .. 

530 

531  002130 

013700 

000236' 

MOV 

C.BUFF-^CHANOO^RO. 

;GET  BUFFER  POINTER 

532  002134 

013701 

000240* 

MOV 

C.BUFL+CHAN00,R1< 

; TOTAL  BUFFER  LENGTH 

533  002140 

PUSH 

<R1 ,R0> 

;SAVE  BUFFER  LENGTH,  POINTER 

534  002144 

005046 

CLR 

'(.%?) 

; CURRENT  LINE  POSITION 

535  002146 

PUSH 

C.CCNT+CHANOO   < 

;SPACE  REMAINING  IN  THE  BUFFER 

536  002152 

161601 

SUB 

(SP), Rl 

;THIS  IS  THE  LENGTH  OF  THE  LINE 

537  002154 

012737 

1 71171 

005064 • 

MOV 

*-l,EDICNT 

;N0  COLUMN  AS  YET 

538  002162 

020103 

CMP 

RUR3 

; WHICH  IS  LONGER  ? 

539  002164 

100001 

BPL 

21$ 

;0K 

540  002166 

541 

542  002170 

010103 

MOV 

R1,R3 

; IGNORE  EXTRA  GARBAGE 

21$: 

GETC 

33$ 

;GET  A  CHAR  FROM  EDIT  LINE 

002170 

005303 

DEC  f 

R3 

;ANy  CHARACTERS  LEFT? 

002172 

002527 

BLT  ; 

53$ 

;N0,  BRANCH  TO  33$ 

0021 74 

112402 

MOVB 

(R4)+,R2 

;YES,  GET  NEXT  CHAR 

543  002176 

100510 

BMI 

30$ 

; IGNORE  OVERSTRIKES 

544  002200 

120227 

00001 5 

CMP8 

R2,#CHR.CR 

;A  <CR>? 

545  002204 

001522 

BEQ 

33$ 

;YES,  NO  MORE 

546  002206 

120227 

000057 

CMPB 

R2,#CHR.SL 

;A  ••/"  (SLASH)  ? 

547  002212 

001026 

BNE 

24$ 

;N0,  TRY  AGAIN 

548 

, 

;■♦■ 

549 

( 

\     Proc 

ess  s 

Lashes 

550 

551  002214 

005216 

< ' 

INC 

{%?) 

;YES,  SO  ADD  A  SPACE  TO  THE  FREE  AREA 

552  002216 

005301 

DEC 

R1 

;LINE  LENGTH  LESS  ONE 

553  002220 

003540 

BLE 

38$ 

;T00  LITTLE  LEFT,  WE'RE  FINISHED 

554  002222 

010002 

MOV 

R0,R2 

;SAVE  POINTER 

555  002224 

005202 

INC 

R2 

FOR  USE  IN  THE  LOOP 

556  002226 

22$: 

PUSH 

<R1,R0> 

:SAVE  REGS 

557  002232 

112220 

23$: 

MOVB 

(R2)+, (R0)+ 

;***BLOCK  MOVE*** 

558  002234 

SOB 

Rl,23i 

;(EXPLITIVE  DELETED,  DAMN  IT!) 

559  002240 

POP 

<R0,R1> 

; RESTORE  THE  REGISTERS 

560  002244 

121027 

000010 

CMPB 

(RO),#CHR.BS 

',1%   THE  NEXT  CHAR  A  BACKSPACE? 

561  002250 

001347 

BNE 

21$ 

•NO,  NO,  OF  COURSE  NOT 

562  002252 

012702 

000002 

MOV 

#2,R2 

•YES 

563  002256 

060216 

ADD 

R2,(SP) 

•2  MORE  SPACES  IN  THE  BUFFER 

564  002260 

160201 

SUB 

R2,R1 

;2  LESS  IN  THE  LINE 

565  002262 

003517 

BLE 

38$ 

; EMPTY,  SO  END 

566  002264 

060002 

ADD 

R0,R2 

•POINT  TO  OVER  FOR  SHIFT 

567  002266 

000757 

BR 

22% 

•AND  TRY  AGAIN 

G  M 
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569 

;  + 

570 
571 
572  002270 

;  Process  Letters 

132762 

000010 

OOOOOOG  ^4$: 

BITS 

#C.IDEN,CHRTAB(R2);A  LETTER  ? 

573  002276 

001410 

BEQ 

25$ 

;N0 

574  002300 

162702 

000140 

SUB 

*CHR..A-1,R2 

;YES,  CONVERT  TO  NUMBER 

575  002304 

100445 

BMI 

30$ 

iDELTAS  ARE  IGNORED 

576  002306 

PUSH 

R2 

;MULTIPLY  TIME,  KIDDIES 

577  002310 

006302 

ASL 

R2 

;R2  *  2. 

578  002312 

006302 

ASL 

R2 

;R2  *  4. 

579  002314 

062602 

ADD 

(SP)+, R2 

;R2  *  5. 

580  002316 

000407 

BR 

26$ 

;AND  ADD  SPACES 

581 

;  + 

582 

;  Proc 

ess  Digits 

583 

•  ^9 

0 

584  002320 

132762 

000040 

OOOOOOG  25$: 

BITS 

*C.DIG,CHRTAB(R2- 

);A  DIGIT  ? 

585  002326 

001434 

BEQ 

30$ 

;N0 

586  002330 

162702 

000060 

SUB 

#CHR..0,R2 

;YES,  ASCII  ->  NUMBER 

587  002334 

003431 

BLE 

30$ 

; IGNORE  0 

588 

589  002336 

160216 

26$: 

SUB 

R2,(SP) 

;LESS  SPACE  REMAINING 

590  002340 

003443 

BLE 

32$ 

;TO0  MUCH,  DIE 

591  002342 

005737 

005064 ' 

TST 

EDICNT 

; ALREADY  SPACIFIED  ? 

592  002346 

100003 

BPL 

27% 

:YES 

593  002350 

016637 

000002 

005064 • 

MOV 

2(SP), EDICNT 

;N0,  GIVE  THE  START  COLUMN 

594  002356 

27%: 

PUSH 

<R1,R2> 

;SAVE  THE  REGISTERS 

595  002362 

060100 

ADD 

R1,R0 

; POINT  PAST  THE  ENDF 

5%  002364 

060002 

ADD 

R0.R2 

;(A  LITTLE  OLDE  ENGLISH,  THERE) 

597  002366 

114042 

28$: 

M0V8 

-(R0),-(R2) 

;***BLOCK  TRANSFER*** 

598  002370 

SOB 

R1,28$ 

599  002374 

011601 

MOV 

(SP), R1 

;GET  »   OF  SPACES 

600  002376 

010216 

MOV 

R2,(SP) 

:SAVE  POINTER  TO  NEXT  CHAR 

601  002400 

060166 

000006 

ADD 

R1,6(SP) 

: INCREMENT  LINE  POSITION 

602  002404 

112742 

000040 

29$: 

MOVB 

*CHRSPA,-(R2) 

;MOVE  IN  THE  SPACES 

603  002410 

SOB 

R1,29$ 

604  002414 

POP 

<R0,R1> 

;RESTORE  THE  REGISTERS 

605 

;  + 

606 

;  Process  all 

else,  e.g.  Spaces 

,  overstn'kes,  operators 

607 

•  — 

608  002420 

005266 

000002 

!0$: 

INC 

2(SP) 

;ONE  MORE  CHAR  IN  THE  LINE 

609  002424 

005200 

31$: 

INC 

RO 

;INCR.  POINTER 

610  002426 

005301 

DEC 

R1 

; DECREMENT  COUNT 

611  002430 

003434 

BLE 

38$ 

;T00  LONG,  SO  SO  LONG 

612  002432 

121027 

000010 

CMPB 

(R0),#CHR.BS 

;NEXT  CHAR  A  BACKSPACE  ? 

613  002436 

001254 

BNE 

21$ 

;N0 

614 

615  002440 

005200 

INC 

RO 

;YES,  SO  REMOVE  A  CHAR 

616  002442 

SOB 

R1,31$ 

;AND  LOOP 

617  002446 

618 

619  002450 

000425 

BR 

38$ 

;N0  MORE,  FINISHED 

104541 

32$: 

LNLNG 

;BYE,  BYE 

H  12 
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621 

;  + 

622 

;  Edit 

coTfimand 

buffer  used  up  first,  skip  to  end  of  function  line  buffer 

623 

•  . 

62A  002452 

005701 

^3$: 

TST 

R1 

;ANY  CHARACTERS  LEFT  ? 

625  002454 

003422 

BLE 

38$ 

;N0,  DONT  DO  THIS 

626  002456 

016603 

000002 

MOV 

2(SP),R3 

;6ET  CURRENT  POSITION 

627  002462 

121027 

000010 

34$: 

CMPB 

aR0,4fCHR.BS 

;A  BACKSPACE  ? 

628  002466 

001002 

BNE 

35$ 

;N0,  SO  DON'T  WORRY 

629  002470 

005303 

DEC 

R3 

; DECREASE  THE  COLUMN  »   BY  ONE 

630  002472 

000407 

BR 

37$ 

;AND  60 

631  002474 

121027 

00001 5 

35$: 

CMPB 

aR0,4fCHR.CR 

;A  <CR>  ? 

632  002500 

001410 

BEQ 

38$ 

;YES,  FINISHED 

633  002502 

121027 

000040 

CMPB 

aRO,#CHRSPA 

;D0ES  THIS  CHAP  PRINT  ? 

634  002506 

002401 

BLT 

37$ 

;N0,  SKIP  IT 

635  002510 

005203 

INC 

R3 

;M0VE  OVER  ONE  COLUMN 

636  002512 

005200 

V$: 

INC 

RO 

; INCREMENT  THE  POINTER 

637  002514 

SOB 

R1,34$ 

;AND  LOOP  'TIL  FINISHED 

638  002520 

000402 

BR 

36$ 

639 

;  + 

640 

;  Position  cursor  in  proper  pLace                                              1 

641 

•  ~ 

1 

642  002522 

016603 

000002 

^8$: 

MOV 

2(SP), R3 

;Get  current  position 

643  002526 

060001 

36$: 

ADD 

R0,R1 

;POINT  TO  THE  END  OF  THE  STRING 

644  002530 

013704 

005064 • 

MOV 

EDICNT,R4 

;6ET  THE  START  POSITION 

645  002534 

100410 

BMI 

40$ 

; START  AT  THE  END 

646  002536 

160403 

SUB 

R4,R3 

;HOW  MANY  BACKSPACES  ? 

647  002540 

003406 

BLE 

40$ 

;T00  FEW 

648  002542 

112721 

000010 

39$: 

MOVB 

/i^CHR.BS,(R1)+  , 

;BACKIN6  UP 

649  002546 

005316 

DEC 

(SP) 

;DECREASE  SPACE  AVAILABLE 

650  002550 

003737 

BLE 

32$ 

;N0N0E,  ERROR 

651  002552 

SOB 

R3,39$ 

;LOOP  A  WHILE 

652  002556 

010137 

000242' 

40$: 

MOV 

R1,C.CPTR+CH  N00< 

;Pointer  past  last  data 

653  002562 

163701 

000236' 

SUB 

C.BUFF+CHAN00,R1< 

;The  ntmber  of  real  characters 

654  002566 

013737 

000240' 

000244 ' 

MOV 

C.BUFL+CHANOO,C.( 

:CNT+CHANOO 

655 

;Copy  buffer  size 

656  002574 

160137 

000244 ' 

SUR 

R1,C.CCNT+CHAN00! 

; Compute  space  left  in  the  buffer 
;AND  CONTINUE 

657  002600 

0001 37 

000430' 

JMP 

SAMLN1 

I  12 
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659 

.SBTTL 

FNOPEN 

OPEN  FUNCTION  FOR  EDITING 

660 

661 

;+■♦- 

662 

;  FUNCTIONAL  DESCRIPTION:                                                       1 

663 

This  routine  is  used  to  open  a  function  for                                | 

66A 

editing 
to  .FLO 

;  i.e.,  convert  .INTEGER  line  numbers 

665 

AT  Line  numbers,  and  all  such  goodies. 

666 

667 

;  INPUTS: 

668 

RO 

-  Pointer  to  the  Function  Header 

669 

670 

;  ROUTINES  CALLED:                                                              1 

671 

RETCOR 

-  Returns  the  Label  List  Space  to  Memory 

672 

;  — 

673  002604 

.PSECT 

CODE 

674 

675  002604 

f 

■NOPEN: 

• 
• 

676  002604 

1 32760 

000004  000003 

BITS 

#F.LOC,R.BITS(R0)  .-PREVIOUSLY  PROTECTED  ? 

6//  002612 

001060 

BNE 

3$            ;YES,  SO  EDITING  IS  A  NO-NO 

678  002614 

010037 

005012' 

MOV 

R0,FHEADR       ;SAVE  POINTER  TO  FUNCTION  HEADER  BLOCK 

679  002620 

132760 

000010  000003 

BITB 

*/.OPN,R.BITS(R0)  .-Already  Open? 
2$           ;Yes.  skip  this  step 

680  002626 

001015 

BNE 

681  002630 

1$: 

682  002630 

LDCIF 

R.LNUM(RO),ACO  .-CONVERT  TO  FLOAT 

683  002640 

STF 

ACO,R.LNUM(RO)   ;  AND  REPLACE 

693  002650 

016000 

000006 

MOV 

R.NEXT(RO).RO   .-POINT  TO  NEXT  ELEMENT 

694  002654 

020037 

005012' 

CMP 

RO.FHEADR       .-FINISHED? 

695  002660 

001363 

BNE 

1$            .-LOOP  FOR  ALL  ELEMENTS 

6%  002662 

016000 

000004      ; 

?$: 

MOV 

R.PREV(RO).RO   .-Point  to  last  frame 

698  002666 

LDF 

R.LNUM(RO).ACO  .-Get  the  line  number 

699  002676 

STF 

ACO.LINE       .-OF  COURSE 

700  002706 

LDF 

/(^^FI.O.ACO     .-GET  A  1.0 

701  002716 

STF 

ACO.LININC      .-MAKE  INITIAL  LINE  INCREMENT 

708  002726 

010037 

005014' 

MOV 

RO.FLINE       .-SAVE  PTR  TO  LINE 

709  002732 

013700 

005012' 

MOV 

FHEADR.RO      .-Point  to  function  header 

710  002736 

052737 

000010  004764' 

BIS 

#F.FNDF, FLAGS   ;In  function  definition  mode 

711  002744 

1 52760 

000010  000003 

BIS8 

#F.OPN.R.BITS(RO)  ;Mark  function  as  Open 

712  002752 

RETURN 

713 

714  002754 

104405 

5$: 

DEFERR 
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716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729  002756 

730 

731  002756 

732  002762 

733  002764 

734  002770 

735  002772 

736  003000 
737 

738  003002 

739  003006 

740  003010 

741  003014 

742  003016 

743  003024 

744  003032 

745  003036 

746  003040 

747  003044 

748  003046 


002406 
122702 
001004 
042737 


122702 
001406 
122702 
001014 
052737 
052737 

002760 
122702 
001755 
104407 


.SBTTL     EOLCHK 


J  12 


CHECK  FOR  DEL  AT  LINE  END 


•»■■♦• 
FUNCTIONAL  DESCRIPTION: 

'EOLCHK*  checks  for  then  end  of  the  current  input  line. 
If  the  end  of  the  Line  isn't  found,  a  syntax  error  is 
signalled.  If  a  del  is  found,  F.STOP  Is  set  in  the 
•FLAGS'  word. 


INPUTS: 

R3  - 
R4  - 


EOLCHK: 


00001 5 
000004 

000107 

000271 

010000 
000004 

00001 5 


004764' 


1$: 
2$: 


004764' 
004764*  3$: 
4$: 


5$: 


CALL 

BLT 

CMP8 

BNE 

BIC 

RETURN 

CMPB 

BEQ 

CMPB 

BNE 

BIS 

BIS 

CALL 

BLT 

CMPB 

BEQ 

SYNERR 


COUNT  OF  CHARS  LEFT  IN  LINE 
POINTER  TO  NEXT  CHAR 


.PSECT  CODE 


GETNB 

1$ 

*CHR.CR,R2 

2$ 

*F. STOP, FLAGS 


#CHRDEL,R2 

3$ 

/lfCHRPDL,R2 

5$ 

#F.PROT, FLAGS 

/TF.  STOP,  FLAGS 

GETNB 

1$ 

4^CHR.CR,R2 

1$ 


GET  NON-BLANK  CHAR 

NONE  LEFT,  ERROR 

EOL? 

NO,  TRY  FOR  A  DEL 

NO  DEL  FOUND 

ALL  DONE 

DEL? 

YES,  GOOD 

PROTECT  DEL? 

No 

YES,  SET  PROTECT  BIT 

YES,  SET  STOP  BIT 

GET  NON-BLANK  CHAR 

NONE  LEFT,  DONE 

EOL? 

YES,  GOOD 

ELSE  SYNTAX  ERROR 


m 
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FN 
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L  \t 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

CTRMAX 

0001 72R 

025  D.CTLM= 

000000 

EDIFL6 

005062R 

025 

AC1   = 

XOOOOOl 

CHRLPR= 

000072 

C.AL0C= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

AC2   = 

X000002 

CHRMNS= 

000137 

C.BLOK= 

000064 

D.DECD= 

000002 

U%       = 

000000 

AC3   = 

X000003 

CHRMUL= 

000075 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

ACA   = 

X000004 

CHRNEG= 

000100 

C.BUFF= 

177760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

ACS   = 

X000005 

CHRPDL= 

000271 

C.BUFL= 

177762 

D.DQAD= 

1 11111 

EOF   = 

104475 

ALL INT 

003274R 

025 

CHRPLU= 

000055 

C.CCNT= 

177766 

D.DR0P= 

000002 

EOLCHK 

002756R 

020 

ARYRET 

003276R 

025 

CHRPWR= 

000120 

r . CPTR= 

177764 

D.ENCD= 

000002 

ERRMAX= 

000166 

ASCQUO=  0000A2 

CHRQST= 

000121 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRNUM 

004772R 

025 

A.ALEN=  OOOOOA 

CHRQUO= 

000113 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRPTR 

004770R 

025 

A.ARG  = 

OOGGAG 

CHRRBR= 

000047 

C . FASW= 

020000 

D.FGET= 

000005 

ERRO 

004774R 

025 

A.AS3  = 

000200 

CHRRPR= 

000042 

C.FLEN= 

000010 

D.FMT  = 

000004 

EXEBUF 

005054R 

025 

A.BITS= 

000003 

CHRSEM= 

000074 

C.FLSH= 

004000 

D.FPNT= 

000005 

EXEC  = 

***«*•  GX 

A. CON  = 

000020 

CHRSMO= 

000112 

C.FRC  = 

000001 

D.FPUT= 

000005 

E$CT 

005056R 

025 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.IDEN= 

000010 

D.6E  = 

000000 

E$PT 

005060R 

025 

A.DIM1  = 

000006 

CHRTAB= 

*•••••  QX 

C.NAME= 

000102 

D.GT  = 

000000 

FA.APD= 

000100 

A.NUM  = 

000006 

CHRUPA= 

000131 

C.NOBF= 

000400 

D.IBM  = 

000002 

FA. CRE= 

000010 

A.PTR  = 

000000 

CHR.BS= 

000010 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.DLK= 

001000 

A.TMP  = 

000010 

CHR.CC= 

000003 

COP  = 

000004 

D.INNR= 

000013 

FA.ENB= 

100000 

BADDIR= 

104A63 

CHR.CR= 

000015 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.EXC= 

002000 

BADERR= 

104A37 

CHR.CZ= 

000032 

C.RDLN= 

177776 

D.LE  = 

000000 

FA.EXT= 

000004 

BLZBIFI 

0051 16R 

025 

CHR.GT= 

000046 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.NSP= 

000100 

BRSELF 

005046R 

025 

CHR.LF= 

000012 

C.RND  = 

000010 

D.LT  = 

000000 

FA.NSR= 

000200 

CCNT 

005072R 

025 

CHR.LT= 

000043 

C.S8IT= 

177756 

D.MAX  = 

000000 

FA.POS= 

010000 

CHANEX 

003060R 

025 

CHR.SI= 

000017 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.RD  = 

000001 

CHANOO 

000256R 

025 

CHR.SL= 

000057 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.RWD= 

004000 

CHAN01 

000330R 

025 

CHR.SO= 

000016 

C.SPLX= 

000001 

D.MUL  = 

000000 

FA.SEQ= 

040000 

CHAN02 

00051 2R 

025 

CHR.TB= 

000011 

C.SPRS= 

000002 

D.NE  = 

000000 

FA.SHR= 

000040 

CHAN03 

000674R 

025 

CHR.UL= 

000106 

C.SRC  = 

177774 

D.NN  = 

000000 

FA.TMP= 

000020 

CHAN04 

001056R 

025 

CHR..A= 

000141 

C.SRCP= 

000024 

D.NR  = 

000000 

FA.WCK= 

020000 

CHAN05 

0012AOR 

025 

CHR..E= 

000145 

C.TT  = 

000004 

D.OR  = 

000000 

FA.WRT= 

000002 

CHAN06 

00U22R 

025 

CHR..S= 

000163 

C.WJDC= 

177770 

D.PLUS= 

000000 

FD.BLIC= 

000010 

CHAN07 

00160AR 

025 

CHR..T= 

000164 

C.WIDR= 

1 71172 

D.PSUB=  000006 

FD.CCL= 

000002 

CHAN08 

001766R 

025 

CHR..U= 

000165 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.COM=  020000 

CHAN09 

0021 50R 

025 

CHR..Z= 

000172 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.CR  = 

000002 

CHAN10 

002332R 

025 

CHR..O= 

000060 

DEVIL 

0051 14R 

025  D.QUAD= 

000000 

FD.DIR= 

000010 

CHAN11 

0025KR 

025 

CHR..1= 

000061 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.FTN=  000001 

CHAN12 

002676R 

025 

CH.AND= 

000001 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.F11= 

040000 

CHAN13 

000022R 

023 

CKFNSI= 

**«#••  GX 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.INS= 

000010 

CHANU 

000204R 

023 

CMDBUF 

0C3250R 

025 

DIMBLK 

0031 12R 

025  D.SC0N=  000006 

FD.ISP= 

002000 

CHNOFtJ= 

10A471 

CMDMAX= 

000010 

DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.MNT= 

100000 

CHRAND= 

000051 

CMP.F  = 

♦**•*•  Gx 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.OSP=  004000 

CHRRFL= 

000007 

CNTSIZ 

005130R 

025 

DIRFUL= 

104466 

D.S(JRS= 

000006 

FD.PLC= 

000004 

CHHB>CR= 

000133 

COMBIN 

005076R 

025 

DOMERR= 

104417 

D.TAKE= 

000002 

FD.PRN=  000004 

CHRBOL= 

000200 

COMCNT 

005126R 

025 

DPTERR= 

104416 

D.TRAN=  000004 

FD.PSE= 

010000 

CHRflOX= 

00011A 

COMERR= 

104425 

DYDCNT 

003224R 

025  D.UNON= 

000006 

FD.RAH= 

000001 

CHRCWA= 

000054 

COMPTR 

0051 22R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RAN=  000002 

CHRCa= 

000076 

CQMRTN 

0031 56R 

025 

D.8XCT= 

000007 

D.$MIN=  000000 

FD.REC= 

000001 

CHRDEL= 

000107 

COMSKP 

0051 24R 

025 

D.BXIO= 

000007 

D.$MUL= 

000000 

FD.RWM= 

000001 

CHRDIV= 

000053 

CORPTR 

005120R 

025 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.SDI= 

000020 

CHRDLR= 

000176 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.SQD= 

000040 

CHRDLT= 

000110 

CS.800= 

000010 

D.BXPW= 

000007 

D.$SIB= 

000000 

FD.TTY= 

000004 

CHRDOT= 

000056 

CS.FLO= 

000020 

D.BXRL= 

000007 

D.1C0M= 

000001 

FD.UBH= 

000002 

CHREP  = 

000105 

CS.IDN= 

000040 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.CHR= 

000005 

CHRERR= 

10AA31 

CS.ONE= 

000100 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.NV  = 

000003 

CHRFIL= 

000177 

CTEPS 

0001 52R 

025 

D.COMP= 

000001 

EDICHR 

005063R 

025  FF.POE= 

000002 

CHRFRO= 

000135 

CTMAX 

00021 2R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF.RWD= 

000001 

FN 
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M  12 

SYMBOL 

TABLE 

FF.RWF= 

000006 

F.BKP1=^ 

000051 

F.SEQN= 

000100 

LFTOP 

005066R 

025  M.GETI=  000006 

FF.SPC= 

OOOOOA 

F.BKST= 

000024 

F . SPDV= 

000072 

LINC 

0051 02R 

025  M.IBM  =  000003 

F HE ADR 

00501 2R 

025 

F.BKVB= 

000064 

F . SPUN= 

000074 

LINE 

00501 6R 

025  M.IDN  =  000000 

FHRET 

0050A0R 

025 

F.BR  = 

000020 

F.ST8K= 

000036 

LININC 

005026R 

025  M.1NSP=  000006 

FILNTF= 

10AA67 

F.CHR  = 

000075 

F.STK  = 

000022 

LINKIL= 

••••••  GX 

M.I0TA=  000000 

FIS   = 

000000 

F . CNT6= 

000034 

F.STOP= 

00C004 

LISIZE= 

000020 

M.LIT  =  000205 

FISCON=  0A6000 

F . CODE= 

000010 

F.STP  = 

000001 

LI  TOP 

005072R 

025  M.LN  =  000001 

nXLlH= 

••♦•••  GX 

F.DFISB= 

000046 

F . SUSP= 

000002 

LNLNG  = 

104541 

M.MMD  =  000010 

FIXPTR 

003074R 

025 

F.DSPT= 

000044 

F.TRC  = 

000002 

LOCLCT 

005036R 

025  M.NEG  =  000000 

FLAGS 

0OA764R 

025 

F.DVNM=  000134 

F.UNJT= 

0001 36 

LOWCOR 

000002R 

025  M.NOT  =  000000 

FLCBUF 

003250R 

025 

F.EFBK= 

000010 

F.URBD= 

000020 

LSTERP 

004766R 

025  M. NUB  =  000006 

FLINE 

0050UR 

025 

F.EFN  = 

000050 

F.VAL  = 

177776 

LWIDTH 

000070R 

025  M.NUM  =  000204 

FLNLST= 

ir-k-ktcick     6X 

F.END  = 

002000 

F.VBN  = 

000064 

L.BITS= 

000003 

M.OUTR=  000012 

FLOEXP 

003270R 

025 

F.EnRR= 

000032 

F.VBSZ= 

000060 

L.CNT  = 

000002 

M. PI TM=  000000 

FLONEG 

003272R 

025 

F.ERR  = 

000052 

GETLIN= 

**l^tlr«t^  GX 

L.PRNT= 

000001 

M.PRDS=  000006 

FLOUT  = 

••*•••  GX 

F.FACC= 

000043 

GETNB  = 

kkktiilr    GX 

L.PTR  = 

000000 

M.QQAD=  000000 

FLSWTB 

000222R 

025 

F.FFBY= 

000014 

GE  Tr©2= 

••*•••  GX 

L.PTR1= 

000004 

M.QUAD=  000000 

FLTLEN=  000010 

F.FLAG= 

000002 

GNOME 

0031 02R 

025  L.SUBS= 

000002 

M.RAND=  000012 

FN 

OOOOOORG 

020 

F.FLB  = 

000100 

HASHC 

005136R 

025  MACHIN=  000106 

M.RAVL=  000000 

FND 

000262RG 

020 

F.FNAM= 

000110 

HASHTB 

0051 40R 

025  MAXCHN= 

000014 

M.RCIP=  000000 

FNEDDL 

001140R 

020 

F.F^B  = 

000102 

HSHMSK= 

177601 

MONBLK 

0031 20R 

025  M.RDCT=  000011 

FNEDIT 

000642R 

020 

F.FNDF= 

000010 

HSHSIZ= 

000200 

MONCVT 

0031 32R 

025  M.REVS=  000003 

FNEDTX 

001074R 

020 

F.FTYP= 

000116 

I  CHAN 

005050R 

025  MONLEN 

0031 30R 

025  M.ROLL=  000000 

FNEDT1 

001306R 

020 

F.FUN  = 

000010 

ILFNAM= 

104464 

MONPTR 

0031 22R 

025  M.SATA=  000001 

FNEND  = 

•^•••*  GX 

F.FVER= 

000120 

ILLCHN= 

104540 

MONSFT 

0031 26R 

025  M.SCAN=  000011 

FNG 

000300R 

020 

F.HEAD= 

000006 

ILLSW  = 

104565 

MONTYP 

0031 24R 

025  M.SHAP=  000000 

FNHEAD= 

k-kifkifk   GX 

F.HIBK= 

000004 

INDERR= 

104410 

MONVAL 

0031 34R 

025  M.SIGN=  000000 

FNINSI 

005044R 

025 

F.LBL  = 

000020 

INNTMP 

003250R 

025  M.ABS  = 

000000 

M.SIRR=  000001 

FNL1^€= 

*••••*  GX 

F.LINE= 

000012 

INNTM2 

00501 6R 

025  M.BOL  = 

000200 

M.SYM  =  000203 

FNLIST= 

kklfkltir     GX 

F.LOC  = 

000004 

INPTR 

000064R 

025  M.8XAV= 

000007 

M.SYN  =  000201 

FNOPEN 

00260ARG 

020 

F.LSTC= 

000004 

INSNAM= 

104462 

M.BXCR= 

000007 

M.TRAN=  000012 

FNRDF 

000266R 

020 

F.LUN  = 

000042 

lOERR  = 

104477 

M.BXCT= 

000007 

M.$ABS=  000000 

FORIGN 

000032R 

025 

F.MBCT= 

000054 

I.CNT  = 

1 77776 

M.8XEX= 

000007 

M.$CEI=  000000 

FO.APD= 

000106 

F.MBC1  = 

000055 

I. DIM  = 

1 77772 

M.BXFX= 

000007 

M.$FLR=  000000 

FO.MFY= 

000002 

F.MBFG= 

000056 

I.LEN  = 

000012 

M.BXI0= 

000007 

M.$IDN=  000000 

FO.RD  = 

000001 

F.MON  = 

000002 

I.OERR= 

000062 

M.BXLC= 

000003 

^..$NE6=  000000 

FO.UPD= 

000006 

F.NIL  = 

000001 

I. OLD  = 

1 77770 

M.BXNC= 

000007 

'1.$SIG=  OOOOOC 

FO.URT= 

000016 

F.NRBD= 

000024 

I.PTR  = 

1 7777^ 

M.BXNL= 

000007 

M.1RDT=  000011 

FPHnDE 

000042R 

025 

F.NREC= 

000030 

I. SIR  = 

1 77766 

M.BXPP= 

000007 

M.1REV=  000003 

fPP       = 

000000 

F.OPN  = 

000010 

LABERR= 

104406 

M.BXPW= 

000007 

M.1SCN=  000011 

FPPLEN=  000004 

F.0V8S= 

000030 

LABLPT 

005042R 

025  M.BXRL= 

000007 

NAMBUF  003240R 

025 

FREBI X 

007400R 

025 

F.PREV= 

000000 

LARGBL 

0031 62R 

025  M.BXTS= 

000007 

NB.DEV=  000200 

FUZZ 

0001 42R 

025 

F.PRNT= 

100000 

LARGCV 

0031 76R 

025  M.8XWA= 

000007 

NB.DIR=  000100 

FXPTR1 

003076R 

025 

F.PROT= 

010000 

LARGFL 

0031 60R 

025  M.CEl  = 

1 77777 

NB.NAM=  000004 

F$EVAL= 

000100 

F.RACC= 

000016 

LAR6LE 

0031 74R 

025  M.CHR  = 

000202 

NB.SD1=  000400 

F$EVI  = 

000200 

F.RATT= 

000001 

LARGLN 

0031 66R 

025  M.CMT  = 

000206 

NB.SD2=  001000 

F$EXEC= 

000400 

F.RCN«= 

000034 

LARGPT 

0031 64R 

025  M.DOUT= 

000006 

NB.SNM=  000040 

F$FUNC= 

001000 

F.RCTL= 

00001 7 

LARGSF 

0031 72R 

025  M.DQAD= 

000006 

NB.STP=  000020 

F.ACTL= 

000076 

F.READ= 

004000 

LARGTY 

0031 70R 

025  M.ENCD= 

000004 

NB.SVR=  000010 

F.ALOC= 

000040 

F.REDF= 

000040 

LAR6VA 

003200R 

025  M.EXE  = 

000000 

NB.TYP=  000002 

F.flRFS= 

000062 

F.RES  = 

000040 

LBINC 

0051 OOR 

025  M.EXP  = 

000001 

NB.VER=  000001 

F.BOB  = 

000070 

F.RET  = 

1 77772 

LBUFF 

00331 6R 

025  M.FACT= 

000001 

ND.DEV=  000200 

F.BGBC= 

000057 

F.RSIZ= 

000002 

LBUFLN= 

000621 

M.FIL  = 

000177 

ND.EXT=  000002 

F.BITS= 

1 7777^ 

F.RTYP= 

000000 

LCOUNT 

0051 06R 

025  M.FLR  = 

1 77777 

ND.NAM=  000004 

f.BKON= 

000026 

f,R2     = 

000014 

LENERR= 

104412 

M.FMT  = 

000004 

ND.PPN=  000100 

F.BKDS= 

000020 

F.R3  = 

000016 

LENTAB 

000054R 

025  M.6DUP= 

000003 

ND.$EX=  000000 

f.bk:ef= 

000050 

F.R4  = 

000020 

LEXPTR 

0031 OOR 

025  M.GDWN= 

000003 

ND.$E$=  000020 
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SYMBOL 

TABLE 

NO.$NM=  000000 

0PTMP2 

005072R 

025 

ROVER 

00331 2R 

025 

SYMWRN= 

000054 

T.MON  = 

000010 

ND.$'rt= 

OOOOAO 

0PTMP3 

005074R 

025 

RSTS     = 

000000 

SYNERR= 

104407 

T.NIL  = 

000004 

NDJPN= 

OOKOO 

0PTMP4 

005076R 

025 

RSX       = 

0001 1 5 

SYSERR= 

104402 

T.NUM  = 

002000 

^€G'iGN 

005063R 

025 

0PTMP5 

0051 OOR 

025 

RTOP 

005070R 

025 

SYSTAT 

OOOOOOR 

024  T.OPFN= 

000001 

NEWL1N= 

**♦♦♦♦  GX 

0PTMP6 

005102R 

025 

RT11     = 

000000 

SY.8AD= 

000001 

T.OTHR= 

040000 

NEXTER 

000640R 

020  0PTMP7 

005104R 

025 

R.BITS= 

000003 

SY.BRK= 

100000 

T.SOP  = 

000002 

NEXTLN 

000320RG 

020 

0PTMP8 

005106R 

025 

R.FIX  = 

000001 

SY.8S  = 

000010 

T.SPOP= 

000040 

NINPT1 

003302R 

025 

0PTMP9 

005 11  OR 

025 

R.LCT  = 

000002 

SY.CLR= 

000040 

T.TMP  = 

000200 

N1NPT2 

003300R 

025 

OPTM10 

0051 12R 

025 

R.LN     = 

000002 

SY.ERP= 

000020 

T.VAL  = 

100000 

NINSTK 

003304R 

025 

0PTM14 

005026R 

025 

R.LNUM= 

000010 

SY.N0U= 

000100 

T.VAR  = 

001000 

NINTWP 

00331 OR 

025 

ORIGIN 

000030R 

025 

R.NEXT= 

000006 

SY.0PN= 

000002 

UPPER  = 

1 77400 

NINTYP 

003306R 

025 

OUTCHR= 

******  GX 

R.OFF   = 

000000 

SY.PMT= 

001000 

UTNAME 

000344R 

023 

NOTAVL= 

10AA72 

OUTPTR 

000066R 

025 

R.PREV= 

000004 

SY.SRT= 

000400 

VALERR= 

104413 

NCTOPN= 

10A473 

0VR0PR= 

000000 

R.PTR  = 

000000 

SY.SVC= 

000004 

VARBLE 

007400R 

025 

NPRT1 

00A762R 

025 

PATCH 

007344R 

025 

R.SEQ  = 

000003 

SY.SVL= 

000200 

VARBLS 

OOOOOOR 

025 

NULL 

00736AR 

025 

PRECSN 

000052R 

025 

R.VAR  = 

000002 

S.AB     = 

177776 

VERNUM 

OOOOOOR 

025 

NUMLER= 

*««**•  GX 

PRINTM= 

*••♦*•  GX 

R6 

X000006 

S.ASB  = 

100000 

VRSION= 

000002 

Ni.f1CHN=  000020 

RANDAC 

003064R 

025 

R7 

X000007 

S.8FHD= 

000020 

WIDTH 

000072R 

025 

NUMDFL 

003230R 

025 

RANDY 

003062R 

025 

SAMELN 

000350RG 

020 

S.8ITS= 

000002 

WROUND 

000020R 

025 

NUMEFL 

003233R 

025 

RANERR= 

104411 

SAMLN1 

000430RG 

020 

S.CHR1= 

000003 

WSDATE 

0001 36R 

025 

NUMESN 

003236R 

025 

RARGBL 

003204R 

025 

SAMLN2 

000462RG 

020 

S.FATT= 

000016 

WSFULL= 

104403 

NUMFLG 

003230R 

025 

RARGCV 

003220R 

025 

SI 

X000005 

S.FDB  = 

000140 

WSNAME 

000074R 

025 

NUMLEN 

000062R 

025 

RARGFL 

003202R 

025 

SIDAMN= 

104433 

S.FLB  = 

040000 

WSTIME 

0001 32R 

025 

NUMNEG 

003232R 

025 

RARGLE 

0032 16R 

025 

SIFRAM 

00331 4R 

025 

S.FNAM= 

000006 

$ADDF   = 

icHlcitfelf     GX 

NUMQFL 

00323AR 

025 

RARGLN 

00321  OR 

025 

SISTAK 

006350R 

025 

S.F^e  = 

000036 

$CFCC  = 

•****•  GX 

NUMRIG 

003231 R 

025 

RARGPT 

003206R 

025 

SITOP 

006346R 

025 

S.FNBW= 

00001 7 

SCMPF   = 

•*•*••  GX 

NUMUID 

003226R 

025 

RARGSF 

00321 4R 

025 

SITP 

0071 44R 

02*^ 

i.FNTY= 

000004 

$DIVF   = 

••••••  GX 

Nl.f1ZFL 

003235R 

025 

RARGTY 

00321 2R 

025 

SIWARN= 

000200 

S.FTYP= 

000002 

%flS     = 

*•••••  G 

NYIERR= 

104A32 

RARGVA 

003222R 

025 

SIZTAB 

000044R 

025 

S.LEN  = 

000002 

$FPP     = 

•kifk-kfelf    Q 

N.BLSZ= 

000036 

RBASE 

005074R 

025 

SI.BIT= 

177774 

S.LINK= 

1 7777^ 

$FPPLN= 

*•*•**  G 

N.DESC= 

000020 

RBRTXT= 

•*•••*  GX 

SI.LEN= 

1 77772 

S.NFEN= 

000020 

$LDCIF= 

*•••••  GX 

N.DEV  = 

000032 

RCOUNR 

005112R 

025 

SI.RET= 

1 77772 

S.TYPE= 

140000 

$LDF     = 

•••i^**  GX 

N.DEVN= 

00003A 

RCOUNT 

005 11  OR 

025 

SI.VAL= 

1 77776 

S.VAL  = 

000000 

$MACHN= 

•♦*•*•  G 

N.DID  = 

000024 

REDCNT 

005070R 

025 

SKPSIZ 

0051 34R 

025 

TKDIMS 

005072R 

025  $RSTS  = 

IfKlfklfk     G 

N.DV^f1=  000032 

REDIGN 

005066R 

025 

SPHOLD 

000004R 

024 

TKFRAM 

005066R 

025  $RSX     = 

*•**•*  G 

N.EXT  = 

OOOOK 

REDOFF 

005072R 

025 

SPINIT 

000002R 

024 

TKLEFT 

005070R 

025  $RT11   = 

♦*••**  G 

N.FID  = 

000000 

REENTR 

003060R 

025 

STKINC= 

000774 

TMODE 

000403R 

023  $STCFI= 

******  GX 

N.FNAW=  000006 

RESBIT 

0031 42R 

025 

STOP     = 

104420 

TMPTAG= 

000166 

$STF     = 

•••»•*  GX 

N.FTYP= 

OOOOU 

RESCVT 

0031 52R 

025 

SIBCNT 

0031 04R 

025 

TTINIT= 

i^***«*  GX 

SSUBF   = 

ickickifk  GX 

N.FVER= 

000016 

RESERR= 

104440 

SUBDCT 

0031 06R 

025 

TTYBUF 

0041 40R 

025  $TSTF   = 

*•••*•  GX 

N.NAME= 

000006 

RESLEN 

0031 50R 

025 

SIBPTR 

00311  OR 

025 

TTYLEN= 

000622 

.B00LE= 

000002 

N.NEXT= 

000022 

RESPTR 

0031 40R 

025 

SYMBOL= 

***•••  GX 

TURKEY= 

104436 

.CHARA= 

000000 

N.PPN  = 

000024 

RESSFT 

0031 46R 

025 

SYMB1 

005344R 

025 

TYPE     = 

000166 

.DEF.   = 

000002 

N.STAT= 

000020 

RESTYP 

0031 44R 

025 

SYMF 

005340R 

025 

T.80L  = 

020000 

.FLOAT= 

000006 

N.UNIT= 

000034 

RESULT 

0031 36R 

025 

SYMPT1 

005346R 

025 

T.CON  = 

004000 

.FSRCB= 

•*•••*  G 

nBUFLN= 

001000 

RESVAL 

0031 54R 

025 

SYMTA8 

005352R 

025 

T.DIM  = 

000100 

.INTEG= 

000004 

OCHAN 

005052R 

0?5 

RINC 

005104R 

025 

SYMTBF= 

1 04404 

T.FUN  = 

010000 

.MOLUN 

000404R 

023 

OMODE 

000402R 

023 

RLTBAS 

005066R 

025 

SYMTOP 

005350R 

025 

T.LIST= 

000400 

...G8L= 

000000 

OPTMPO 

005066R 

025 

ROTINC 

005070R 

025 

SYMTP 

006272R 

025 

T.I. IT  = 

000020 

...TPC= 

000020 

0PTMP1 

OO507OR 

025 

ROUND 

00001  OR 

025 

.   ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

DYDTB 

000000 

00^ 

BOP  IB 

000000 

005 

FN 
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SYMBOL 

TABLE 

MC>BTB 

000000 

006 

DYDBTB 

000000 

007 

COMTB 

000000 

010 

CHRTBL 

000000 

Oil 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

OH 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

003050 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEF$0 

000A06 

023 

DEF$1 

000006 

024 

DEFS2 

007A00 

025 

ERRORS 
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1612 

^i^iHinmz 

MACROS 

35- 

1905 

DEFINITIONS 

APL  CHARACTERS 

36- 

1967 

DEFINITIONS 

ERRORS 

A4- 

4 

FNEND 

CLOSE  FUNCTION  DEFINITION 

FNEND   MACRO  M1113  08-FEB-80  12: 2A  PAGE  1 


1 

000000 

2 

000000 

3 

0001 1 5 

A 

5 

000000 

6 

000000 

7 

000000 

8 

9 

OOOOOA 

10 

11 

000000 

RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
FIS 
FPP 

II  II  II 
ooo 

FPPLEN 

=  A 

DEBUG 

=  0 

m 


;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

; SINGLE  PRECISION 

; DON'T  DISPLAY  REGISTERS  ON  ERRORS 


FNE^4D       MACRO  Ml  11 3  08-FEB-80  12:2A     PAGE  2 
APLDEF 

1  .S8TTL  APLDEF 

2  .IDENT  \V02.03\ 


mT 


GlT 

APL     MACRO  Ml  113  08-FEB-80  12:2A  PAGE  42 
DEFINITIONS     ERRORS 

2513  .LIST  SEQ,SRC,LOC,BIN,BEX,MEB 


H  1? 

FNENO   MACRO  M1113  08 

-FEB-80  12:24  PAGE  44 

DEFINITIONS 

ERRORS 

1 

.TITLE 

FNEND 

1 

. I DENT 

\V02.03\ 

4 
5 

.SBTTL 

FNEND 

CLOSE  FUNCTION  DEFINITION 

6 
7 

;  FUNCTIONAL  DESCRIPTION: 

8 

'FNEND' 

is  used  to  close 

an  open  function.  A  pass 

9 

IS  made  through  all  of  the  function's  Lines  so  that                         1 

10 

the  line  numbers  can  be  i 

'•eseguenced  by  1  and  so 

11 

that  lines  with  Labels  can  be  identified.  Pointers                         1 

12 

to  lines  with  labels  are 

pushed  on  the  SP  stack  so 

13 

that  a 

list  block  containing  the  pointers  can  be 

14 

attached  to  the  function 

header.  This  is  needed  so 

15 

that  when  the  function  is  executed  the  labels  will                          1 

16 

be  treated  as  local  vari. 

ables.  Finally,  the  function 

17 

is  marked  as  closed  and 

function  definition  mode 

18 
19 
20 

is  exited. 

■  REGISTER  ASSIGNMENTS: 

21 

RO  - 

SCRATCH 

22 

R1  - 

PTR  TO  CURRENT  LINE                                                1 

23 

R2  - 

COUNT  OF  LABELS  1 

■OUND 

24 

R3  - 

INTEGER  LINE  » 

25 

R4  - 

PTR  TO  FUNCTION'! 

5  HEAD 

26 

ACO  - 

CURRENT  LINE  # 

27 

AC1  - 

1.0 

28 

•  —- . 

29  000000 

30 

31  000000 

.PSECT 

CODE 

013704 

005012'        f 

■NEND:: 

MOV 

FHEADR,R4 

; POINT  TO  FN  HEADER 

32  000004 

010400 

MOV 

R4,R0 

;COPY  POINTER 

33  000006 

062700 

000010 

ADD 

/«fR.LNUM,RO 

;POINT  TO  LINE  NUMBER 

34  000012 

063700 

000062 • 

ADD 

NUMLEN,RO 

;POINT  TO  LABEL  LIST  BLOCK  PTR 

35  000016 

010037 

003136' 

MOV 

RO, RESULT 

;SAVE  LABEL  POINTER 

36  000022 

011000 

MOV 

aRO,RO 

;ANY  OLD  LABEL  LIST? 

37  000024 

001404 

BEQ 

1$ 

;NOPE 

38  000026 

CALL 

RETCOR 

;YES,  KILL  IT 

39  000032 

005077 

003136' 

CLR 

aRESULT 

;ZERO  WORD  IN  FN  HEADER 

40  000036 

005003 

> 

1$: 

CLR 

R3 

; CLEAR  INTEGER  LINE  » 

41  000040 

005002 

CLR 

R2 

; CLEAR  COUNT  OF  LABELS  FOUND 

42  000042 

010401 

MOV 

R4,R1 

;?01UJ   TO  FIRST  LINE 

43  000044 

44 

45  000046 

000407 

BR 

3$ 

;AND  START  PROCESSING  LINES 

010361 

000010        'c 

?$: 

MOV 

R3,R.LNUM(R1) 

;STORE  NEW  LINE  NUMBER  IN  LINE  BLOCK 

46  000052 

105761 

000002 

TSTB 

R.LCT(RI) 

;LINE  HAVE  LABEL? 

47  000056 

001402 

BEQ 

3$ 

;NOPE 

48  000060 

005202 

INC 

R2 

;YES,  COUNT  IT 

49  000062 

50 

51  000064 

PUSH 

R1 

;AND  SAVE  POINTER  TO  LINE 

005203 

5$: 

INC 

R3 

;BUMP  INTEGER  LINE  # 

52  000066 

016101 

000006 

MOV 

R.NEXT(R1),R1 

;POINT  TO  NEXT  LINE 

53  000072 

020104 

CMP 

R1,R4 

;DONE? 

54  000074 

55 

56 

001364 

•  ^ 

BNE 

2$ 

;N0,  PROCESS  NEXT  LINE 

;  FUNCTION  IS  RESEQUENCED  AND  LABELLED  LINES  HAVE  BEEN 

57 

;  LOCATED.   COPY  POINTERS  INTO  LIST  BLOCK  AND  FINISH  UP. 

FNEND   MACRO  Mil  13  08-FEB-80  12:2A  PAGE  4A-1 
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58 

59  000076 

60  000100 

61  000102 

62  0001 OA 

63  000106 

64  000112 

65  000116 

66  000122 

67  000124 

68  000130 

69  000132 

70  000136 

71  000140 


005702 
001421 
010200 
006300 
062700 


000004 


72 
73 
74 
75 
76 
11 
78 
79 


000144 
000152 
000160 
000162 
000170 
000176 


010077  003136' 

010001 

062701     000004 

010110 

010260  000002 

012621 


142764  000010  000003 

032737  010000  004764' 

001403 

1 52764  000004  000003 

042737  010014  004764' 


4$; 


5$; 


6$; 


TST 

BEQ 

MOV 

ASL 

ADD 

CALL 

MOV 

MOV 

ADD 

MOV 

MOV 

MOV 

SOB 

BIC8 

BIT 

BEQ 

BIS8 

BIC 

RETURN 


51 

R2,R0 

RO 

#L.PTR1,R0 

GET COR 

RO.aRESULT 

R0,R1 

/irL.PTR1,R1 

Rl,aRO 

R2,L.CNT(R0) 

(SP)+, (R1)+ 

R2,4$ 


ANY  LABELS  FOUND? 

NO 

COPY  LABEL  COUNT 

GET  WORD  COUNT 

ADD  OVERHEAD 

GET  A  BLOCK  OF  STORAGE  FOR  IT 

SET  PTR  TO  LIST  BLOCK  \H   FN  HEADER 

COPY  POINTER 

GET  OFFSET  TO  FIRST  PTR 

SAVE  POINTER  TO  FIRST  PTR 

FILL  IN  COUNT/CLEAR  BITS 

COPY  POINTER  INTO  BLOCK 

FILL  IN  ALL  LABEL  PTRS 


*F.0PN,R.BITS(R4);FUNCTI0N  IS  NO  LONGER  OPEN 
4fF.PR0T, FLAGS   ;WAS  IT  PROTECTED? 
6$  ;N0 

#F.L0C,R.BITS(R4);ITS  LOCKED 

#F.FNDF+F.STOP+F.PROT,FLAGS;NO  LONGER  IN  FN  DEF  MODE 

and  return 


TU 

FNEND   MACRO  M1113  08-FEB-80  12:24  PAGE  A6 
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K  IS 

SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRI  RR= 

000073 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

AC1   = 

X000001 

CHRLPR= 

000072 

C.BUFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

AC2   = 

X000002 

CHRMNS= 

000137 

C.BUFL= 

177762 

D.DQAD= 

-[77777 

EOF   = 

104475 

AC3   = 

X000003 

CHRMUL= 

000075 

C.CCNT= 

1 77766 

D.DR0P= 

000002 

ERRMAX= 

000166 

ACA   = 

XOOOOOA 

CHRNEG= 

000100 

C.CPTR= 

1 77764 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

ACS   = 

X000005 

CHRPDL= 

000271 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

ALLINT 

00327AR 

025 

CHRPLU= 

000055 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRO 

004774R 

025 

ARYRET 

003276R 

025 

CHRPWR= 

0001 20 

C.FASW= 

020000 

D.F6ET= 

000005 

EXEBUF 

005054R 

025 

ASCQUO=  000042 

CHRQST= 

000121 

C.FLEN= 

000010 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.ALEN=  OOOOOA 

CHRQU0= 

000113 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.ARG  = 

000040 

CHRRBR= 

000047 

C.FRC  = 

000001 

D.FPUT= 

000005 

FA.APD= 

000100 

A.ASB  = 

000200 

CHRRPR= 

000042 

C.IDEN=  000010 

D.GE  = 

000000 

FA.CRE= 

000010 

A.BITS= 

000003 

CHRSEM=  000074 

C.NAME= 

000102 

D.GT  = 

000000 

FA.DLK= 

001000 

A.CON  = 

000020 

CHRSM0= 

000112 

C.N0BF= 

000400 

D.IBM  = 

000002 

FA.E^e= 

100000 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.EXC= 

002000 

A.Dim  = 

000006 

CHRUPA= 

000131 

COP  = 

000004 

D.INNR= 

000013 

FA.EXT= 

000004 

A.NUM  = 

000006 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.INTR= 

000006 

FA. NSP= 

000100 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.RDLN= 

177776 

D.LE  = 

000000 

FA.NSR= 

000200 

A.TMP  = 

000010 

CHR.CR= 

000015 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.POS= 

010000 

BADD1R= 

104463 

CHR.CZ= 

000032 

C.RND  = 

000010 

D.LT  = 

000000 

FA.RD  = 

000001 

BADERR= 

104437 

CHR.GT= 

000046 

C.S8IT= 

177756 

D.MAX  = 

000000 

FA.RWD= 

004000 

BLZBUB 

0051 16R 

025 

CHR.LF= 

000012 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.SEQ= 

040000 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C . SPGL= 

000200 

D.MIN  = 

000000 

FA.SHR= 

000040 

CCNT 

005072R 

025 

CHR. SI= 

000017 

C.SPLX= 

000001 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C . SPRS= 

000002 

D.NE  = 

000000 

FA.WCK= 

020000 

CHANOO 

000256R 

025 

CHR.S0= 

000016 

C.SRC  = 

177774 

D.NN  = 

000000 

FA.WRT= 

000002 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C.SRCP= 

000024 

D.NR  = 

000000 

FD.GLK= 

000010 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.TT  = 

000004 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN03 

000674R 

025 

CHR..A= 

000141 

C.WIDC= 

177770 

D.PLUS= 

000000 

FD.CQM=  020000 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.WIDR= 

1 77772 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN05 

001240R 

025 

CHR..S= 

000163 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN06 

001422R 

025 

CHR..T= 

000164 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.FTN= 

000001 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEVIL 

0051 14R 

025  D.QUAD= 

000000 

FD.F11= 

040000 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD.ISP= 

002000 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DIMBLK 

0031 12R 

025  D.SCON= 

000006 

FD.0SP= 

004000 

CHAN12 

002676R 

025 

CMDBUF 

003250R 

025  DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.PLC= 

000004 

CHAN13 

000022R 

023  CMDMAX= 

000010 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN=  000004 

CHANK 

000204R 

023 

CNTSIZ 

0051 30R 

025  D1RFUL= 

104466 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHN0PN= 

104471 

COMBIN 

005076R 

025  D0MERR= 

104417 

D.TAKE= 

000002 

FD.RAH= 

000001 

CHRAND= 

000051 

COMCNT 

0051 26R 

025 

DPTERR= 

104416 

D.TRAN= 

OOOOGA 

FD.RAN= 

000002 

CHR8EL= 

000007 

CQriERR= 

104425 

DYDCNT 

003224R 

025  D.UN0N=  000006 

FD.REC= 

000001 

CHRBKR= 

000133 

CGMPTR 

0051 22R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RUM=  000001 

CHRROI.= 

000200 

COMRTN 

0031 56R 

025  D.exCT= 

000007 

D.$MIN= 

000000 

FD.SDI= 

000020 

CHHBOX= 

000114 

CQMSKP 

005124R 

025  D.BXIO= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRC«A= 

000054 

CORPTR 

0051 20R 

025 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.TTY= 

000004 

CHRCOL= 

000076 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.WBH= 

000002 

CHRDEL= 

000107 

CS.BOO= 

000010 

D.BXPW= 

000007 

D.$SUB= 

000000 

FF.CHR= 

000005 

CHRDIV= 

000053 

CS.FLO= 

000020 

D.BXRL= 

000007 

D.1C0M=  000001 

FF.NV  = 

000003 

CHRDLR= 

000176 

CS.IDN= 

000040 

D.CIRC= 

000001 

D.1EXP= 

000002 

FF.P0E= 

000002 

CHRDLT= 

000110 

CS.ONE= 

000100 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D.COMP= 

000001 

EDI CHR 

005063R 

025  FF.RWF= 

000006 

CHREP  = 

000105 

CTMAX 

00021 2R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF.SPC= 

000004 

cmERR= 

104431 

CTRMAX 

0001 72R 

025  D.CTLM= 

000000 

EDIFL6 

005062R 

025  F HE ADR 

00501 2R 

025 

CHRFIL= 

000177 

C.ALOC= 

000] 62 

D.DEAL= 

000003 

EDIT  = 

000003 

FHRET 

005040R 

025 

CHRFRO= 

000135 

C.BLOK= 

000064 

D.DECD= 

000002 

EIS   = 

000000 

FILNTF= 

1 04467 
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L  1? 

SYMBOL  TABLE 

FIS   =  000000 

F.F^B  = 

000102 

I  CHAN 

005050R 

025  MONPTR 

0031 22R 

025  M.SATA=  000001 

F1SC0N=  0A6000 

F.FNDF= 

000010 

ILFNAM= 

104464 

MONSFT 

0031 26R 

025  M.SCAN=  000011 

FIXPTR  003074R 

025 

F.FTYP= 

000116 

ILLCHN= 

104540 

MONTYP 

0031 24R 

025  M.SHAP=  000000 

FLAGS   00A76AR 

025 

F.FUN  = 

000010 

ILLSW  = 

104565 

MONVAL 

0031 34R 

025  M.SI6N=  000000 

FLCBUF  003250R 

025 

F.FVER= 

000120 

INDERR= 

104410 

M.ABS  = 

000000 

M.S(.BR=  000001 

FLI^€   00501AR 

025 

F.HEAD= 

000006 

INNTMP 

003250R 

025  M.BOL  ^ 

000200 

M.SYM  =  000203 

FLOEXP  003270R 

025 

F.HIBK= 

000004 

INNTM2 

00501 6R 

025  M.BXAV= 

000007 

M.SYN  =  000201 

FLONEG  003272R 

025 

F.LBL  = 

000020 

INPTR 

000064R 

025  M.BXCR= 

000007 

M.TRAN=  000012 

FLSWTB  000222R 

025 

F.LINE= 

000012 

INSNAM= 

104462 

M.BXCT= 

000007 

M.$ABS=  000000 

FLTLEN=  000010 

F.LOC  = 

000004 

lOERR  = 

104477 

M.BXEX= 

000007 

M.$CEI=  000000 

F^END   OOOOOORG 

020 

F.LSTC= 

000004 

I.CNT  = 

1 7777 t 

M.BXFX= 

000007 

M.$FLR=  000000 

FNINSI  0050A4R 

025 

F.LUN  = 

000042 

I. DIM  = 

\77772 

M.BXI0= 

000007 

M.$IDN=  000000 

FORIGN  000032R 

025 

F.MBCT= 

000054 

I.LEN  = 

000012 

M.BXLC= 

000003 

M.$NE6=  000000 

FO.APD=  000106 

F.)1BC1  = 

000055 

I.OERR= 

000062 

M.BXNC= 

000007 

M.$SI6=  000000 

FO.MFY=  000002 

F.MBFG= 

000056 

I. OLD  = 

}77770 

M.8XNL= 

000007 

M.1RDT=  000011 

FO.RD  :--  000001 

F.MON  = 

000002 

I.PTR  = 

1 7777i, 

M.BXPP= 

000007 

M.1REV=  000003 

FO.UPD=  000006 

F.NIL  = 

000001 

I. SIR  = 

^77766 

M.8XPW= 

000007 

M.1SCN=  000011 

FO.URT=  000016 

F.NRBD= 

000024 

LABERR= 

104406 

M.6XRL= 

000007 

NAMBUF  003240R 

025 

FPfiODE  0000A2R 

025 

F.NREC= 

000030 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV=  000200 

FPP   =  000000 

F.OPN  = 

000010 

LARGBL 

0031 62R 

025  M.BXWA= 

000007 

NB.DIR=  000100 

FPPLEN=  000004 

F.0VBS= 

000030 

LARGCV 

0031 76R 

025  M.CEI  = 

-[77777 

NB.NAM=  000004 

FREBLK  007400R 

025 

F.PREV= 

000000 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1=  000400 

FUZZ    000U2R 

025 

F.PRNT= 

100000 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2=  001000 

FXPTR1  003076R 

025 

F.PROT= 

010000 

LARGLN 

0031 66R 

025  M.D0UT= 

000006 

NB.SI\ri=  000040 

F$EVAL=  000100 

F.RACC= 

000016 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP=  000020 

F$EVI  =  000200 

F.RATT= 

000001 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR=  000010 

F$EXEC=  000400 

F.RCNM= 

000034 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP=  000002 

F$FUNC=  001000 

F.RCTL= 

000017 

LARGVA 

003200R 

025  M.EXP  = 

000001 

NB.VER=  000001 

F.ACTL=  000076 

F.READ= 

004000 

LBINC 

0051 OOR 

025  M.FACT= 

000001 

ND.DEV=  000200 

F.AL0C=  000040 

F.REDF= 

000040 

LBUFF 

00331 6R 

025  M.FIL  = 

0001 77 

ND.EXT=  000002 

F.BBFS=  000062 

F.RES  = 

000040 

LBUFLN= 

000621 

M.FLR  = 

^77777 

ND.NAM=  000004 

F.BDB  =  000070 

F.RET  = 

M7772 

LCOUNT 

0051 06R 

025  M.FMT  = 

000004 

ND.PPN=  000100 

F.BGBC=  000057 

F.RSIZ= 

000002 

LENERR= 

104412 

M.GDUP= 

000003 

ND.$EX=  000000 

F.BITS=  177774 

F.RTYP= 

000000 

LENTAB 

000054R 

025  M.GDWN=  000003 

ND.$E$=  000020 

F.BICDN=  000026 

F.R2  = 

000014 

LEXPTR 

0031 OOR 

025  M.GETI= 

000006 

ND.$f#1=  000000 

F.BKDS=  000020 

F.R3  = 

000016 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$=  000040 

F.BKEF=  000050 

F.R4  = 

000020 

LINC 

0051 02R 

025  M.IDN  = 

000000 

ND.$PN=  001400 

F.BKP1=  000051 

F.SEQN= 

000100 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN  005063R 

025 

F.BKST=  000024 

F.SPDV= 

000072 

LINING 

005026R 

025  M.I0TA= 

000000 

NINPT1  003302R 

025 

F.BKVB=  000064 

F.SPUN=  000074 

LISIZE= 

000020 

M.LIT  = 

000205 

NINPT2  003300R 

025 

F.BR  =  000020 

F.STBK= 

000036 

LI  TOP 

005072R 

025  M.LN  = 

000001 

NINSTK  003304R 

025 

F.CHR  =  000075 

F.STK  = 

000022 

LNLN6  = 

104541 

M.MMD  - 

000010 

NINTMP  00331 OR 

025 

F.CNT6=  000034 

F.STOP= 

000004 

LOCLCT 

005036R 

025  M.NE6  = 

000000 

NINTYP  003306R 

025 

F.COOE=  000010 

F.STP  = 

000001 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

N0TAVL=  104472 

F.DFI«=  000046 

F.SUSP= 

000002 

LSTERP 

004766R 

025  M.NU8  = 

000006 

NOTOPN=  104473 

F.DSPT=  000044 

F.TRC  = 

000002 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

NPRT1   004762R 

025 

f.D\/m=   000134 

F.UNIT= 

000136 

L.BITS= 

000003 

M.OUTR= 

000012 

NULL    007364R 

025 

F.EFBIC=  000010 

F.URBO= 

000020 

L.CNT  = 

000002 

M. PI TM=  000000 

NUMCHN=  000020 

F.EFN  =  000050 

F.VAL  = 

M777t 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL  003230R 

025 

F.END  =  002000 

F.VBN  = 

000064 

L.PTR  = 

000000 

M.QQAD= 

000000 

NLMEFL  003233R 

025 

F.E0BB=  000032 

F.VBSZ= 

000060 

L.PTR1= 

000004 

M.QUAD= 

000000 

NU1ESN  003236R 

025 

F.ERR  =  000052 

GETC0R= 

****••  GX 

L.SUBS= 

000002 

M.RAND= 

000012 

NUMFLG  003230R 

025 

f.fACC=   000043 

GNOMfc 

0031 02R 

025  MACHIN= 

000106 

M.RAVL= 

000000 

NUMLEN  000062R 

025 

F.FFBy=  000014 

hash: 

005136R 

025  MAXCHN= 

000014 

M.RCIP= 

000000 

NUMNEG  003232R 

025 

F.FLAG=  000002 

HASHia 

0051 40R 

025  MONBLK 

0031 20R 

025  M.RDCT= 

00001 1 

NUMQFL  003234R 

025 

F.FLB  =  000100 

HSHMSK= 

1 77601 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

NUMRIG  003231 R 

025 

F.FNAM=  000110 

HSHSIZ= 

000200 

MONLEN 

0031 30R 

025  M.ROLL= 

000000 

NUMWID  003226R 

025 

M  13 

FNEND 

MACRO  Mil  13  08- 

-FEB-80 

12:24  PAGE 

46-3 

SYIXBOL 

TABLE 

NUMZFL 

003235R 

025 

RARGBL 

003204R 

025  R.OFF  = 

000000 

SY.CLR= 

000040 

T.LIT  = 

000020 

NYIERR= 

104432 

RARGCV 

003220R 

025  R.PREV= 

000004 

SY.ERP= 

000020 

T.MON  = 

000010 

N.BLSZ= 

000036 

RARGFL 

003202R 

025  R.PTR  = 

000000 

SY.NOU= 

000100 

T.NIL  = 

000004 

N.DESC= 

000020 

RARGLE 

00321 6R 

025  R.SEQ  = 

000003 

SY.OPN= 

000002 

T.NUM  = 

002000 

N.DEV  = 

000032 

RARGLN 

00321  OR 

025  R.VAR  = 

000002 

SY.PMT= 

001000 

T.OPFN= 

000001 

N.DE\/N=  000034 

RARGPT 

003206R 

025  R6 

X000006 

SY.SRT= 

000400 

T.OTHR= 

040000 

N.DID  = 

000024 

RARGSF 

00321 4R 

025  R7 

X000007 

SY.SVC= 

000004 

T.SOP  = 

000002 

N.D\/NM=  000032 

RARGTY 

00321 2R 

025 

SI 

X000005 

SY.SVL= 

000200 

T.SPOP= 

000040 

N.EXT  = 

000014 

RARGVA 

003222R 

025 

SIDAMN= 

104435 

S.AB  = 

177776 

T.TWP  = 

000200 

N.FID  = 

000000 

RBASE 

005074R 

025 

SIFRAM 

00331 4R 

025 

S.A.SR  = 

100000 

T.VAL  = 

100000 

N.FNAM=  000006 

RCOUNR 

0051 12R 

025 

SISTAK 

006350R 

025 

S.BFHD= 

000020 

T.VAR  = 

001000 

N.FTYP=  000014 

RCOUNT 

00511  OR 

025 

SI  TOP 

006346R 

025 

S.BITS= 

000002 

UPPER  = 

1 77400 

N.FVER= 

000016 

REDCNT 

005070R 

025 

SITP 

0071 44R 

025 

S.CHR1= 

000003 

UTNAME 

000344R 

023 

N.NAf€= 

000006 

REDIGN 

005066R 

025 

SIUARN= 

000200 

S.FATT= 

000016 

VALERR= 

104413 

N.NEXT= 

000022 

REDOFF 

005072R 

025 

SIZTAB 

000044R 

025 

S.FDB  = 

000140 

VARBLE 

007400R 

025 

N.PPN  = 

000024 

REENTR 

003060R 

025 

SI.BIT= 

177774 

S.FLB  = 

040000 

VARBLS 

OOOOOOR 

025 

N.STAT= 

000020 

RESBIT 

0031 42R 

025 

SI.LEN= 

177772 

S.FNAM= 

000006 

VERNUM 

OOOOOOR 

025 

N.UNIT= 

000034 

RESCVT 

0031 52R 

025 

SI.RET= 

177772 

S.FNB  = 

000036 

VRSION= 

000002 

nRUFLN=  001000 

RESERR= 

104440 

SI.VAL= 

1 77776 

S.FNBW= 

00001 7 

WIDTH 

000072R 

025 

OCHAN 

005052R 

025 

RESLEN 

0031 50R 

025 

SKPSIZ 

0051 34R 

025 

S.FNTY= 

000004 

UROUND 

000020R 

025 

OMODE 

000402R 

023  RESPTR 

0031 40R 

025 

SPHOLD 

000004R 

024 

S.FTYP= 

000002 

WSDATE 

0001 36R 

025 

OPTMPO 

005066R 

025 

RESSFT 

0031 46R 

025 

SPINIT 

000002R 

024 

S.LEN  = 

000002 

WSFULL= 

104403 

OPTMPI 

005070R 

025 

RESTYP 

0031 44R 

025 

STKINC= 

000774 

S.LINK= 

177774 

WSNAME 

000074R 

025 

0PTMP2 

005072R 

025 

RESULT 

0031 36R 

025 

STOP  = 

104420 

S.NFEN=  000020 

WSTIME 

0001 32R 

025 

0PTMP3 

005074R 

025 

RESVAL 

0031 54R 

025 

SUBCNT 

0031 04R 

025 

S.TYPE= 

140000 

%flS     = 

*•••••  Q 

0PTMP4 

005076R 

025  RETC0R= 

*•••••  QX 

SUBDCT 

0031 06R 

025 

S.VAL  = 

000000 

%fPP     = 

•••♦••  Q 

0PTMP5 

0051 OOR 

025 

RINC 

005104R 

025 

SIRPTR 

00311  OR 

025 

TKDIMS 

005072R 

025  $FPPLN= 

♦••••*  Q 

0PTMP6 

0051 02R 

025 

RLTBAS 

005066R 

025 

sym^ 

005344R 

025 

TKFRAM 

005066R 

025  $MACHN= 

•  •*•••  (3 

0PTMP7 

0051 04R 

025 

ROTINC 

005070R 

025 

SYMF 

005340R 

025 

TKLEFT 

005070R 

025  $RSTS  = 

iAr****«  6 

0PTI>f>8 

0051 06R 

025 

ROUND 

00001  OR 

025 

SYMPT1 

005346R 

025 

TMODE 

000403R 

023  $RSX  = 

^^••^•*  Q 

0PTMP9 

00511  OR 

025 

ROVER 

00331 2R 

025 

SYMTAB 

005352R 

025 

TMPTAG= 

000166 

$RT11  = 

*•••••  Q 

opimo 

0051 12R 

025 

RSTS  = 

000000 

SYriTBF= 

104404 

TTYBUF 

0041 40R 

025  .BOOLE= 

000002 

OPTMU 

005026R 

025 

RSX   = 

000115 

SYMTOP 

005350R 

025 

TTYLEN- 

000622 

.CHARA= 

000000 

ORIGIN 

000030R 

025 

RTOP 

005070R 

025 

SYMTP 

006272R 

025 

TURKEY= 

104436 

.DEF.  = 

000002 

OUTPTR 

000066R 

025 

RT11   = 

000000 

SYMWRN= 

000054 

TYPE  = 

000166 

.FLOAT= 

000006 

0\/ROPR= 

000000 

R.BITS= 

000003 

SYNERR= 

104407 

T.80L  = 

020000 

.FSRCB= 

••••*•  G 

PATCH 

007344R 

025 

R.FIX  = 

000001 

SYSERR= 

104402 

T.CON  = 

004000 

.INTEG= 

000004 

PRECSN 

00OO52R 

025  R.LCT  = 

000002 

SYSTAT 

OOOOOOR 

024 

T.DIM  = 

000100 

.MOLUN 

000404R 

023 

RANDAC 

003064R 

025 

R.LN  = 

000002 

SY.8AD= 

000001 

T.FUN  = 

010000 

,..6BL= 

000000 

RANDY 

003062R 

025 

R.LNUM= 

000010 

SY.8RK= 

100000 

T.LISr= 

000400 

...TPC= 

000020 

RA.NERR= 

104411 

R.NEXT= 

000006 

SY.8S  = 

000010 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYDBTB 

000000 

007 

COWTB 

000000 

010 

CHRTBL 

000000 

011 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

014 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

FNENO 
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SYMBOL 

TABLE 

MNTRTL 

000000 

017 

CODE 

000200 

020 

PATCH 

000000 

021 

SSFSRI 

000000 

022 

DEFSO 

000A06 

023 

DEF$1 

000006 

024 

DEF$2 

007400 

025 

ERRORS 

DETECTED: 

0 
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TITLE  FNEXEC 
IDENT  \V02.03\ 

SBTTL  FNCALL 


CALL  USER  DEFINED  FUNCTION 


++ 


FUNCTIONAL  DESCRIPTION: 

•MONAD',  'DYAD',  and  'VAL'  call  "FNCALL*  when  the  evaluation 
of  a  user-defined  function  is  desired.  When  a  function  is 
executed,  the  values  of  the  local  variables  must  be  saved 
(on  the  SI   stack  in  the  F-frame)  so  that  when  the  function 
is  exited  CFNEXIT')  the  old  values  of  the  local  variables 
(and  labels)  can  be  restored.  The  argument (s)  of  a  function 
and  the  result  are  also  local  variables. 

This  routine  creates  an  F-frame  on  the  SI   stack  and  places 
in  it  the  old  values  (actually  the  value  poiners)  of  tne  local 
variables.  When  this  is  done,  the  arguments  are  bound  to  the 
dummy  variables  which  are  the  arguments  of  the  function,  and 
'FNEXEC*  is  branched  to  and  the  function  is  executed. 

CALLING  SEQUENCE: 

CALL    FNCALL 


INPUTS: 
R4 

OUTPUTS: 

NONE 


-  Points  to  name  block  of  function  to  be  evaluated, 


000000 


IMPLICIT  OUTPUTS: 

An  F-frame  is  created  on  the  SI  stack  for  the  function  call, 
and  local  variables  are  handled. 

ROUTINES  CALLED: 

ASSIGN  -  Assign  an  arg  to  a  variable 
BRKCHK  -  Check  for  CONTROL-C  interrupt 
FNEXIT  -  End  the  function,  nothing  to  do 
STKXTN  -  Not  enough  room  left  on  5l,  get  more 


,PSECT  CODE 
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FNCALL 

CALL  USER  DEFINED  FUNCTION 

43  000000 

FNCALL: 

• 
• 

4A  000000 

CALL 

BRKCHK 

; CHECK  TO  SEE  IF  HE'S  HAD  ENOUGH  OF  APL 

45  000004 

010502 

MOV 

SI,R2 

;SAVE  POINTER  TO  ARGS 

46  000006 

011403 

MOV 

aR4,R3 

; POINT  TO  FN  HEADER 

47  000010 

116300  000002 

Move 

R.LCT(R3),R0 

;GET  LOCAL  VARIABLE  COUNT 

48  000014 

062700  000003 

ADD 

*3,R0 

;PLUS  ARGS 

49  000020 

062703  000010 

ADD 

4fR.LNUM,R3 

;POINT  PAST 

50  000024 

063703  000062* 

ADD 

NUMLEN,R3 

;LINE  NUMBER 

51  000030 

011303 

MOV 

aR3,R5 

; POINT  TO  LABEL  BLOCK 

52  000032 

001403 

BEQ 

12$ 

;N0  LABELS 

53  000034 

116303  000002 

MOVB 

L.CNT(R3),R3 

;GET  COUNT  OF  LABELS 

54  000040 

060300 

ADD 

R3,R0 

; TOTAL  STACK  SIZE  NEEDED 

55  000042 

006300 

12$: 

ASL 

RO 

',IH   WORDS 

56  000044 

060500 

ADD 

SI.RO 

;END  OF  FRAME 

57  000046 

023700  006346* 

CMP 

SITOP,R0 

;T00  MUCH? 

58  000052 

101002 

BHJ 

10$ 

;NOPE 

59  000054 

CALL 

STKXTN 

; EXTEND  THE  STACK 

60  000060 

013700  003314' 

10$: 

MOV 

SIFRAM,RO 

;POINT  TO  PREVIOUS  FRAME 

61  000064 

013760  004764' 

000002 

MOV 

FLAGS, F.FLAG(RO). 

;SAVE  THE  FRAME'S  FLAGS 

62  000072 

012625 

MOV 

(SP)+, <SI)^ 

;SAVE  RETURN  TO  CALLING  ROUTINE 

63  000074 

005025 

CLR 

i%l)^ 

; CLEAR  PARSE  FRAME'S  BITS 

64  000076 

005025 

CLR 

(.Sl)^ 

;N0  RESULT  OF  FN  YET 

65  000100 

010501 

MOV 

SI,R1 

;COPY  SI  POINTER 

66  000102 

010025 

MOV 

RO,(SI)+ 

\?^W\   TO  PREVIOUS  FRAME 

67  000104 

010137  003314' 

MOV 

RUSIFRAM 

rSAVE  POINTER  TO  THIS  F-FRAME 

68  000110 

012737  001000 

004764 ' 

MOV 

*F$FUNC, FLAGS   < 

;THIS  IS  AN  F-FRAME 

69  000116 

005025 

CLR 

{%l)^ 

; CLEAR  FRAME'S  FLAGS 

70  000120 

005025 

CLR 

kS\)^ 

; CLEAR  LAST  C-BYTE 

71  000122 

005025 

CLR 

{%l)^ 

; CLEAR  HEADER  POINTER 

72  000124 

011403 

MOV 

aR4,R3 

J  GET  POINTER  TO  FN  HEADER 

73  000126 

001001 

BNE 

2$ 

;IS  IT  REALLY  A  FUNCTION? 

74  000130 

104402 

1$: 

SYSERR 

;NOPE,  FN  CALL  WITHOUT  FUNCTION? 

75  000132 

010325 

2$: 

MOV 

R3,(si)^         ; 

;SAVE  POINTER  TO  FN  HEADER 

76  000134 

010325 

MOV 

R3,(SI)^- 

; HEADER  IS  INITIAL  LINE 

77  000136 

012625 

MOV 

(SP)  +  ,(SI)^- 

;COPY  INPUT  CODESTRING  PTR  (R2) 

78  000140 

012625 

MOV 

(SP)+,(SI)+ 

;SAVE  CURRENT  TOKEN  BITS   (R3) 

79  000142 

012625 

MOV 

(SP)+,(SI)+ 

;SAVE  CURRENT  TOKEN  VALUE   (R4) 

80  000144 

012625 

MOV 

(SP)+, (SI)+ 

; CALLING  ROUTINE  LINK  WORD 

81  000146 

PUSH 

R2 

;SAVE  POINTER  TO  ARGUMENTS 

82  000150 

010302 

MOV 

R3,R2 

;COPY  POINTER  TO  FN  HEADER 

83  000152 

062702  000010 

ADD 

/!fR.LNUM,R2 

; POINT  TO  LINE  n   OF  HEADER  (0) 

84  000156 

063702  000062' 

ADD 

NUMLEN,R2 

;M0VE  PAST  LINE  H   TO  LABEL  POINTER 

85  000162 

PUSH 

R2 

;SAVE  PTR  INTO  HEADER 

86  000164 

005722 

TST 

i.^2)^ 

;SKIP  PAST  LABEL  POINTER 

87  000166 

012701  000003 

MOV 

*3,R1 

;Get  nLwber  of  result,  left  and  right  args 

88  000172 

012200 

FNCAL1 : 

MOV 

(R2)+,R0 

;Argument's  name  block 

89  000174 

001403 

BEQ 

1$ 

; There  isn't  one 

90  000176 

011025 

MOV 

(RO),(SI)+ 

"Save  Its  old  value  in  the  F-frame 

91  000200 

005010 

CLR 

(RO) 

•It  has  no  new  value  yet 

92  000202 

000401 

BR 

2$ 

■Go  to  loop 

93  000204 

005025 

1$: 

CLR 

{%l)^ 

; Clear  argument  pointer  in  F-frame 

94  000206 

2$: 

snR 

R1,FNCAL1 

;Loop  for  all  arguments 
•GET  LOCAL  VARIABLE  COUNT 

95  000212 

116301  000002 

MOVB 

R.LCT(R3),R1 

96  000216 

001406 

BEQ 

10$ 

•There  aren't  any 

•POINT  TO  LOCAL  VAR'S  NAME  BLOCK 

97  mm.^ 

012200 

3$: 

MOV 

(R2)^,R0 

98  000222 

001402 

BEQ 

4$ 

•NO  LOCAL,  SO  SKIP 

99  ^m22U 

011025 

MOV 

aRO,(SI)^- 

•PUSH  ITS  OLD  VALUE 
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100  000226  005010 

101  000230 


A$: 


CLR 
SOB 


SIRO 
R1,3$ 


;N0W  LOCAL  HAS  NO  VALUE 
;SAVE  ALL  LOCAL  VARIABLES 
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03 
04 
05 
06 

07  00023A 

08  000240 

09  000242 

10  000246 

11  000250 

12  000252 

13  000256 

14  000262 
15 

16  000264 

17  000266 

18  000270 

19  000272 

120  000274 

121  000276 
122 

123 
124 
125 
126 

127  000302 

128  000304 

129  000310 

30  000312 

31  000314 

132  000316 

133  000322 

134  000326 
35  000334 
136  000336 

37  000340 

38  000342 

39  000346 

40  000354 

41  000360 

142  000362 

143  000370 

144  000374 

145  000376 

146  000400 

47  000404 

48  000410 

49  000416 

50  000420 

51  000422 

52  000424 

53  000430 

54  000436 

55  000442 

56  000444 
57 

58 
59 


017602  000000 
001420 


THE  LOCAL  VARIABLES  HAVE  BEEN  INITIALIZED,  SO 
SET  UP  THE  LABELS  FOR  THIS  FUNCTION. 


10$: 


116201 
001001 
104402 
01 2704 


000002 


00001 0 


063704  000062 ' 
01 1 202 

012200 
060400 
012003 
011325 
010013 


14$: 


5$: 


MOV 

aO(SP),R2 

BEQ 

6$ 

MOVB 

L.CNT(R2),R1 

BNE 

14$ 

SYSERR 

MOV 

4rR.LNUM,R4 

ADD 

NUMLEN,R4 

MOV 

aR2, R2 

MOV 

CR2)^•,R0 

ADD 

R4,R0 

MOV 

(R0)+,R3 

MOV 

SIR3,(SI)^ 

MOV 

R0,aR3 

SOB 

RU5$ 

POINT  TO  LABEL  LIST  BLOCK 

GOOD  FOR  HIM... NO  LABLES 

GET  LABEL  COUNT 

There  better  be  some 

No  Labels,  Then  there  shouldn't  be  a  label  block 

GET  Off  SET   TO  LINE  M 

GET  OFFSET  TO  LABEL  PTR  IN   LINE  BLOCK 

POINT  TO  FIRST  POINER 

GET  PTR  TO  LINE  BLOCK 

POINT  TO  LABEL  POINTER 

GET  LABEL'S  NAME  BLOCK  POINTER 

SAVE  LABEL'S  OLD  VALUE 

LABEL'S  VALUE  IS  LINE  # 

PROCESS  ALL  LABELS 


NOW  THAT  LABELS  ARE  INITIALIZED,  SET  UP  THE  LEFT 
AND  RIGHT  ARGUMENTS  FOR  THE  FUNCTION. . .I.E.  ASSIGN 
VALUES  TO  THEM. 


062702  000004 


012204 
001427 

016103 
132763 
001401 
005016 


020061 
001003 
152760 
062701 
012204 
001425 

016103 
132763 
001401 
005016 


020061 
001003 
152760 


1 77776 

000010  000003 


1 77776 

000040  000003 
1 77764 


1 77776 

000010  000003 


1 77776 

000040  000003 


6$ :     POP  R2 

ADD  *4,R2 

POP  R1 

MOV  (R2)+,R4 

BEQ  7$ 

PUSH  SI.BITS(RI) 

MOV  SI.VAL(R1),R3   , 

BITS  #A.TMP,A.BITS(R3) 

BEQ  12$ 

CLR  (SP) 

12$:    PUSH  R1 

CALL  ASSIGN 

POP  <R1,SI.BITS(R1)> 

CMP  R0,SI.VAL(R1) 

BNE  11$ 

BISB  4fA.ARG,A.BITS(R0) 

11$:    ADD  /!f2*SI.LEN,R1 

7$:     MOV  (R2)^,R4 

BEQ  8$ 

PUSH  SI.BITS(RI) 

MOV  SI.VAL(R1),R3   . 

BITS  *A.TMP,A.BITS(R3) 

BEQ  13$ 

CLR  (SP) 

13$:    PUSH  R1 

CALL  ASSIGN 

POP  <R1,SI.BITS(R1)> 

CMP  R0,SI.VAL(R1) 

BNE  8$ 

BISB  4fA.ARG,A.BITS(R0) 


RESTORE  PTR  INTO  FN  HEADER 

POINT  TO  LEFT  ARG 

POINT  TO  LEFT  ARG 

GET  LEFT  ARG'S  NAME 

If   NONE  THEN  SKIP 

SAVE  SI  BITS 

GET  't)LD"  POINTER  TO  DATA 

:1S   IT  A  TEMPORARY? 
YES,  DON'T  WORRY 
NO,  SO  KILL  THE  BITS 
SAVE  SI  POINTER 
ASSIGN  LEFT  ARG  TO  VARIABLE 
GET  BACK  PTR  TO  VAL  FRAME 
WAS  ARG  COPIED? 

YES,  SO  WE  MUST  DEALLOCATE  COPY 
;N0,  PREVENT  DEALLOCATION 
POINT  TO  RIGHT  ARG'S  VAL  FRAME 
POINT  TO  RIGHT  ARG'S  VALUE 
If   NONE  THEN  SKIP 
SAVE  BITS 
POINT  TO  VALUE 

;1S   IT  ASSIGNED? 
NOPE 

YES,  CLEAR  SI  BITS 
SAVE  POINTER  TO  ARG'S  FRAME 
ASSIGN  VALUE  TO  RIGHT  ARG 
RESTORE  POINTER  TO  FRAME 
WAS  ARG  COPIED? 

YES,  SO  WE  MUST  DEALLOCATE  COPY 
;ELSE  MARK  BLOCK  TO  PREVENT  DEALLOCATION  BY  US 


INITIALIZATION  IS   COMPLETE.  POINT  TO  FIRST  LINE  IN 
FUNCTION  AND  START  FUNCTION  EXECUTION. 
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160 

161  OOOA52 

162  000A56 

163  000462 

164  000466 

165  000472 

166  000474 

167  000476 
168 

169  000502 

170  000506 
171 


01 3703 
010563 
016302 
016204 
020402 
001 402 
0001 37 


0001 75 


003314* 
000004 
000010 
000006 


000512' 
1 11172 


k%\ 


9$; 


MOV 

SIFRAM,R3 

MOV 

SI,F.LSTC(R3) 

MOV 

F.FUN(R3),R2 

MOV 

R.NEXT(R2),R4 

CMP 

R4,R2 

BEO 

9$ 

JMP 

FNEXEC 

CALL 

FNEXIT 

JMP 

aSI.RET(SI) 

POINT  TO  THIS  F-FRAME 

POINT  TO  END  OF  SI 

POINT  TO  FN  HEAD 

POINT  TO  FIRST  LINE  OF  m 

NO  LINES  IN  FN? 

NOPE '  "^ ' 

START 'function  EXECUTION 

ELSE  POP  F-FRAME 
AND  RETURN  TO  CALLER 


M  14 
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173 

.SBTTL  FNEXEC 

EXECUTE  USER-DEFINED  FUNCTION 

174 

175 

;++ 

176 

;  FUNCTIONAL  DESCRIPTION:                                                       1 

177 

;      'FNEXEC 

'  controls  the  execution  of  user-defined  functions. 

178 

;      It  runs 

through  the  function  executing  one  line  at  a  time 

179 

;      until  a 

stop  or  trace  is  encountered  on  a  line.  This  routine 

180 

;      also  handles  branches  to  different  lines  in  the  function. 

181 

;              A  bad  branch  or  hitting  the  end  of  the  function  causes 

182 

;       'FNEXIT 

'  to  be  called,  and  a  return  is  made  to  the  original 

183 

;      caller 

with  the  result  of  the  function  (if  any)  in  a  oarse 

184 

;      frame  at  the  end  of  the  SI  stack.                                        1 

185 

186 

',    CALLING  SEQUENCE:                                                              1 

187 

JMP 

FNEXEC 

188 

189 

;  INPUTS: 

190 
191 
192 

;       R4 

-  Points  to  line  block  of  next  line  to  execute. 

;  OUTPUTS: 

193 

;       NONE 

194 

195 

:  ROUTINES  CALLED:                                                              1 

196 

;       EXPR 

-  Evaluate  expression  in  line 

197 

;      FNIDEN 

-  Identify  function  (Trace/Stop) 

198 

;       GETNXT 

-  Get  next  token 

199 

;      OUTCHR 

-  Print  a  character 

200 

;      PRINT 

-  Print  the  result 

201 

.  — . 

202 

203  000512 

.PSECT  CODE 

204 

205 

206  000512 

FNEXEC:: 

207  000512 

013703 

003314' 

MOV 

SIFRAM,R3 

:POINT  TO  THIS  F-FRAME 

208  000516 

052737 

100000 

004764'        BIS 

4fF.PRNT,  FLAGS 

:PRINT  LINE'S  RESULT 

209  000524 

010463 

000012 

MOV 

R4,F.LINE(R3) 

:SAVE  POINTER  TO  CURRENT  LINE 

210  000530 

020437 

005046' 

CMP 

R4,BRSELF 

;BRANCHING  TO  SELF? 

211  000534 

001417 

BEQ 

10$ 

:YES,  DON'T  STOP 

212  000536 

132764 

000001 

000003         BI T8 

4fF.STP,R.BITS(R4);STOP  VECTOR  SET?                                    1 

213  000544 

001413 

BEQ 

10$ 

;N0,  FINE 

214  000546 

CALL 

NEWLIN 

:Skip  to  new  line 
;  IDENTIFY  LINE 

215  000552 

CALL 

FNIDEN 

216  000556 

052737 

000002 

004764'        BIS 

#F. SUSP, FLAGS   . 

:SET  SUSPENDED  BIT 

217  000564 

CALL 

NEWLIN 

;Skip  to  New  Line 

218  000570 

219 

220  000574 

000137 

0000006 

JMP 

ESPAWN 

;AND  SPAWN  AN  E  FRAME 

005037 

005046 • 

10$:    CLR 

BRSELF         ;N0  LONGER  ALLOW  BRANCHES  TO  SELF                       1 

221  000600 

010402 

MOV 

R4,R2 

;COPY  PTR  TO  LINE  BLOCK 

222   000602 

061202 

ADD 

5)R2,R2 

;POINT  PAST  CODESTRING  END 

223 

.ENABL  LSB 

1 

224  000604 

FNEXEO:  CALL 

GETNXT 

;GET  FIRST  TOKEN 

225  000610 

CALL 

EXPR 

; EVALUATE  THE  EXPRESSION 

226  000614 

042737 

000020 

004764'        BIC 

4fF. BR, FLAGS 

; CLEAR  BRANCH  FLAG 

227  000622 

032703 

020000 

BIT 

#T.B0L,R3 

;END  OF  EXPRESSION? 

228   000626 

001031 

BNE 

FNEXE1 

;YES,  NORMAL  TERMINATION 

229  000630 

032703 

040000 

BIT 

4fT.OTHR,R3 

:N0,  DID  IT  END  WITH  A  CHAR? 

N  14 

FNEXEC  MACRO  Ml  113  08-FEB-80 

12:27  PAGE  47-1 

FNEXEC 

EXECUTE 

USER-DEFINED  FUNCTION 

230  000634 

001001 

BNE 

2$ 

;YES,  CHECK  FOR  A  BRANCH 

231  000636 

104407 

1$: 

SYNERR 

; ILLEGAL  EXPRESSION  TERMINATION 

232  000640 

1 22704 

000135 

2$: 

CMPB 

#CHRFR0,R4      \ 

; BRANCH? 

233  000644 

001 407 

BEQ 

21$ 

;YES,  GOOD 

234  000646 

1 22704 

000074 

CMP8 

*CHRSEM,R4 

; SEMI-COLON? 

235  000652 

001371 

BNE 

1$ 

;N0,  BAD  iy(PRl%%\m 

236  000654 

052737 

1 00000 

004764' 

BIS 

XfF.PRNT,  FLAGS   < 

;PRINT  LINE'S  RESULT 

237  000662 

000750 

BR 

FNEXEO 

;ELSE  SPECIAL  OUTPUT  FORMATTING 

238  000664 

21$: 

CALL 

GETNX1 

iBRANCH  LAST  THING  ON  LINE? 

239  000670 

032703 

020000 

BIT 

*T.B0L,R3 

;END  OF  LINE? 

240  000674 

001760 

BEQ 

1$ 

;N0,  BRANCH  INSIDE  EXPRESSION  ILLEGAL 

241  000676 

052737 

000020 

004764' 

BIS 

#F. BR, FLAGS 

;SET  BRANCH  FLAG 

242  000704 

243 

244 

245 

246  000712 

042737 

100000 

004764' 

BIC 

#F.PRNT, FLAGS 

;AND  CLEAR  PRINT  FLAG 

•CHECK 

FOR  TRACE  OF  FUNCTION  LINE 

013703 

003314' 

FNEXE1: 

MOV 

SIFRAM,R3 

;POINT  TO  THIS  F-FRAME 

247  000716 

016304 

00001 2 

MOV 

F.LINE(R3),R4   , 

;POINT  TO  CURRENT  LINE  BLOCK 

248  000722 

132764 

000002 

000003 

BITS 

*F.TRC,R.BITS(R4- 

); TRACE  THE  LINE  OR  STOP? 

249  000730 

001406 

BEQ 

4$ 

;N0,  DON'T  IDENTIFY  THE  FUNCTION 

250  000732 

CALL 

FNIDEN 

; IDENTIFY  FUNCTION  AND  LINE  NUMBER 

251  000736 

112700 

000040 

MOVB 

#CHRSPA,RO 

;GET  A  SPACE 

252  000742 

CALL 

OUTCHR 

; PRINT  IT 

253  000746 

116400 

000003 

4$: 

MOVB 

R.8ITS(R4),R0   , 

:GET  LINE'S  BITS 

254  000752 

053700 

004764' 

BIS 

FLAGS,RO 

;ADD  IN  FLAG  BITS 

255  000756 

032700 

100002 

BIT 

^F.TRC+f  .PRNT,RO. 

;PRINT  LINE'S  RESULT? 

256  000762 

001434 

BEQ 

5$ 

;N0 

257  000764 

010501 

MOV 

SI,R1 

:COPY  SI  POINTER 

258  000766 

016302 

000004 

MOV 

F.LSTC(R3),R2   < 

; POINT  BEFORE  FIRST  PARSE  FRAME 

259  000//2 

013700 

005052' 

MOV 

OCHAN,RO 

: POINT  TO  OUTPUT  CHANNEL 

260  000776 

261 

262  001002 

016046 

1 77764 

MOV 

C.CPTR(RO),-(SP)< 

:SAVE  OUTPUT  POINTER 

020102 

13$: 

CMP 

R1,R2 

;DONE  YET? 

263  001004 

003002 

B6T 

14$ 

;N0,  PRINT  IT 

264  001006 

001407 

BEQ 

15$ 

;YES,  DONE  PRINTING 

265  001010 

266 

267  001012 

104402 

SYSERR 

;  STACK  SCREWED  I 

010100 

14$: 

MOV 

R1,R0 

;COPY  FRAME  POINTER 

268  001014 

CALL 

PRINT 

'PRINT  RESULT  OF  LINE 

269  001020 

062701 

1 77772 

ADD 

#SI. LEN,R1 

;BACK  UP  1  FRAME 

270  001024 

271 

272   001026 

000766 

BR 

13$ 

•AND  CHECK  IF  MORE  TO  PRINT 

1 32764 

000002 

000003  1 5$ : 

BITS 

#F.TRC,R.BITS(R4: 

>; TRACING  FUNCTION  EXECUTION? 

273  001034 

001005 

BAJE 

16$ 

•YES,  SO  ALWAYS  PRINT  CRLF 

274  001036 

013700 

005052 • 

MOV 

0CHAN,R0 

'?^\H-\   TO  OUTPUT  CHANNEL 

275  001042 

026026 

1 77764 

CMP 

C.CPTR(RO),(SP)-H. 

;DID  WE  PRINT  ANYTHING? 

276  001046 

001402 

BEQ 

5$ 

■NO,  SO  DON'T  PRINT  CR/LF ! 

277   001050 

16$: 

CALL 

NEWLIN 

'Skip  to  new  Line 
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279 
280 
281 

282  001054 

283  001062 
284 

285  001064 

286  001070 

287  001074 
001 1 00 
001 1 02 


.-CHECK  FOR  BRANCH,  AND  IF  NOT  GET  AND  EXECUTE  NEXT  LINE. 


288 
289 
290 
291 
292 
293 
294 
295 
?% 

298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 


032737 
001015 


01 6404 
020463 
001402 
0001 37 


000020  004764'  5$: 


BIT     /^F. BR, FLAGS 
BNE     FNBR 


000006 
00001 0 

000512' 


FNEXE6:  CALL 
MOV 

cnp 

BEQ 
JMP 


PKILL 

R.NEXT(R4),R4 

R4,F.FUN(R3) 

FNDONE 

FNEXEC 


; BRANCH  FLAG  SET? 
;YES,  SPECIAL  HANDLING 


NO,  KILL  RESULT  OF  LINE 
POINT  TO  NEXT  LINE 
BACK  TO  FN  HEADER? 
YES  EXIT  THE  FUNCTION 
ELSE  EXECUTE  THE  NEXT  LINE 


001106 
001 1 06 
001112 


FNDONE : : 


000175  M7112 


CALL    FNEXIT 

JMP     aSI. RET(SI) 


;YES,  KILL  THE 
;AND  RETURN  TO 


F -FRAME 
CALLER 


.-PROCESS  A  BRANCH  REQUEST.  NULL  BRANCH  IGNORED. 
;A  ZERO  BRANCH  OR  BRANCH  PAST  FN  END  CAUSES  EXIT 
;FROM  FN. 


001116 
001116 
001124 
001 1 26 
001134 
001136 
001140 
001144 
001146 


001152 
001156 
001162 
001164 
001170 
001172 
001 1 76 
001200 

317  001202 

318  001206 

319  001212 

320  001220 

321  001222 

322  001230 

323  001232 

324  001236 

325  001242 

326  001246 

327  001252 

328  001256 

329  001262 

330  001264 

331  001270 

332  001272 

333  001274 

334  001300 

335  001304 


032765 
001012 
032737 
001 004 

005037 
000420 
000137 

016502 
116200 
002141 
042700 
001 537 

001403 
011202 


032737 
001443 
032737 
001012 
013703 
016303 
014337 
014337 
014337 
013705 
011503 
010337 
001005 
005726 
062705 
000137 
016337 


1 00000 
001100 

003134' 

OOOOOOG 

1 7717 t 
000003 

1 7777^ 


1 77771, 
004764' 


FNBR; 


22%'. 
FNBR2: 


000300  004764' 

000100  004764' 

003314' 
000006 
005056' 
005060 • 
000064 ' 
003314' 

003314' 


FNBR3: 


23$: 


1 77772 

OOOOOOG 

000002  004764'  24$: 


BIT 

BNE 

BIT 

BNE 

PUSH 

CLR 

BR 

JMP 

MOV 

MOVB 

BGE 

BIC 

BEQ 

PUSH 

BEQ 

MOV 

CALL 

CALL 

BIT 

BEQ 

BIT 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BNE 

TST 

ADD 

JMP 

MOV 


#T.VAL, SI. BITS(SI) .-EXPRESSION  HAVE  A  VALUE? 
FNBR2  ;YES 

#F$EVAL+F$FUNC,FLAGS;FUNCTION  OR  USER  LEVEL? 


22% 

SI 

MONVAL 

FNBR3 

CLRSI 

SI.VAL(SI),R2 

A.BITS(R2),R0 

FNBSYS 

#^C<A.NUM>,RO 

FNBDOM 

A.ALEN(R2) 

FNBR3 

(R2),R2 

aiMONCT(RO) 

PKILL 


YES,  CLEAR  SI  SOMEWHAT 

PUSH  A  NON-ZERO  VALUE  ON  THE  STACK 

EQUIV  TO  BRANCH  TO  LINE  0. 

AND  GO 

NO,  KILL  ALL  PENDANT  FUNCTIONS! 1 

POINT  TO  SOURCE 

GET  BITS 

ERROR 

CLEAR  GARBAGE  BITS 

DOMAIN  ERROR,  IS  CHARACTER 

\%   ARG  A  NULL?? 

YES 

POINT  TO  DATA 

FETCH  THE  BRANCH  VALUE 

KILL  RESULT  OF  LINE 


*F$EVAL+F$EVI,FLAGS;IMMEDIATE  MODE? 


25$ 

#F$EVAL, FLAGS 

23$ 

SIFRAM,R3 

F.HEAD(R3),R3 

-(R3),E$CT 

-(R3),E$PT 

-(R3),INPTR 

SIFRAM.SI 

(SI), R3 

R3.SIFRAM 

24i 

(SP)^- 

*SI.LEN,SI 

E SPAWN 

F.FLAG(R3), FLAGS 


NO,  OTHERWISE  DELETE  TOP  FRAME 

NEED  TO  RESTORE  POINTERS? 

NO 

INPUT  PTRS  MUST  BE  RESET 

POINT  PAST  HEADED  DATA 

RESTORE  COUNT 

POINTER 

INPUT  POINTER 
POINT  TO  OLD  REF  POINT 
POINT  TO  PREVIOUS  FRAME 
SAVE  PREVIOUS  FRAME  POINTER 
REAL  POINTER? 
ADJUST  STACK 
ADJUST  FOR  THE  TURKEYS 
AT  THE  BOTTOM,  FINISHED 
RESTORE  FLAGS 


032737 

000300 

004764* 

dIT 

/i^F$EVAL*F$EVI 

00U03 

BEQ 

25$ 

005726 

TST 

(SP)^ 

000137 

OOOOOOG 

JMP 

EXEC 

032737 

OOOAOO 

004764*  25$: 

BIT 

/(fF$EXEC.  FLAGS 

00H31 

BEQ 

26$ 

032737 

002000 

004764* 

BIT 

#F. END, FLAGS 

001451 

BEQ 

FNBSYN 

010516 

MOV 

SJ,(SP) 

013705 

003314' 

MOV 

SJFRAM.SI 

01 1 503 

MOV 

(SI),R3 

016505 

000006 

MOV 

F.HEAD(SI),SI 

0U537 

005056' 

MOV 

-(SI),E$CT 

0U537 

005060* 

MOV 

-(SI),E$PT 

01A537 

000064 • 

MOV 
POP 

-(SI),INPTR 
SI 
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336  001312 

337  001320 

338  001322 

339  001324 

340  001330 

341  001336 

342  001340 

343  001346 

344  001350 

345  001352 

346  001356 

347  001360 

348  001364 

349  001370 

350  001374 

351  001400 

352  001402 

353  001416 

354  001422 

355  001424 

356  001426 

357  001432 

358  001434 

359  001440 

360  001442 

361  001446 

362  001450 

363  001452 

364  001460 

365  001462 
366 

367  001466 

368  001470 

369  001472 
370 
371 


TIT 


000137 
005726 
001617 
005737 
003625 
016302 
010204 
016404 
020402 
001616 
026437 
001 370 
000137 

104402 
104417 
-» 04407 


OOOOOOG 

003134* 

000010 

000006 

000010  003134 
000512' 


26$: 


FNBR1 


FNBSYS; 
FNBDOM; 
FNBSYN; 


SIFRAM 

JMP 

TST 

BEQ 

TST 

BLE 

MOV 

MOV 

MOV 

CMP 

BEQ 

CMP 

BNE 

JMP 

SYSERR 
DOMERR 
SYNERR 


.DSABL  LS8 


NO 

ADJUST  THE  STACK 

AND  CONTINUE 

EPSILON  ? 

NO 

Branch  at  beginning  of  line? 

No,  then  SYNTAX  error 

SAVE  FOR  LATER 

POINT  TO  OLD  REF  PT 

POINT  TO  DATA 

POINT   PAST  HEADER 

RESTORE  COUNT 

POINTER 
INPUT  POINTER 

RESTORE  SI 


*NULL,#T.NUM+T.CON;Numen'c  constant 


EVAL1 

(SP)^ 

FNEXE6 

MONVAL 

FNDONE 

F.FUN(R3),R2 

R2,R4 

R.NEXT(R4),R4 

R4,R2 

FNDONE 


AND  GO 
AND  THE  LEN  WAS... 
0  LONG 
CHECK  LINE  NUMBER 
<=0  MEANS  EXIT  FUNCTION 
POINT  TO  FUNCTION  HEADER  BLOCK 
COPY  POINTER 

POINT  TO  NEXT  LINE  BLOCK 
BACK  TO  FUNCTION  HEAD? 


IF   SO  THEN  DONE  WITH  FUNCTION 
R.LNUM(R4), MONVAL  ;LINE  NUMBERS  MATCH? 
FNBR1  ;N0,  TRY  NEXT  LINE 

FNEXEC         ;YES,  START  EXECUTING  NEW  LINE 


SYSTEM  ERROR 
DOMAIN  ERROR 
Syntax  Error 


FNEXEC 
FNEXIT 

373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
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SBTTL  FNEXIT 


TTT 


EXIT  FROM  FUNCTION  EXECUTION 


•f-f 


FUNCTIONAL  DESCRIPTION: 

•FNEXIT'  is  the  in\/erse  of  *FNCALL'.  It  restores  all  local 
variables  to  their  original  values,  pops  off  the  F-frame  on 
the  SI  stack,  and  returns  with  a  parse  frame  on  top  of  the 
SI  stack  containing  the  result  (if  any)  of  the  function. 

CALLING  SEQUENCE: 

CALL    FNEXIT 

I^JPUTS: 

NONE 

OUTPUTS: 

NONE 


ROUTINES  CALLED: 

KILL    -  Delete  arg  on  stack 
RETCOR  -  Free  space  used  for 


locals  and  whatnot 


001474 


REGISTER  USAGE 

• 

RO 

-  VALUE  BLOCK  POINTER 

R1 

-  COUNT 

R2 

-  SYMBOL  NAME  BLOCK  POINTER 

R3 

-  HEADER/LABEL  LIST  POINTER 

R4 

-  MAGIC  LABEL  OFFSET 

PSECT  CODE 
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405  001474 

FNEXIT: 

• 

406  001474 

013704 

003314' 

MOV 

SIFRAM,R4 

;POINT  TO  THE  F-FRAME 

407  001500 

016403 

000004 

MOV 

F.LSTC(R4),R3 

;POINT  PAST  END  OF  F-FRAME 

408  001504 

409 

410  001506 

001407 

BEQ 

3$ 

;NOTHING  TO  KILL 

020503 

1$: 

CMP 

SI,R3 

;ANY  PARSE  FRAMES  LEFT? 

411  001510 

001405 

BEQ 

3$ 

;N0 

412  001512 

101001 

BHI 

2$ 

;AT  END  OF  F-FRAME? 

413  001514 

104402 

SYSERR 

;N0,  SI  STACK  SCREWED  UP 

414  001516 

2$: 

CALL 

KILL             ; 

;WIPE  OUT  THE  PARSE  FRAME 

415  001522 

416 

417 

000771 

■  ^ 

BR 

1$ 

;AND  KILL  ALL  OF  THEM  LEFT 

;  MOVE 

THE  RESULT  (IF  ANY)  INTO  • 

FHE  PARSE  FRAME  AT  THE  FRONT 

418 
419 
420  001524 

;  OF  THE  F-FRAME. 

016403 

000010 

^i: 

MOV 

F.FUN(R4),R3 

;POINT  TO  FUNCTION  HEADER 

421  001530 

010401 

MOV 

R4,R1 

;COPY  POINTER  TO  PARSE  FRAME 

422  001532 

012704 

000010 

MOV 

/5^R.LNUM,R4 

;GET  OFFSET  TO  LINE  NUMBER 

423  001536 

063704 

000062' 

ADD 

NUMLEN,R4 

; CALCULATE  MAGIC  LABEL  OFFSET 

424  001542 

060403 

ADD 

R4,R3 

;POINT  TO  LABEL  LIST  PTR  IN  FN  HEAD 

425  001544 

PUSH 

R3 

;SAVE  POINTER 

426  001546 

005723 

TST 

(R3)  + 

;SKIP  TO  RESULT  NAME  POINTER 

427  001550 

011303 

MOV 

aR3,R3 

:POINT  TO  RESULT'S  NAME  BLOCK 

428  001552 

001423 

BEQ 

5$ 

^FUNCTION  DOESN'T  RETURN  RESULT 

429  001554 

011302 

MOV 

5IR3,R2 

;POINT  TO  VALUE  OF  RESULT 

430  001556 

001421 

BEQ 

5$ 

;NEVER  ASSIGNED  A  VALUE 

431  001560 

005762 

000002 

TST 

A.DIMS(R2) 

;IN  SPACEUAR  MODE? 

432  001564 

0021 54 

BGE 

TURK 

;YES,  REFRESH  SPACE  SHIPS 

433  001566 

142762 

000010 

000003 

BICB 

4fA.TMP,A.BITS(R2- 

>; RESULT  IS  A  TEMPORARY! 

434  001574 

010241 

MOV 

R2,-(R1) 

;PUT  VALUE  POINTER  IN  PARSE  FRAME 

435  001576 

012700 

102000 

MOV 

#T.VAL+T.NUM,RO  < 

;GET  RESULT  BITS 

436  001602 

132762 

000006 

000003 

BITS 

#A.NUM,A.BITS(R2- 

);1S   RESULT  NUMERIC? 

437  001610 

001002 

BNE 

4$ 

;YES,  FINE 

438  001612 

042700 

002000 

BIC 

#T.NUM,RO 

;KILL  THE  NUMERIC  BIT 

439  001616 

010041 

4$: 

MOV 

RO--(RI) 

;SET  BITS  IN  PARSE  FRAME 

440  001620 

441 

442 

443 

444  001622 

005013 

*  ^ 

CLR 

aR3 

;UNDEFINE  RESULT  VARIABLE 

;  RESTORE  PREVIOUS  VALUES  OF  THE 

LABELS 

017603 

000000 

H: 

MOV 

aO(SP),R3 

;GET  POINTER  TO  LABEL  LIST  BLOCK 

445  001626 

001423 

BEQ 

8$ 

;N0  LABELS!! 

446  001630 

116301 

000002 

M0V8 

L.CNT(R3),R1 

;6ET  COUNT  OF  LINES  WITH  LABELS 

447  001634 

011303 

MOV 

aR3,R3 

;POINT  TO  FIRST  LINE  POINTER 

448  001636 

060103 

ADD 

R1,R3 

; POINT  TO  END  OF  POINTERS 

449  001640 

450 

451  001642 

060103 

ADD 

R1,R3 

; WORDS  NOT  BYTES! 

014300 

6$: 

MOV 

-(R3),R0 

•GET  PTR  TO  NEXT  LINE  WITH  LABEL 

452  001644 

060400 

ADD 

R4,R0 

•POINT  TO  LABEL  POINTER 

453  001646 

012002 

MOV 

(R0)+.R2 

•GET  PTR  TO  LABEL'S  NAME  BLOCK 

454  001650 

021200 

CMP 

aR2,R0 

•DID  LABEL  CHANGE? 

455  001652 

001406 

BEQ 

7$ 

•NO,  DONE  WITH  THIS  LABEL 

456  001654 

011200 

MOV 

aR2,R0 

;GET  LABEL'S  NEW  VALUE 

457  001656 

005760 

000002 

TST 

A.DIMS(RO) 

•CHECK  IF  VALUE 

458  001662 

0021 1 5 

BGE 

TURK 

•IT'S  NOT,  PROBLEM 

459  001664 

CALL 

RETCOR 

•KILL  LABEL  IF  VALUE  RE-ASSIGNED 

460  001670 

014512 

7$: 

MOV 

-(SI),aR2 

•RESTORE  LABEL'S  OLD  VALUE 

461  001672 

soe 

RU6$ 

•AND  LOOP  TO  RESTORE  ALL  LABELS 

F 

15 
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463 

464 
465 
466  001676 

•RESTORE  ALL 

LOCAL  VARIABLES 

AND  FUNCTION  ARGUMENT (S) 

01 3703 

003314' 

^$: 

MOV 

SIFRAM,R3 

;POINT  ro  THIS  F-FRAME 

467  001702 

016303 

000010 

MOV 

F.FUN(R3),R3 

;POINT  TO  FUNCTION  HEADER  BLOCK 

468  001706 

116301 

000002 

Move 

R.LCT(R3),R1 

;GET  COUNF  OF  LOCAL  VARS 

469  001712 

POP 

R3 

; POINT  TO  LABEL  POINTER 

470  001714 

062703 

000010 

ADD 

*10,R3 

; POINT  TO  FIRST  LOCAL  VARIABLE 

471  001720 

005701 

TST 

R1 

;ANY  LOCALS? 

472  001722 

001413 

BEQ 

12$ 

;N0,  GOOD 

473  001724 

060103 

ADD 

R1.R3 

.•POINT  PAST  LAST  LOCAL 

474  001726 

475 

476  001730 

060103 

ADD 

R1,R3 

; WORDS,  NOT  BYTES!! 

014300 

9$: 

MOV 

-(R3),R0 

;GET  NEXT  LOCAL  NAME  POINTER 

477  001732 

001405 

BEQ 

11$ 

;N0  LOCAL 

478  001734 

005710 

TST 

a)R0 

; Check  its  current  value 

479  001736 

001402 

BEQ 

10$ 

;HAD  NO  VALUE 

480  001740 

CALL 

ERASE 

; RELEASE  OLD  VALUE 

481  001744 

014510 

10$: 

MOV 

-(SI), (RO) 

.•RESTORE  CURRENT  VALUE 

482  001746 

483 

484  001752 

11$: 

SOR 

R1,9$ 

;AND  PROCESS  NEXT  LOCAL 

012701 

000002 

12$: 

MOV 

»2,R^ 

.•COUNT  FOR  LEFT  AND  RIGHT  ARGS 

485  001756 

005745 

14$: 

TST 

-(SI) 

.•Point  to  next  argument 

486  001760 

014302 

MOV 

-(R3),R2 

.•POINT  TO  LEFT/RIGHT  ARG 

487  001762 

001422 

BEQ 

17$ 

;N0  ARG 

488  001764 

011200 

MOV 

aR2,R0 

;GET  CURRENT  VALUE 

489  001766 

001417 

BEQ 

16$ 

;HAS  NO  VALUE? 

490  001770 

02001 5 

CMP 

R0,(SI) 

.-SAME  AS  OLD  VALUE? 

491  001772 

001412 

BEQ 

15$ 

;  YES 

492  001 /A 

005760 

000002 

TST 

A.DIMS(RO) 

;SPACEW.AR  MODE? 

493  002000 

002046 

B6E 

TURK 

:YES.  EVADE  THE  SUN! 

494  002002 

132760 

000040 

000003 

BITS 

#A.ARG,A.BITS(R0);DEALLOCATION  PROOF  ARG?                             1 

495  002010 

001003 

BNE 

15$ 

;YES.  SOMEONE  ELSE  WILL  KILL  IT 

496  002012 

CALL 

RETCOR 

;N0,  RELEASE  CURRENT  VALUE 

497  002016 

000403 

BR 

16$ 

:AND  RESTORE  OLD  VALUE 

498  002020 

142760 

000050 

000003  15$: 

BICB 

*A.TMP+A.ARG,A.BnS(RO);CURRENT  VALUE  IS  NOW  TEMP                       1 

499  002026 

011512 

16$: 

MOV 

(SI),(R2) 

.•RESTORE  OLD  VALUE 

500  002030 

17$: 

SOB 

R1J4$ 

;AND  PROCESS  NEXT  ARG 

501  002034 

005745 

TST 

-(SI) 

.-Point  to  Result 

502  002036 

014302 

MOV 

-(R3),R2 

.•POINT  TO  RESULT'S  NAME 

503  002040 

001406 

BEQ 

18$ 

;fN   RETURNS  NO  RESULT 

504  002042 

011200 

MOV 

aR2,R0 

;GET  CURRENT  VALUE 

505  002044 

001 403 

BEQ 

19$ 

:N0  CURRENT  VALUE?? 

506  002046 

142760 

000010 

000003 

BICB 

4fA.TMP,A.BITS(R0);RESULT  IS  NOW  A  TEMP                                1 

507  002054 

011512 

19$: 

MOV 

(SI ),aR2 

.•RESTORE  OLD  VALUE 
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509 
510 
511 
512 

513  002056 

514  002060 

515  002062 

516  00206A 

517  002066 

518  002070 

519  00207A 

520  002076 

521  002102 

522  002110 

523  002114 
524 

525  002116 


POP  THE  F-FRAME  AND  RETURN  TO  CALLER  WITH  RESULT  PARSE 
FRAME  ON  SI 


014546 
014546 
014546 
014546 
013705 
01 1 500 
010037 
016037 
005037 
0001 1 4 

104436 


003314' 

003314' 

000002  004764' 

003112' 


18$:  POP 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
JMP 

TURK:   TURKEY 


R4 

-(SI),-(SP) 

-(SI), -(SP) 

-(SI),-(SP) 

-(SI),-(SP) 

SIFRAM,SI 

asi,RO 

RO^SIFRAM 
F.FLAG(RO), FLAGS 
DIMBLK 
qIR4 


GET  SUBROUTINE  RETURN 

RESTORE  CALLER'S  RETURN  WORD 

RESTORE  INPUT  CODESTRING  PTR 

RESTORE  TOKEN  BITS 

RESTORE  TOKEN  VALUE 

KILL  THE  F-FRAME 

POINT  TO  PREVIOUS  FRAME 

MAKE  IT  CURRENT  FRAME 

RESTORE  PREVIOUS  FLAGS 

FUNCTIONS  DON'T  HAVE  DIM  AR6SI! 

RETURN  TO  CALLER 


HIT 
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SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRFIL= 

0001 77 

CTRMAX 

0001 72R 

025 

D.CTLM= 

000000 

EDIFL6 

005062R 

025 

AC1   = 

X000001 

CHRFRO= 

0001 35 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

AC2   = 

X000002 

CHRLBR= 

000073 

C.BLOK= 

000064 

D.DECD= 

000002 

U%       = 

000000 

AC3   = 

X000003 

CHRLPR= 

000072 

C.BLSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

0051 32R 

025 

AC4   = 

XOOOOOA 

CHRMNS= 

000137 

C.BUFF= 

177760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

ACS   = 

X000005 

CHRMUL= 

000075 

C.BUFL= 

1 77762 

D.DQAD= 

^77777 

EOF   = 

104475 

ALLINT 

003274R 

025 

CHRNE6= 

000100 

C.CCNT= 

1 77766 

D.DROP= 

000002 

ERASE  = 

*•••••  GX 

ARYRET 

003276R 

025 

CHRPDL= 

000271 

C . CPTR= 

177764 

D.ENCD= 

000002 

ERRMAX= 

000166 

ASCQUO=  00OOA2 

CHRPLU= 

000055 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRNUM 

004 772R 

025 

ASSIGN= 

it-kii-k-k-k   GX 

CHRPWR= 

000120 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRPTR 

004770R 

025 

A.ALEN=  OOOOOA 

CHRQST= 

000121 

C.FASW= 

020000 

D.FGET= 

000005 

ERRO 

004774R 

025 

A.ARG  = 

OOOOAO 

CHRQUO= 

000113 

C.FLEN= 

000010 

D.FMT  = 

000004 

ESPAWN= 

■k-k-k-k-k-k   GX 

A.ASB  = 

000200 

CHRRBR= 

000047 

C.FLSH= 

004000 

D.FPNT= 

000005 

EVAL1  = 

kkkkkk    GX 

A.BITS= 

000003 

CHRRPR= 

000042 

C.FRC  = 

000001 

D.FPUT= 

000005 

EXEBUF 

005054R 

025 

A.CON  = 

000020 

CHRSEM= 

000074 

C.IDEN= 

000010 

D.GE  = 

000000 

EXEC  = 

••••••  GX 

A.DIMS= 

000002 

CHRSMO= 

000112 

C.NAME= 

000102 

D.GT  = 

000000 

EXPR  = 

*••***  GX 

A.DIM1= 

000006 

CHRSPA= 

000040 

C.NOBF= 

000400 

D.IBM  = 

000002 

E$CT 

005056R 

025 

A.NUM  = 

000006 

CHRUPA= 

000131 

C.NUM  = 

000020 

D.IND  = 

000002 

E$PT 

005060R 

025 

A.PTR  = 

000000 

CHR.BS= 

000010 

COP  = 

000004 

D.INNR= 

000013 

FA.APD= 

000100 

A.TMP  = 

000010 

CHR.CC= 

000003 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.CRE= 

000010 

BADDIR= 

104463 

CHR.CR= 

000015 

C.RDLN= 

177776 

D.LE  = 

000000 

FA.DLK= 

001000 

BADERR= 

104437 

CHR.CZ= 

000032 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.E^B= 

100000 

BLZWR 

0051 16R 

025 

CHR.GT= 

000046 

C.RND  = 

000010 

D.LT  = 

000000 

FA.EXC= 

002000 

BRKCHK= 

••••••  GX 

CHR.LF= 

000012 

C.S8IT= 

1 77756 

D.MAX  = 

000000 

FA.EXT= 

000004 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.NSP= 

000100 

CCNT 

005072R 

025 

CHR. SI= 

00001 7 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.NSR= 

000200 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C.SPLX= 

000001 

D.MUL  = 

000000 

FA.POS= 

010000 

CHANOO 

000256R 

025 

CHR.S0= 

000016 

C.SPRS= 

000002 

D.NE  = 

000000 

FA.RD  = 

000001 

CHAN01 

000330R 

025 

CHR.TB^ 

00001 1 

C.SRC  = 

1 7777^ 

D.NN  = 

000000 

FA.RWD= 

004000 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.SRCP= 

000024 

D.NR  = 

000000 

FA.SEQ= 

040000 

CHAN03 

000674R 

025 

L  HK ■  m A~ 

000141 

C.TT  = 

000004 

D.OR  = 

000000 

FA.SHR= 

000040 

CHAN04 

001056R 

025 

CHR..E= 

000145 

C.WIDC= 

1 77770 

D,PLUS= 

000000 

FA.TMP= 

000020 

CHANGS 

001240R 

025 

CHR..S= 

000163 

C.WIDR= 

^77772 

D.PSIB= 

000006 

FA.WCK= 

020000 

CHAN06 

001422R 

025 

CHR..T= 

000164 

DEBUG  = 

000000 

D.PWR  = 

000001 

FA.WRT= 

000002 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEFERR= 

104405 

D.QQAD= 

000000 

FD.BLK= 

000010 

CHAN08 

001766R 

025 

CHR..Z= 

000172 

DEVIL 

0051 14R 

025 

D.QUAD= 

000000 

FD.CCL= 

000002 

CHAN09 

0021 50R 

025 

CHR..0= 

000060 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.COM=  020000 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIGITS 

000006R 

025 

D.RHO  = 

000000 

FD.CR  = 

000002 

CHAN11 

00251 4R 

025 

CH.AND= 

000001 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.DIR= 

000010 

CHAN12 

002676R 

025 

CLRSI  = 

••*•*♦  GX 

DIMBLK 

0031 12R 

025 

D.SCON= 

000006 

FD.FTN=  000001 

CHAN13 

000022R 

023 

CMDBUF 

003250R 

025 

DIMPTR 

0031 14R 

025 

D.SDIF= 

000006 

FD.F11= 

040000 

CHAN14 

000204R 

023 

CMDMAX= 

000010 

DIMTYP 

0031 16R 

025 

D.SUB  = 

000000 

FD.INS= 

000010 

CHNOPN= 

104471 

CNTSIZ 

0051 30R 

025 

DIRFUL= 

104466 

D.SUBS= 

000006 

FD.ISP= 

002000 

CHRAND= 

000051 

COMBIN 

005076R 

025 

DOMERR= 

104417 

D.TAKE= 

000002 

FD.MNT= 

100000 

CHRBEL= 

000007 

COMCNT 

0051 26R 

025  DPTERR= 

104416 

D.TRAN=  000004 

FD.OSP= 

004000 

CHRBICR= 

000133 

C0MERR= 

104425 

DYDCNT 

003224R 

025 

D.UNON= 

000006 

FD.PLC= 

000004 

CHRBOL= 

000200 

COMPTR 

0051 22R 

025  D.AND  = 

000000 

D.$MAX= 

000000 

FD.PRN= 

000004 

CHRBOX= 

000114 

COMRTN 

0031 56R 

025  D.BXCT= 

000007 

D.$MIN= 

000000 

FD.PSE= 

010000 

CHRCMA= 

000054 

COMSKP 

0051 24R 

025  D.BXIO= 

000007 

D.$MUL= 

000000 

FD.RAH= 

000001 

CHRCOL= 

000076 

CORPTR 

0051 20R 

025  D.8XNL= 

000007 

D.$PLU= 

000000 

FD.RAN=  000002 

CHRDEL= 

000107 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.REC= 

000001 

CHRDIV= 

000053 

CS.B00= 

000010 

D.BXPW= 

000007 

D.$SUB= 

000000 

FD.RWM=  000001 

CHRDLR= 

000176 

CS.FL0= 

000020 

D.BXRL= 

000007 

D.1C0M= 

000001 

FD.SDI= 

000020 

CHRDLT= 

000110 

CS.IDN= 

000040 

D.CIRC= 

000001 

D.1EXP= 

000002 

FD.SQD= 

000040 

CHRDOT= 

000056 

CS.ONE= 

000100 

D.COMB= 

000001 

D.1R0T= 

000003 

FD.TTY= 

000004 

CHREP  = 

000105 

CTEPS 

0001 52R 

025 

D.COMP= 

000001 

EDI CHR 

005063R 

025  FD.WBH= 

000002 

CHRERR= 

104431 

CTMAX 

00021 2R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF.CHR= 

000005 
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FF.NV  = 

000003 

F.BKDN= 

000026 

F.R2  = 

000014 

LENERR= 

104412 

M.6DUP=  000003 

FF.F>OE= 

000002 

F.BKDS= 

000020 

F.R3  = 

000016 

LENTAB 

000054R 

025  M.GDWN=  000003 

FF.RWO= 

000001 

F.BKEF= 

000050 

F.R4  = 

000020 

LEXPTR 

0031 OOR 

025  M.GETI=  000006 

FF.RWF= 

000006 

F.BKP1= 

000051 

F.SEQN=  000100 

LFTOP 

005066R 

025  M.IBM  =  000003 

FF.SPC= 

OOOOOA 

F.BKST= 

000024 

F.SPDV= 

000072 

LINC 

005102R 

025  M.IDN  =  000000 

F HE ADR 

00501 2R 

025 

F.BKVB= 

000064 

F . SPUN= 

000074 

LINE 

00501 6R 

025  \^AH%?=   000006 

FHRET 

005040R 

025 

F.BR  = 

000020 

F.ST8K= 

000036 

LINING 

005026R 

025  M.I0TA=  000000 

F1LNTF= 

104A67 

F.CHR  = 

000075 

F.STK  = 

000022 

LISIZE= 

000020 

M.LIT  =  000205 

FIS   = 

000000 

F . CNT6= 

000034 

F.ST0P= 

000004 

LI  TOP 

005072R 

025  M.LN  =  000001 

FISCON=  0A6000 

F . C0DE= 

000010 

F.STP  = 

000001 

LNLN6  = 

104541 

M.MMD  =  000010 

FIXPTR 

00307AR 

025 

F.DFr©= 

000046 

F.SUSP= 

000002 

LOCLCT 

005036R 

025  M.NEG  =  000000 

FLAGS 

004764R 

025 

F.DSPT= 

000044 

F.TRC  = 

000002 

LOWCOR 

000002R 

025  M.NOT  =  000000 

FLCBUF 

003250R 

025 

F.DVNM= 

000134 

F.UNIT= 

000136 

LSTERP 

004766R 

025  M.NUB  =  000006 

FLIh€ 

00501 4R 

025 

F.EFBK= 

00001 0 

F.URBD= 

000020 

LWIDTH 

000070R 

025  M.NUM  =  000204 

FLOEXP 

003270R 

025 

F.EFN  = 

000050 

F.VAL  = 

177776 

L.BITS= 

000003 

M.0UTR=  000012 

FLONEG 

003272R 

025 

F.END  = 

002000 

F.VBN  = 

000064 

L.CNT  = 

000002 

M. PI TM=  000000 

FLSWTB 

000222R 

025 

F.EnRR= 

000032 

F.VBSZ= 

000060 

L.PRNT= 

000001 

M.PRDS=  000006 

FLTLEN= 

000010 

F.ERR  = 

000052 

GETNXT= 

***•••  GX 

L.PTR  = 

000000 

M.QQAD=  000000 

FNBOOM 

001470R 

020 

F.FACC= 

000043 

GNOME 

0031 02R 

025  L.PTR1= 

000004 

M.QUAD=  000000 

FNBR 

001116RG 

020 

F.FFBY= 

000014 

HASHC 

0051 36R 

025  L.SUBS= 

000002 

M.RAND=  000012 

FNBR1 

001442R 

020 

F.FLAG= 

000002 

HASHT8 

0051 40R 

025  MACHIN= 

000106 

M.RAVL=  000000 

F^eR2 

001 1 52R 

020 

F.FLB  = 

000100 

HSHMSK= 

177601 

MAXCHN=  000014 

M.RCIP=  000000 

FNBR3 

001206R 

020 

F.FNAM= 

000110 

HSHSJZ= 

000200 

MONBLK 

0031 20R 

025  M.RDCT=  000011 

F^BSYN 

001472R 

020 

f.fNB  = 

000102 

I  CHAN 

005050R 

025  MONCVT 

0031 32R 

025  M.REVS=  000003 

FNBSYS 

001466R 

020 

F.FNDF= 

000010 

ILFNAM= 

104464 

MONLEN 

0031 30R 

025  M.R0LL=  000000 

FNCALL 

OOOOOORG 

020 

F.FTYP= 

000116 

ILLCHN= 

104540 

MONPTR 

0031 22R 

025  M.SATA=  000001 

FNCAL1 

0001 72R 

020 

F.FUN  = 

000010 

ILLSW  = 

104565 

MONSFT 

0031 26R 

025  M.SCAN=  000011 

FNDC3NE 

001106RG 

020 

F.FVER= 

000120 

IM0NCT= 

*•••••  GX 

MONTYP 

0031 24R 

025  M.SHAP=  000000 

FiyCXEC 

00051 2RG 

020 

F.HEAD= 

000006 

INDERR= 

104410 

MONVAL 

0031 34R 

025  M.SIGN=  000000 

FNEXEO 

000604R 

020 

F.HIBK= 

000004 

INNTMP 

003250R 

025  H.ABS  = 

000000 

M.SUBR=  000001 

FNEXE1 

00071 2R 

020 

F.LBL  = 

000020 

INNTM2 

00501 6R 

025  M.BOL  = 

000200 

M.SYM  =  000203 

FNEXE6 

001064R 

020 

F.LINE= 

000012 

INPTR 

000064R 

025  M.BXAV= 

000007 

M.SYN  =  000201 

FNEXIT 

001474RG 

020 

F.LOC  = 

000004 

INSNAM= 

104462 

M.BXCR= 

000007 

M.TRAN=  000012 

FNIDEN= 

****«•  GX 

F.LSTC= 

000004 

lOERR  = 

104477 

M.BXCT= 

000007 

M.$ABS=  000000 

FNINSI 

005044R 

025 

F.LUN  = 

000042 

l.CNT  = 

1 77776 

M.BXEX= 

000007 

M.$CEI=  000000 

FORIGN 

000032R 

025 

F.MBCT= 

000054 

I. DIM  = 

^77772 

M.BXFX= 

000007 

M.$FLR=  000000 

FO.APD= 

000106 

F.MBC1  = 

000055 

I.lEN  = 

000012 

M.BXIO= 

000007 

M.$IDN=  000000 

FO.MFY= 

000002 

F.MBFG= 

000056 

I.OERR= 

000062 

M.BXLC= 

000003 

M.$NEG=  000000 

FO.RD  = 

000001 

F.MON  = 

000002 

I. OLD  = 

1 77770 

M.BXNC= 

000007 

M.$SIG=  000000 

FO.UPO= 

000006 

F.NIL  = 

000001 

I.PTR  = 

1 7777 1, 

M.BXNL= 

000007 

M.1RDT=  000011 

FO.WRT= 

000016 

F.NRBD= 

000024 

I. SIR  = 

1 77766 

M.BXPP= 

000007 

M.1REV=  000003 

FPMODE 

000042R 

025 

F.^JREC= 

000030 

KILL  = 

***•••  GX 

M.BXPW=  000007 

M.1SCN=  000011 

FF>P   = 

000000 

F.OPN  = 

000010 

LA8ERR= 

104406 

M.BXRL= 

000007 

NAMBUF  003240R 

025 

FPPLEN=  000004 

F.0V8S= 

000030 

LABLPT 

005042R 

025  M.BXTS= 

000007 

NB.DEV=  000200 

FREFM  X 

007400R 

025 

F.PREV= 

000000 

LARGBL 

0031 62R 

025  M.BXWA= 

000007 

NB.DIR=  000100 

FUZZ 

0001 42R 

025 

F.PRNT= 

100000 

LARGCV 

0031 76R 

025  M.CEI  = 

^77777 

NB.NAM=  000004 

FXPTR1 

003076R 

025 

F.PR0T= 

010000 

LARGFL 

0031 60R 

025  M.CHR  = 

000202 

NB.SD1=  000400 

F$EVAL= 

0CO100 

F.RACC= 

000016 

LARGLE 

0031 74R 

025  M.CMT  = 

000206 

NB.SD2=  001000 

FSEVI  = 

000200 

F.RATT= 

000001 

LARGLN 

0031 66R 

025  M.D0UT= 

000006 

NB.SNM=  000040 

F$EXEC= 

000400 

F.RCM>1= 

000034 

LARGPT 

0031 64R 

025  M.DQAD= 

000006 

NB.STP=  000020 

F$FUNC= 

001000 

F.RCTL= 

00001 7 

LARGSF 

0031 72R 

025  M.ENCD= 

000004 

NB.SVR=  000010 

F.ACTL= 

000076 

F.READ= 

004000 

LARGTY 

0031 70R 

025  M.EXE  = 

000000 

NB.TYP=  000002 

F.ALOC= 

000040 

F.REDF= 

000040 

LARGVA 

0032OOR 

025  M.EXP  = 

000001 

NB.VER=  000001 

F.BBFS= 

000062 

F.RES  = 

000040 

LBINC 

005100R 

025  M.FACT= 

000001 

ND.DEV^-  000200 

F.BDB  = 

000070 

F.RET  = 

1 77772 

LBUFF 

00331 6R 

025  M.FIL  = 

0001 77 

ND.EXT=  000002 

F.BGBC= 

000057 

f.RSlI= 

000002 

LBUFLN= 

000621 

M.FLR  = 

\77777 

ND.NAM=  000004 

F.BITS= 

1 7777^ 

F.RTYP= 

000000 

L COUNT 

005106R 

025  M.FMT  = 

000004 

ND.PPN=  000100 
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NO.$EX= 

000000 

OPTMPO 

005066R 

025 

RESVAL 

0031 54R 

025 

SYMPT1 

005346R 

025 

TURKEY= 

104436 

ND.$ES= 

000020 

0PTMP1 

005070R 

025 

RETCOR= 

•••*••  GX 

SYMTA8 

005352R 

025 

TYPE  = 

000166 

ND.$M1=  000000 

0PTMP2 

005072R 

025 

RINC 

005104R 

025 

SYMTBF= 

104404 

T.BOL  = 

020000 

ND.$NS=  000040 

0PTMP3 

005074R 

025 

RLTBAS 

005066R 

025 

SYMTOP 

005350R 

025 

T.CON  = 

004000 

ND.SPN=  OOHOO 

0PTMP4 

005076R 

025 

ROTINC 

005070R 

025 

SYMTP 

006272R 

025 

T.DIM  = 

000100 

^€GSGN 

005063R 

025 

0PTMP5 

005100R 

025 

ROUND 

00001  OR 

025 

SYMWRN= 

000054 

T.FUN  = 

010000 

NEWLIN= 

******  GX 

0PTMP6 

005102R 

025 

ROVER 

00331 2R 

025 

SYNERR= 

104407 

T.LIST= 

000400 

NINPT1 

003302R 

025 

0PTMP7 

005104R 

025 

RSTS  = 

000000 

SYSER  = 

**•••*  GX 

T.LIT  = 

000020 

NINPT2 

003300R 

025 

0PTMP8 

0051 06R 

025 

RSX   = 

0001 1 5 

SYSERR= 

104402 

T.MON  = 

000010 

NINSTK 

003304R 

025 

0PTMP9 

00511  OR 

025 

RTOP 

005070R 

025 

SYSTAT 

OOOOOOR 

024 

T.NIL  = 

000004 

NINTMP 

00331  Of^ 

025 

OPTM10 

005112R 

025 

RT11  = 

000000 

SY.BAD= 

000001 

T.NUM  = 

002000 

NINTYP 

003306H 

025 

0PTM14 

005026R 

025 

R.8ITS= 

000003 

SY.8RK= 

100000 

T.OPFN= 

000001 

NOTAVL= 

104472 

ORIGIN 

000030P 

025 

R.FIX  = 

000001 

SY.BS  = 

000010 

T.OTHR= 

040000 

NOTCIPN= 

104473 

OUTCHR= 

itit-kiiit'k   GX 

R.LCT  = 

000002 

SY.CLR= 

000040 

T.SOP  = 

000002 

NPRT1 

004762R 

025 

OUTPTR 

000066R 

025 

R.LN  = 

000002 

SY. ERP= 

000020 

T.SPOP= 

000040 

NULL 

00736AR 

025 

0VR0PR= 

000000 

R.LNUM= 

000010 

SY.NOU= 

000100 

T.TMP  = 

000200 

NUMCHN=  000020 

PATCH 

007344R 

025 

R.NEXT= 

000006 

SY.CPN= 

000002 

T.VAL  = 

100000 

NUMDFL 

003230R 

025 

PKILL  = 

•••*••  GX 

R.OFF  = 

000000 

SY.PMT= 

001000 

T.VAR  = 

001000 

Nlf€FL 

003233R 

025 

PRECSN 

000052R 

025 

R.PREV= 

000004 

SY.SRT= 

000400 

UPPER  = 

177400 

Nl.f€SN 

003236R 

025 

PRINT  = 

••••••  GX 

R.PTR  = 

000000 

SY.SVC= 

000004 

UTNAME 

0003AAR 

023 

NUMFLG 

003230R 

025 

RANDAC 

003064R 

025 

R.SEQ  = 

000003 

SY.SVL= 

000200 

VALERR= 

10AA13 

NUMLEN 

000062R 

025 

RANDY 

003062R 

025 

R.VAR  = 

000002 

S.AB  = 

177776 

VARBLE 

007400R 

025 

NUMNEG 

003232R 

025 

RANERR= 

104411 

R6 

X000006 

S.AS8  = 

100000 

VARBLS 

OOOOOOR 

025 

Nl.f1QFL 

003234R 

025 

RARGBL 

003204R 

025 

R7 

X000007 

S.8FHD= 

000020 

VERNUM 

OOOOOOR 

025 

NUMRIG 

003231 R 

025 

RARGCV 

003220R 

025 

SI 

X000005 

S.BITS= 

000002 

VRSION= 

000002 

NUMUIO 

003226R 

025 

RARGFL 

003202R 

025 

SIDA^W= 

104433 

S.CHR1= 

000003 

WIDTH 

000072R 

025 

NUMZFL 

003235R 

025 

RAPGLE 

00321 6R 

025 

SIFRAM 

00331 AR 

025 

S.FATT= 

000016 

WROUND 

000020R 

025 

NY1ERR= 

104432 

RARGLN 

00321  OR 

025 

SISTAK 

006350R 

025 

S.FDB  = 

000140 

WSDATE 

0001 36R 

025 

N.BLS2= 

000036 

RARGPT 

003206R 

025 

SHOP 

006346R 

025 

S.FL8  = 

OAOOOO 

WSFULL= 

10AA03 

N.DESC= 

000020 

RARGSF 

00321 4R 

025 

SITP 

0071 44R 

025 

S.FNAM= 

000006 

UISNAME 

00007AR 

025 

N.DEV  = 

000032 

RARGTY 

00321 2R 

025 

SIWARN= 

000200 

S.F^B  = 

000036 

WSTIME 

0001 32R 

025 

N.DE\/N= 

000034 

RARGVA 

003222R 

025 

SIZTAB 

000044R 

025 

S.FNBW= 

00001 7 

$FIS  = 

**••••  G 

N.DID  = 

000024 

RBASE 

005074R 

025 

SI.BIT= 

177774 

S.FNTY= 

OOOOOA 

$FPP  = 

♦•*•••  G 

N.D\/M>1=  000032 

RCOUNR 

0051 12R 

025 

SI.LEN= 

17^772 

S.FTYP= 

000002 

%fPPLN= 

*•*•••  G 

N.EXT  = 

000014 

RCOUNT 

00511  OR 

025 

SI.RET= 

1 77772 

S.LEN  = 

000002 

$MACHN= 

•*•••*  G 

N.FID  = 

000000 

REDCNT 

005070R 

025 

SI.VAL= 

177776 

S.LINK= 

1 7777^ 

$RSTS  = 

••••••  G 

N.FNAM=  000006 

REDIGN 

005066R 

025 

SKPSIZ 

0051 34R 

025 

S.NFEN= 

000020 

$RSX  = 

**••••  G 

N.FTYP= 

000014 

REDOFF 

005072R 

025 

SPHOLD 

000004R 

024 

S.TYPE= 

140000 

$RT11  = 

Ifktlfk'k    G 

N.F\/ER= 

000016 

REENTR 

003060R 

025 

SPINIT 

000002R 

024 

S.VAL  = 

000000 

.BOOLE= 

000002 

N.NAME= 

000006 

RES8IT 

0031 42R 

025 

STKINC= 

000774 

TKDIMS 

005072R 

025 

.CHARA= 

000000 

N.^€XT= 

000022 

RESCVT 

0031 52R 

025 

STKXTN= 

**••••  GX 

TKFRAM 

005066R 

025 

.DEF.  = 

000002 

N.PPN  = 

000024 

RESERR= 

104440 

STOP  = 

104420 

TKLEFT 

005070R 

025 

.FLOAT= 

000006 

N.STAT= 

000020 

RESLEN 

0031 50R 

025 

SUBCNT 

0031 OAR 

025 

TMODE 

000403R 

023 

.FSRCB= 

•*•*••  G 

N.LfJIT= 

00003A 

RESPTR 

0031 40R 

025 

SUBDCT 

0031 06R 

025 

TMPTAG= 

000166 

.INTEG= 

OOOOOA 

GBUFLN= 

001000 

RESSFT 

0031 46R 

025 

SU8PTR 

00311 OR 

025 

TTYBUF 

0041 40R 

025 

.MOLUN 

OOOAOAR 

023 

OCHAN 

005052R 

025 

RESTYP 

0031 44R 

025 

SYMB1 

00534AR 

025 

TTYLEN= 

000622 

...GBL= 

000000 

GWODE 

000402R 

023 

RESULT 

0031 36R 

025 

SYMF 

005340R 

025 

TURK 

0021 16R 

020 

...TPC= 

000020 

.  ABS. 

000000 
000000 

000 
001 

TABLES 

000000 

002 

MONTB 

000000 

003 

DYDTB 

000000 

004 

BOPTB 

000000 

005 

MONBTB 

000000 

006 

DYDBTB 

000000 

007 

COWTB 

000000 

010 
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CHRTBL 

000000 

011 

VTBL 

000000 

012 

ASCTBL 

000000 

013 

OVRTBL 

000000 

OK 

TRNTBL 

000000 

015 

MNTBL 

000000 

016 

MNTRTL 

000000 

017 

CODE 

002120 

020 

PATCH 

000000 

021 

SSFSR1 

000000 

022 

DEF$0 

000A06 

023 

DEF$1 

000006 

02A 

DEFS2 

007A00 

025 

ERRORS 
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TABLE  OF 

CONTE 

:nts 

2- 

1 

APLDEF 

2** 

8 
9 

A  P  L 

1- 

10 
11 
12 

A  PhOGRAMMING 

LANGUAGE 

jl 

STEVE  POULSEN 

&  DAVE  VANN 

2- 

13 

11-Jul-76 

2- 

14 

RQRERT  GOTTLIEB  &  PETER  HAYNES                                                                        1 

2- 

15 

2-Feb-79 

2- 

16 

2- 

17 

V? 

2- 

.8 

2- 

i.9 

2- 

ZO 

COPYRIGHT  (C) 

1976,  1977,  1978,  1979,  1980 

2- 

:\ 

DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS.                                                            1 

2- 

22 

2- 

23 

2- 

24 

THIS  SOFTWARE 

IS  FURNISHED  UNDER  A  LIC;:NSE  FOR  USE  ONLY  ON  A  SINGLE 

2- 

25 

COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE  INCLUSION  OF  THE  ABOVE 

2- 

26 

COPYRIGHT  NOTICE.   THIS  SOFTWARE,  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT 

2- 

27 

BE  PROVIDED  OR 

OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR 

2- 

28 

USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.                                       1 

2- 

29 

TITLE  TO  AND 

OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN 

2- 

30 

DEC. 

2- 

31 

2- 

32 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SLRJECT  TO  CHANGE  WITHOUT  NOTICE 

2- 

33 

AND  SHOULD  NOT  BE   CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 

2- 

34 

CORPORATION. 

2- 

35 

2- 

36 

DEC  ASSUMES  NO 

RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF   ITS 

2- 

37 

SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC.                                                         1 

2- 

38 

2- 

39 

3- 

46 

DEFINITIONS 

ASSEMBLY  PARAMETERS 

A- 

139 

DEFINITIONS 

OPERATOR  OVERLAYS 

5- 

268 

DEFINITIONS 

REGISTERS 

6- 

331 

DEFINITIONS 

MEMORY  ORGANIZATION 

7- 

377 

DEFINITIONS 

ORDERING  PSECTS 

8- 

426 

DEFINITIONS 

SI  PARSE  FRAMES 

9- 

474 

DEFINITIONS 

TOKEN  DESCRIPTION  BITS 

10- 

515 

DEFINITIONS 

SI  EXECUTION  FRAMES 

11- 

580 

DEFINITIONS 

SPECIAL  PARSE  CHARACTERS 

12- 

607 

DEFINITIONS 

CHRTAB  BITS 

12- 

624 

^^f\HU\^% 

SYSTEM  STATUS  BITS 

13- 

640 

DEFINITIONS 

^-?^<f^Wi% 

K- 

724 

x>uimMm% 

FUNCTION  LINE  BLOCKS 

16- 

807 

DEFINITIONS 

ARRAY  STORAGE  BLOCK 

17- 

869 

DEFINITIONS 

LIST  STORAGE  BLOCK 

18- 

911 

DEFINITIONS 

INDEXING  STACK  FRAME 

19- 

940 

DEFINITIONS 

SYMBOL  TABLE  EN^RY 

20- 

969 

Xil^lHUimS 

CHANNEL  BLOCK 

22" 

1085 

\>^^\HU\ms 

RSX  DATA 

23- 

1110 

DEFINITIONS 

NAME  BLOCKS 

33- 

1612 

DEFINITIONS 

MACROS 

35- 

1905 

DEFINITIONS 

APL  CHARACTERS 

36- 

1967 

\>U\H\Mm% 

ERRORS 

4A- 

4 

FNHEAD 

ANALYZE  FUNCTION  HEADER 
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1 

000000 

2 

000000 

3 

000115 

4 

5 

000000 

6 

000000 

7 

000000 

8 

9 

000004 

10 

11 

000000 

RT11 
RSTS 
RSX 

=  0 
=  0 
=  'M 

EIS 
F^S 

F  P 

ooo 

II  II  II 

f;  plen 

=  4, 

DEBUG 

=  0 

B  16 

;NOT  RT-11 
;NOT  RSTS/E 
;RSX-11/M 

;N0  EIS 
;N0  FIS 
;N0  FPP 

;SINGLE  PRECISION 

;DON'T  DISPLAY  REGISTERS  ON  ERRORS 


C  16 
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APLDEF 

1  .S8TTL  APLDEF 

2  .IDENT  \V02.03\ 


D  16 

APL  MACRO  M1113     08-FEB-80  12:30     PAGE  A2 

DEFINITIONS  ERRORS 

2513  .LIST     SEQ,SRCAOC,BIN,BEX,MEB 
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DEFINITIONS 

ERRORS 

1 

.TITLE 

FNHEAD 

2 
3 
4 
5 

.IDFNT 

\V02.03\ 

.SBTTL 

FNHEAD 

ANALYZE  1 

■UNCTION  HEADER 

6 
7 

';   FUNCTIONAL  DESCRIPTION: 

8 

'FNHEAD 

'  CHECK  THE  SYNTAX  FOR  AND  SETS  UP  THE  POINTERS 

9 

SO  THAT 

THEY  CAN  BE  COPPIED  INTO  A  FUNCTION  HEADER  BLOCK. 

10 

WHEN  THIS  ROUTINE  RETURNS,  THE  SYMBOL  TABLE     ENTRY  POINTERS 

11 

(POINTERS  TO  THE  SYMBOL  BLOCKS)  FOR  THE  RESULT,  ARGS, 

12 

FUNCTION  NAME,  AND  LOCAL 

VARIABLES  WILL  BE  ON  THE  SP  STACK. 

13 

;  INPUTS: 

14 

RO  - 

POINTS  TO  FIRST  ( 

:har  produced  by  'fixlin' 

15 

16 

17  000000 

18 

19  000000 

R1  - 

CONTAINS  BYTE  COUNT  OF  CHARS  PRODUCED  BY  *flXLlN* 

.PSECT 

CODE 

f 

■NHEAD: 

• 
• 

20  000000 

PUSH 

SI 

:Save  the  SI  Value 

21  000002 

01 0637 

005040' 

MOV 

SP, FHRET 

:Save  the  stack  Pointer 

22  000006 

CALL 

LEX 

: ANALYZE  FN  HEADER 

23  000012 

005037 

003136' 

CLR 

RESULT 

; CLEAR  RESULT  FLAG 

24  000016 

005037 

005036 ' 

CLR 

LOCLCT 

:N0  LOCAL  VARIABLES  YET 

25  000022 

005037 

003142' 

1$: 

CLR 

RESBIT 

:USED  FOR  AR6  COUNTING 

26  000026 

CALL 

GETNXT 

;GET  NEXT  TOKEN  (RIGHT  TO  LEFT!) 

27  000032 

032703 

011000         2$: 

BIT 

*T.VAR+T.FUN,R3  . 

;IS  IT  A  SYMBOL? 

28  000036 

001435 

BEQ 

7$ 

;N0,  WE  MUST  BE  DONE 

29  000040 

PUSH 

R4 

;PUSH  POINTER  TO  SYMBOL  BLOCK 

30  000042 

005737 

003142' 

TST 

RESBIT 

; FOUND  ANY  ARGS  YET? 

31  000046 

001002 

BNE 

3$ 

;YES,  THEN  THIS  IS  ALSO  ARG 

32  000050 

005237 

005036' 

INC 

LOCLCT 

;ELSE  THIS  IS  PROBABLY  A  LOCAL  VAR. 

33  000054 

005237 

003142' 

5$: 

INC 

RESBIT 

;COUNT  IT  AS  AN  ARG 

34  000060 

023727 

003142'  000003 

CMP 

RESBIT, #3 

;T00  MANY  ARGS  YET? 

35  000066 

003402 

BLE 

5$ 

;N0,  STILL  OK 

36  000070 

000137 

000654'        4$: 

JMP 

23$ 

:Error,   do  error  return 

37  000074 

f 

5$: 

CALL 

GETNXT 

•GET  NEXT  TOKEN 

38  000100 

023727 

003142'  000001 

CMP 

RESBIT, #1 

;ONLY  1  ARG  SO  FAR? 

39  000106 

003351 

BGT 

2$ 

■NO,  CHECK  IF  THIS  IS  ONE 

40  000110 

032703 

040000 

BIT 

/JfT.0THR,R3 

•YES,  PERHAPS  THIS  IS  A  LOCAL  VAR? 

41  000114 

001403 

BEQ 

6$ 

•NO,  THEN  WE  MUST  ASSUME  FIRST  ARG 

42  000116 

122704 

000074 

CMPB 

#CHRSEM,R4 

•IS  CHAR  A  SEMI-COLON? 

43  000122 

001 737 

BEQ 

1$ 

■YES!  IT  WAS  A  LOCAL  VAR,  NO  ARGS  YET! 

44  000124 

005337 

005036 '        6$ : 

DEC 

LOCLCT 

•NOT  A  LOCAL  VAR  SO  CORRECT  COUNT 

45  000130 

000740 

BR 

2$ 

•AND  CHECK  FOR  ARG 

FNHEAD  MACRO  Mil  13  08 
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47 
48 

;  NOW  WE  KNOW  1 

40W  MANY  LOCAL  VARIABLES  THERE  ARE  CLOCLCT') 

49 

;  AND 

THEY  ARE 

ON  THE  STACK  FOLLOWED  BY  ALL  OF  THE  ARGS 

50 

;  (COUNTED  IN 

'RESBIT').  NOW  WE 

MUST  CHECK  TO  SEE  IF   A 

51 

;  BACK 

ARROW  IS  PRESENT  INDICATING  THAT  THE  FUNCTION  RETURNS 

52 
53 
54  000132 

;  A  RESULT,  OR 

If   A  DEL  IS  FOUND 

IN  WHICH  CASE  WE  ARE  DONE. 

032703 

020000         \ 

^$: 

BIT 

/)^T.B0L,R3 

;END  OF  LINE? 

55  000136 

001044 

BNE 

10$ 

;YES,  FINISH  UP  AND  EXIT 

56  000140 

032703 

040000 

BIT 

/1^T.0THR,R3 

;IS  TOKEN  A  CHAR? 

57  000144 

001751 

BEQ 

4$ 

;NOPE,  DEFN  ERROR 

58  0i0146 

122704 

0001 33 

CMP8 

/(fCHRBKR,R4 

;BACK  ARROW? 

59  0(0152 

60 

61 

001020 

t  X 

BNE 

8$ 

;No,  finished 

1 

;  WE  HAVE  A  BACKARROW,  SO  FUNCTION  RETURNS  RESULTS.   GET 

62 
63 
64  000154 

1 

;  SYMBOL  FOR  RESULT,  SET  FLAG  ('RESULT')  AND  FINISH  UP. 

t 

CALL 

GETNXT 

;GET  NEXT  TOKEN 

65  000160 

032703 

011000 

BIT 

/J^T.VAR+T.FUN,R3  . 

; SYMBOL? 

66  000164 

001741 

BEQ 

4$ 

;N0,  DEFN  ERROR 

67  000166 

PUSH 

RA 

;PUSH   POINTER  TO  RESULT  SYMBOL 

68  000170 

005237 

0031 : 

INC 

RESULT 

:FN   RETURNS  RESULT 

69  000174 

CALL 

GETNXT 

;GET  NEXT  TOKEN 

70  000200 

032703 

020000 

BIT 

#T.B0L,R3 

;END  OF  LINE? 

71  000204 

001021 

BNE 

10$ 

;YES,  ALL  DONE 

72  000206 

032703 

040000 

BIT 

*T.0THR,R3 

; CHARACTER? 

73  000212 

001726 

BEQ 

4$ 

;N0,  ERROR  (SHOULD  BE  DEL!) 

74  000214 

122704 

000107        8$: 

CMPB 

*CHRDEL,R4 

;1S   CHAR  A  DEL? 

75  000220 

001406 

BEQ 

9$ 

;YES,  IS  GOOD 

76  000222 

122704 

000271 

CMPB 

#CHRPDL,R4 

;A  PROTECT  DEL? 

ff  000226 

001320 

BNE 

4$ 

;N0,  THEN  SYNTAX  IS  BAD 

78  000230 

052737 

010000  004764' 

BIS 

#F.PR0T, FLAGS   . 

;MUSN'T  FORGET 

79  000236 

9$: 

CALL 

GETNXT 

;GET  NEXT  TOKEN 

c  )  000242 

032703 

020000 

BIT 

/1^T.B0L,R3 

;ARE  WE  DONE  WITH  LINE? 

81  000246 

001 566 

BEQ 

20$ 

;N0,  THEN  THERE  IS   GARBAGE  IN  LINE 

82  000250 

013701 

003142' 

10$: 

MOV 

RESBIT, R1 

;GET  ARG  COUNT 

83  000254 

005737 

003136' 

TST 

RESULT 

[RETURN  A  RESULT? 

84  000260 

001402 

BEQ 

11$ 

;NOPE 

85  000262 

86 

87  000266 

062701 

000004 

ADD 

#4,R1 

•YES,  MARK  IT 

010137 

003142' 

11$: 

MOV 

R1, RESBIT 

;SAVE  FUNCTION  DESCRIPTION  BITS 

88  000272 

001554 

BEQ 

20$ 

;Zero,  Definition  error 

89  000274 

032701 

1 77770 

BIT 

*^C<7>,R1 

;ANY  EXTRA  BITS? 

90  000300 

001151 

BNE 

20$ 

•YES,  TOO  MANY  ARGS  PERHAPS?? 

91  000302 

017705 

005040' 

MOV 

aFHRET,SI 

•Restore  SI  Pointer 

92  000306 

013700 

005036' 

MOV 

LOCLCT,RO 

•GET  COUNT  OF  LOCAL  VARIABLES 

93  000312 

006300 

ASL 

RO 

•SHIFT  TO  GET  WORD  COUNT 

94  000314 

062700 

000020 

ADD 

#R.LNUM+10,R0   , 

•ADD  HEADER  BLOCK  SIZE 

95  000320 

063700 

000062' 

ADD 

NUMLEN,RO 

■ADD  LINE  NUMBER  SIZE 

96  000324 

CALL 

GETFRA 

•GET  ROOM  FOR  NEW  FUNCTION  HEADER 

97  000330 

010004 

MOV 

R0.R4 

■COPY  POINTER  TO  FN  HEADER 

98  000332 

005020 

CLR 

(r6)+ 

■WE  DON'T  KNOW  ITS  NAME  YET 

99  000334 

113701 

005036' 

MOVB 

L0CLCT,R1 

■GET  COUNT  OF  LOCAL  VARIABLES 

100  000340 

110120 

MOVB 

R1,(R0)+ 

■SAVE  LOCAL  COUNT  IN  HEADER 

101  000342 

112720 

000140 

MOVB 

/i^F.FLB+F.RES,(RO! 

►+  ; INITIALLY  ASSUME  FN  RETURNS  RESULT 

102  000346 

010420 

MOV 

R4,(R0)^- 

■PREVIOUS  LINE  IS  US 

103  000350 

010420 

MOV 

R4,(R0)^- 

■NEXT  FUNCTION  LINE  IS  US  (NO  LINES  YET) 
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10A  000352 

CLRF 

(R0)  + 

Z      000356 

010020 

MOV  RO. 

(ROM 

105  000360 

005020 

CLR 

(R0)  + 

106  000362 

013703 

003142' 

MOV 

RESBIT,R3 

107  000366 

032703 

000004 

BIT 

#4,R3 

108  000372 

001004 

BNE 

12$ 

109  00037A 

005046 

CLR 

-(.%?) 

110  000376 

142764 

000040 

000003 

BICB 

#F. RES, R. BITS 

111  OOOAOA 

012620 

12$: 

MOV 

(SP)^,(RO)+ 

112  000A06 

042703 

000004 

BIC 

/r4,R3 

113  000A12 

001520 

BEQ 

23$ 

114  OOOAU 

022703 

000003 

CMP 

*3,R3 

115  000A20 

001404 

BEQ 

13$ 

116  000422 

005046 

CLR 

-(SP) 

117  000424 

152764 

000002 

000003 

BISB 

/«fF.MON,R.BITS 

118  000432 

012620 

13$: 

MOV 

(SP)+,(RO)+ 

119  000434 

012614 

MOV 

(SP) +  ,S)R4 

120  000436 

032703 

000002 

BIT 

4f2,R3 

121  000442 

001007 

BNE 

14$ 

122  000444 

005046 

CLR 

'{^P) 

123  000446 

142764 

000002 

000003 

BICB 

*F.MON,R.BITS 

124  000454 

152764 

000001 

000003 

BISB 

4fF.NIL,R.BITS 

125  000462 

012620 

14$: 

MOV 

(SP)^-, (R0)  + 

126  000464 

013702 

005036" 

MOV 

L0CLCT,R2 

127  000470 

001403 

BEQ 

16$ 

1?8  000472 

012620 

15$: 

MOV 

(SP)+,(RO)+ 

129  000474 

SOB 

R2J5$ 

130  000500 

011402 

16$: 

MOV 

aR4,R2 

131  000502 

032737 

000040 

004764' 

BIT 

/i^F.REDF,  FLAGS 

132  000510 

001436 

BEQ 

19$ 

133  000512 

042737 

000040 

004764' 

BIC 

/^fF.REDF,  FLAGS 

134  000520 

011200 

MOV 

(R2) ,R0 

135  000522 

001003 

BNE 

17$ 

136  000524 

013700 

005012' 

MOV 

FHEADR,RO 

137  000530 

001426 

BEQ 

19$ 

138  000532 

016001 

000004 

17$: 

MOV 

R.PREV(R0),R1 

139  000536 

020100 

CMP 

Rl.RO 

140  000540 

001412 

BEQ 

18$ 

141  000542 

010164 

000004 

MOV 

R1,R.PREV(R4) 

142  000546 

010461 

000006 

MOV 

R4,R.NEXT(R1) 

143  000552 

016001 

000006 

f^V 

R.NEXT(R0),R1 

144  000556 

010164 

000006 

1^1  V 

R1,R.NEXT(R4) 

145  000562 

010461 

000004 

^  M 

R4,R.PREV(R1) 

146  000566 

152764 

000010 

000003 

t  w* 

^ 

/^F.OPN.R.BITS 

147  000574 

005070 

000000 

C<R 

aO(RO) 

148  000600 

CALL 

RET COR 

149  000604 

000407 

BR 

20$ 

150  000606 

005712 

19$: 

TST 

^2 

151  000610 

001405 

BEQ 

20$ 

152  000612 

016500 

1 7777 t 

MOV 

SI.VAL(SI),RO 

153  000616 

CALL 

RETCOR 

154  000622 

000407 

BR 

21$ 

155  000624 

013700 

005040' 

20$: 

MOV 

FHRET,RO 

156  000630 

062760 

000002 

000002 

ADD 

^2.,2(R0) 

157  000636 

010400 

MOV 

R4,R0 

158  000640 

010412 

MOV 

R4,5IR2 

159  000642 

000241 

21$: 

CLC 

T\E 


;0UR  LINE  NUMBER  IS  0.0  (HEADER) 

;N0  LABELS  YET 
;GET  FN  DESCRIPTION  BITS 
'.m   RETURN  A  VALUE?? 
;YES,  SAVE  POINTER  TO  VALUE  SYMBOL 
:N0,  PUSH  A  ZERO 
(R4);MARK  AS  NOT  RETURNING  A  VALUE 
COPY  RESULT  POINTER  (0=NONE) 
KILL  DESCRIPTION  BIT 
OOPS!  ILLEGAL  FUNCTION  DEF 
IS  FN  DYADIC  (2  ARGS?) 
YES,  POP  LEFT  ARG'S  NAME 
,N0,  PUSH  A  ZERO 
(R4);GUESS  THAT  THE  FN  IS  MONADIC 
COPY  LEFT  ARC  PTR  INTO  HEADER 
POP  FN  NAME  INTO  HEADER 
\Z   FN  REALLY  NILADIC? 
NOPE,  GET  RIGHT  ARC 
YUP  PUSH  A  ZERO 
(R4);FUNCTI0N  ISN'T  REALLf  MONADIC 
(R4);IT'S  NJLADICi 

COPY  RIGHT  ARG  INTO  FN  HEADER 

GET  COUNT  OF  LOCAL  VARIABLES 

l^   THERE  ARE  ANY 

STORE  NEXT  LOCAL  PTR  IN  HEADER 

COPY  ALL  LOCAL  VARIABLES  INTO  HEADER 

GET  FN  NAME  POINTER  INTO  SYMTAB 

IZ   THIS  A  HEADER  REDEFINITION? 

NO,  GOOD 

CLEAR  THE  FLAG 

Get  pointer  to  old  header 

Yes,  there  is  one 

Point  to  old  fn  header 

If  there  is  one 

GET  LAST  LINE 

EMPTY  FUNCTION? 

YES 

OF  NEW  HEADER 
HEADER  IN  LINE 
FN  LINE 
FIRST  LINE 

LINE 


(R4) 


MAKE  LAST  LINE 
SET  PTR  TO  NEW 
POINT  TO  FIRST 
IT  IS  NEW  FN'S 
^\y^   UP  BACK  POINTER  IN  FIRST 

;Yes,  it  is  really  open 
KILL  SY^BOL  PTR  TO  HEADER 
KILL  OLD  FUNCTION  HEADER 
AND  LET  NEW  HEADER  TAKE  OVER 
IS  NAME  ALREADY  IN  USE? 
No,  is  OK 

Point  to  Function  Header 
Kill  the  Block 
Error  Return 
Stack  Pointer 
Reset  return  address 
COPY  POINTER  TO  HEADER 
MAKE  NAME  POINT  TO  FUNCTION  HEADER 
Normal  return 
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160  00064A 

161  000650 

162  000652 
163 

16A  000654 


165  000656  000772 


013706  005040' 


000261 


22%: 


23$: 


MOV 
POP 
RETURN 

SEC 
BR 


FHRET,SP 
SJ 


22% 


;Restore  the  Stack 
;Restore  SI  value 
;   and  return 

; Error  return 
;And  do  it 
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SYMBOL 

TABLE 

ACO   = 

XOOOOOO 

CHRLBR= 

000073 

C.8LSZ= 

000140 

D.DIV  = 

000000 

ELESIZ 

005132R 

025 

AC1   = 

X000001 

CHRLPR= 

000072 

C.BUFF= 

1 77760 

D.DMD  = 

000010 

ENDCOR 

000004R 

025 

AC2   = 

X000002 

CHRMNS= 

000137 

C.BUFL= 

1 77762 

D.DQAD= 

1  mil 

EOF   = 

104475 

AC3   = 

X000003 

CHRMUL= 

000075 

C.CCNT= 

177766 

D.DR0P= 

000002 

ERRMAX= 

000166 

ACA   = 

XOOOOGA 

CHRNEG= 

000100 

C . CPTR= 

1 77764 

D.ENCD= 

000002 

ERRNUM 

004772R 

025 

ACS   = 

X000005 

CHRPDL= 

000271 

C.CZ  = 

001000 

D.EQ  = 

000000 

ERRPTR 

004770R 

025 

ALLINT 

003274R 

025 

CHRPLU= 

000055 

C.DIG  = 

000040 

D.EXPD= 

000002 

ERRO 

004774R 

025 

ARYRET 

003276R 

025 

CHRPWR^ 

000120 

C.FASW= 

020000 

D.FGET= 

000005 

EXEBUF 

005054R 

025 

ASCQUO=  0000A2 

CHRQST= 

000121 

C.FLEN= 

000010 

D.FMT  = 

000004 

E$CT 

005056R 

025 

A.ALEN=  OOOOOA 

CHRQU0= 

000113 

C.FLSH= 

004000 

D.FPNT= 

000005 

E$PT 

005060R 

025 

A.AR6  = 

OOOOAO 

CHRRBR= 

000047 

C.FRC  = 

000001 

D.FPUT= 

000005 

FA.APD= 

000100 

A.ASB  = 

000200 

CHRRPR= 

000042 

C.JDEN=  000010 

D.GE  = 

000000 

FA.CRE= 

000010 

A.BITS= 

000003 

CHRSEM= 

000074 

C.NAME= 

000102 

D.6T  = 

000000 

FA.DLK= 

001000 

A. CON  = 

000020 

CHRSM0= 

000112 

C.NOBF= 

000400 

D.I8M  = 

000002 

FA.E^e= 

100000 

A.DIMS= 

000002 

CHRSPA= 

000040 

C.NUM  = 

000020 

D.IND  = 

000002 

FA.EXC= 

002000 

A.Dim  = 

000006 

CHRUPA= 

000131 

COP  = 

000004 

D.INNR= 

000013 

FA.EXT= 

000004 

A.NUM  = 

000006 

CHR.BS= 

000010 

C.OPN  = 

010000 

D.INTR= 

000006 

FA.NSP= 

000100 

A.PTR  = 

000000 

CHR.CC= 

000003 

C.RDLN= 

177776 

D.LE  = 

000000 

FA.NSR= 

000200 

A. IMP  = 

000010 

CHR.CR= 

000015 

C.REWT= 

002000 

D.LOG  = 

000001 

FA.POS= 

010000 

BADD1R= 

10AA63 

CHR.CZ= 

000032 

C.RND  = 

000010 

D.LT  = 

000000 

FA.RD  = 

000001 

BADERR= 

104437 

CHR.GT= 

000046 

C.SBIT= 

177756 

D.MAX  = 

000000 

FA.RWD= 

004000 

BLZBUB 

0051 16R 

025 

CHR.LF= 

00001 2 

C.SPFX= 

000100 

D.MEM  = 

000002 

FA.SEQ= 

040000 

BRSELF 

005046R 

025 

CHR.LT= 

000043 

C.SPGL= 

000200 

D.MIN  = 

000000 

FA.SHR= 

000040 

CCNT 

005072R 

025 

CHR.SI= 

000017 

C . SPLX= 

000001 

D.MUL  = 

000000 

FA.TMP= 

000020 

CHANEX 

003060R 

025 

CHR.SL= 

000057 

C . SPRS= 

000002 

D.NE  = 

000000 

FA.WCK= 

020000 

CHANOO 

000256R 

025 

CHR.S0= 

000016 

C.SRC  = 

177774 

D.NN  = 

000000 

FA.WRT= 

000002 

CHAN01 

000330R 

025 

CHR.TB= 

00001 1 

C.SRCP= 

000024 

D.NR  = 

000000 

FD.BLK= 

000010 

CHAN02 

00051 2R 

025 

CHR.UL= 

000106 

C.TT  = 

000004 

D.OR  = 

000000 

FD.CCL= 

000002 

CHAN03 

000674R 

025 

CHR..A= 

000141 

C.WIDC= 

177770 

D.PLUS= 

000000 

FD.COM=  020000 

CHAN04 

001056R 

025 

:hr..e= 

000145 

C.WIDR= 

177772 

D.PSUB= 

000006 

FD.CR  = 

000002 

CHAN05 

001240R 

025 

CHR..S= 

000163 

DEBUG  = 

000000 

D.PWR  = 

000001 

FD.DIR= 

000010 

CHAN06 

001422R 

025 

CHR..T= 

000164 

DEFERR= 

104405 

D.QCIAD= 

000000 

FD.FTN=  000001 

CHAN07 

001604R 

025 

CHR..U= 

000165 

DEVIL 

0051 14R 

025  D.QUAD= 

000000 

FD.F11= 

040000 

CHAN08 

001766R 

025 

CHR..Z= 

0001 12 

DEVNTF= 

104470 

D.RES  = 

000000 

FD.INS= 

000010 

CHAN09 

0021 50R 

025 

CHR..O= 

000060 

DIGITS 

000006R 

025  D.RHO  = 

000000 

FD. ISP= 

002000 

CHAN10 

002332R 

025 

CHR..1= 

000061 

DIMAX  = 

000020 

D.ROT  = 

000003 

FD.MNT= 

100000 

CHAN11 

002514R 

025 

CH.AND= 

000001 

DIMBLK 

0031 12R 

025  D.SC0N=  000006 

FD.0SP= 

004000 

CHAN12 

002676R 

025 

CMDBUF 

003250R 

025  DIMPTR 

0031 14R 

025  D.SDIF= 

000006 

FD.PLC= 

000004 

CHAN13 

000022R 

023 

CMDMAX= 

000010 

DIMTYP 

0031 16R 

025  D.SUB  = 

000000 

FD.PRN=  000004 

CHANU 

000204R 

023 

CNTSIZ 

0051 30R 

025  DIRFUL= 

104466 

D.SUBS= 

000006 

FD.PSE= 

010000 

CHNOPN= 

104471 

COMBIN 

005076R 

025  D0MERR= 

104417 

D.TAKE^ 

000002 

FD.RAH= 

000001 

CHRAND= 

000051 

COMCNT 

0051 26R 

025 

DPTERR= 

104416 

D.TRAT 

D00004 

FD.RAN= 

000002 

CHRBEL= 

000007 

COMERR= 

104425 

DYDCNT 

003224R 

025  D.UNOr. 

000006 

FD.REC= 

000001 

CHRBICR= 

000133 

COMPTR 

005122R 

025 

D.AND  = 

000000 

D.$MAX= 

000000 

FD.RWM=  000001 

CHRRni  = 

000200 

COMRTN 

0031 56R 

025 

D.BXCT= 

000007 

D.$MIN= 

000000 

FD.SDI= 

000020 

CHRBOX= 

000114 

COMSKP 

005124R 

025  D.BXI0= 

000007 

D.$MUL= 

000000 

FD.SQD= 

000040 

CHRCMA= 

000054 

CORPTR 

0051 20R 

025 

D.BXNL= 

000007 

D.$PLU= 

000000 

FD.TTY= 

000004 

CHRCOL= 

000076 

CS.ASS= 

000200 

D.BXPP= 

000007 

D.$RES= 

000000 

FD.UBH= 

000002 

CHRDEL= 

000107 

CS.BOO= 

000010 

D.BXPW= 

000007 

D.$SUB= 

000000 

FF.CHR= 

000005 

CHRDIV= 

000053 

CS.FLO= 

000020 

D.8XRL= 

000007 

D.1C0M=  000001 

FF.NV  = 

000003 

CHRDLR= 

000176 

CS.IDN= 

000040 

D.CIRC= 

000001 

D.I EXP= 

000002 

FF.P0E= 

000002 

CHRDLT= 

000110 

CS.ONE= 

000100 

D.COMB= 

000001 

D.1R0T= 

000003 

FF.RWD= 

000001 

CHRDOT= 

000056 

CTEPS 

0001 52R 

025 

D.COMP= 

000001 

EDICHR 

005063R 

025  FF.RWF= 

000006 

CHREP  = 

000105 

CTMAX 

00021 2R 

025 

D.CONT= 

000006 

EDICNT 

005064R 

025  FF^PC= 

000004 

CHRERR= 

104431 

CTRMAX 

0001 72R 

025  D.CTLri= 

000000 

EDIFLG 

005062R 

025  Fhu  .DR 

00501 2R 

025 

CHRFIL= 

0001 17 

C.ALOC= 

000162 

D.DEAL= 

000003 

EDIT  = 

000003 

FHRET 

005040R 

025 

CHRFRO= 

000135 

C.8L0K= 

000064 

D.DECD= 

000002 

EIS   = 

000000 

FILNTF= 

1 04467 
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FABLE 

FIS   = 

000000 

F.FNB  = 

000102 

HSHSJZ= 

000200 

MONCVT 

0031 32R 

025  M.REVS= 

000003 

FISCON= 

0A6000 

F.FNDF= 

000010 

I  CHAN 

005050R 

025  MONLEN 

0031 30R 

025  M.R0LL= 

000000 

FIXPTR 

00307AR 

025 

F.FTYP= 

000116 

ILFNAM= 

104464 

MONPTR 

0031 22R 

025  M.SATA= 

000001 

FLAGS 

00A76AR 

025 

F.FUN  = 

000010 

ILLCHN= 

104540 

MONSFT 

0031 26R 

025  M.SCAN= 

00001 1 

FLCBUF 

003250R 

025 

F.FVER= 

000120 

ILLSW  = 

104565 

MONTYP 

0031 24R 

025  M.SHAP= 

000000 

FLI^€ 

0050HR 

025 

F.HEAD= 

000006 

INDERR= 

104410 

MONVAL 

0031 34R 

025  M.SIGN= 

000000 

FLOEXP 

003270R 

025 

F.HIBK= 

000004 

INNTMP 

003250R 

025  M.A8S  = 

000000 

M.SUBR= 

000001 

FLONEG 

003272R 

025 

F.LBL  = 

000020 

INNTM2 

00501 6R 

025  M.BOL  = 

000200 

M.SYM  = 

000203 

FLSWTB 

000222R 

025 

F.LINE= 

000012 

JNPTR 

000064R 

025  M.BXAV= 

000007 

M.SYN  = 

000201 

FLTLEN= 

000010 

F.LOC  = 

000004 

INSNAM= 

1 04462 

M.BXCR= 

000007 

M.TRAN= 

000012 

FNHEAD 

OOOOOORG 

020  F.LSTC= 

000004 

lOERR  = 

104477 

M.BXCT= 

000007 

M.$ABS= 

000000 

FNINSI 

0050AAR 

025 

F.LUN  = 

000042 

I.CNT  = 

1 7777 t 

M.8XEX= 

000007 

M.$CEI= 

000000 

FORIGN 

000032R 

025 

F./«BCT= 

000054 

I. DIM  = 

1 77772 

M.8XFX= 

000007 

M.$FLR= 

000000 

FO.APD= 

000106 

F.MBC1  = 

000055 

I.LEN  = 

000012 

M.BXIO= 

000007 

M.$IDN= 

000000 

FO.MFY= 

000002 

F.MBFG= 

000056 

I.OERR= 

000062 

M.8XLC= 

000003 

M.$NEG= 

000000 

FO.RD  = 

000001 

F.MON  = 

000002 

I. OLD  = 

177770 

M.BXNC= 

000007 

M.$SIG= 

000000 

FO.UPD= 

000006 

F.NIL  = 

000001 

I.PTR  = 

1 7777  i, 

M.BXNL= 

000007 

M.1RDT= 

00001 1 

FO.WRT= 

000016 

F.NRBD= 

000024 

I. SIR  = 

}777tt 

M.BXPP= 

000007 

M.1REV= 

000003 

FPMOOE 

0000A2R 

025 

F.NREC= 

000030 

LABERR= 

104406 

M.BXPW= 

000007 

M.1SCN= 

00001 1 

FPP   = 

000000 

F.OPN  = 

000010 

LABLPT 

005042R 

025  M.BXRL= 

000007 

NAMBUF 

003240R 

025 

FPPLEN= 

OOOOOA 

F.OVBS= 

000030 

LARGBL 

0031 62R 

025  M.3XTS= 

000007 

NB.DEV= 

000200 

FREBLK 

007400R 

025 

F.PREV= 

000000 

LARGCV 

0031 76R 

025  M.BXWA= 

000007 

NB.DIR= 

000100 

FUZZ 

000K2R 

025 

F.PRNT= 

100000 

LARGFL 

0031 60R 

025  M.CEI  = 

1 77777 

NB.NAM= 

000004 

FXPTR1 

003076R 

025 

F.PROT= 

010000 

LARGLE 

0031 74R 

025  M.CHR  = 

000202 

NB.SD1= 

000400 

F$EVAL= 

000100 

F.RACC= 

000016 

LARGLN 

0031 66R 

025  M.CMT  = 

000206 

NB.SD2= 

001000 

FSEVI  = 

000200 

F.RATT= 

000001 

LARGPT 

0031 64R 

025  M.D0UT= 

000006 

NB.SNM= 

000040 

F$EXEC= 

OOOAOO 

F.RCNri= 

000034 

LARGSF 

0031 72R 

025  M.DQAD= 

000006 

NB.STP= 

000020 

F$FUNC= 

001000 

F.RCTL= 

00001 7 

LARGTY 

0031 70R 

025  M.ENCD= 

000004 

NB.SVR= 

000010 

F.ACTL= 

000076 

F.READ= 

004000 

LARGVA 

003200R 

025  M.EXE  = 

000000 

NB.TYP= 

000002 

F.ALOC= 

000040 

F.REDF= 

000040 

L8INC 

005100R 

025  M.EXP  = 

000001 

NB.VER= 

000001 

F.BBFS= 

000062 

F.RES  = 

000040 

LBUFF 

00331 6R 

025  M.FACT=: 

000001 

ND.DEV= 

000200 

F.BDB  = 

000070 

F.RET  = 

1 77772 

LBUFLN= 

000621 

M.FIL  = 

0001 77 

ND.EXT= 

000002 

F.BGBC= 

000057 

F.RSIZ= 

000002 

L COUNT 

005106R 

025  M.FLR  = 

-{77777 

ND.NAM= 

000004 

F.BITS= 

M777i, 

F.RTYP= 

000000 

LENERR= 

104412 

M.FMT  = 

000004 

ND.PPN= 

000100 

F.BICDN= 

000026 

F.R2  = 

000014 

LENTAB 

000054R 

025  M.GDUP= 

000003 

ND.$EX= 

000000 

F.BICDS= 

000020 

F.R3  = 

000016 

LEX   = 

•*••••  GX 

M.GDWN= 

000003 

ND.$E$= 

000020 

F.B*CEF= 

000050 

F.R4  = 

000020 

LEXPTR 

0031 OOR 

025  M.GETI= 

000006 

ND.$NM=  000000 

F.BKP1  = 

000051 

F . SEQN= 

000100 

LFTOP 

005066R 

025  M.IBM  = 

000003 

ND.$N$= 

000040 

F.BICST= 

000024 

F.SPDV= 

000072 

LINC 

005102R 

025  M.IDN  = 

000000 

ND.$PN= 

001400 

F.BK\/B= 

000064 

F.SPUN- 

000074 

LINE 

00501 6R 

025  M.INSP= 

000006 

NEGSGN 

005063R 

i':5 

F.BR  = 

000020 

F.STBIC= 

000036 

LINING 

005026R 

025  M.I0TA= 

000000 

NINPT1 

003302R 

025 

F.CHR  = 

000075 

F.STK  = 

000022 

LISIZE= 

000020 

M.LIT  = 

000205 

NINPT2 

003300R 

025 

F.CNTG=  00003A 

F.STOP= 

000004 

LITOP 

005072R 

025  M.LN  = 

000001 

NINSTK 

003304R 

025 

F.CODE= 

000010 

F.STP  = 

000001 

LNLNG  = 

104541 

M.MMD  = 

000010 

NINTMP 

00331  OR 

025 

F.DF^B= 

000046 

F . SUSP= 

000002 

LOCLCT 

005036R 

025  M.NE6  = 

000000 

NINTYP 

003306R 

025 

F.DSPT= 

000044 

F.TRC  = 

000002 

LOWCOR 

000002R 

025  M.NOT  = 

000000 

NOTAVL= 

104472 

F.D\/NM=  000134 

F.UNIT= 

000136 

LSTERP 

004766R 

025  M.NUB  = 

000006 

N0T0PN= 

10^473 

F.EFBK= 

000010 

F.URBD= 

000020 

LWIDTH 

000070R 

025  M.NUM  = 

000204 

NPRT1 

004762R 

025 

F.EFN  = 

000050 

F.VAL  = 

1 7777 t 

L.BITS= 

000003 

M.0UTR= 

00001 2 

NULL 

007364R 

025 

F.END  = 

002000 

F.VBN  = 

000064 

L.CNT  = 

000002 

M.PITM= 

000000 

NUMCHN= 

000020 

F.EnF«= 

000032 

F.VBSZ= 

000060 

L.PRNT= 

000001 

M.PRDS= 

000006 

NUMDFL 

003230R 

025 

F.ERR  = 

000052 

6ETFRA= 

ictt-k-kicit   Gx 

L.PTR  = 

000000 

M.QQAD= 

000000 

NUMEFL 

003233R 

025 

F.FACC= 

000043 

GETNXT= 

*•♦•••  6X 

L.PTR1= 

000004 

M.QUAD= 

000000 

NUMESN 

003236R 

025 

F.FFBY= 

000014 

GNOME 

0031 02R 

025  L.SUBS= 

000002 

M.RAND= 

000012 

NUMFLG 

003230R 

025 

F.FLAG= 

000002 

HASHC 

005136R 

025  MACHIN= 

000106 

M.RAVL= 

000000 

NUMLEN 

000062R 

025 

F.FL6  = 

000100 

HASHTB 

0051 40R 

025  MAXCHN= 

000014 

M.RCIP= 

000000 

NUMNEG 

003232R 

025 

F.FNAM= 

000110 

HSHWSK= 

177601 

MONBLK 

0031 20R 

025  M.RDCT= 

00001 1 

NUMQFL 

003234R 

025 
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SimOL 

TABLE 

NUMRIG 

003231 R 

025 

RANERR= 

104411 

R.NEXT= 

000006 

SY.BS  = 

000010 

T.LIT  = 

000020 

NUMUID 

003226R 

025 

RARGBL 

003204R 

025  R.OFF  = 

000000 

SY.CLR= 

000040 

T.MON  = 

000010 

NUM2FL 

003235R 

025 

RAR6CV 

003220R 

025  R.PREV= 

000004 

SY.ERP= 

000020 

T.NIL  = 

000004 

NYIERR= 

104A32 

RARGFL 

003202R 

025  R.PTR  = 

000000 

SY.NOU= 

000100 

T.NUM  = 

002000 

N.BLSZ= 

000036 

RARGLE 

00321 6R 

025 

R.SEQ  = 

000003 

SY.OPN= 

000002 

T.OPFN= 

000001 

N.DESC= 

000020 

RARGLN 

00321  OR 

025  R.VAR  = 

000002 

SY.PMT= 

001000 

T.OTHR= 

040000 

N.DEV  = 

000032 

RARGPT 

003206R 

025  R6 

X000006 

SY.SRT= 

000400 

T.SOP  = 

000002 

N.DE\/N=  00003A 

RARGSF 

00321 4R 

025  R7 

X000007 

SY.SVC= 

000004 

T.SPOP= 

000040 

N.DID  = 

000024 

RARGTY 

00321 2R 

025 

SI 

X000005 

SY.SVL= 

000200 

T.TMP  = 

000200 

N.D\/M>1=  000032 

RARGVA 

003222R 

025 

SIDAMN= 

104433 

S.AB  = 

1 77776 

T.VAL  = 

100000 

N.EXT  = 

000014 

RBASE 

005074R 

025 

SIFRAM 

00331 4R 

025  S.ASB  = 

100000 

T.VAR  = 

001000 

N.FID  = 

000000 

RCOUNR 

0051 12R 

025 

SISTAK 

006350R 

025  S.BFHD= 

000020 

UPPER  = 

1 77400 

N.FNAM=  000006 

RCOUNT 

00511  OR 

025 

SI  TOP 

006346R 

025  S.8ITS= 

000002 

UTNAME 

000344R 

023 

N.FTYP= 

000014 

REDCNT 

005070R 

025 

SITP 

0071 44R 

025  S.CHR1= 

000003 

VALERR= 

104413 

N.F\/ER= 

000016 

REDIGN 

005066R 

025 

SJWARN= 

000200 

S.FATT= 

000016 

VARBLE 

007400R 

0?5 

N.NAME= 

000006 

REDOFF 

005072R 

025 

SIZTAB 

000044R 

025  S.FDB  = 

000140 

VARBLS 

OOOOOOR 

025 

N.^€XT= 

000022 

REENTR 

003060R 

025 

SI.BIT= 

177774 

S.FLB  = 

040000 

VERNUM 

OOOOOOR 

025 

N.PPN  = 

000024 

RESBIT 

0031 42R 

025 

SI.LEN= 

177772 

S.FNAM= 

000006 

VRSION= 

000002 

N.STAT= 

000020 

RESCVT 

0031 52R 

025 

SI.RET= 

177772 

S.FNB  = 

000036 

WIDTH 

000072R 

025 

N.UNIT= 

000034 

RESERR= 

104440 

SI.VAL= 

1 77776 

S.FNBW= 

00001 7 

WROUND 

000020R 

025 

OBUFLN= 

001000 

RESLEN 

0031 50R 

025 

SKPS12 

0051 34R 

025  S.FNTY= 

000004 

WSDATE 

0001 36R 

025 

OCHAN 

005052R 

025 

RESPTR 

0031 40R 

025 

SPHOLD 

000004R 

024  S.FTYP= 

000002 

WSFULL= 

104403 

OMODE 

000402R 

023  RESSFT 

0031 46R 

025 

SPINIT 

000002R 

024  S.LEN  = 

000002 

WSNAME 

000074R 

025 

OPT^f>0 

005066R 

025 

RESTYP 

0031 44R 

025 

STKINC= 

000774 

S.LINK= 

^7777i^ 

WSTIME 

0001 32R 

025 

0PTMP1 

005070R 

025  RESULT 

0031 36R 

025 

STOP  = 

104420 

S.NFEN= 

000020 

$CLRF  = 

******  GX 

0PTMP2 

005072R 

025 

RESVAL 

0031 54R 

025 

SUBCNT 

0031 04R 

025  S.TYPE= 

140000 

$FIS  = 

******  G 

0PTMP3 

005074R 

025 

RETCOR= 

******  GX 

SUBDCT 

0031 06R 

025  S.VAL  = 

000000 

%^??     = 

******  G 

0PTMP4 

005076R 

025 

RINC 

005104R 

025 

SUBPTR 

00311 OR 

025  TKDIMS 

005072R 

025  JFPPLN= 

******  G 

0PTMP5 

0051 OOR 

025 

RLTBAS 

005066R 

025 

SYI»B1 

005344R 

025  TKFRAW 

005066R 

025  $WACHN= 

******  G 

0PTFF6 

0051 02R 

025 

ROTINC 

005070R 

025 

SYMF 

005340R 

025  TKLEFT 

005070R 

025  $RSTS  = 

******  G 

0PTMP7 

0051 04R 

025 

ROUND 

00001 OR 

025 

SYMPT1 

005346R 

025  TMODE 

000403R 

023  $RSX  = 

******  G 

0PTMP8 

0051 06R 

025 

ROVER 

00331 2R 

025 

SYMTAB 

005352R 

025  TMPTAG= 

000166 

$RT11  = 

******  G 

0PTMP9 

00511 OR 

025 

RSTS  = 

000000 

SYMTBF= 

104404 

TTYBUF 

0041 40R 

025  .B00LE= 

000002 

OPTM10 

0051 12R 

025 

RSX   = 

000115 

SYHTOP 

005350R 

025  TTYLEN=  000622 

.CHARA= 

000000 

0PTM14 

005026R 

025 

RTOP 

005070R 

025 

SYMTP 

006272R 

025  TURKEY= 

104436 

.DEF.  = 

000002 

ORIGIN 

000030R 

025 

RT11  = 

000000 

SYMURN= 

000054 

TYPE  = 

000166 

.FLOAT= 

000006 

GUTPTR 

000066R 

025  R.BITS= 

000003 

SYNERR= 

104407 

T.BOL  = 

020000 

.FSRCB= 

******  G 

OVROPR= 
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